Opened by skontox at 2003-08-20 15:18
User since
2003-08-11
265 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
265 Artikel
BenutzerIn
Nimm mal das + vor de schliessenden eckigen Klammer raus.
$1 bis $n enthalten die gefundenen matches die Du in der regex über ()-Klammern festlegst.
perldoc perlre
beschreibt Perl regexes
Die Mail Adresse solltest Du noch etwas gründlicher validieren, aber das ist für regexes ne ganz gut Übung...
$1 bis $n enthalten die gefundenen matches die Du in der regex über ()-Klammern festlegst.
Code: (dl
)
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";
perldoc perlre
beschreibt Perl regexes
Die Mail Adresse solltest Du noch etwas gründlicher validieren, aber das ist für regexes ne ganz gut Übung...
http://hamburg.pm.org
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}