$1 bei Regex (Seite 3) (Allgemeines zu Perl)

[thread]7618[/thread]

$1 bei Regex (Seite 3)

Leser: 3

Strat

2006-01-12 22:12

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=micross,12.01.2006, 18:45]Gefällt mir auch besser :-)
Auch die Variante von Strat /^ein\s+(\b\S+\b)/ is auch nicht schlecht.[/quote]
aber zu lang;

Code: (dl )

/^eins\s+(\S+)/

ist identisch

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

Crian

2006-01-13 15:46

User since
2003-08-04
5866 Artikel
ModeratorIn

[quote=micross,12.01.2006, 18:45]@Crian
Du schreibst:
um dir die Unlogik aufzuzeigen...

Meine Antwort:
So unlogisch find ich es gar nicht ohne eine if-Abfrage arbeiten zu wollen
Das zeigt ja auch deine versteckte if-Abfrage :-)

(...code...)

Siehst du da noch ein if geschrieben?
[/quote]
Ich schrieb "Du hast das Problem, dass manchmal ein Ereignis eintritt und manchmal nicht. Du möchtest unterschiedlich darauf reagieren, aber nicht abfragen, ob es aufgetreten ist." und nicht, dass man es mit einem expliziten if abfangen muss.

Das && ist sehr wohl eine "Abfrage".

[quote=micross,12.01.2006, 18:45]@Taulmarill
Du schreibst:
Crian hat durch seine fragestellung den ansatz, eine entscheidung zu treffen (gebe ich $1 aus oder nicht) ohne die entscheidung treffen zu wollen (kein if benutzen) kritisiert..

Meine Antwort:
Ich denke mit dem versteckten if hat Crian ja auch schon die Antwort auf meine ursprüngliche Frage gegeben. Es geht doch auch ohne if :-)[/quote]

Klar, du kannst ja unless (not ...) {...} nehmen. ;) Es geht nicht ohne Abfrage, das ist der Punkt. und das meinen alle hier (außer Dir) wohl mit "if".

Also war alles nur ein Mißverständnis...

Wenn es Dir um Codekompaktheit geht, du kennst ein nachgestelltes if wie

Code: (dl )

print "Treffer: $1" if m~(ei)~;

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

renee

2006-01-14 01:18

User since
2003-08-04
14371 Artikel
ModeratorIn

Dann kann man auch mit golfen anfangen ;)

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/

Crian

2006-01-16 14:06

User since
2003-08-04
5866 Artikel
ModeratorIn

Ja... deshalb bin ich auch für das normale if, wenn es ein normales Programm ist :)

Ich wollte nur auf die Möglichkeit des nachgestellten ifs hinweisen.

Ausnahmen sind Sachen wie

Code: (dl )

1
2
3

open(...) or die $!;
die "doof" unless defined $blubb;
confess "totales Chaos" if $murks;

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

View all threads created 2006-01-12 16:04.