hash zurück geben - #6708 (Perl/CGI)

Grimm

2006-01-18 14:32

User since
2006-01-16
7 Artikel
BenutzerIn
[default_avatar]

ich möchte ein package machen, das ein file öffnet (vie parameter übergeben) dieses in einen hash speichert und dann das ganze wieder zurück gibt.
wie ist en möglich im perl script diesen hash zu speichern?
einfach dargestellt:

Code: (dl )

package: (so ähnlich hab ich des zur zeit)
#liest das file und speichert ergenis in hash
sub Opn2 {
    my $Objekt = shift;
      my $Datei = shift;
      %haServers = ();
    open(RRD,$Datei) or die "Could not read $rrdFile.\n";
    my @lines = <RRD>;
    foreach $currentLine(@lines){
    if($currentLine =~ /\w/){
        @NewServer = split(/;/,$currentLine);
        $haServers{$NewServer[0]} = $NewServer[1];
    }
    print "$haServers{'chr7ca43'}<br>";
    return (%haServers);
}

Code: (dl )

1
2
3

perl cgi script:
my $f = new FileReading;
%meinHash = $f->Opn2("myfile.txt")