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

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");
|
|
|

08.11.2009, 02:05
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме: 9220514
Репутация:
3338
|
|
#!/usr/bin/perl
use LWP::Simple;
print "Enter URL:\n";
$choice = <STDIN>;
chomp $choice;
$content = get($choice);
die "Couldn't get it!" unless defined $content;
print $content;
|
|
|

08.11.2009, 02:20
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме: 5111568
Репутация:
2399
|
|
Сообщение от Pashkela
$choice = <STDIN>;
chomp $choice;
|
|
|

08.11.2009, 02:24
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
Провел на форуме: 143706
Репутация:
-1
|
|
Пасип большое,Pashkela 
|
|
|

08.11.2009, 02:36
|
|
Участник форума
Регистрация: 10.10.2009
Сообщений: 133
Провел на форуме: 143706
Репутация:
-1
|
|
Такая проблема:
Есть,к примеру,4 функции,вычисляющие сумму,разность,деление и вычитание от двух аргументов.Объявил все функции в модуле.Как теперь получить к ним доступ из пакета (а также переменным в каждой функции) ? Нужен рабочий пример.Вместо реальных функции можно использовать гипотетические - (sum,del и т.д.).
Если я объявляю,скажем,переменную (обычную) в модуле,скажем,KE.pl,а в исполняемом скрипте использую директиву use,то :: можно не использовать,а сразу использовать переменную как лексическую(как будто бы модуля и вовсе нет...).А когда же тогда использовать :: ?
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|