Hallo Leute,
ich versuche mir ein Script zusammenzubasteln, welches mir die /var/log/messages durchsucht und dabei eine bestimmte IP ausgibt (in meinem Fall alle IP´s die anfangen mit 195.34.133).
Leider haut das Ganze aber nicht so in wie ich es gerne möchte!
#!/usr/bin/perl -w
use strict;
use warnings;
my $messages = "/var/log/messages";
my $ip = "195.34.133.";
open($messages,"$messages") or die $!;
while (<$messages>){
if($ip){
print $_;}
close($messages);
}
Kann mir jemand vielleicht sagen wo genau der Fehler drinnen steckt bzw es richtig stellen?
Vielen Danke und mfg
Bernd
ich versuche mir ein Script zusammenzubasteln, welches mir die /var/log/messages durchsucht und dabei eine bestimmte IP ausgibt (in meinem Fall alle IP´s die anfangen mit 195.34.133).
Leider haut das Ganze aber nicht so in wie ich es gerne möchte!
#!/usr/bin/perl -w
use strict;
use warnings;
my $messages = "/var/log/messages";
my $ip = "195.34.133.";
open($messages,"$messages") or die $!;
while (<$messages>){
if($ip){
print $_;}
close($messages);
}
Kann mir jemand vielleicht sagen wo genau der Fehler drinnen steckt bzw es richtig stellen?
Vielen Danke und mfg
Bernd