Leser: 25
1 2 3 4
my( $scplog, $controllog, $preplog, $distlog ) = ('DICOM_SCP*.log', 'PREPARATION_CONTROL*.log', 'PREPARATION_MG*.log', 'Distributor*.log');
1 2 3
my( %Preparation, %PreparationItem, %Distribution, %DistributionItem, %ClientInfo, %DistributionRequest, %DistributionSubRequest, %Clients, %PreparationLookUp );
1 2 3 4 5 6 7 8
sub evalParameter { my ($sT, $eT) = @_; if( $sT ) { $startTime = completeTimeStamp($sT, 0); } if( $eT ) { $endTime = completeTimeStamp($eT, 1); }
1 2 3 4 5 6 7 8 9 10 11 12
my $x; # deklariert die variable $x my ($x); # dasselbe my $x = 1; # deklariert die variable $x und initialisiert sie my ($x) = 1; # dasselbe my ($x, $y); # deklariert die variablen $x und $y. klammern notwendig my ($x, $y) = ("x", "y"); # deklariert und initialisiert die variablen $x und $y my $x = "x"; my $y = "y"; # dasselbe nur in zwei statements