[Perl] Извлечение текста

[apofis]

Приветсвую!

Хочу спросить, можно ли как-нибудь извлечь текст?

Например, как можно извлечь стих, отсюда?

ASPuskin У лукоморья дуб зеленый;
Златая цепь на дубе том:
И днем и ночью кот ученый
Все ходит по цепи кругом;
Идет направо - песнь заводит,
Налево - сказку говорит. end

Т.е. нужно извлечь текст от "ASPuskin " до " end".

[krypt3r]

Регуляркой

$text =~ /ASPuskin (.+?) end/smi;

[apofis]

Ок, спасибо!

[apofis]

Есть еще один вопрос. Как можно извлечь этот же текст из файла, который, например называется stih.txt и находится в одной папке со скриптом?

[krypt3r]

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use open qw /:std :utf8/;

$\ = "\n";
die "wrong param count" unless scalar @ARGV == 1;
open my $F, '<', $ARGV[0] or die "open() error: $!";
my $text;
$text .= $_ while <$F>;
close $F;
my ($stih) = $text =~ /ASPuskin (.+?) end/smi;
print $stih;

Имя файла передается скрипту как параметр

[apofis]

Не совсем понятен этот код.
Ладно, задам другой вопрос:

Как можно сделать чтобы переменная была равна массиву? Я например открываю файл, т.е. @stih - это содержимое текстового файла.

Нужно сделать, чтобы $text = @stih, т.е. чтобы $text тоже содержал весь стих, чтобы потом из него потом уже извлечь то что нужно.

[Kaimi]

Ну напиши $text = join "\n", @stih;
Или читай содержимое файла по-другому...