a2d/res/unpxmap.pl
2019-01-04 20:03:59 -08:00

14 lines
157 B
Perl
Executable File

#!/usr/bin/env perl
use strict;
use warnings;
while (<STDIN>) {
chomp;
next unless m/px\(/i;
s/[^01]//g;
tr/01/ #/;
print $_, "\n";
}