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. ]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
