Paypal IPN

2002-05-31 Thread A. Rivera
I'm curious if anyone has had any experience with Paypal IPN (instant payment notification)? Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com

Paypal IPN

2002-05-31 Thread A. Rivera
I'm curious if anyone has had any experience with Paypal IPN (instant payment notification)? Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com

Re: Launching Perl Code in Parallel

2002-05-30 Thread A. Rivera
You would do something like foreach $value(@ARGV) { fork() } Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com - Original Message - From: "Ho, Tony" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, May 30, 2002 8:09 AM Subject: Launching Perl Code in Pa

Re: sending mail from Perl redirecting from a file

2002-05-28 Thread A. Rivera
Try system("cat home/dev/perl/mail_queue/$filename | mailx -s \"test\" $mailAddress "); Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com - Original Message - From: "lz" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, May 28, 2002 8:57 AM Subject: sending

CGI Images

2002-05-28 Thread A. Rivera
Anyone have a working script or reference link to a cgi script that can spit out images? I'm trying to use this... to display an image, but it never comes out. The cgi spits it out as if it were text. Anyway, I really would like to see a working copy. Please don't perldoc me, I spent day

Re: uniq

2002-05-23 Thread A. Rivera
If he just wants to count dupes, couldn't he just sort then use something like foreach $value(@list) { $count{$value}++; if ($value ne $lastvalue && $count{$value}>1) {print $count{$value}."\n"} $lastvalue=$value; } Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com

Re: MIME::Lite trouble

2002-05-23 Thread A. Rivera
Here are the two subroutines I use to send email through Mime::Lite. By looking at the variables that the first sub is retrieving, you can see that I'm simply passing it an HTML file and it's plain text equivalent (for those WITHOUT HTML capabilities or email client preview windows). These files

Re: uniq

2002-05-23 Thread A. Rivera
I use this subroutine for uniq sub uniq { my @in=@_; my (%saw,@out); undef %saw; @out = grep(!$saw{$_}++, @in); return @out; } Unfortunately, I have no idea how it works. Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com - Original

Re: html mails

2002-05-22 Thread A. Rivera
Read up on Mime::Lite http://www.zeegee.com/code/perl/MIME-Lite/docs/MIME/Lite.pm.html Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com - Original Message - From: "rory oconnor" <[EMAIL PROTECTED]> To: "perl" <[EMAIL PROTECTED]> Sent: Wednesday, May 22, 2002 5:40 PM

Re: Programming for DOS

2002-04-19 Thread A. Rivera
Look into the Term-ANSIColor module. (Term-ANSIColor [1.03] Color screen output using ANSI escape sequences) Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com - Original Message - From: "Connie Chan" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, April 19, 2

Re: add info to beginning of a line

2002-04-19 Thread A. Rivera
while() { print "00$_\n"; } ? Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com - Original Message - From: "Tucker, Ernie" <[EMAIL PROTECTED]> To: "Tucker, Ernie" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Friday, April 19, 2002 8:14 AM Subject: add info to b

Re: Perl simple array

2002-04-17 Thread A. Rivera
@data = ("test1","test2","test3","test4"); print $data[1]; Regards, Agustin Rivera Webmaster, Pollstar.com / PollstarOnline.com - Original Message - From: "Daniel Falkenberg" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, April 17, 2002 6:53 PM Subject: Perl simple array

Re: Cygwining off Re: perlcc - newbie - cannot compile successfully - sample sessio n

2002-04-15 Thread A. Rivera
Fork doesn't work properly. That's about all I've found so far. - Original Message - From: "drieux" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, April 15, 2002 1:04 PM Subject: Cygwining off Re: perlcc - newbie - cannot compile successfully - sample sessio n > > On Monday,

Re: Aacckk!

2002-04-05 Thread A. Rivera
Change open(MAIL,"|$sendmail -t"); to open(MAIL,"|$sendmail"); ? - Original Message - From: "Moonlit Submit" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, April 05, 2002 12:53 AM Subject: Aacckk! > Hi, > I need the following subroutine to NOT use sendmail -t. > How the heck

Re: file downloading

2002-04-02 Thread A. Rivera
Just post the file and let someone click on the URL link to it? - Original Message - From: "Mariusz" <[EMAIL PROTECTED]> To: "perl" <[EMAIL PROTECTED]> Sent: Tuesday, April 02, 2002 9:50 PM Subject: file downloading hi, I'm creating a html page on which I would like the viewers to be a

Re: Apache running perl scripts

2002-01-10 Thread A. Rivera
Edit your hosts file (C:\windows\hosts, I think) Add this line 127.0.0.1 localhost - Original Message - From: "rabs" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, January 10, 2002 4:35 PM Subject: Apache running perl scripts > > Hi All > > Apologies as this is no

Re: how to delete trailing space?

2001-12-06 Thread A. Rivera
$var=~ s/\s+$//g; - Original Message - From: "Alex Cheung Tin Ka [CD]" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, December 06, 2001 5:43 PM Subject: how to delete trailing space? Hi, I am going to receving a textbox area content from CGI. How to cut those unwanted t

Re: Using Time::Localtime module

2001-12-04 Thread A. Rivera
Rearrange the output as you need.. use Time::Local; $time=&todaysdate; print $time; sub todaysdate { my %moname= (0,"January", 1,"February", 2,"March", 3,"April", 4,"May", 5,"June", 6,"July", 7,"August"

I thought I knew....

2001-11-29 Thread A. Rivera
OK, I have this.. $longdate="Fri November 29, 2001"; And I want just the November 29, 2001 part. I tried.. $longdate=~ s/(.*) (.*)/$2/g; =~ s/(.*) ?(.*)/$2/g; =~ s/(.*) *?(.*)/$2/g; =~ s/(.*)\s*?(.*)/$2/g; I'm stumped. Help. Thanks in advance, Ag

Re: Elegant way to find/remove line from text file - REDUX

2001-11-29 Thread A. Rivera
Wouldn't cat filename | grep -v "text to ignore" be simplest? Agustin - Original Message - From: "Jim Witte" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Thursday, November 29, 2001 8:09 AM Subject: Elegant way to find/remove line from text file > Hello, >

Re: press return to continue

2001-11-29 Thread A. Rivera
print "Press Return to continue or Control-C to stop."; $input = ; Is this what you needed? Agustin - Original Message - From: "Peter Lemus" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, November 29, 2001 9:38 AM Subject: press return to continue > greedings.. > > How ca

"Shorthand"

2001-11-20 Thread A. Rivera
Is there a quicker way to write this..just curious.. $count=&SomeFunctionWitchReturnsaNumber; $count=$count+1; Thanks, Agustin -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: capture strings with two non-identical capital letters in a row

2001-11-16 Thread A. Rivera
Here is what I wrote for two non-identical... @letters=split(//, $input); for $a(0..$#letters) { if ($letters[$a] ne $letters[$a+1] && $letters[$a] =~ /[A-Z]/ && $letters[$a+1] =~ /[A-Z]/) { print $input; last; } } Agustin - Original Message - From:

Re: YARQ (Yet Another Regexp Question)

2001-11-13 Thread A. Rivera
I have used this little routine to strip HTML. Might be ineffecient, I don't know.. Assuming HTML has been loaded into variable $html $html=~ s/\n//g; $html=~ s/>/>\n/g; @html=split(/\n/, $html); foreach $_(@html) { $_=~ s/<.*>//g; $newhtml.=$_; } print $newhtml; Agustin Rivera - O

regex help

2001-11-13 Thread A. Rivera
Ok, I need help find the most effecient way to do this.. I have a variable... $data="this is a test"; What is the quickest way to get $data to equal just the first two words of the original variable print $data; this is Thanks, Agustin -- To unsubscribe, e-mail: [EMAIL PROTECT

Re: Run away processes.

2001-11-12 Thread A. Rivera
Wouldn't it be more beneficial to stop them from running away in the first place? - Original Message - From: "SAW" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, November 12, 2001 2:06 PM Subject: Run away processes. Hello group. I just upgraded from Windows 98 to Windows 20

Re: protecting code

2001-11-12 Thread A. Rivera
One option...there may be others? You can try to use perlcc, to convert the code to C and then it will compile to an executable. However, the executable file that results is big and ineffecient, assuming that perlcc can compile it at all (it's not totally ready for prime-time) Here is an exampl

Re: How to run DOS batch files or DOS commands in the Perl script

2001-11-09 Thread A. Rivera
I'm not too sure of what you're asking for. Can you give me a better example? Maybe someone else knows what you want. - Original Message - From: "Jason-Yahoo" <[EMAIL PROTECTED]> To: "A. Rivera" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>

Re: How to run DOS batch files or DOS commands in the Perl script

2001-11-09 Thread A. Rivera
system("batchfile.bat"); - Original Message - From: "Jason-Yahoo" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, November 09, 2001 4:09 PM Subject: How to run DOS batch files or DOS commands in the Perl script > I can run perl script in the DOS batch file e.g. > > > @e

Easy one...

2001-11-09 Thread A. Rivera
I've got a simple question.. How do I do this in one line... $input=; chomp($input); Thanks! Agustin Rivera -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: SecureCRT + Perl

2001-11-09 Thread A. Rivera
$true); $crt->Screen->Send($passwd . "\015"); $crt->Screen->{'Synchronous'} = $false; - Original Message - From: "Dave Storrs" <[EMAIL PROTECTED]> To: "A. Rivera" <[EMAIL PROTECTED]> Cc: "Perl 6 Beginners list" <[EMAI

Re: printing lines chunk

2001-11-09 Thread A. Rivera
Try $line=~ s/(.{60})/$1\n/g; Agustin Rivera - Original Message - From: "Pedro A Reche Gallardo" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Friday, November 09, 2001 11:27 AM Subject: printing lines chunk > Hi All, I have a long line with no blank characte

Re: Off-Topic (200%) - Where are you from?

2001-11-09 Thread A. Rivera
Fresno, CA. - Original Message - From: "Richie Crews" <[EMAIL PROTECTED]> To: "Roger Morris" <[EMAIL PROTECTED]> Cc: "Etienne Marcotte" <[EMAIL PROTECTED]>; "Perl Beginners Mailing List" <[EMAIL PROTECTED]> Sent: Friday, November 09, 2001 8:28 AM Subject: Re: Off-Topic (200%) - Where are

SecureCRT + Perl

2001-11-08 Thread A. Rivera
Has anyone tried to use SecureCRT with Perl? If so, any examples scripts that interact with a shell, etc.? Much appreciated, A.Rivera -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: /etc/passwd problem

2001-11-08 Thread A. Rivera
Would if ($_ =~ /^$username/ && $_ =~ /:.*:45:/) {print "*".$_;} work? - Original Message - From: "Daniel Falkenberg" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, November 08, 2001 4:39 PM Subject: /etc/passwd problem Hey all, I have a script here that I want to b