Thanks for the info, but I was trying to print the original data to the screen so I could make sure the program was working . . . my point was that this data, when printed, only gives the standard symbol of: ╨╧◄αí▒
As for the file with good data: test.txt.tmp it is completely empty. This tells me that I am not dealing with a text file, even though I can open it in notepad. Any thoughts? tim -----Original Message----- From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]] Sent: Thursday, September 26, 2002 10:33 AM To: Tim Booher Cc: [EMAIL PROTECTED] Subject: Re: Extract alphanumeric characters not working . . . On Sep 26, Tim Booher said: >#/usr/bin/perl -w ># tbb | 26 Sept 2002 ># removes non alphanumeric characters from file > >open(OUT, ">" . $ARGV[0] . "tmp"); > >while(<>) >{ > print $_; This prints the ORIGINAL data to your screen... > tr/a-zA-Z0-9//cd; > print OUT "$_\n"; This prints the CLEANED data to your file... >} > >close OUT; > >c:>rem_junk.pl test.txt >╨╧◄αí▒ Have you looked at test.txt.tmp? It holds your good data. -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. [ I'm looking for programming work. If you like my work, let me know. ]
smime.p7s
Description: application/pkcs7-signature
