2 Fragen (Subroutine, kürzere Schreibweise)

[xNeTworKx]

Hallo,

Benutze echte Referenzen.

my $x = 'a';

print "a is: $a\n";
doit($a);
print "a is: $a\n";

sub doit($) {
  my $ref = shift;
  $$ref   = 'b';
}

Aha =) jetzt verstehe ich schön langsam wobei ich Referenzen gebrauchen kann :)
Übrigens wollte ich mich nochmal für das hier: $text =~ s/(\s\s+)/(' ' x (length($1)-1)) . ' '/eg;
bedanken. Du hast es mir vorigen Monat beim meinem Forum Formatierungsproblem gepostet, und es funktioniert tadellos, nur verstehe ich das mit dem 'e' noch nicht so ganz, da darauf in meinem Buch nicht näher eingegangen wird, aber ich werd mich bei Gelegenheit mal damit beschäftigen.