1
2
3
my @regpart = split(/\*/,$FORM{'f:'.$i}) ;
my $regdata = $rec_set[$i] ;
$regdata =~ s/\Q$regpart[0]\E/$regpart[1]/g ;
$regdata =~ s/\Q$regpart[0]\E/$regpart[1]/og ;
1
2
3
4
5
6
7
8
9
10
11
12
13
$ perl -wE'
$re = "test mit sonderzeichen (";
"test" =~ m/$re/'
Unmatched ( in regex; marked by <-- HERE in m/test mit sonderzeichen ( <-- HERE / at -e line 3.
$ perl -wE'
$re = "test mit sonderzeichen (";
"test" =~ m/$re/o'
Unmatched ( in regex; marked by <-- HERE in m/test mit sonderzeichen ( <-- HERE / at -e line 3.
$ perl -wE'
$re = "test mit sonderzeichen (";
"test" =~ m/\Q$re/'
2012-04-08T12:55:25 markyIrgendwo in einem Amiforum stand auch, dass diese Form der Nutzung, wenn es denn gebraucht wird - was wohl selten ist, dafür verwendet werden kann.
$regdata =~ s/\Q$regpart[0]\E/$regpart[1]/eg ;
1
2
3
4
5
6
7
8
$ perl -wE'
for my $re (qw/ foo bar /) {
my $string = "test foo";
$string =~ s/$re/replaced/;
say $string;
}'
test replaced
test foo
1
2
3
4
5
6
7
8
$ perl -wE'
for my $re (qw/ foo bar /) {
my $string = "test foo";
$string =~ s/$re/replaced/o;
say $string;
}'
test replaced
test replaced
1
2
3
4
5
6
7
$ perl -wE'
my $s1 = "aaabbbccc" ;
my $s2 = "bbb" ;
my $s3 = q{!§$%&/()=?};
$s1 =~ s/\Q$s2\E/$s3/g;
say $s1'
aaa!§$%&/()=?ccc
2012-04-08T13:23:41 markydie hälfte der Zeichen bleibt ungefähr.
2012-04-08T12:58:31 markyman sicht Sie Datensätze auch