Auslesen einer Textdatei mit TAB-getrennten Werten
Montag, 15. Dezember 2003 22:54
Auslesen einer Textdatei mit Tab-getrennten Werten z.B. EXCEL-Export
open( FH, 'dateiname.txt' ) or die("Cannot open file");
my $sHeader = <FH>;
chomp $sHeader;
my @aHeader = split( /\t/, $sHeader );
my $iRowNum = 0;
my @aVarName = ();
my @VarDescription = ();
while( <FH> )
{
my $sLine = $_;
chomp $sLine;
my @aElements = split( /\t/, $sLine );
foreach my $i (1..$#aElements)
{
push @aVarDescription, $aElements[$i];
push @aVarName, $aElements[0];
}
}
close( FH );
als Ergebnis würde dieses Script 2 Arrays liefern - eines mit dem Namen und eines mit der Beschreibung, wenn man davon ausgeht, dass in der Textdatei jeweils Name und Beschreibung TAB-getrennt in einer Zeile stehen.