![]() |
|< 1 2 >| | ![]() |
17 Einträge, 2 Seiten |
1
2
3
4
5
my $dummy = "Y";
my @buffer = qw(a b c d);
$dummy =~ /Y/i;
print join(//,@buffer),"\n";
join( $_ =~ m/Y/i, @buffer)
1
2
3
4
5
my $dummy = "Y";
my @buffer = qw(a b c d);
$dummy =~ /N/i;
print join(//,@buffer),"\n";
join( $_ =~ //, @buffer)
"foo" =~ m/(o?)*/;
$num = () = $str =~ /pattern/g;
Quote[/quote]If the PATTERN evaluates to the empty string, the last success-
fully matched regular expression is used instead. In this case,
only the "g" and "c" flags on the empty pattern is honoured -
the other flags are taken from the original pattern. If no
match has previously succeeded, this will (silently) act
instead as a genuine empty pattern (which will always match).
Quote[/quote]If the PATTERN evaluates to the empty string, the last success-
fully matched regular expression is used instead. In this case,
only the "g" and "c" flags on the empty pattern is honoured -
the other flags are taken from the original pattern. If no
match has previously succeeded, this will (silently) act
instead as a genuine empty pattern (which will always match).
1
2
3
4
5
my $dummy = "Y";
my @buffer = qw(a b c d);
$dummy =~ /N/i;
print join(//,@buffer),"\n";
1
2
3
4
5
my $dummy = "Y";
my @buffer = qw(a b c d);
$dummy =~ /N/i;
print join(//,@buffer),"\n";
![]() |
|< 1 2 >| | ![]() |
17 Einträge, 2 Seiten |