Saturday, March 10, 2007

ハッシュ 参照渡し

#!/usr/bin/perl

my %data=();
sub1(\%data);
foreach $key ( sort keys %data ) {
  print "$key:$data{$key} \n";
}

sub sub1{
  my ($x) = @_;
  for ($i = 0; $i <= 10 ; $i++)
  {
  $x->{$i} = $i;
  }
}

No comments: