Question : Aide d'analyse de dossier de Perl

Bonjour personnes de Perl. le

I ont un dossier de txt dont j'ai besoin pour lire les 4 premières lignes séparément dans des variables d'une certaine sorte alors que toutes les lignes de reste peuvent être considérées un bloc ou variable.

so mon dossier des textes serait comme ce qui est dans le code inclus ci-dessous. Imaginer que son 'Br appelé/>
then de text.txt'< une routine secondaire de Perl analyse le « text'txt » dans 5 variables qui seraient stockées comme :

$template= " magasin » ;
$ID=2 ;
$title= " mon titre » ; le
$text= un " certain texte qui peut être les lignes multiples le long
and pourrait contenir des caractères du
any ! @#$%^&* (*&^%$#
 » ;

so que je voudrais avoir une ligne comme : de =custom_file_parse du
my ($template, $ID, $title, $text) (« text.txt ») ; l'aide du

some serait beaucoup appréciée pour faire ceci, le

Cheers, le

Tim
class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

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

>magazine " de l'id= " codeSnippet969677 de

class= de

Réponse : Aide d'analyse de dossier de Perl

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

custom_file_parse secondaire { mon $file = décalage ; s'ouvrir (INFILE, « <>; fermer (INFILE) ou mourir $ ! ; mon $text = se joignent ("", @arr) ; retour ($template, $ID, $title, $text) ; }