Thread substr_count in perl (29 answers)
Opened by norman at 2004-07-14 14:52

Taulmarill
 2004-07-14 18:45
#84304 #84304
User since
2004-02-19
1750 Artikel
BenutzerIn

user image
naja, nicht ganz,

(nicht hauen wenn das folgende falsch ist):
("warner","brosers") ist eine liste von konstanten.
() ist ein anonymes array, welchesnicht optimiert wird

interessant finde ich folgendes
Code: (dl )
1
2
3
4
perl -MO=Deparse -e'$foo = qw/a b c d/;print $foo;'
$foo = ('???', '???', '???', 'd');
print $foo;
-e syntax OK

aber
Code: (dl )
1
2
3
4
perl -MO=Deparse -e'$foo =()= qw/a b c d/;print $foo;'
$foo = () = ('a', 'b', 'c', 'd');
print $foo;
-e syntax OK


listen auf der rechten seite der gleichheitszeichen scheinen je nach kontext (liste oder scalar) optimiert zu werden.\n\n

<!--EDIT|Taulmarill|1089816385-->
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View full thread substr_count in perl