Hallo,ich bin in PERL ein Newbie. Durch Zufall habe ich aber für ein ähnliches Problem gestern was geschrieben.
Du brauchst eigentlich nur PERL Grundkenntnisse und reguläre Ausdrücke zum suchen.
Das angehängte Script sucht auf dem Desktop nach bestimmten Files und wenn es genau 2 gefunden hat vergleicht es diese.
Code:
# Warnungen ausschalten
no warnings;
# Umgebungsvariablen
$profile= $ENV{USERPROFILE};
$temp= $ENV{temp};
# Desktopdateien einlesen
my $search_folder = "$profile\\Desktop";
opendir(DIR, $search_folder) || die "$search_folder: $!";
my @search_folder_files = readdir(DIR);
closedir(DIR);
# Vergleichfiles finden
my @mc1_lint_log_files = grep( /^mc1_lint.*\.log$/,@search_folder_files);#alle *mc1_lint*.log
# 2 Files gefunden?
$liste_laenge = @mc1_lint_log_files;
if($liste_laenge == 2) {
# ... mache was ...
# Ergebnisausgabe
print "\n\nAusfuehrung erfolgreich beendet!";
<STDIN>;
}
else {
# ... mache was Anderes ...
}
Datum: 27.08.2007-13:22
