[nr-pm] hilfe bei hashes
Adam Jendrosek
aj at ordix.de
Die Apr 24 07:49:05 CDT 2001
Hi PM ´ler
Ich habe mir dieses schöne Perl Script geschrieben und jetzt habe ich das
Problem, dass ich gerne die Hashes zurückgeben würde,
nur funktioniert das nicht wie es funktionieren sollte und würde euch
bitten mal das anzuschauen.
gruss
adam
#!/usr/bin/perl -w
#verhindert unsichere konstrukte
use strict;
sub Werte()
{
my ($Zeile_aktuell);
$Zeile_aktuell = $_;
if ($Zeile_aktuell =~ m/\s([0-9]+)->/)
{
my ($telefonnummer_anfang);
$telefonnummer_anfang = $1;
my ($Zeile_aktuell);
$Zeile_aktuell = $_;
if ($Zeile_aktuell =~ m/\s(.{8})\s/)
{
my ($uhrzeit_anfang);
my (%hash_uhrzeit);
my (@list_uhrzeit);
$uhrzeit_anfang = $1;
#setze hash_uhrzeit
$hash_uhrzeit{$telefonnummer_anfang}= "$uhrzeit_anfang";
#print "$hash_uhrzeit{$telefonnummer_anfang}\n";
@list_uhrzeit = each(%hash_uhrzeit);
if ($Zeile_aktuell =~ m/\"(.{2,3})\"/)
{
my ($user_anfang);
my (%hash_user);
my (@list_user);
$user_anfang = $1;
$hash_user{telefonnummer_anfang}= $user_anfang;
#print "$hash_user{telefonnummer_anfang}\n";
#funktionier nur mit einem wert
#return ($hash_user{telefonnummer_anfang},
$hash_uhrzeit{$telefonnummer_anfang});
@list_user = each(%hash_user);
return (@list_user, @list_uhrzeit);
}
}
}
}
#main-block
{
open (DATEI,"ras.log");
while (<DATEI>)
{
my (@list_werte);
my ($hash_user_key);
my ($hash_user_wert);
my ($hash_uhrzeit_key);
my ($hash_uhrzeit_wert);
@list_werte = Werte();
$hash_user_key = $list_werte[0];
$hash_user_wert = $list_werte[1];
$hash_uhrzeit_key = $list_werte[2];
$hash_uhrzeit_wert = $list_werte[3];
print "$hash_user_key\n";
print "$hash_user_wert\n";
print "$hash_uhrzeit_key\n";
print "$hash_uhrzeit_wert\n";
}
close (DATEI);
}
--
./ the slash behind the dot
___________________________
Abmelden:
Mail an majordomo at hfb.pm.org mit dem Text:
unsubscribe niederrhein-pm