Opened by QWERTZ7 at 2011-03-22 10:49
User since
2011-03-22
33 articles
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2011-03-22
33 articles
BenutzerIn
Danke schonmal.
Leider funktioniert das Skript nicht. Die print-Ausgabe "Incative Ports: "bleibt leer, obwohl ich in der Test-Datei einige Einträge mit "no policy applied" eingetragen habe.
Möchte aber auch nicht Fehler auf meiner Seite ausschließen. :)
Gruß
//Edit: Mein Fehler, es geht :) Ist es jetzt noch möglich, die Ports in einer Texdatei unter einander auszugeben? :)
Hab es mal so probiert:
Allerdings fehlt mir da der Zeilenumbruch, wie bekomme ich das am Besten hin? :)
Gruß
Last edited: 2011-03-22 13:38:31 +0100 (CET)
Leider funktioniert das Skript nicht. Die print-Ausgabe "Incative Ports: "bleibt leer, obwohl ich in der Test-Datei einige Einträge mit "no policy applied" eingetragen habe.
Möchte aber auch nicht Fehler auf meiner Seite ausschließen. :)
Gruß
//Edit: Mein Fehler, es geht :) Ist es jetzt noch möglich, die Ports in einer Texdatei unter einander auszugeben? :)
Hab es mal so probiert:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
my $file = 'dfedc.out';
my $ziel = "inactive_ports.txt";
my @inactive_ports;
{
local $/ = "\n\n";
open my $fh, '<', $file or die $!;
while ( my $port_data = <$fh> ) {
if ( $port_data =~ /Policy name\s*:\s*no policy applied/ ) {
my ($port) = $port_data =~ /Port\s*:\s*([\w.]+)/;
push @inactive_ports, $port;
}
}
close $fh;
}
print "Inactive Ports: @inactive_ports\n";
#Zieldatei öffnen und schreiben
open(OUT,">$ziel");
print OUT @inactive_ports;
close(OUT);
Allerdings fehlt mir da der Zeilenumbruch, wie bekomme ich das am Besten hin? :)
Gruß
Last edited: 2011-03-22 13:38:31 +0100 (CET)