Вопрос : Помощь parsing архива Perl

Здравствулте! люди Perl.

I имеет архив txt мне нужно для того чтобы прочитать первые 4 линии отдельно в перемеююые некоторого вида после этого все линии остатка, котор можно рассматривать одним блоком или variable.

so мой архив текста было бы как находится в врезанном Кодем ниже. Представьте что своему вызванному 'br/>
then text.txt'< режим Perl sub parses «text'txt» в 5 перемеююых хранились бы как:

$template= " кассета»;
$ID=2;
$title= " мое название»;
$text= " нескольк текста может быть множественные линии long
and smogло содержать характеры
any! @#$%^&* (*&^%$#
»;

so, котор я хотел бы иметь линию как: =custom_file_parse
my ($template, $ID, $title, $text) («text.txt»); была бы оценены, что сделала помощь

some очень это,

Cheers,

Tim
class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6:

>magazine " class= " id= " codeSnippet969677

class=

Ответ : Помощь parsing архива Perl

1: 2: 3: 4: 5: 6: 7: 8:

sub custom_file_parse { мо $file = перенос; раскройте (INFILE, «<>; закройте (INFILE) или умрите $! ; мо $text = соединяют ("", @arr); возвращение ($template, $ID, $title, $text); }