mirror of
https://github.com/qpdf/qpdf.git
synced 2024-06-01 01:40:51 +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;
|
|
}
|