for my $aref ( @dataset ) {
print "\t [ @$aref ],\n";
}#end for
eigentlich sollte das funktioneren.
tut es auch:
[code lang=perl]#! /usr/bin/perl -w
use strict;
my @dataset =
(
[ qw(a0 b0 c0) ],
[ qw(a1 b1 c1) ],
[ qw(a2 b2 c2) ]
);
for my $aref ( @dataset ) {
print "\t [ @$aref ],\n";
}#end for
Struppi.
--
[Javascript ist toll](http://javascript.jstruebig.de/) (Perl auch!)