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

04.11.2009, 00:30
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
Провел на форуме: 143706
Репутация:
-1
|
|
Бле...или я тупой,или не понимаю,почему у тебя работает наоборот...разве так можно ?... как это вообще работает ?!
perl -e "(for 1..5) { print 'X ' x 2 }" это я ещё понимаю...print оператор в теле цикла for...
Последний раз редактировалось GenTao; 04.11.2009 в 00:44..
|
|
|

04.11.2009, 01:34
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме: 3660186
Репутация:
905
|
|
В перле можно  Вместо кода
Код:
for (1..5) { print 'X ' x 2 }
можно писать
Код:
print 'X ' x 2 for 1..5;
Такую вещь можно провернуть и с while, if, unless, until, foreach. Непривычно, конечно, для новичков
Последний раз редактировалось krypt3r; 04.11.2009 в 01:38..
|
|
|

06.11.2009, 23:36
|
|
Постоянный
Регистрация: 24.05.2008
Сообщений: 589
Провел на форуме: 3629857
Репутация:
504
|
|
Сообщение от krypt3r
В перле можно  Вместо кода
Код:
for (1..5) { print 'X ' x 2 }
можно писать
Код:
print 'X ' x 2 for 1..5;
Такую вещь можно провернуть и с while, if, unless, until, foreach. Непривычно, конечно, для новичков
ну да, а можно print 'X'x10 
|
|
|

07.11.2009, 18:05
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме: 3660186
Репутация:
905
|
|
gisTy, читайте выше, что требовалось
|
|
|

07.11.2009, 18:44
|
|
Участник форума
Регистрация: 01.01.2009
Сообщений: 138
Провел на форуме: 817404
Репутация:
82
|
|
у нас 3 файла в одном в столбик одни слова в другом в столбик другие, надо для каждого слова из первого дописать через звёздочку каждое слово из второго и всё получившееся записать в третий фаил
#!/usr/bin/perl
my $a = '1,txt'; # c тем к чему приписываем
my $b = '2.txt'; # c тем что приписываем
my $w = 'end.txt'; # куда всё запишится
open(log,>>$w);
while($a)
{
print log .....;
}
close(log);
я перл не знаю )
|
|
|

07.11.2009, 21:56
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
Провел на форуме: 143706
Репутация:
-1
|
|
Как соединиться с сервером (google.ru,80 например) без использования сокетов ? Геморрно писать это по памяти ) Через ООП можно как-то,но я пока не понимаю,как юзать...пример всё равно нужен(.
|
|
|

07.11.2009, 22:06
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме: 9220514
Репутация:
3338
|
|
#!/usr/bin/perl
use LWP::Simple;
$content = get("http://google.ru/");
die "Couldn't get it!" unless defined $content;
print $content;
|
|
|

07.11.2009, 22:34
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
Провел на форуме: 143706
Репутация:
-1
|
|
Кул...респект Пашке.А LWP::Simple - это пакет или модуль ? Извини за глупый вопрос. И есть ли где-то описания модулей на русском ?
|
|
|

07.11.2009, 22:53
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме: 9220514
Репутация:
3338
|
|
http://www.opennet.ru/base/dev/perl_lwp.txt.html
|
|
|

08.11.2009, 01:33
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
Провел на форуме: 143706
Репутация:
-1
|
|
А как принять пользовательский ввод от пользователя с консоли,чтобы в метод get() подставлялась переменная с переданным значением ?
Например,есть тот же код:
PHP код:
#!/usr/bin/perl
use LWP::Simple;
$content = get("http://google.ru");
print $content;
system("PAUSE");
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|