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
_______________________________________________
Techinfo mailing list
[email protected]
Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
Illemtan: http://www.szag.hu/illemtan.html
Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
