mirror of
https://github.com/qpdf/qpdf.git
synced 2024-09-21 09:39:09 +00:00
29 lines
394 B
Perl
29 lines
394 B
Perl
use strict;
|
|
use warnings;
|
|
|
|
my $seen = 0;
|
|
while (<>)
|
|
{
|
|
if (m/write progress: 0\%/)
|
|
{
|
|
print;
|
|
}
|
|
elsif (m/write progress: 100\%/)
|
|
{
|
|
print;
|
|
$seen = 0;
|
|
}
|
|
elsif (m/write progress: /)
|
|
{
|
|
if (! $seen)
|
|
{
|
|
$seen = 1;
|
|
print "....other write progress....\n";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print;
|
|
}
|
|
}
|