[Perl] Новичкам: задаем вопросы

Здравствуйте. В перл новичек..
Как мне получить ответ ftp сервера одну строчку с версией программы:
$ perl 12.pl
Net::FTP>>> Net::FTP(2.77)
Net::FTP>>> Exporter(5.63)
Net::FTP>>> Net::Cmd(2.29)
Net::FTP>>> IO::Socket::INET(1.31)
Net::FTP>>> IO::Socket(1.31)
Net::FTP>>> IO::Handle(1.28)
Net::FTP=GLOB(0xa139960)<<< 220---------- Welcome to Pure-FTPd [privsep] ---------- #ВОТ ЭТУ
Net::FTP=GLOB(0xa139960)<<< 220-You are user number 5 of 500 allowed.
Net::FTP=GLOB(0xa139960)<<< 220-Local time is now 14:57. Server port: 21.
Net::FTP=GLOB(0xa139960)<<< 220-This is a private system - No anonymous login
Net::FTP=GLOB(0xa139960)<<< 220 You will be disconnected after 15 minutes of inactivity.

12.pl
...
$ftp = Net::FTP->new("host.ru", Debug => 1)
or die "Cannot connect to host.ru: $@";

$ftp->quit;
...


гуглил, курил перл-док ничего не нашел

 

как что бы выводил я хз, могу подсказать как, что бы в файл записывал что тебе надо..

 

Что нужно для написания GUI приложений в среде *unix?
---
и подкиньте линки на довнолоад - ActivePerl и TK
google не дал результат =\

Решено!

 

как можно скрыть (зашифровать либо созд. по типу .exe) содержимое кода в Perl?

 

perl app.
искать в гугле ActiveState Perl Dev Kit 9.0.1

 

а есть у когото кряк? а то весь гугл перерыл , найти не могу

 

какой кряк? это свободное ПО

 

триал 21 день. после 21 дня ехе сделаениые в триал версии не будут запускатся

 

https://forum.antichat.ru/thread51124.html

 

Народ напишите пожалуйса, функцию вывода нужного кличества строк, из указаного файла наподобии уже готовой инклюд, только с возможностью выбора количества самих строк, желательно с возмжностью указания функцие с какой строки наченатьвывод

 

как использовать переменую из другой под программы?
пример конструкции

выдает ошибку
Global symbol requires explicit package name

 

сначала надо выполнить подппрограмму в основной..

 

пример покажи плз. чтото до меня не доходит

мне нужно вывести в переменую $cki в sub main

 

этот код выведет пустоту:

Code:

sub func1
{
  $var1 = "first";
}

print $var1;

а этот - содержимое $var1:

Code:

sub func1
{
  $var1 = "first";
}

func1();
print $var1;

т.е. сначала должна выполниться функция, где объявляется переменная

 

Code:

sub main
{
link() ; #выполняем подпрограмму сначала..
print $cki3;
}
sub link
{
my $resp = $ua->get("http://www.google.com/")->as_string; 

my ($cki3) = $resp =~ /challenge : '(.*)'/;
}

там еще кучу переменных надо передавать таких как
$ua
зависит от того где ты их обьявил..

например

link($ua)

 

не рабоает.
в общем есть такой код

нужно в sub main передать одну переменую из sub captcha

 

попробуйв мэйне обьявить переменную.
my $cki2;

 

спасибо так работает. сам додумался.


снова вопросец
нужно получить письмо на мейл.ру
папку получил.захожу в папку получаю ид письма.. а вот при попытке открыть письмо Произошла ошибка. Перезагрузите страницу

 

получай через принт версию))
я так делал.

http://win.mail.ru/cgi-bin/readmsg?id=ЗДЕСЬАЙДИПИСЬМА&template=printmsg.tmpl&adding=top

 

благодарю , работает..

и опять вопрос. как загрузить фотку на аву , допустим внотакте, через перл