ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
02.03.2009, 13:49
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722
Репутация:
71
|
|
Сообщение от S0ulVortex
Че-то я не втыкну вроде все делаю правильно а он не повторяет.
Код:
#!/usr/bin/perl -w
$im_thinking_of=int(rand 10);
print "Введите часло от 0 до 9:";
$guess=<STDIN>;
chomp $guess;
for ($guess==$im_thinking_of) {
if ($guess>$im_thinking_of) {
print "perebor!\п";
} elsif ($guess < $im_thinking_of) {
print "NEDABOR!\п";
} else {
print "You win."; }
exit;
}
Он делает так, как ты ему говоришь! :-) exit должен быть в последнем else!
Вообще, от себя, посоветую использовать следующий стиль форматирования кода (ну или посчитать perlstyle и следовать тем советам!):
Код:
#!/usr/bin/perl -w
$im_thinking_of=int(rand 10);
print "Введите часло от 0 до 9:";
$guess=<STDIN>;
chomp $guess;
for ($guess==$im_thinking_of)
{
if ($guess>$im_thinking_of)
{
print "perebor!\п";
}
elsif ($guess < $im_thinking_of)
{
print "NEDABOR!\п";
}
else
{
print "You win.";
}
exit;
}
Это позволить избегать таких ошибок!
Код должен выглядеть так:
Код:
#!/usr/bin/perl -w
$im_thinking_of=int(rand 10);
print "Введите часло от 0 до 9:";
$guess=<STDIN>;
chomp $guess;
for ($guess==$im_thinking_of)
{
if ($guess>$im_thinking_of)
{
print "perebor!\п";
}
elsif ($guess < $im_thinking_of)
{
print "NEDABOR!\п";
}
else
{
print "You win.";
exit;
}
}
Разницу видишь? :-)
Последний раз редактировалось demond; 02.03.2009 в 13:53..
|
|
|
02.03.2009, 14:10
|
|
Участник форума
Регистрация: 18.11.2007
Сообщений: 184
Провел на форуме:
1686744
Репутация:
246
|
|
там написано так:Модифицируйте программу чтобы игра продолжалася, пока число не будет угадано.
Че то либо я не то делаю либо я не знаю.
мне каждый раз нужно заново запускать. А нужно чтобы он работал пока я не угадаю. |
|
|
|
02.03.2009, 14:22
|
|
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Код:
$dig=int(rand 10);
print "Введите число от 0 до 9:";
while(<>) {
chomp;
last if $_ == $dig ? print "You win." : ();
print $_ > $dig ? "perebor!\n" : "NEDABOR!\n";
}
|
|
|
|
02.03.2009, 14:34
|
|
Участник форума
Регистрация: 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";
}
супер спс
|
|
|
|
02.03.2009, 15:25
|
|
Участник форума
Регистрация: 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";
без явного объявления цикла. :-)
|
|
|
|
02.03.2009, 14:32
|
|
Участник форума
Регистрация: 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>
</td>
<td>
</td>
<td>
N
</td>
<td>
</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>
</td>
<td>
</td>
<td>
N
</td>
<td>
</td>
</tr>
et cetera...
на выходе хочется:
1, 2, 3, 4, 5, 6
7, 8, 9, 10, 11, 12
etcetera
Т.е. выудить значения из таблицы в текстовик.
Необязательно перл. |
|
|
|
02.03.2009, 22:37
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
Написал вроде скрипт как скрипт, а выдает при запуске:
Use of uninitialized value $scheme in pattern match (m//) at C:/Perl/lib/HTTP/Co
okies.pm line 45.
При этом пропускает какие либо действия связанные с LWP. |
|
|
|
06.03.2009, 17:50
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
Сообщение от GAVVVR
Написал вроде скрипт как скрипт, а выдает при запуске:
При этом пропускает какие либо действия связанные с LWP.
Разобрался.  . У меня было примерно так:
#! /usr/bin/perl -w
use LWP::UserAgent;
use HTTP::Cookies;
$ua = LWP::UserAgent->new(
agent => 'Opera/9.27 (Windows NT 5.1; U; ru)',
);
$ua->cookie_jar
( HTTP::Cookies->new(
'file' => 'C:/test/cookies.lwp',
'autosave' => 1,
)
);
$res = $ua->get ("localhost")->as_string;
#И так дале...
Почему то жестко ступил и во всем скрипте вместо http://localhost/ написал localhost
|
|
|
|
03.03.2009, 00:04
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722
Репутация:
71
|
|
GAVVVR, и в чем вопрос? Если хочешь, чтобы тебе помогли, показывай, что ты там написал!
|
|
|
|
03.03.2009, 08:12
|
|
Новичок
Регистрация: 05.01.2009
Сообщений: 11
Провел на форуме:
26593
Репутация:
0
|
|
Какой самый лучщий язык программирования? и еще можете дать ссылку на книжки программирования на PHP?
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид