-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 On Wednesday 25 June 2003 03:32 pm, Jon Clausen wrote:
#!/usr/bin/perl open FILE, "<$ARGV[0]" or die "File does not exist\n"; @FILE=(<FILE>); foreach $line (@FILE) { @uni = unpack("C*", $line); while ($char = shift(@uni)) { if ($char <= "127") { push @back, (pack("C*", $char)); } else { push @back, ("\\$char"); } } } print @back; print "\nÆØÅ\n";
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; print $_; } print @back; print "\nÆØÅ\n"; - -- James Oakley Engineering - SolutionInc Ltd. joakley@solutioninc.com http://www.solutioninc.com -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.2-rc1-SuSE (GNU/Linux) iD8DBQE++fap+FOexA3koIgRAk8fAKC2Cfhz1CCKGge44w8tNYr6Hq2pXQCfb2Sh YQwzE2iOpC+ok71RKwe6oIQ= =Bkd8 -----END PGP SIGNATURE-----