equal
deleted
inserted
replaced
20 $filename = $ARGV[0]; |
20 $filename = $ARGV[0]; |
21 } |
21 } |
22 else { die 'Missing parameter "filename"'; } |
22 else { die 'Missing parameter "filename"'; } |
23 |
23 |
24 my $LINE; |
24 my $LINE; |
25 print $filename; |
25 print "$filename \n"; |
26 tie @LINE, 'Tie::File', $filename or die 'file not found'; |
26 tie (@LINE, 'Tie::File', $filename, recsep => "\n") or die ("File not found\n"); |
27 my $n = 0; |
27 my $n = 0; |
28 my $proxy_begin = 0; |
28 my $proxy_begin = 0; |
29 my $proxy_end = 0; |
29 my $proxy_end = 0; |
30 |
30 |
31 for (@LINE) { |
31 for (@LINE) { |
36 $proxy_end = $n; |
36 $proxy_end = $n; |
37 last; |
37 last; |
38 } |
38 } |
39 $n += 1; |
39 $n += 1; |
40 } |
40 } |
41 |
41 |
42 if ($proxy_end > 0) { |
42 if ($proxy_end > 0) { |
43 splice @LINE, $proxy_begin, ($proxy_end - $proxy_begin + 1); |
43 splice @LINE, $proxy_begin, ($proxy_end - $proxy_begin + 1); |
44 } |
44 } |
45 |
45 |
46 untie @LINE; |
46 untie @LINE; |
|
47 |
|
48 print "OK \n"; |
|
49 |
|
50 exit 0; |