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

[andreipup]

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

123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789

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

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

[[dei]]

#!/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]

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

[Ponchik]

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

[ClienTtm]

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

[Realix]

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

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

[andreipup]

']#!/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];
}


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

[diznt]

http://dump.ru/file/1359256

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

[[dei]]

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

[ReanimatoR]

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

[SpangeBoB]

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

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