String auf Zeichen prüfen!: String auf Zeichen prüfen! - #63905 (Allgemeines zu Perl)

jan

2003-10-16 14:06

User since
2003-08-04
2536 Artikel
ModeratorIn

nicht ganz, aber gut.

Code: (dl )

1
2

$test = 'aaE.a.2a';
$test =~ /^([^E]*?)E([^E]+?)\.[^E]*?$/? print "yes\n": print "no\n";

yes

Code: (dl )

1
2

$test = 'aaE.a.2a';
$test =~ /^([^E]*?)E([^E.]+?)\.[^E]*?$/? print "yes\n": print "no\n";