ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Оффтоп > Болталка
Перезагрузить страницу Потскажите программку
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

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

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

123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789

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

Подскажите пожалуйста.
 
Ответить с цитированием

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

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

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

  #4  
Старый 25.12.2008, 20:31
Ponchik
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219

Репутация: 2274


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

  #5  
Старый 25.12.2008, 22:11
ClienTtm
Banned
Регистрация: 31.05.2008
Сообщений: 46
Провел на форуме:
967768

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

  #6  
Старый 25.12.2008, 22:13
Realix
Moderator - Level 7
Регистрация: 11.01.2008
Сообщений: 263
Провел на форуме:
2031719

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

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

  #7  
Старый 26.12.2008, 02:41
andreipup
Постоянный
Регистрация: 21.08.2007
Сообщений: 408
Провел на форуме:
1105135

Репутация: 35
Отправить сообщение для andreipup с помощью ICQ
По умолчанию
Цитата:
Сообщение от [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 строчка.
 
Ответить с цитированием

  #8  
Старый 26.12.2008, 02:57
diznt
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108

Репутация: 445


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

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

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

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

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

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



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



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


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




ANTICHAT.XYZ