abgedrehtes problem mit switch: oder bin ich blind? - #83486 (Allgemeines zu Perl)

Crian

2004-07-07 17:25

User since
2003-08-04
5873 Artikel
ModeratorIn

(Als ich diesen Beitrag schrieb war pq's Beitrag noch nicht da, deshalb überschneidet sich dies...)

Interessant ist dieses:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $xxx = 1234;

BEGIN {
   warn $xxx;
   $xxx = 5678;
   warn $xxx;
}

warn $xxx;

Ausgabe:

Code: (dl )

Use of uninitialized value in warn at C:\Daten\perl\BEGIN.pl line 8.
Warning: something's wrong at C:\Daten\perl\BEGIN.pl line 8.
5678 at C:\Daten\perl\BEGIN.pl line 10.
1234 at C:\Daten\perl\BEGIN.pl line 13.

Ich erkläre mir das jetzt mal laienhaft so:

1) Deklaration der globalen im normalen Teil vor dem BEGIN wird interpretiert.

2) Der Code im BEGIN-Block wird interpretiert, dabei stößt Perl auf eine uninitialisierte unbekannte Variable.

3) Dann wird die Definition "= 1234" im normalen Code interpretiert.

Lässt man das Wort "BEGIN" weg, ist die Ausgabe diese:

Code: (dl )

1
2
3

1234 at C:\Daten\perl\BEGIN2.pl line 8.
5678 at C:\Daten\perl\BEGIN2.pl line 10.
5678 at C:\Daten\perl\BEGIN2.pl line 13.

Also: Möchte man lexikalische Variablen im BEGIN-Block definieren, so darf man sie außerhalb nur deklarieren, aber nicht definieren (also keinen Wert zuweisen), da dieser sonst die Initialisierung innerhalb des BEGIN-Blocks wieder überschreiben würde, da der Definitionsteil erst nach dem BEGIN-Block interpretiert wird:

Code: (dl )

#!/usr/bin/perl
use strict;
my $x; print $x;
BEGIN { $x = 'aha' }

Ausgabe: aha

Im Gegensatz zu

Code: (dl )

#!/usr/bin/perl
use strict;
my $x = 'NIX'; print $x;
BEGIN { $x = 'aha' }

welches NIXNIX ausgibt.

Alles ganz logisch, aber man muss es halt wissen, wie es funktioniert. Ich glaube ich habe es jetzt verstanden...\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