1 |
On Saturday 02 July 2005 11:16, Denny Schierz wrote: |
2 |
|
3 |
> ---snip--- |
4 |
> |
5 |
> sub classify { |
6 |
> my $id; |
7 |
> my ($mon, $day, $time, $host, $prog, $sid) = split(/\s+/, $line); |
8 |
> $mon =~ s/\b(\w)/\U$1/; |
9 |
> |
10 |
> # |
11 |
> # Check that the environment locale matches what is being written |
12 |
> # by syslog |
13 |
> # |
14 |
> |
15 |
> |
16 |
> my $tmp = $months{"$mon"}; |
17 |
|
18 |
Füge mal folgendes hier ein: |
19 |
|
20 |
use Data::Dumper; |
21 |
print Dumper($tmp, $mon, $months); |
22 |
|
23 |
Und poste mal die Ausgabe. |
24 |
|
25 |
|
26 |
> if (!defined($tmp)) { |
27 |
> do_exit(1, "Unknown month \"$mon\" (current locale is |
28 |
> \"$locale\")"); |
29 |
> } |
30 |
> |
31 |
> $mon = $tmp; |
32 |
|
33 |
-- |
34 |
So long... Fuzz |
35 |
|
36 |
-- |
37 |
gentoo-user-de@g.o mailing list |