Reguläre Ausdrücke durch anderes ersetzten... (Seite 2) (Allgemeines zu Perl)

DemoFreak

2004-02-17 15:59

User since
2003-09-06
54 Artikel
BenutzerIn
[default_avatar]

Zur letzten Frage: perldoc perlre ;)

^ ist der Zeilenanfang
$ ist das Zeilenende
Das + gehört als Quantifier zu dem \d, d.h. der Ausdruck matcht auf ein oder mehrere Zeichen der Zeichenklasse \d\n\n

Gruss, Hannes

havi

2004-02-17 17:30

User since
2003-08-04
2036 Artikel
BenutzerIn

Du kannst folgendes schreiben:

Ronnie's Version:

Code: (dl )

&fehler() unless ($rein =~ m/^\d+$/);

Meine Version waere:

Code: (dl )

&fehler() if not $rein =~ m/^\d+$/; # Klammern nicht notwendig; bei Ronnie uebrigens auch nicht

Deine Version:

Code: (dl )

if (not($rein =~m/^\d+$/)) { &fehler(); }

... macht alles das Gleiche!

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Crian

2004-02-17 17:38

User since
2003-08-04
5873 Artikel
ModeratorIn

statt if not ist ja nun gerade unless da ;)

sonst gibts noch

Code: (dl )

fehler() if $rein !~ m~^\d+$~;

und das üble

Code: (dl )

fehler() unless not $rein !~ m~^\d+$~;

;) :p

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

havi

2004-02-17 17:42

User since
2003-08-04
2036 Artikel
BenutzerIn

Klar!

Mit gefaellt die [i]if not[/i] am Ende und/oder [i]!~[/i] Variante einfach am besten!

Gruss\n\n

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

ptk

2004-02-17 20:32

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

[quote=Crian,17.Feb..2004, 16:38]statt if not ist ja nun gerade unless da ;)
[/quote]
"unless" hat keine ein-Wort-Entsprechung im Deutschen, so dass mir das Lesen von unless-enthaltenden Perl-Code schwerfaellt.

Strat

2004-02-17 21:01

User since
2003-08-04
5246 Artikel
ModeratorIn

ich verwende immer unless anstelle von if not, weil ich nicht nur programme fuer den deutschen sprachraum schreibe, und es mir einfach idiomatischer vorkommt, waehrend if not etwas holprig aussieht (als koennte man weder englisch noch perl)\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Ishka

2004-02-17 21:15

User since
2003-08-04
771 Artikel
HausmeisterIn

Es sei denn - sind zwar drei Wörter, aber jeweils einsilbige ;)

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}

Gast Gast

2004-02-17 21:21

"unless" entsprich "außer"

Ishka

2004-02-17 21:29

User since
2003-08-04
771 Artikel
HausmeisterIn

'außer daß' ist zwar auf eine korrekte Übersetzung, aber ich finde, daß 'es sei denn' das (oder zumindestens mein..) sprachliche Gefühl von 'unless' besser trifft.

Ich persönlich verwende sowohl 'if not' wie auch 'unless' (Auswahl erfolgt nach Gefühl).

unless(){}else{} ist aber wirklich schlimm ;)\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}

esskar

2004-02-17 21:31

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=Ishka,17.02.2004, 20:29]unless(){}else{} ist aber wirklich schlimm ;)[/quote]
findest du?
mir fehlt oft das elsunless