Hallo,
ich veruche gerade einen regex (druch einen grep) mit glob zu kombinieren.
Es sollen dabei alle Logs, die ".log" enhalten und nicht "datei" im Namen haben, in ein Array gepusht werden.
Kann mir jemand sagen wie ich grep und glob korrekt kombiniere? Andere Lösungen sind natürlich auch gerne gesehen.
#!/usr/bin/perl
use strict;
use warnings;
my @log_files_closed;
my $log_files_closed;
if(`find /sbin -name fuser` ne ""){
@log_files_closed = ([]);
`/sbin/fuser /sbin/fuser 2>/dev/null`;
if ($? == "256"){
while ( grep /[datei]/ glob("/logs/*.log*")){
if (`/sbin/fuser $_ 2>/dev/null` eq "") {
push (@log_files_closed,$_);
}
}
while (glob("/logs/*.err*")){
if (`/sbin/fuser $_ 2>/dev/null` eq "") {
push (@log_files_closed,$_);
}
}
}
else{
print ("fuser nicht ausführbar");
}
}
else{
print ("fuser nicht gefunden");
}
foreach (@log_files_closed){
print "$_\n";
}
Gruß
Bummel