Opened by v0id at 2007-03-12 18:01
User since
2005-07-06
33 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-07-06
33 Artikel
BenutzerIn
Hi,
ich möchte über ein regex 7 werte in ein 3dimensionalen hash speicher, leider weiß ich noch nicht genau wie es geht und bekomme fehlermeldungen. bin was perl angeht komplett aus der übung und weiß auch nicht ob die fehlermeldungen nicht doch von was anderem kommen.
darum erstmal die bitte wegen dem hash.
ich möchte eins das wie folgt aufgebaut ist:
hashname->$1
->begin
->name
->year
->month
->day
->hour
->minute
->second
->end
->name
->year
->month
->day
->hour
->minute
->second
ich habe es auf diese weise versucht, jedoch bekomm ich
vll liegts ja auch an irgend ner anderen dummheit, über eure hilfe würd ich mich sehr freuen
gruß
v0id
ich möchte über ein regex 7 werte in ein 3dimensionalen hash speicher, leider weiß ich noch nicht genau wie es geht und bekomme fehlermeldungen. bin was perl angeht komplett aus der übung und weiß auch nicht ob die fehlermeldungen nicht doch von was anderem kommen.
darum erstmal die bitte wegen dem hash.
ich möchte eins das wie folgt aufgebaut ist:
hashname->$1
->begin
->name
->year
->month
->day
->hour
->minute
->second
->end
->name
->year
->month
->day
->hour
->minute
->second
ich habe es auf diese weise versucht, jedoch bekomm ich
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
#!/opt/perl5.8.6/bin/perl -w
use Time::Local;
my $dir = "/pfad/";
my $oldname = 0;
my %dif_hash;
opendir(DIR, "$dir");
my @files = readdir(DIR);
closedir(DIR);
print "Inhalt von $dir:\n";
foreach (@files) {
#auszulesendedatei.20070117.001124.log
m/(.*)\.(\d{4})(\d{2})(\d{2})\.(\d{2})(\d{2})(\d{2})\.log/;
if ( $1 ne $oldname )
{
%div_hash = ($1 => {begin => {
name => $1,
year => $2,
month => $3,
day => $4,
hour => $5,
minute => $6,
second => $7,
}
}
);
}
else
{
%div_hash = ($1 => {end => {
name => $1,
year => $2,
month => $3,
day => $4,
hour => $5,
minute => $6,
second => $7,
}
}
);
}
$oldname = $1;
}
foreach ($div_hash)
{
print "$_ \n";
}
vll liegts ja auch an irgend ner anderen dummheit, über eure hilfe würd ich mich sehr freuen
gruß
v0id