Hash automatisch aus Daten erstellen (Allgemeines zu Perl)

[thread]19879[/thread]

Hash automatisch aus Daten erstellen

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+4 replies

Gast Nico

2015-11-10 08:54

Hallo, hab da mal eine Frage.
Ich bin jetzt so weit das ich aus einer Proxy.log Datei von einem Bestimmten Tag die IP auslesen und aus dem dazugehörigem Datum und der Zeit den Zeitstempel gemacht habe.
Das hab ich schon in eine CSV geschrieben.

192.168.0.108 1420178703
192.168.0.112 1420178705
192.168.0.108 1420178706
192.168.0.112 1420178707
192.168.0.112 1420178708
192.168.0.108 1420178709
192.168.0.108 1420178718
192.168.0.108 1420178721
192.168.0.108 1420178724
192.168.0.108 1420178733
192.168.0.108 1420178736
192.168.0.108 1420178739

ich würde daraus aber gerne automatisch einen Hash erstellen lassen, wo die IP der Key ist und der Zeitstempel der Wert. Habe dazu nix gefunden. geht das überhaupt?
Hier mein bisheriger Code:

Code: (dl )

#! /usr/bin/perl
#use strict;
use warnings;

use Time::Local;

my $infile =  "D:\\Privat\\PERL Projekt\\access.log.proxy";
my $outfile = "D:\\Privat\\PERL Projekt\\auswertung.csv";
my ($ip,$date,$time);
my ($d, $mon, $yy, $h, $min, $sek) = 0;
my $sektime = 0;
my $gestern;

print ("Bitte Datum von Gestern eingeben");
print ("Beispiel: 02/Nov/2015\n");
chomp ($gestern=<STDIN>);


open (READLOG, "<$infile") or die ("Datei $infile nicht gefunden.\n\n");
open (WRITE, ">$outfile") or die ("Datei $outfile konnte nicht erstellt werden.\n\n");

while (<READLOG>){
   if ($_=~m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}[^\[\]]+\[\d{2}\/[a-zA-z]{3}\/\d{4}:\d{2}:\d{2}:\d{2}\s[\+|\-]\d{4}\]/)
   {
      ($ip,$date,$time) = m/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})[^\[\]]+\[(\d{2}\/[a-zA-z]{3}\/\d{4})\:(\d{2}:\d{2}:\d{2})\s[\+|\-]\d{4}\]/;
      
      if ($date eq $gestern) {
         ($d, $mon, $yy) = split( "/", $date );
         ($h, $min, $sek) = split( ":", $time );
         $sektime = timelocal ($sek,$min,$h,$d,$mon,$yy);
        print ("$ip;$sektime\n");
         print WRITE ("$ip"." "."$sektime"."\n"); 
         }


   }
}
close (WRITE);
close(READLOG);

Last edited: 2015-11-10 12:05:23 +0100 (CET)

+3 replies

clms

2015-11-10 11:04

User since
2010-08-29
373 Artikel
BenutzerIn
[default_avatar]

Vorab: Den Ausschnitt aus Deinem Skript bitte mit \[code=perl\]...\[/code\] markieren, damit man ihn lesen kann. Ich habe mir jetzt nicht die Mühe gemacht, ihn zu entziffern.

Zu Deiner eigentlichen Frage: Ja, natürlich geht das.
Aber ein Hash kann einen Key immer nur einmal enthalten (und dadurch den zugehörigen Wert schnell finden - das ist ja gerade der Sinn des Hashes).

In Deinen Beispiel kommen die IP-Adressen mehrfach vor. Wenn Du also einen Hash "IP => Timestamp" anlegst, enthält der pro IP-Adresse immer nur einen einzige Timestamp als Wert - denjenigen, den Du zuletzt für diese Adresse eingetragen hast. Wenn Du das willst - fein.

Wenn Du alle Timestamps zu einer IP-Adresse in Deinem Hash speichern willst, ist das auch kein Problem. Dann must Du als Wert statt dem einzelnen Timestamp ein anonymes Array mit Timestamps speichern. Die ADtenstuktur sieht dann so aus "IP => [Timetamp]".
Eine neuen Timestamp kannst Du dann z.B. mit push @{$hash{$ip}}, $timestamp hinzufügen.

+2 replies

Gast Nico

2015-11-10 12:47

hier ist meine Lösung um eine differenz zwischen der letzten ein und auslogg zeit zu bilden (pro IP)

Code (perl): (dl )

#! /usr/bin/perl
#use strict;
use warnings;

use Time::Local;

my $infile =  "D:\\Privat\\PERL Projekt\\access.log.proxy";
my $outfile = "D:\\Privat\\PERL Projekt\\auswertung.csv";
my ($ip,$date,$time);
my ($d, $mon, $yy, $h, $min, $sek) = 0;
my $sektime = 0;
my ($gestern, $daten);
my %dl;
#print ("Bitte Datum von Gestern eingeben");
#print ("Beispiel: 02/Nov/2015\n");
#chomp ($gestern=<STDIN>);
$gestern = "02/Nov/2015";

open (READLOG, "<$infile") or die ("Datei $infile nicht gefunden.\n\n");
open (WRITE, ">$outfile") or die ("Datei $outfile konnte nicht erstellt werden.\n\n");

while (<READLOG>){
   if ($_=~m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}[^\[\]]+\[\d{2}\/[a-zA-z]{3}\/\d{4}:\d{2}:\d{2}:\d{2}\s[\+|\-]\d{4}\]/)
   {
      ($ip,$date,$time) = m/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})[^\[\]]+\[(\d{2}\/[a-zA-z]{3}\/\d{4})\:(\d{2}:\d{2}:\d{2})\s[\+|\-]\d{4}\]/;
      
      if ($date eq $gestern) {
         ($d, $mon, $yy) = split( "/", $date );
         ($h, $min, $sek) = split( ":", $time );
         $sektime = timelocal ($sek,$min,$h,$d,$mon,$yy);                
          push (@{$dl{$ip}}, $sektime);                               #hier mach ich ein dreidimensionales Hash, die Zeitstempel werden der reihe
                                                                       nach pro Ip in ein Array geschrieben
         }
   }
}

                              
my $i = 0;                                                          
foreach $daten (sort keys %dl){
      $i = ${$dl{$daten}}[-1] - ${$dl{$daten}}[0];                      # hier rechne ich den letzten wert des arrays - den 1. wert
      $sek      = $i%60;
      $min      = (($i-$sek)/60)%60;
      $h        = ($i-$sek-($min*60))/3600;
      print WRITE ("$daten;$h:$min:$sek\n");
}

close (WRITE);
close(READLOG);

ein kleines Problem habe ich noch. Wenn in einem Array nur 1 Wert steht, wie kann ich die betreffenden IPs auslassen?
Last edited: 2015-11-10 13:01:40 +0100 (CET)

clms

2015-11-10 15:32
User since
2010-08-29
373 Artikel
BenutzerIn
Guest Nico
ein kleines Problem habe ich noch. Wenn in einem Array nur 1 Wert steht, wie kann ich die betreffenden IPs auslassen?
Code (perl): (dl )

1 2 3 4

foreach $daten (sort keys %dl){ next if @{$dl{$daten}} == 1; ... }
sollte funktionieren (ungetestet).

View all threads created 2015-11-10 08:54.