Referenzen - #109978 (Allgemeines zu Perl)

renee

2008-05-20 12:14

User since
2003-08-04
14371 Artikel
ModeratorIn

Gibt es Fehlermeldungen? Prinzipiell sollte es nämlich so gehen wie Du das gemacht hast:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @array = (
  { test => 1, test2 => 3},{ test => 1, test2 => 3},
  { test => 1, test2 => 3},{ test => 1, test2 => 3}
);

print Dumper \@array;

x(\@array);

print Dumper \@array;

sub x{
   my $p = shift;
   for my $i ( 0..3 ){
      $p->[$i]->{test2} = 'etwas anderes';
   }
}

Code: (dl )

C:\>perl test.pl
$VAR1 = [
          {
            'test' => 1,
            'test2' => 3
          },
          {
            'test' => 1,
            'test2' => 3
          },
          {
            'test' => 1,
            'test2' => 3
          },
          {
            'test' => 1,
            'test2' => 3
          }
        ];
$VAR1 = [
          {
            'test' => 1,
            'test2' => 'etwas anderes'
          },
          {
            'test' => 1,
            'test2' => 'etwas anderes'
          },
          {
            'test' => 1,
            'test2' => 'etwas anderes'
          },
          {
            'test' => 1,
            'test2' => 'etwas anderes'
          }
        ];

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/