verstehe Fehlermeldung nicht (Seite 2) (Allgemeines zu Perl)

renee

2006-04-12 19:23

User since
2003-08-04
14371 Artikel
ModeratorIn

@Crian: stimmt, das habe ich noch übersehen, wobei das weniger Performance kostet wie die zusätzliche Arbeit für die RegEx-Engine! (das dürfte der Interpreter sowieso optimieren)

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-04-13 14:44

User since
2003-08-04
5873 Artikel
ModeratorIn

Code: (dl )

C:\>perl -MO=Deparse
s//text/;
print "troet\n" if $_ =~ /^t/;
print "muuuh\n" if /^t/;
print "quack\n" if /^t.*/;
^Z
s//text/;
print "troet\n" if $_ =~ /^t/;
print "muuuh\n" if /^t/;
print "quack\n" if /^t.*/;
- syntax OK

ok, das sagt vielleicht noch nichts, irritiert mich trotzdem gerade

Edit: Aber wie auch immer, das semantisch überflüssige .* im RE find ich auch störender als das syntaktisch überflüssige $_ =~.\n\n

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-04-13 23:29

User since
2003-08-04
14371 Artikel
ModeratorIn

Ok, ich hatte es nicht ausprobiert. Überrascht mich jetzt ein wenig, aber so gut kenne ich die Internals ja auch nicht... Ich ziehe meine Aussage zurück und behaupte das Gegenteil ;)

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-04-20 18:50

User since
2003-08-04
5873 Artikel
ModeratorIn

Nene, ich wollte dir gar nicht widersprechen, da müsste man sich vermutlich die erzeugten RE-Maschinen ansehen, vielleicht ist Perl so schlau, ein nicht gefangenes .* am Ende zu eleminieren. Deparse macht das jedenfalls noch nicht.

=)

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