| OLD | NEW |
| 1 #!/usr/bin/perl | 1 #!/usr/bin/perl |
| 2 | 2 |
| 3 use strict; | 3 use strict; |
| 4 our $opt_u = 'http://www.chromium.org'; | 4 our $opt_u = 'http://www.chromium.org'; |
| 5 our $opt_m = 'Unsupported Prototype 0000'; | 5 our $opt_m = 'Unsupported Prototype 0000'; |
| 6 our $opt_d = '.'; | 6 our $opt_d = '.'; |
| 7 | 7 |
| 8 use File::Basename; | 8 use File::Basename; |
| 9 my $progdir = dirname($0); | 9 my $progdir = dirname($0); |
| 10 my $prog = basename($0); | 10 my $prog = basename($0); |
| (...skipping 21 matching lines...) Expand all Loading... |
| 32 s/\$MODEL/$opt_m/g; | 32 s/\$MODEL/$opt_m/g; |
| 33 $_ = ' ' unless $_; | 33 $_ = ' ' unless $_; |
| 34 my $big = s/^\$BIG:\s*//; | 34 my $big = s/^\$BIG:\s*//; |
| 35 my $filename = sprintf('%s/linetxt_%02d.%s', $opt_d, $count++, | 35 my $filename = sprintf('%s/linetxt_%02d.%s', $opt_d, $count++, |
| 36 $big ? 'TXT' : 'txt'); | 36 $big ? 'TXT' : 'txt'); |
| 37 # print "$filename: ($_)\n"; next; | 37 # print "$filename: ($_)\n"; next; |
| 38 open(OUT, ">$filename") || die "$0 can't write $filename: $!\n"; | 38 open(OUT, ">$filename") || die "$0 can't write $filename: $!\n"; |
| 39 print OUT "$_"; | 39 print OUT "$_"; |
| 40 close(OUT); | 40 close(OUT); |
| 41 } | 41 } |
| OLD | NEW |