|< 1 2 >| | 14 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
use strict;
my $str1 = 'Dies ist ein Text';
$str1 =~ m/^.*(ist).*(Tex).*/;
print "1 : '$1', 2: '$2'\n";
$str1 =~ m/^.*(ein).*/;
print "1 : '$1', 2: '$2'\n";
1
2
3
4
5
6
7
8
9
10
11
use strict;
my $str1 = 'Dies ist ein Text';
if ($str1 =~ m/^.*(ist).*(Tex).*/) {
print "1 : '$1', 2: '$2'\n";
}
if ($str1 =~ m/^.*(ein).*/) {
print "1 : '$1', 2: '$2'\n";
}
|< 1 2 >| | 14 Einträge, 2 Seiten |