[nr-pm] hilfe bei hashes

[Adam Jendrosek]

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