Thread Globale Variable in einer subroutine erschaffen (8 answers)
Opened by Gast at 2007-12-11 18:36

Gast Gast
 2007-12-12 11:55
#103757 #103757
ok, ich habe mal versucht es mit einem globalen hash zu machen, wie du gemeint hast, murphy.

allerdings bin ich mir nicht sicher, ob es so überhaupt geht und wie ich dann auf die einzelnen attribute zugreifen kann etc.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package Paket;
use strict;
use warnings;
 
 #contructor
 sub new {
        my $class = shift;
        my $self = {@_}
        bless ($self, $class);
        return $self;
 }
 
 
 #beispiel get-method
 sub firststart {
        my $self = shift;
        my %hash = %$self;
        return $hash{firstStart};
 }
 
 1;


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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

my %pak_dump{};



sub startNewPack {

        startPackOnRemoteHost();
        
        #$_[0] soll eine beliebige zahl sein, die als parameter übergeben wird
        $pak_dump{$_[0]} = Paket->new( firstStart => 123, schedule1 => 0, schedule2 => 0, schedule3 => 1);
}

View full thread Globale Variable in einer subroutine erschaffen