PERL中打印整个数组

一：
print "@array\n";

二：
for $row (@array) {
print "@$row\n";
}
三：
for $row (0..$#array) {
print "row $row is: @{$geno_sample[$row]}\n";
}

 

 

 

Perl 中输出 hash 的全部內容, 有以下几种方法:

1. while(my ($key, $val) = each(%hash)) { print "$key $val" }
2. %hash = qw / car 600k bike 70k /; print $_ , $hash{$_} , "\n" foreach (keys %hash);
3. print "$_ $hash{$_}\n" foreach (keys %hash);
4. print "$_ $h{$_}\n" for keys %h;

Perl 中输出 Array 的內容:

1. print $_."\n" for @a;
2. print @a;
3. push @a, split for <>; print @a;