41 lines
856 B
Raku
41 lines
856 B
Raku
#!/usr/local/bin/perl
|
|
|
|
open(FRAMES_FH, 'frames') || die 'Cannot open file "frames".';
|
|
|
|
|
|
# modify the INPUT stanza of a mpeg param file to reflect the actual input
|
|
|
|
$[ = 1; # set array base to 1
|
|
$, = ' '; # set output field separator
|
|
$\ = "\n"; # set output record separator
|
|
|
|
line: while (<>) {
|
|
chop; # strip record separator
|
|
@Fld = split(' ', $_, 9999);
|
|
if (/^INPUT$/ .. /^END_INPUT$/) {
|
|
next line;
|
|
}
|
|
|
|
print $_;
|
|
}
|
|
|
|
printf (("INPUT\n"));
|
|
$_ = &Getline2('FRAMES_FH');
|
|
$frames = $Fld[1];
|
|
for ($i = 0; $i <= $frames; $i++) {
|
|
$file = sprintf('map-%d.gif', $i);
|
|
$size = -s $file;
|
|
if ($size>300 && $size<10000) {
|
|
printf "%s\n", $file;
|
|
}
|
|
}
|
|
printf (("END_INPUT\n"));
|
|
|
|
sub Getline2 {
|
|
($fh) = @_;
|
|
if ($getline_ok = (($_ = <$fh>) ne '')) {
|
|
chop; # strip record separator
|
|
@Fld = split(' ', $_, 9999);
|
|
}
|
|
$_;
|
|
}
|