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

http://team-madalf.com/index.php?showtopic=59013
http://www.xakep.ru/post/37614/default.asp
http://event.perlrussia.ru/yr2008/talk/1285
А вобще лудше "компилить"....

 

А есть ли возможность "скомпилить" perl скрипт который использует модули

и если да, куда рыть?

 

$p01nt, если надо спрятать сорцы, нормального способа для перла нету

1. Heretic!
2. Use Acme::Bleach
3. There's perl2exe
perl2exe isn't secure you ignorant wanker!
yes it is
No it isn't
Well, that's not what it's for anyway
4. B:eparse will defeat any attempt at hiding source!

пруфлинк http://www.perlmonks.org/?node_id=247543

 

Возникает проблема с gmail imap , когда надо обработать больше одного мыла в цикле.

Ктонить сталкивался с данной проблемой?

 

azgard, КОД в студию!

 

Вот цитата из статьи "Регулярные выражения в Perl".

s/(\$\w+)/$1/eeg
В первой части этого выражения идет поиск скаляра, вычисляется его значение, и во второй части значение скаляра подставляется вместо самого скаляра.

 

$p01nt "threads::shared" не компилится или у меня руки кривые....А остальное ок вроди...

 

Code:

if ($get->content =~ /<a href=\"(.*)\">/)
{
print "$1\n";
}

выводит только первую найденную. как вывести все найденные?

 

PHP:

preg_match_all('/<a href="(.*?)">/', $get->content, $out);
for ($i=0; $i<count($out[1]); $i++)
echo $out[1][$i]."\n";


Должно работат =)

 

perl желательно, но смысл понятен, полюбому можно неиспользую for. ток как?)

 

можно если написать

Code:

while($get->content){
  if (/<a href=\"(.*)\">/)
  {
     print "$1\n";
  }
}

 

Я бы сделал что-то типа такого:

Code:

 print $1 while($get->content =~ /<a href=\"(.*)\">/igm); 

А вообще в регулярных выражениях есть еще такая штука: \G - граница, на которой остановился предыдущий глобальный поиск, выполняемый командой m/.../g, может она поможет, если такой код не сработает!

 

Code:

my @arr = $get->content =~ /<a href=\"(.*)\">/g;
print join "\n", @arr;

 

Попробуй вместо 1 написать all

 

Code:

my $a = q[f549ty3945g9h48hg34hg430ghgh4gh3470gh473g5834];
my @b = $a =~ /(\d+)/g;
print join "\n", @b;

__END__
549
3945
9
48
34
430
4
3470
473
5834

 

http://www.activestate.com/activeperl/

 

Привет! Я хочу сграббить все главные темы с blogs.yandex.ru.

PHP:

$req = $ua->get("http://blogs.yandex.ru")->as_string;
my $topic= $1 if $req=~/<i class=\"ico\"><\/i>(\w+)</;
printf "$topic";

Однако я получу только первую тему. Как сделать так, чтобы получить все три темы?

 

напиши типа

PHP:

my @topic = $req =~ /<i class="ico\"><\/i>(\w+)</gm;
print @topic;


 

ps юзайте дефолтывою переменную куда совпадение с маской поиска закидывается $& чтобы лишний массив topic не пихать

 

/////.
а причём Perl?..