Eine Referenz auf einen String anlegen, den ich: aber dann verändern kann - #83400 (Allgemeines zu Perl)

havi

2004-06-17 11:19

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=steffenw,16.06.2004, 15:15]das geht nicht, weil '' eine Konstante ist:

Code: (dl )

1
2

my $result = \'';
$$result .= 'text';

so funktioniert es:

Code: (dl )

my $result;
{ my $value = '';
  $result = \$value;
}
$$result .= 'text';

das funktioniert nicht:

Code: (dl )

1
2
3

my $result = '';
$result = \$result;
$$result .= 'text';

Nun, wie schreibe ich so etwas? Variante 2 ist mir zu lang.[/quote]

Code: (dl )

#!/usr/bin/perl

use warnings;
use strict;

my $scalar = 'EINS';
my @array  = qw(eins zwei drei);
my %hash   = ('eins' => '1', 'zwei' => '2');

test_sub(\$scalar,\@array,\%hash);

sub test_sub {

   my $scalarref = shift;
   my $arrayref  = shift;
   my $hashref   = shift;

   print 'SCALARREF....', $$scalarref.'HALLO', "\n";
   print 'ARRAYREF.....', @$arrayref,          "\n";
   print 'ARRAYREF_1...', $$arrayref[0],       "\n";
   print 'ARRAYREF_1...', ${$arrayref}[0],     "\n";
   print 'ARRAYREF_1...', $arrayref->[0],      "\n";
   print 'HASHREF......', keys %$hashref,      "\n";
   print 'HASHREF_1....', $$hashref{'zwei'},   "\n";
   print 'HASHREF_1....', ${$hashref}{'zwei'}, "\n";
   print 'HASHREF_1....', $hashref->{'zwei'},  "\n";

} # test_sub

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/