grep soll mehr finden - #81933 (Allgemeines zu Perl)

Crian

2004-04-30 13:53

User since
2003-08-04
5870 Artikel
ModeratorIn

Was ist $row, bzw. was hat es mit @fehler zu tun?
Was sollen die Slashes?

Edit: meinst Du vielleicht sowas wie

Code: (dl )

grep(/\Q$row->[0]\E/ and /\Q$row->[1]\E/ and /\Q$row->[2]\E/, @fehler)

?

Edit 2:

[quote=mordur,30.04.2004, 11:14]Dabei dürfen sie gern in verschiedenen
Arrayelementen stehen.[/quote]
Das wird dann so nicht gehen. Da musst Du wohl dreimal greppen

Code: (dl )

1
2
3

if (grep(/\Q$row->[0]\E/, @fehler) and
    grep(/\Q$row->[1]\E/, @fehler) and
    grep(/\Q$row->[2]\E/, @fehler)) {...}

\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