пара вопросов новичка в perl

[mke2fs]

Всем доброго времени суток! Недавно проникся перлом и начал его учить. Кто нибудь может подсказать какие то материалы для углубления в изучения?
Сейчас использую этот материал http://www.intuit.ru/department/pl/perl/1/ вроде человек который посоветовал это прочесть сказал что осили основы дней за 10 изучая по 1-1.5 лекции в день. (на собственном опыте убедился что осилил он довольно хорошо и код у него выходит логичный)Параллельно заодно я начал изучать возможности LWP и возник такой вопрос есть ли в перле аналог

Код: Выделить всё

curl_setopt($ch,CURLOPT_VERBOSE,1);

Чтобы отоброжать заголовки при выполнении скрипта

[liaonau]

Кто нибудь может подсказать какие то материалы для углубления в изучения?

Конечно же «Programming Perl» за авторством, в том числе, Ларри Уолла. И perldoc что::нибудь.

[mke2fs]

можно ли как то открыть txt файл (я знаю как его открыть) но при том загнать содержимое в переменную чтобы затем произвести парсинг с помощью регехпа по типу

Код: Выделить всё

if ($var =~ m/шаблон/i){printf "совпадение найдено\n";
}
else
{
printf "совпадение не найдено\n";}

где $var переменная в которой лежит текст файла

[liaonau]

можно ли как то открыть txt файл (я знаю как его открыть) но при том загнать содержимое в переменную

Да, можно. Например

Код: Выделить всё

open(FILE,"<file.txt");
{
    local $/ = undef;
    $var = <FILE>;
}

[mke2fs]

есть годная документпция полная по регекспам и с примерами? желательно на русском а то по гуглу шарится замкчился. везде как то урывисто

[diesel]

есть годная документпция полная по регекспам и с примерами? желательно на русском а то по гуглу шарится замкчился. везде как то урывисто

вам же сказали: Programming Perl (Camel Book).

[sash-kan]

есть годная документпция полная по регекспам и с примерами?

несомненно· как ни странно, книга именно так и называется: «регулярные выражения»· автор — Джеффри Фридл·

[mke2fs]

эксперементируя написал скрипт

Код: Выделить всё

#!/usr/bin/perl
open(FILE,"text.txt") or die "Невозможно открыть файл: $!";
$text = <FILE>;
while ($text=<FILE>){
if ($text =~/^(Лисица|Ворона)/) {
  print "$&\n"
}}

происходит парс слов "Ворона" и "Лисица" из небезизвестной басни крылова.. При запуске скрипта в консоли мне соответственно выдает

Код: Выделить всё

logen@gentoo ~/perl $ ./perl.pl
Лисица
Ворона
logen@gentoo ~/perl $

есть ли возможность сделать так чтоб эти найденные вхождения записывались в txt файл и если да то как это реализуемо

[liaonau]

Код: Выделить всё

open(OUT,">file.txt");
print OUT что-то;

Вот сами же приводили ссылку http://www.intuit.ru/department/pl/perl/9/2.html.
Там об этом есть. Даже не потрудились прочесть, да?

[mke2fs]

кстати по поводуу книги programming perl. Электронная версия не совсем устраивает в плане того что мой мозг лучше усваивает информацию из печатного издания. скачал электронную версию прочел кое что но далеко не все. стоит ли покупать печатное издание? читал кто нибудь?

[sash-kan]

мой мозг лучше усваивает информацию из печатного издания

наверно, настало время обновить прошивку: старая версия даёт большую нагрузку на лес·

стоит ли покупать печатное издание?

вопрос, конечно, интересный· вам виднее, чему равен ответ:
ответ = ((усвоение_бумаги - усвоение_информации) > (цена_бумаги + вред_деревьям))