Readers: 2
|< 1 2 3 >| | 23 entries, 3 pages |
$to_email =~ /^([a-zA-Z0-9_\.\@\+]+)$/
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
my $string = 'skontox will regex lernen';
$string =~ /^(\w+)\s\w+\s(\w+)/;
print "Wer will lernen?\n";
print "$1\n";
print "Und was?\n";
print "$2\n";
1 2 3 4 5
$_ = 'abc123def'; /(\D+)(\d+)(\D+)/; # NichtziffernZiffernNichtziffern print "ũ -- Ū -- ū\n"; # Ausgabe: # abc -- 123 -- def
$str =~ /^[^@]+@[^.]+\.[^.]/
1
2
3
if ($mail !~ /[\w\.-]+@[\w\.-]+\.[A-Za-z]{5}/) {
print "Keine gültige E-mail Adresse.";
}
|< 1 2 3 >| | 23 entries, 3 pages |