6 Einträge, 1 Seite |
1 2 3 4 5 6 7 8
my $string = "Methyl;lysine(D);methionin"; if ((index ($string, '4') == -1) && $string =~ /(met)/i){ print "'4' nicht gefunden. $1 gefunden!\n"; } else{ print "'4' gefunden!\n"; }
1
2
3
4
5
6
7
8
9
10
sub {
$_[0]->look_down(
'_tag' => 'tt',
sub {
my $string = $_[0]->as_text;
#weiter wie ich es bisher beschrieben hatte....
}
)
}
sub {(index ($_[0]->as_text, '4') == -1) && ($_[0]->as_text =~ /(met)/i) }
6 Einträge, 1 Seite |