Array behavior: please expalin ...

[Andreas Karl Wittwer]

Hi,

I thought I know a bit of perl but this is confusing ...

=== cut 1 ===
#! /usr/bin/perl
use strict;
my @ar = ();
push @ar,"Harry Fred Paul";
push @ar,"Fred Ringo John";
push @ar,"Georg Don Fred";

foreach my $l (@ar) {
        $l =~ s/Fred/Thomas/;
}
t();
sub t {
        for(my $z=0;$z<@ar;$z++) {
                my $l = $ar[$z];
                if($l =~ /Fred/) {
                print "Fred joined\n";
                } else {
                print  "fred missed\n" ;
                }
        }

}


fred missed
fred missed
fred missed

=== end cut 1 ===


=== cut 2  ===

#! /usr/bin/perl
use strict;
my @ar = ();
push @ar,"Harry Fred Paul";
push @ar,"Fred Ringo John";
push @ar,"Georg Don Fred";

for( my $x=0;$x<@ar;$x++) {
        my $l = $ar[$x];
        $l =~ s/Fred/Thomas/;
}
t();
sub t {

        for(my $z=0;$z<@ar;$z++) {
                my $l = $ar[$z];
                if($l =~ /Fred/) {
                print "Fred joined\n";
                } else {
                print  "fred missed\n" ;
                }
        }
}


Fred joined
Fred joined
Fred joined

=== end cut 2 ===

Someone able to explain. please?

Best regards,

Andreas Karl Wittwer
Phone: +49-7052-92206
FAX:   +49-7052-92208
Mobil: +49-172-542 541 4



_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs