УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > PHP, PERL, MySQL, JavaScript
[Perl] Новичкам: задаем вопросы

Страница 97 из 156

Опции темы

Поиск в этой теме

Опции просмотра

#961

02.03.2009, 14:10

S0ulVortex

Участник форума

Регистрация: 18.11.2007

Сообщений: 184

Провел на форуме:
1686744

Репутация: 246

Отправить сообщение для S0ulVortex с помощью ICQ

там написано так:Модифицируйте программу чтобы игра продолжалася, пока число не будет угадано.
Че то либо я не то делаю либо я не знаю.

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

#962

02.03.2009, 14:22

Kaimi

Reservists Of Antichat - Level 6

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

Отправить сообщение для Kaimi с помощью ICQ

Код:

$dig=int(rand 10);
print "Введите число от 0 до 9:";
while(<>) {
 chomp;
 last if $_ == $dig ? print "You win." : ();
 print $_ > $dig ? "perebor!\n" : "NEDABOR!\n";
}

#963

02.03.2009, 14:32

budden

Участник форума

Регистрация: 26.07.2008

Сообщений: 267

Провел на форуме:
1343031

Репутация: 184

Подскажите скрипт, который был отпарсил большой текстовик с инфой в табличке:

Код:

<table border='1' width='90%' align='center' summary='Script output'>
<tr>
<td align="right">
    145584
</td>
<td>
23432rdt@gmail.com
</td>
<td>
St324269
</td>
<td>
0
</td>
<td align="right">
         0
</td>
<td>
&nbsp;
</td>
<td>
&nbsp;
</td>
<td>
N
</td>
<td>
&nbsp;
</td>
</tr>
<tr>
<td align="right">
    145630
</td>
<td>
fra@new.com
</td>
<td>
fe45336
</td>
<td>
0
</td>
<td align="right">
         0
</td>
<td>
&nbsp;
</td>
<td>
&nbsp;
</td>
<td>
N
</td>
<td>
&nbsp;
</td>
</tr>
et cetera...

на выходе хочется:
1, 2, 3, 4, 5, 6
7, 8, 9, 10, 11, 12
etcetera

Т.е. выудить значения из таблицы в текстовик.
Необязательно перл.

#964

02.03.2009, 14:34

S0ulVortex

Участник форума

Регистрация: 18.11.2007

Сообщений: 184

Провел на форуме:
1686744

Репутация: 246

Цитата:

Сообщение от Kaimi

Код:

$dig=int(rand 10);
print "Введите число от 0 до 9:";
while(<>) {
 chomp;
 last if $_ == $dig ? print "You win." : ();
 print $_ > $dig ? "perebor!\n" : "NEDABOR!\n";
}

супер спс

#965

02.03.2009, 15:25

demond

Участник форума

Регистрация: 05.11.2008

Сообщений: 105

Провел на форуме:
292722

Репутация: 71

Цитата:

Сообщение от S0ulVortex

супер спс

Код:

#!/usr/bin/perl -n
BEGIN { print"---put ENTER for start---";  $dig = int(rand 10); };
print "put number [0 .. 9]:";
$_ = <>;
chomp;
last if $_ == $dig ? print "You winner." : ();
print $_ > $dig ? "what is more!\n" : "WHAT IS LESS\n";

без явного объявления цикла. :-)