diff options
Diffstat (limited to 'qpdf/qtest/qpdf/filter-progress.pl')
-rw-r--r-- | qpdf/qtest/qpdf/filter-progress.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/qpdf/qtest/qpdf/filter-progress.pl b/qpdf/qtest/qpdf/filter-progress.pl new file mode 100644 index 00000000..97453fcb --- /dev/null +++ b/qpdf/qtest/qpdf/filter-progress.pl @@ -0,0 +1,23 @@ +use strict; +use warnings; + +my $seen = 0; +while (<>) +{ + if (m/write progress: (?:10)?0\%/) + { + print; + } + elsif (m/write progress: /) + { + if (! $seen) + { + $seen = 1; + print "....other write progress....\n"; + } + } + else + { + print; + } +} |