Zahlen bestimmter Größe im Text finden: RegEx Parser (Seite 2) (Allgemeines zu Perl)

Ishka

2007-03-07 16:26

User since
2003-08-04
771 Artikel
HausmeisterIn

Dann machs so:

Code: (dl )

(?:\D|^)0*([1234]?\d|5[0123])(?:\D|$)

\n\n

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Linuxer

2007-03-07 19:06

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Warum keine Wortgrenze \b anstatt des (?:\D|^)/(?:\D|$)?

Code: (dl )

 m/\b0*(?:[1234]?\d|5[0-3])\b/

\n\n

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

Ishka

2007-03-07 19:35

User since
2003-08-04
771 Artikel
HausmeisterIn

Weil ich das so selten brauche, daß ich die immer wieder vergesse ;)

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

renee

2007-03-07 19:36

User since
2003-08-04
14371 Artikel
ModeratorIn

Kommt darauf an, ob Du auch die Zahlen aus 1und1 ziehen willst oder nicht...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/