Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Perl Hash-Arrays auslesen

Frage Entwicklung Perl

Mitglied: marinux

marinux (Level 2) - Jetzt verbinden

29.01.2012 um 17:50 Uhr, 3739 Aufrufe, 2 Kommentare

Hallo,

ich hole mir mit folgendem Code (Perl) aus einer Textdatei IP-Verbindungsdaten.

01.
sub test { 
02.
 
03.
	my %arr_hash; 
04.
 
05.
	foreach (`awk '{print \$1, \$3, \$4, \$5, \$6}' textdatei.txt`){ 
06.
 
07.
	      ($src_ip, $dest_ip, $src_prt, $dest_prt, $bytes) = split(/ /, $_); 
08.
	      $arr_hash{"source"}{$src_ip}{$dest_ip}{$src_prt}{$dest_prt}+=$bytes; 
09.
10.
 
11.
 
12.
      foreach ($arr_hash{"source"}){ 
13.
       # Hier sollen z.B. alle Quellen IPs oder Bytes ausgegeben werden 
14.
15.
  
16.
}
Diese sollen in einem Hash-Array abgespeichert werden. Hash-Array deshalb, weil so Verbindungssätze, die mehrfach vorkommen leicht zugeordnet werden können, ohne dass ich überprüfen muss, ob der Eintrag im Array schon vorhanden ist.

Das ist soweit auch kein Problem. Mir beschert das Auslesen des Hash-Arrays aber Probleme.

Wie kann ich mir z.B. alle Quellen IPs ($src_ip) ausgeben lassen oder für alle gespeicherten Verbindungen die Bytes ($bytes)?

Gruß
Mitglied: hmarkus
29.01.2012 um 21:43 Uhr
Guten Abend marinux,
Zitat von marinux:
$arr_hash{"source"}{$src_ip}{$dest_ip}{$src_prt}{$dest_prt}+=$bytes;
woher kommte denn "source"? bzw. was ist "source"? sollte nicht
$arr_hash{$src_ip}{$dest_ip}{$src_prt}{$dest_prt}+=$bytes;
gemeint sein?
Diese sollen in einem Hash-Array abgespeichert werden. Hash-Array deshalb, weil so Verbindungssätze, die mehrfach vorkommen
leicht zugeordnet werden können, ohne dass ich überprüfen muss, ob der Eintrag im Array schon vorhanden ist.
So wie ich das verstehe ist es aber nicht ein Hash sondern ein Hash von Hashes von Hashes von Hashes. Du müsstest also drei Schleifen benutzen.
foreach $key_src_ip ( keys %arr_hash){ 
    foreach $key_dest_ip (keys $arr_hash{$key_dest_ip} 
        .... usw.  
}
Es ist aber möglich, dass ich Deine Datenstruktur falsch verstanden hab. Vielleicht postest Du mal ein Beispiel Deiner textdatei.txt damit man das mal ausprobieren kann.

Gruß

Markus
Bitte warten ..
Mitglied: marinux
30.01.2012 um 09:09 Uhr
Hallo,

danke für Deine Antwort, aber sie hat nicht ganz funktioniert.

Ich habe es so gelöst:

01.
 
02.
	foreach (`awk '{print \$1, \$3, \$4}' textdatei.txt`){ 
03.
 
04.
	      ($src_ip, $dest_ip, $bytes) = split(/ /, $_); 
05.
	      $arr_hash{"source"}{$src_ip}{$dest_ip}+=$bytes; 
06.
07.
 
08.
      foreach $key_src_ip (keys %{$arr_hash{"source"}}){ 
09.
	      print $key_src_ip; 
10.
	      foreach $key_dest_ip (keys %{$arr_hash"source"}{$key_src_ip}}){ 
11.
		  print "\n   ".$key_dest_ip." ".$arr_hash{"source"}{$key_src_ip}{$key_dest_ip}."\n\n"; 
12.
13.
      }
Bitte warten ..
Neuester Wissensbeitrag
Off Topic

"Ich habe nichts zu verbergen"

(3)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Batch & Shell
gelöst Batch: Textdatei Zeilenweise auslesen (2)

Frage von CreatorX zum Thema Batch & Shell ...

Batch & Shell
gelöst Fenstertitel von anderen Tasks per batch auslesen (3)

Frage von NetMare zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
CPU, RAM, Mainboards
Kaufberatung für mind. 8 verschiedene HighEnd-Mainboards (24)

Frage von yperiu zum Thema CPU, RAM, Mainboards ...

Erkennung und -Abwehr
Virenschutz - Meinungen (17)

Frage von honeybee zum Thema Erkennung und -Abwehr ...

Windows 10
Welches OS für Firmengeräte? (16)

Frage von MarkusVH zum Thema Windows 10 ...

Netzwerke
Abisolierwerkzeug (11)

Frage von SarekHL zum Thema Netzwerke ...