Fehler

[Perl]

Hi ich bin neu hier hab mal versucht ipconfig aufzurufen und habe mir mal angeschaut wie das gehen soll da fand ich das!
#!/usr/bin/perl -w
#
# agmittel.pl
# Mittelwert ueber die Verbindungsdaten der
# einzelnen Arbeitsgruppen.

$agfile = "/data/ags/online.dat" ; # Datenquelle
$tage = 14 ; # Mittelwert ueber n Tage
$auswahl = "all" ; # Welche? all/max/ag_xy

# .....


Hab schon probiert es zu compilen aber da ist irgendwie glaube ich ein fehler!
Wisst ihr wie man das richtig schreibt oder ist das schon richtig??

[lordpeng]

>Wisst ihr wie man das richtig schreibt oder ist das schon richtig??
das ding tut so wie's da steht genau nix ... da fehlen wohl noch ein paar zeilen

auserdem fängt jedes ordentliche perlscript mit use strict; an ...


>Hab schon probiert es zu compilen aber da ist irgendwie glaube ich ein fehler!
perl scripts kompiliert man nicht, die werden bei der ausführung übersetzt ... gibt zwar perlcc aber der taugt nix

[flk]

das traffic-volumen das in ifconfig angezeigt wird kann man entweder in Perl mit einer wirklich simplen RegEx in Perl oder in der shell über die commands

ifconfig eth0 | egrep "RX bytes:" | awk '{print $7, $8; }' | sed 's/[\(\)]//g'
(für das Upload-Volumen an eth0)

oder

ifconfig eth0 | egrep "RX bytes:" | awk '{print $3, $4; }' | sed 's/[\(\)]//g'
(für das Download-Volumen an eth0)

bekommen. Die Werte von dem command kann man dann in anderen sprachen weiterverarbeiten.