substr_count in perl - #84299 (Allgemeines zu Perl)

Crian

2004-07-14 17:55

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=betterworld,14.07.2004, 15:45]

Code: (dl )

1
2

my $x=("warner","brosers");
print $x; # warner

[/quote]
Nö:

Code: (dl )

1
2

my $x = ("warner","brosers");
print "$x\n"; # warner

Ausgabe:

Code: (dl )

1
2

Useless use of a constant in void context at C:\Daten\perl\forum\listen_und_arrays.pl line 1.
brosers

!

Aber:

Code: (dl )

my $w = "warner", "brosers";
print "w: $w\n";

my $x = ("warner","brosers");
print "x: $x\n";

my ($y) = ("warner","brosers");
print "y: $y\n";

my $z = @{ ["warner","brosers"] };
print "z: $z\n";

my $a = () = ("warner","brosers");
print "a: $a\n";

my $b = () = @{ ["warner","brosers"] };
print "b: $b\n";

my ($c) = () = ("warner","brosers");
print "c: $c\n";

Ausgabe:

Code: (dl )

Useless use of a constant in void context at C:\Daten\perl\forum\listen_und_arrays.pl line 4.
Useless use of a constant in void context at C:\Daten\perl\forum\listen_und_arrays.pl line 1.
w: warner
x: brosers
y: warner
z: 2
a: 2
b: 2
c:

Erklärungsansatz:

Fall w: Kommaoperator, $w wird "warner" zugewiesen, "brosers" ist nur leere Anweisung, deshalb die Warnung.

Fall x: Die Klammer fasst nur den Kommaoperator zusammen, deshalb wird der letzte Wert zurückgegeben und es kommt die Warnung, da "warner" eine leere Anweisung ist. ?-?-?

Fall y: Im Listenkontext kommt der erste Wert der Liste zurück.\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