phanumeric 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
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 CLE
I appreciate your help, but I canât get a solution to
work. Japhy, thanks for the insight into the tr command, but I think the
problem is more fundamental than a simple text file. When I run the following
script:
#/usr/bin/perl -w
#
tbb | 26 Sept 2002
#
removes non alphanumeric char