Perl проблем?

[rickyice]

Здравейте, всички
Имам файл (размер между 10 ~ 20G), размера на everyline е unkonwn.но по-малко от 1M, сега искам да търсите в своя последен линия 336 и продукцията е подробност.
използвате Perl, как да го направя, някой може да ми помогне!
благодарности

 

[steven852]

пробвайте следното:

$ линии = 0;
$ lineNo = 366;

отворен (FILE, $ име на файл) или да умре "Не мога да отворя файла" $ ': $! ";

докато (<FILE>) (
$ линии = ($ _ = ~ / TR \ N / /);
печат $ _ ако ($ линии> $ lineNo);
)
тясно (файл);

 

[RCircuit]

Били ли сте опитвали Unix команда?
опашката -336 the_file
Не сте сигурни дали то може да се справи толкова голям файл.Added след 5 минути:Или да пробвате тази
...
ми @ линии;
докато (<FILE>) (
за (моите $ I = 0; $ I <335; $ I ) (
$ линии [$ I] = $ линии [$ I 1];
)
$ линии [335] = $ _;
)
печат @ линии;