sok sok txt szetvagasa

[ka at mayten.sch.bme.hu]

On 2015-08-11 15:35, hagelistak wrote:
> Mindegyik úgy épül fel, hogy az elején van 50-100 sor fölösleges rész,
> aztán van egy kulcsszó (ami minden fájlban ugyanaz) és megint egy jó pár
> sor, ami már fontos lenne.
>
> Azt szeretném megoldani, hogy valahogy a kulcsszó utáni rész maradjon
> meg ezekben a fájlokban.
>

#!/usr/bin/perl

$in = "input.txt";
$out = "output.txt";
$copy = 0;

open (I, "<$in");
open (O, ">$out");

while (<I>) {
	chomp;
	if (/<regexp, a kulcsszora>/) $copy++;
	if ($copy > 0) print O $_ . "\n";
}
close (I);
close (O);

utana esetleg /bin/mv output.txt input.txt

nem tudom mennyi hiba van a fentiekben de szerintem nem sok, ha 
kijavitod, kabe keszen is vagyunk.

-- 


udv
Adam