Hashes - #53436 (Allgemeines zu Perl)

BrownWolf

2003-08-16 15:52

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

[quote=Dubu,16.08.2003, 13:16]Diese Skalare werden ja wohl nicht selber hochgezaehlt, sondern dienen als Hash-Keys. Und die duerfen nicht undef sein.

Code (perl): (dl )

my %hash;
my &#36nixdrin;
&#36hash{&#36nixdrin}++;

Use of uninitialized value in hash element at - line 3.

@BrownWolf: Bitte lass die Anfuehrungszeichen um skalare Variablen weg ("$bar"), das ist schlechter Stil und verlangsamt das Programm unnoetig.

Arrrgll!! Der Boardparser laesst mich nicht __END__ schreiben! Noch schlimmer, er loescht alles zwischen doppelten Unterstrichen sogar aus dem Eingabefeld! Soll das etwa ein Feature sein?[/quote]
Hallo Dubu,

dachte immer das ist besserer Stil wenn man mit Anführungszeichen macht.
Ich hatte auch an das eine Problem gedacht ....

Code (perl): (dl )

my %hash = (
"bla bla" => 1,
);

my &#36bla = 'bla bla';
print &#36hash{&#36bla}; <= kein Fehler .. ohne "
print &#36hash{bla bla}; <= Fehler

Ich setze die " immer schon halb automatisch.
Ansonsten zu meinem Problem:

Code (perl): (dl )

&#36var = &#36var || 0;

Sieht gut aus. Glaub das funktioniert sogar in meinem Script.
Dank euch allen *G*

BrownWolf

Edit: Oh man jetzt sagte mir mein PC eben das die Datei beschädigt ist und ich ScanDisk ausführen soll.
PC neugestartet und er hat irgendwas abgeschnitten.
Nun ist mein Script gelöscht ... wie ich Windows hasse.
Alles nochmal neu !!! :(\n\n

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;