Frage : Perl-Aktensatzgliederungshilfe

Hallo Perl-Leute.

I haben eine txt Akte, die ich benötige, um die ersten 4 Linien in Variablen irgendeiner Art separat zu lesen, dann, das alle Restlinien gelten können als einen Block, oder variable.

so meine Textdatei sein würde wie, was im eingebetteten Code unten ist. Sich vorstellen, dass seinem benannten 'text.txt'< Br/>
then ein Perl-Vorprogramm „text'txt“ in 5 Variablen analysiert, die wie gespeichert würden:

$template= " Zeitschrift“;
$ID=2;
$title= " mein Titel“;
$text= " etwas Text, der mehrfache Linien long
and sein kann, könnte
any Buchstaben enthalten! @#$%^&* (*&^%$#
“;

so, das ich eine Linie wie würde haben wollen:
my ($template, $ID, $title, $text) =custom_file_parse („text.txt“) ;

some Hilfe würde viel geschätzt, um dies,

Cheers,

Tim
 zu tun 
1:
2:
3:
4:
5:
6:

magazine
2
Mein Titel
Etwas Text, der mehrfache Linien lang sein kann
und konnte enthalten 
irgendwelche Buchstaben! @#$%^&* (*&^%$#

Antwort : Perl-Aktensatzgliederungshilfe 

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

Vorcustom_file_parse {
    mein $file = Verschiebung;
    öffnen (INFILE, „<>;
    $ schließen (INFILE) oder sterben! ;
    mein verbinden $text = ("", @arr);
    Rückkehr ($template, $ID, $title, $text);
}
Weitere Lösungen  
 
programming4us programming4us