Opened by Gast at 2004-07-23 11:20
Hallo an alle,
ich habe mir eine Funktion geschrieben mit der ich eine Textdatei auslesen und in einer ARRAY Variable spreicher:
Mein Problem ist folgendes:
Gebe ich den Separator über eine Variable an diese Funktion gehts nicht:
Wenn ich aber direkt in die Split Funktion den Separator reinschreibe gehts:
Was mache ich da falsch?
Danke für eure Hilfe
Andreas
ich habe mir eine Funktion geschrieben mit der ich eine Textdatei auslesen und in einer ARRAY Variable spreicher:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
sub fill_table()
{
my $datei = $_[0]; # Dateiname
my $src_path = $_[1]; # Pfad zur Datei
my $delimiter = $_[2]; # Separator
my $header = $_[3];
open (IFILE, "< $src_path$datei") or die "can't open $0: $!\n";
$z=0;
while(my $BomLine = <IFILE>)
{
$z++;
my @Bom = split(/\$delimiter/, $BomLine);
$spalten= @Bom;
$cols=$spalten;
for (0..$spalten)
{
$col=$_;
$col=$col+1;
$arrayVar->{"$z,$col"} = "$Bom[$_]";
}
}
}
Mein Problem ist folgendes:
Gebe ich den Separator über eine Variable an diese Funktion gehts nicht:
Code: (dl
)
&fill_table('test.txt','',"|",'1');Wenn ich aber direkt in die Split Funktion den Separator reinschreibe gehts:
Code: (dl
)
my @Bom = split(/\s+/, $BomLine);
Was mache ich da falsch?
Danke für eure Hilfe
Andreas