Re: push(@ary,\%hash)


go ahead... be a heretic
	PerlMonks

Re: push(@ary,\%hash)

by buckaduck (Chaplain)

on Oct 23, 2001 at 19:32 UTC ( [id://120815]=note: print w/replies, xml )

Need Help??

in reply to push(@ary,\%hash)

Replace this code:

  my %hash;
  my @ary = @$row;

  my ($i, $k, $v, $date);

  for ($i=0; $i<=$#ary; $i++) {
    %hash = %{$ary[$i]};
    $date = con_date($hash{"g_afsluttet"});
    $hash{"g_afsluttet"} = $date;
  }

  HELP NEEDED HERE :o)
  @ary = (\%hash);
  HELP NEEDED HERE :o)
[download]

With this:

my @ary;

foreach my $eachrow (@$row) {
  my %hash = %{$eachrow};
  $hash{g_afsluttet} = con_date($hash{g_afsluttet});
  push @ary, \%hash;
}
[download]

buckaduck