D
DBS
Grünschnabel
Moin zusammen,
ich habe folgendes Problem, ich habe jetzt ein script geschrieben welches ein Logfile ausliest und es sortiert und in eine neue datei Speichert.
So jetzt kommt mein Problem, ich habe bisher das script immer so ausgefürht:
./prog.pl -d /home/LogFile
Jetzt sollen aber 2 datein gleichzeitig eingelesen werden und beide in die neue generierte datei gespeicht werden.
Das ganze sollte über ein zeil befehl ausgefürht werden z.b.
./prog.pl -d /home/LogFile /var/adm/messages
geht das so in der Art oder kann man das anderes lösen? Da beide inhalte in die Neue datei rein sollen.
Hier habt ihr mal den bisheriegen quellcode anfang:
#!/usr/bin/perl
#
# ausführen mit ./prog.pl -d <logfile>
use Getopt::Std;
%options=();
getopts("od:fF",\%options);
#Config
my @werte = values (%options);
$analyse = "./ausgabe.log";
$ntag = 20;
# Datum von vor n Tagen
$bla = $ntag * 24* 60 * 60;
my $heute = time;
my $gestern = $heute - $bla;
use POSIX qw(strftime);
my $date = strftime("%b %d %H:%M:%S", localtime $gestern);
#Einlesen
open(DATEI,"<@wete");
my @Input = <DATEI>;
close(DATEI);
Währe klasse wenn Ihr mir weiter helfen könntet.
Gruß atze
ich habe folgendes Problem, ich habe jetzt ein script geschrieben welches ein Logfile ausliest und es sortiert und in eine neue datei Speichert.
So jetzt kommt mein Problem, ich habe bisher das script immer so ausgefürht:
./prog.pl -d /home/LogFile
Jetzt sollen aber 2 datein gleichzeitig eingelesen werden und beide in die neue generierte datei gespeicht werden.
Das ganze sollte über ein zeil befehl ausgefürht werden z.b.
./prog.pl -d /home/LogFile /var/adm/messages
geht das so in der Art oder kann man das anderes lösen? Da beide inhalte in die Neue datei rein sollen.
Hier habt ihr mal den bisheriegen quellcode anfang:
#!/usr/bin/perl
#
# ausführen mit ./prog.pl -d <logfile>
use Getopt::Std;
%options=();
getopts("od:fF",\%options);
#Config
my @werte = values (%options);
$analyse = "./ausgabe.log";
$ntag = 20;
# Datum von vor n Tagen
$bla = $ntag * 24* 60 * 60;
my $heute = time;
my $gestern = $heute - $bla;
use POSIX qw(strftime);
my $date = strftime("%b %d %H:%M:%S", localtime $gestern);
#Einlesen
open(DATEI,"<@wete");
my @Input = <DATEI>;
close(DATEI);
Währe klasse wenn Ihr mir weiter helfen könntet.
Gruß atze