other/wrez/walker/fixsize


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;