Потскажите программку

У меня есть список в строчку
Пример

123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789

Надо чтоб программа отсчитывала количество строк
Например загрузил список большой указал чтобы 300 или 400 строчек отсчитала в отдельный файл

Подскажите пожалуйста.

 

Code:

#!/usr/bin/perl -w
$file = 'acs.txt';
$newfile = 'one.txt';
$from_line = 5;
$to_line = 15;

open(F1,"< $file");
@lines = <F1>;
open(F2,"> $newfile");

for($i=$from_line;$i<$to_line;$i++) {
	print F2 $lines[$i-1];
}

 

а нету программы???

 

andreipup, а это что по вашему, залупа конская? (с)

 

Ыыы))

 

Поцталом )))))

скачай activperl ,сохрани скрипт в файле с раширением .pl и запускай =)

 

Она беспорядочно выбирает номера я потом даже ненайду где кончаться 300 строчка если можно кто нибудь поправте чтобы из списка убирались строчки которые порога выбирает.либо чтоб по порядку чтоб понять где 300 строчка.

 

http://dump.ru/file/1359256

быстро накалякал на делфи
сколько строчек присуствует пока что не доступно так как мозг в отключке

 

все по порядку там, не гони

 

убило

 

С таким успехом можно на powershell добавить 1 строчку:

get-content -path c:\inform.txt -totalcount 50 | set-content -path C:\result.txt