25 Jun
2003
25 Jun
'03
20:40
On Wed, Jun 25, 2003 at 04:23:21PM -0300, James Oakley wrote: <snip> Kind of suspected (sort of hoped) someone else would respond with cleaner suggestions.
Or with a regex:
#!/usr/bin/perl open FILE, "<$ARGV[0]" or die "File does not exist\n"; @FILE=(<FILE>); foreach $line (@FILE) { $_ = $line; s/([\x7F-\xFF])/'\\' . ord($1)/gse;
*Very* nice ;)
print $_;
I'd stuff it *into* @back with; push @back, $_; (in case I wanted to do something other than print it to stdout)
} print @back;
Otherwise the above seems kind of... well... unneccessary... ;) /Jon -- If we can't be free, at least we can be cheap!