Thread hash zurück geben (9 answers)
Opened by Grimm at 2006-01-18 14:32

Grimm
 2006-01-18 14:32
#6708 #6708
User since
2006-01-16
7 articles
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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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")

View full thread hash zurück geben