blob: 113884375482245102d6b46dd476a84d848193cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!/usr/bin/perl
my $i = shift;
my $o = shift;
open I, "<$i" or die "$!";
open O, ">$o" or die "$!";
my $size = (stat $i)[7];
while (<I>) {
s/9999/$size/;
print O;
}
close I; close O;
|