Re: Logfiles

[Martin Lohmeier <blackm@ferris.dyndns.info>]

Phantom wrote:

> und wie kann ich die an ein script übergeben?
>
> Michael
>
>
>  
Du könntest sie mit diesem Perl Script auslesen.
---
#! /usr/bin/perl -w
# name: interip

sub inet_ip(){
   @out = `/sbin/ifconfig`;
# filter ip
   $c1 = 0;
   foreach $b (@out){
       $c1_1 = $c1 + 1;
       if($b =~ /ppp[0-9]+/){
           $out[$c1_1] =~ 
/^.*?:([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}).*$/;
           $inet_ip = $1;
       }
       $c1++;
   }
#    print $inet_ip,"\n";
return $inet_ip;
}

$inet_ip = inet_ip();

print "$inet_ip";
---

Das Script schreibt die aktuelle IP auf die Standardausgabe, über eine | 
kannst du die dann an ein anderes Programm weitergeben. z.B.
# internetip | anderes_programm

by, Martin