mirror of
https://github.com/qpdf/qpdf.git
synced 2024-06-01 18:00:52 +00:00
10 lines
148 B
Perl
10 lines
148 B
Perl
|
use warnings;
|
||
|
use strict;
|
||
|
|
||
|
while (<>)
|
||
|
{
|
||
|
s/("datafile": ").*?(a.json-.*",)/$1$2/;
|
||
|
s%("/(?:Width|Height)": )\d+(.*)%${1}50${2}%;
|
||
|
print;
|
||
|
}
|