perl problemą? skubus

[rickyice]

Sveiki, visi Aš bylas (dydį tarp 10 ~ 20 g), iš everyline dydis unkonwn. , bet mažiau nei 1M, dabar noriu ieškoti savo paskutinėje 336 linijos ir išėjimas ją išsamiau. naudojant perl, kaip tai padaryti, bet kas gali man padėti! ačiū

 

[steven852]

Išbandykite šį: $ eilutes = 0; $ Lineno = 366; atidaryti (failas, $ filename) or die "Negaliu atidaryti" $ filename ': $! "; while () {$ linijos + = ($ _ = ~ tr / \\ n / /); print $ _ if ($ linijos> $ Lineno);} arti (failas);

 

[RCircuit]

Ar bandėte Unix komanda? uodegos -336 the_file Nr tikras, ar ji gali dirbti taip, didelis failas. [Size = 2] [color = # 999.999] Parašytas po 5 minučių: [/color] [/size] Arba pabandykite tai ... my @ linijas; while () {for (my $ i = 0; $ i