I tried to run your code but it's now working. I have a file in the same directory called data.txt (the file w/all of the info in it).. here's the script file i'm runninng
#!/usr/local/bin/perl
open (DATA,"<data.txt")
|| die "Can't open $DATA $!";
while (<DATA>) {
chomp;
@line = split(/,/);
$key = shift @line;
push @{$data{$key}}, \@line;
}
print $data{"Andrea"}[0][1], " should be good\n"; # offsets off by one
+
print $data{"Dave"}[0][1], " should be better\n";
print $data{"Joe"}[0][1], " should be 0\n";
Here are the errors
syntax error in file data.pl at line 10, next 2 tokens "@$data"
Spurious backslash ignored at data.pl line 10.
syntax error in file data_824.pl at line 14, next 2 tokens "}["
syntax error in file data.pl at line 15, next 2 tokens "}["
Execution of data.pl aborted due to compilation errors.
sorry if i was confusing. |