Problem IF Anweisung

[Margin-Auto]

Hi,

#!/usr/bin/perl -w
use warnings;
use CGI::Carp qw(fatalsToBrowser);

my $myc = "1-2-3-4-5-6-7-8-9";

if ($myc) {my @number = split(/-/, $myc);}

Die Variable $myc hat doch einen Wert durch die Zuweisung.
Warum wird aber nicht der Befehl my @number = split(/-/, $myc); ausgeführt?

Wie hast du das festgestellt, dass der Befehl nicht ausgeführt wird? Ich konnte das nämlich mit einem print 'foo'; (oder so) im if nicht nachvollziehen; wird brav ausgeführt.

Ich tippe eher darauf, dass du nicht auf @number zugreifen kannst, da du es innerhalb des ifs mit my deklariert hast. Deklariere es vorher mit

my @number;

und es ist überall im Skript verfügbar.

HTH

Margin-Auto