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 |