18 |
|
chomp $tf; |
19 |
|
if ($#ARGV < 0) { |
20 |
|
system "pfilt -1 -x 128 -y 128 -p 1 " . |
21 |
< |
"| pvalue -o -h -H -d -b > $tf"; |
21 |
> |
"| pvalue -O -h -H -d -b > $tf"; |
22 |
|
} else { |
23 |
|
foreach (@ARGV) { |
24 |
|
system "pfilt -1 -x 128 -y 128 -p 1 $_" . |
25 |
< |
"| pvalue -o -h -H -d -b >> $tf"; |
25 |
> |
"| pvalue -O -h -H -d -b >> $tf"; |
26 |
|
die "Bad picture '$_'\n" if ( $? ); |
27 |
|
} |
28 |
|
} |
37 |
|
chomp $tf; |
38 |
|
if ($#ARGV < 0) { |
39 |
|
system "pfilt -1 -x 128 -y 128 -p 1 " . |
40 |
< |
"| pvalue -o -h -H -df -b > $tf"; |
40 |
> |
"| pvalue -O -h -H -df -b > $tf"; |
41 |
|
} else { |
42 |
|
foreach (@ARGV) { |
43 |
|
system "pfilt -1 -x 128 -y 128 -p 1 '$_'" . |
44 |
< |
"| pvalue -o -h -H -df -b >> $tf"; |
44 |
> |
"| pvalue -O -h -H -df -b >> $tf"; |
45 |
|
die "Bad picture '$_'\n" if ( $? ); |
46 |
|
} |
47 |
|
} |