Hallo zusammen,wahrscheinlich saueinfach aber ich raffs nich:
use strict;
my $string = "testx_testy";
my $in = "(testx_)(testy)";
my $out = '$1';
test("$string","$in","$out");
sub test
{
my $sub_string = shift;
my $sub_in = shift;
my $sub_out = shift;
print "$sub_string <=> $sub_in <=> $sub_out \n";
$sub_string =~ s/$sub_in/$sub_out/g;
print "erg: $sub_string \n";
}
=> als print erg soll testx rauskommen, aber wie ich $1 auch maskiere, ich kriegs nicht hin. Wenn ich aber in der sub ein
$sub_out = "$1" setze funzt es.
Woran liegt es/kann ich das lösen/was hab ich übersehen ?
Danke für eure Anteilnahme,
gruß
Datum: 10.03.2007-14:52
versteh was nicht bei Parameterübergabe an sub
