mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-12-24 16:17:42 +02:00
dd90018903
This is useful for cleaning files from 8-bit contamination obtained through copy & paste, etc.
29 lines
417 B
Perl
Executable File
29 lines
417 B
Perl
Executable File
#!/usr/bin/perl
|
|
sub usage
|
|
{
|
|
print STDERR "usage: $0 [-g] [file ...]\n";
|
|
exit(1);
|
|
}
|
|
|
|
if ($ARGV[0] eq "-g") {
|
|
$grep = 1;
|
|
shift @ARGV;
|
|
}
|
|
&usage if $ARGV[0] =~ /^-/;
|
|
|
|
while (<>) {
|
|
@c = unpack "C*";
|
|
for (@c) {
|
|
if ($_ == 10) {
|
|
print "$s\n" if $found || !$grep;
|
|
$found = 0;
|
|
undef $s;
|
|
} elsif ($_ < 0x80) {
|
|
$s .= pack("c", $_);
|
|
} else {
|
|
$s .= sprintf("\e[7m%02x\e[0m", $_);
|
|
$found = 1;
|
|
}
|
|
}
|
|
}
|