textdatei in Referenz lesen?: oder in ein has oder so ä. - #82620 (Allgemeines zu Perl)

mordur

2004-05-20 14:17

User since
2003-09-25
182 Artikel
BenutzerIn

moins,

ich habe eine Textdatei: sieht etwa so aus:

Code: (dl )

 
$VAR3 = {        
'fax' => undef,        
'name' => 'name1',        
'rem' => 'info',        
'id' => '4132',       
'vname' => 'abc',       
'strasse' => 'strasse 2 ',        
'tel' => undef,        
'plz' => '01235',        
'mail' => '',        
'ort' => 'ort'
};
$VAR3 = {        
'fax' => undef,        
'name' => 'name2',        
'rem' => 'info',        
'id' => '41',        
'vname' => 'abc',        
'strasse' => 'strasse 1 ',        
'tel' => undef,        
'plz' => '01234',        
'mail' => '',        
'ort' => 'ort'
};

Das ist der Output eines Programms der normalerweise in der Referenz $kunde gespeichert wird. Hier ist er jedoch in einer Textdatei gespeichert worden.
Über :

Code: (dl )

1
2

 
foreach(@{$kunde}) {                my ($id,$name,$strasse,$ort,$plz,$vorname) = @{$_};}

komme ich an die Werte, wenn ich das Programm aufrufe. Um das lokal zu testen hab ich aber nicht das Programm sondern nur obige Textdatei. Wie kann ich die Textdatei so in $kunde speichern, das ich $kunde auch wie oben mit foreach auslesen kann??