The clean function is:
($t) = @_; $t =~ s/\t//g; $t =~ s/\n//g; $t =~ s/\r//g; $t =~ s/\"//g; $t=lc($t); <--- that's it, lc = lowercase, comment it out $t=~s/^\s+//g; $t=~s/\s+$//g; $t=~s/"//g; $t=~s/\n/""/g; return $t;
Boy, have I got a lot to learn!
Perl is not an easy language to learn.
Sheila
____ • The WDVL Discussion List from WDVL.COM • ____
To Join wdvltalk, Send An Email To: mailto:[EMAIL PROTECTED] Send Your Posts To: [EMAIL PROTECTED]
To set a personal password send an email to [EMAIL PROTECTED] with the words: "set WDVLTALK pw=yourpassword" in the body of the email.
To change subscription settings to the wdvltalk digest version:
http://wdvl.internet.com/WDVL/Forum/#sub
________________ http://www.wdvl.com _______________________
You are currently subscribed to wdvltalk as: [EMAIL PROTECTED] To unsubscribe send a blank email to [EMAIL PROTECTED]
To unsubscribe via postal mail, please contact us at: Jupitermedia Corp. Attn: Discussion List Management 475 Park Avenue South New York, NY 10016
Please include the email address which you have been contacted with.