Mehrmaliges Matchen in einem Suchstring vermeiden (Seite 3) (Allgemeines zu Perl)

havi

2004-01-09 11:10

User since
2003-08-04
2036 Artikel
BenutzerIn

Das stimmt, aber es wird ja nicht wirklich ersetzt sondern dient
rein als Zaehlung!

Gruss

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

Crian

2004-01-09 11:13

User since
2003-08-04
5873 Artikel
ModeratorIn

Ja, eben unnötig ;) :p :D

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-01-09 11:13

User since
2003-08-04
2036 Artikel
BenutzerIn

In diesem Fall wird ja $string nicht ersetzt...

Gruss

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

Crian

2004-01-09 11:14

User since
2003-08-04
5873 Artikel
ModeratorIn

Meinst Du, der Interpreter optimiert die Ersetzung weg?

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-01-09 11:15

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=Crian,09.01.2004, 10:13]Ja, eben unnötig ;) :p :D[/quote]
Wir ueberschneiden uns staendig...

Unnoetig ist so ein grausliches Wort... :) :)

Gruss

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

Crian

2004-01-09 11:16

User since
2003-08-04
5873 Artikel
ModeratorIn

Ich glaub wir können die Diskussion auch lassen, beide Lösungen funktionieren, und der OP ist sowieso schon zufrieden :D

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-01-09 11:18

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=Crian,09.01.2004, 10:14]Meinst Du, der Interpreter optimiert die Ersetzung weg?[/quote]
Nein... :)

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

havi

2004-01-09 11:19

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=Crian,09.01.2004, 10:16]Ich glaub wir können die Diskussion auch lassen, beide Lösungen funktionieren, und der OP ist sowieso schon zufrieden :D[/quote]
Du hast recht!
Ich verstehe auch was du meinst!

Gruss

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

Dubu

2004-01-10 17:53

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Vielleicht war ja einfach sowas gefragt:

Code: (dl )

if ($str =~ /^e\d+$/i) { # $str besteht nur aus E oder e, gefolgt von Ziffern
    print "okay";
} else {
    print "ungueltig!";
}