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

Crian

2004-07-07 18:09

User since
2003-08-04
5873 Artikel
ModeratorIn

Und es wurde wirklich nur bis zum BEGIN geparsed (alles andere fände ich auch sehr eigenartig), wie folgendes Script zeigt:

Code: (dl )

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

mit der nicht verwunderlichen Ausgabe

Code: (dl )

1
2

Global symbol "$x" requires explicit package name at C:\Daten\perl\BEGIN5.pl line 3.
BEGIN not safe after errors--compilation aborted at C:\Daten\perl\BEGIN5.pl line 3.

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