| 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 |
|
} |