HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ОФФТОП > Болталка
Перезагрузить страницу Потскажите программку
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

Потскажите программку
  #1  
Старый 25.12.2008, 19:23
andreipup
Постоянный
Регистрация: 21.08.2007
Сообщений: 408
С нами: 9853666

Репутация: 35
По умолчанию Потскажите программку
У меня есть список в строчку
Пример

123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789

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

Подскажите пожалуйста.
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 25.12.2008, 19:58
[dei]
Участник форума
Регистрация: 24.11.2008
Сообщений: 205
С нами: 9190406

Репутация: 362
По умолчанию
Код:
#!/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];
}
 
Ответить с цитированием

  #3  
Старый 25.12.2008, 20:03
andreipup
Постоянный
Регистрация: 21.08.2007
Сообщений: 408
С нами: 9853666

Репутация: 35
По умолчанию
а нету программы???
 
Ответить с цитированием

  #4  
Старый 26.12.2008, 02:41
andreipup
Постоянный
Регистрация: 21.08.2007
Сообщений: 408
С нами: 9853666

Репутация: 35
По умолчанию
Цитата:
Сообщение от [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];
}
Она беспорядочно выбирает номера я потом даже ненайду где кончаться 300 строчка если можно кто нибудь поправте чтобы из списка убирались строчки которые порога выбирает.либо чтоб по порядку чтоб понять где 300 строчка.
 
Ответить с цитированием

  #5  
Старый 27.12.2008, 01:46
[dei]
Участник форума
Регистрация: 24.11.2008
Сообщений: 205
С нами: 9190406

Репутация: 362
По умолчанию
Цитата:
Сообщение от andreipup  
Она беспорядочно выбирает номера я потом даже ненайду где кончаться 300 строчка если можно кто нибудь поправте чтобы из списка убирались строчки которые порога выбирает.либо чтоб по порядку чтоб понять где 300 строчка.
все по порядку там, не гони
 
Ответить с цитированием

  #6  
Старый 25.12.2008, 20:31
Ponchik
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
С нами: 10892546

Репутация: 2274


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

  #7  
Старый 25.12.2008, 22:11
ClienTtm
Banned
Регистрация: 31.05.2008
Сообщений: 46
С нами: 9444894

Репутация: 28
По умолчанию
Цитата:
Сообщение от Ponchik  
andreipup, а это что по вашему, залупа конская? (с)
Ыыы))
 
Ответить с цитированием

  #8  
Старый 27.12.2008, 01:57
ReanimatoR
Участник форума
Регистрация: 27.08.2006
Сообщений: 223
С нами: 10371202

Репутация: 341
По умолчанию
Цитата:
Сообщение от Ponchik  
andreipup, а это что по вашему, залупа конская? (с)
убило
 
Ответить с цитированием

  #9  
Старый 25.12.2008, 22:13
Realix
Moderator - Level 7
Регистрация: 11.01.2008
Сообщений: 263
С нами: 9647687

Репутация: 159
По умолчанию
Цитата:
Сообщение от Ponchik  
andreipup, а это что по вашему, залупа конская? (с)
Поцталом )))))

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

  #10  
Старый 26.12.2008, 02:57
diznt
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
С нами: 9619229

Репутация: 445


По умолчанию
http://dump.ru/file/1359256

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



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написали мы маленькую программку на perl 9822 PHP 5 10.06.2006 09:57
Потскажите скрипт... PhoenixLion PHP 5 16.11.2005 14:30



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.