Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
[Perl] Рандомный выбор строки из текста |

03.05.2010, 11:07
|
|
Познающий
Регистрация: 23.02.2009
Сообщений: 35
Провел на форуме: 267868
Репутация:
0
|
|
[Perl] Рандомный выбор строки из текста
Не совсем пойму как рандомно взять строку из файла..
Есть текстовый файл text.txt с текстом:
слово1
слово2
слово3
слово4
...
словоN
Как отсюда взять одно случайное слово?
Последний раз редактировалось apofis; 03.05.2010 в 11:11..
|
|
|

03.05.2010, 11:30
|
|
Познавший АНТИЧАТ
Регистрация: 01.12.2006
Сообщений: 1,769
Провел на форуме: 3718311
Репутация:
1118
|
|
Открываем файл
Определяем общее количество строк
Полученную цифру кидаем в рандом
Получаем случайное число не большее чем общее количество строк
Читаем строку из файла, под номером полученным рандомом
Или тебе нужно уже готовое решение? 
|
|
|

03.05.2010, 13:05
|
|
Познающий
Регистрация: 23.02.2009
Сообщений: 35
Провел на форуме: 267868
Репутация:
0
|
|
Сообщение от POS_troi
Открываем файл
Определяем общее количество строк
Полученную цифру кидаем в рандом
Получаем случайное число не большее чем общее количество строк
Читаем строку из файла, под номером полученным рандомом
Или тебе нужно уже готовое решение? 
Я хотел сделать именно так)
Но не знаю как прочитать определенную по номеру строку из файла.
TheSoul, спасибо большое) Это, наверное, самое верный вариант)
|
|
|

03.05.2010, 16:26
|
|
Познающий
Регистрация: 17.01.2010
Сообщений: 33
Провел на форуме: 30813
Репутация:
33
|
|
Зачем всё подгружать в память?
В кукбуке есть очень красивый пример, как решается твоя проблема. туц
Код:
$rand_text = $text[int(rand scalar @text)];
в чём приоритет использования и одновременного неиспользования скобок?  Кстати, наличие int необязательно
Код:
$rand_text = $text[rand scalar @text];
|
|
|

03.05.2010, 12:18
|
|
Познающий
Регистрация: 12.11.2007
Сообщений: 94
Провел на форуме: 4789789
Репутация:
71
|
|
open (FILE, '<text.txt');
chomp (@text = <FILE>);
close FILE;
$rand_text = $text[int(rand scalar @text)];
print $rand_text."\n";
|
|
|
|
 |
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
[Perl] Извлечение текста
|
apofis |
PHP, PERL, MySQL, JavaScript |
6 |
09.04.2010 19:18 |
|
[Perl] Кодирование строки по Хаффману
|
eden |
PHP, PERL, MySQL, JavaScript |
12 |
13.01.2010 04:51 |
|
XPath-запрос на выбор части строки
|
Kuzya |
PHP, PERL, MySQL, JavaScript |
1 |
23.09.2009 17:52 |
|
Assembler FAQ
|
GlobalRave |
С/С++, C#, Delphi, .NET, Asm |
2 |
15.02.2009 18:59 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|