2
Perl script zur Auswertung einer Telefonanlage
Hallo leute,
ich bin seit einiger Zeit in der Ausbildung zum Systemintegrator und soll da doch bitte mal in perl ein Auswertungsscript bauen.
Ich habe folgendermasen angefangen.
#!/usr/bin/perl
$logfile = "FilePfad";
open (LOG , $logfile) or die $!;
while(<LOG>){
@log = split(/","/);
if ($log[3] == 'telefonnummer') {print $log[3] , "\n"};
}
close (LOG);
So gibt er mir zumindest schonmal das aus was ich sehen will ... in der 3ten Spalte stehen die telefonnummern die ausgewertet werden sollen.
Das einzige was ich jetzt nicht hinbekomme ist es die ganzen tollen zeilen die ich bekomme zu zählen.
So das mir nur ausgegeben wird du hast 130 zeilen bzw 130 anrufe im support gehabt.
Falls mir irgendjemand einen stoss in die richtige Richtung geben kann wäre ich sehr dankbar.
ich bin seit einiger Zeit in der Ausbildung zum Systemintegrator und soll da doch bitte mal in perl ein Auswertungsscript bauen.
Ich habe folgendermasen angefangen.
#!/usr/bin/perl
$logfile = "FilePfad";
open (LOG , $logfile) or die $!;
while(<LOG>){
@log = split(/","/);
- print $log[3] . "\n";
if ($log[3] == 'telefonnummer') {print $log[3] , "\n"};
}
close (LOG);
So gibt er mir zumindest schonmal das aus was ich sehen will ... in der 3ten Spalte stehen die telefonnummern die ausgewertet werden sollen.
Das einzige was ich jetzt nicht hinbekomme ist es die ganzen tollen zeilen die ich bekomme zu zählen.
So das mir nur ausgegeben wird du hast 130 zeilen bzw 130 anrufe im support gehabt.
Falls mir irgendjemand einen stoss in die richtige Richtung geben kann wäre ich sehr dankbar.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 285422
Url: https://administrator.de/contentid/285422
Printed on: April 20, 2024 at 03:04 o'clock
2 Comments
Latest comment
Moin,
einfach eine Variable vor der Schleife deklarieren:
und dann in deiner While-Schleife den Zähler bei jedem Durchlauf erhöhen:
und am Schluss ausgeben:
Oder gleich über alle Zeilen mit einer FOR-Schleife iterieren dann hat man die Anzahl schon von Anfang an 
Gruß grexit
einfach eine Variable vor der Schleife deklarieren:
my $cnt = 0;
$cnt++;
print "Es gab $cnt Zeile(n).";
Gruß grexit
Habe das script jetzt so umgebaut:
#!/usr/bin/perl
use strict;
use warnings;
my $log_fh;
my $logfile = "/FilePfad";
open ($log_fh , $logfile) or die $!;
my $cnt = 0;
while(<$log_fh>){
my @log = split(/","/);
if ( defined($log[3])&&$log[3] eq 'nummer') {
$cnt++;
#print $log[3] . "\n";
#print $cnt , "\n";
}
}
close ($log_fh);
print $cnt , "\n";
exit(0);
und es rennt wie ein Länderspiel. Danke Grexit für den Fingerzeig
#!/usr/bin/perl
use strict;
use warnings;
my $log_fh;
my $logfile = "/FilePfad";
open ($log_fh , $logfile) or die $!;
my $cnt = 0;
while(<$log_fh>){
my @log = split(/","/);
if ( defined($log[3])&&$log[3] eq 'nummer') {
$cnt++;
#print $log[3] . "\n";
#print $cnt , "\n";
}
}
close ($log_fh);
print $cnt , "\n";
exit(0);
und es rennt wie ein Länderspiel. Danke Grexit für den Fingerzeig
