Thread Ausgabe einer Zeile in Perl (18 answers)
Opened by Catherina at 2012-03-23 09:21

Catherina
 2012-03-26 08:07
#157026 #157026
User since
2012-03-23
12 Artikel
BenutzerIn
[default_avatar]
Also die Aufgabe kommt von der Arbeit, gelesen hab ich "Programmieren mit Perl", "Perl - Grundlagen, fortgeschrittene Techniken und Übungen: Operatoren, Funktionen, reguläre Ausdrücke, Hashes, Referenzen (mitp Professional) ", "Einführung in Perl", allerdings haben mir diese Bücher alle nicht so ganz geholfen

Bisher hab ich nur den Code für das Auslesen der Ganzen Datei, da sich der Rest quer stellt
Code: (dl )
1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
open (IN, "<h.txt") || die "Die Datei wurde nicht gefunden\n";
while (<IN>)
{
print $_;

}
close (IN);


Die Datei sieht folgendermaßen aus (das sind 3 Datensätze, beginnend mit "====>" das ziel ist erstmal nur einen Datensatz auszugeben:

====> 5bcca470-0cab-71e1-1f9b-c219f3a30000 116717dc-f3d2-71df-1281-0acece0a0000 1 -654307237 24 fw-h-tas.nmip.t-ipnet.de 1 -1038486621 20 r2d2.nmip.t-ipnet.de 0 0 16 0 0 0 1321046591 1321047316 0 32 12 0 0 0 0 0 12 0 0 0 0 0 1321047316 3 OpC 30 trap_templ_fortinet_12356(1.0) 8 Fortinet 8 trap_msg 11 TAS-FW1-HNO 0 0 0 55 fgTrapVpnTunDown TAS-FW1-HNO 217.0.16.88 194.25.243.124 318 Generic: 6; Specific: 302; Enterprise: .1.3.6.1.4.1.12356.101.2;
Variables:
[1] .1.3.6.1.4.1.12356.100.1.1.1.0 (OctetString): FG300B3910600711 [2] .1.3.6.1.2.1.1.5.0 (OctetString): TAS-FW1-HNO [3] .1.3.6.1.4.1.12356.101.12.3.2.0 (IpAddress): 217.0.16.88 [4] .1.3.6.1.4.1.12356.101.12.3.3.0 (IpAddress): 194.25.243.124 1 0 0 0 0 0 0 0 0 0 1 0 5bcca470-0cab-71e1-1f9b-c219f3a30000 -3600 36 11672cae-f3d2-71df-1281-0acece0a0000 0 14 Fortinet Traps 93 217.0.16.91:trap_templ_fortinet_12356:fgTrapVpnTunDown:TAS-FW1-HNO:217.0.16.88:194.25.243.124 0 1321047316 1 CMA 14 condition_name 30 fgTrapVpnTunDown / Message Key ANNO 1321047316 1 3 OpC 265 Acknowledged by Message Correlation;
Message Key Relation : 217.0.16.91:trap_templ_fortinet_12356:fgTrapVpnTunDown:TAS-FW1-HNO:217.0.16.88:194.25.243.124
ackn.ed by message 5bd0e184-0cab-71e1-1f9b-c219f3a30000 with condition id 5fa5bc1a-f3d1-71df-1281-0acece0a0000.
====> 0cc10e50-0cad-71e1-1d93-0acece150000 e49ac474-098f-71da-0bcb-0acece140000 1 -1038486904 18 scholl.btx.dtag.de 1 -1038486904 18 scholl.btx.dtag.de 1 0 4 0 0 0 1321047318 1321047318 0 2 12 0 0 0 0 0 12 0 0 0 0 0 1321047318 3 OpC 24 Logins (10.x/11.x HP-UX) 23 /usr/bin/login(1) Login 8 Security 6 wolpit 0 0 0 76 Succeeded login of wolpit on pts/37 from 153.17.111.222 at 22:35:13 11/11/11 52 LOGIN wolpit pts/37 153.17.111.222 11/11/11 22:35:13 0 0 0 0 0 0 0 0 0 0 0 0 0cc10e50-0cad-71e1-1d93-0acece150000 -3600 0 0 0 48 AUTOKEY:76846a8d850e11cd8d2f6184f8f8b0f70a076892 0 1321047318 1 CMA 14 condition_name 23 Successful remote login
====> 6113c17a-0cab-71e1-1f9b-c219f3a30000 5fa5bc1a-f3d1-71df-1281-0acece0a0000 1 -654307045 24 fw-s-tas.nmip.t-ipnet.de 1 -1038486621 20 r2d2.nmip.t-ipnet.de 1 0 16 0 0 0 1321046600 1321047325 0 2 12 0 0 0 0 0 12 0 0 0 0 0 1321047325 3 OpC 30 trap_templ_fortinet_12356(1.0) 8 Fortinet 8 trap_msg 11 TAS-FW2-STG 0 0 0 53 fgTrapVpnTunUp TAS-FW2-STG 217.0.17.24 194.25.243.118 323 Generic: 6; Specific: 301; Enterprise: .1.3.6.1.4.1.12356.101.1.3002;
Variables:
[1] .1.3.6.1.4.1.12356.100.1.1.1.0 (OctetString): FG300B3910603229 [2] .1.3.6.1.2.1.1.5.0 (OctetString): TAS-FW2-STG [3] .1.3.6.1.4.1.12356.101.12.3.2.0 (IpAddress): 217.0.17.24 [4] .1.3.6.1.4.1.12356.101.12.3.3.0 (IpAddress): 194.25.243.118 1 0 0 0 0 0 0 0 0 0 1 0 6113c17a-0cab-71e1-1f9b-c219f3a30000 -3600 36 5fa5d0c4-f3d1-71df-1281-0acece0a0000 0 14 Fortinet Traps 91 217.0.17.27:trap_templ_fortinet_12356:fgTrapVpnTunUp:TAS-FW2-STG:217.0.17.24:194.25.243.118 0 1321047325 1 CMA 14 condition_name 28 fgTrapVpnTunUp / Message Key ANNO 1321047325 1 3 OpC 250 Performed Message Correlation

Message Key Relation : 217.0.17.27:trap_templ_fortinet_12356:fgTrapVpnTunDown:TAS-FW2-STG:217.0.17.24:194.25.243.118
This message automatically acknowledged the following message:
610733a6-0cab-71e1-1f9b-c219f3a30000
Last edited: 2012-03-26 08:29:05 +0200 (CEST)

View full thread Ausgabe einer Zeile in Perl