Vraag : Het dossier van Perl het ontleden hulp

Hello mensen Perl.

I heeft een txtdossier dat ik nodig heb om de eerste 4 lijnen in variabelen van één of andere soort afzonderlijk te lezen dan alle restlijnen als één blok kunnen worden beschouwd of variable.

so mijn tekstdossier zou zijn als wat in de ingebedde hieronder code is. Veronderstel zijn geroepen 'text.txt'< br/>
then een Perl de subroutine „text'txt“ in 5 variabelen ontleedt die worden opgeslagen zoals:

$template= " tijdschrift“;
$ID=2;
$title= " Mijn Titel“;
$text= " Één of andere tekst die veelvoudige lijnen long
and kan zijn kon karakters
any bevatten! @#$%^&* (*&^%$#
“;

so die ik zou willen om een lijn als hebben:
my ($template, $ID, $title, $text) =custom_file_parse („text.txt“) ; de hulp

some veel gewaardeerd worden om dit,

Cheers,

Tim
 te doen
" codeBody " 
1:
2:
3:
4:
5:
6:

magazine
2
Mijn Titel
Één of andere tekst die veelvoudige lange lijnen kan zijn
en kon bevatten 
om het even welke karakters! @#$%^&* (*&^%$#

Antwoord : Het dossier van Perl het ontleden hulp 

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

sub custom_file_parse {
    mijn $file = verschuiving;
    open (INFILE, „<>;
    sluit (INFILE) of matrijzen$! ;
    mijn $text = treed toe ("", @arr);
    terugkeer ($template, $ID, $title, $text);
}
Andere oplossingen  
 
programming4us programming4us