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

Crian

2004-04-30 15:07

User since
2003-08-04
5870 Artikel
ModeratorIn

Wenn Du echte Übereinstimmung haben möchtest, solltest Du die eq-Variante nehmen:

Code: (dl )

1
2
3

if (grep($_ eq $row->[0], @fehler) and
     grep($_ eq $row->[1], @fehler) and
     grep($_ eq $row->[2], @fehler)) {...}

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