perl ongelma? kiireellinen

[rickyice]

Hei, minulla on tiedoston (koko on 10 ~ 20G), koko everyline on unkonwn. mutta alle 1M, nyt haluan etsiä sen viimeisen 336 rivi-ja ulostulo sen yksityiskohtia. käyttäen Perl, miten tehdä se, kuka tahansa voi auttaa minua! kiitos

 

[steven852]

Kokeile tätä: $ rivit = 0; $ lineNo = 366; auki (tiedosto, $ tiedosto) or die "Ei voi avata '$ filename': $!", kun taas () {$ rivit + = ($ _ = ~ tr / \\ n / /); print $ _ if ($ rivit> $ lineNo);} close (KUVA);

 

[RCircuit]

Oletko kokeillut Unix-komento? hännän -336 the_file Ei varma, jos se pystyy käsittelemään niin suuri tiedosto. [Size = 2] [color = # 999999] Lisätty jälkeen 5 minuuttia: [/color] [/size] Tai kokeile tätä ... minun @ linjat, kun taas () {for (my $ i = 0; $ i