scripts/ip.pl

   1 #!/usr/bin/perl
   2 #
   3 #open IFCONF, 'ifconfig | grep "inet .*broadcast" |' or die 'haha';
   4 #while(<IFCONF>)
   5 #{
   6 ##    print $_;
   7 #}
   8 #
   9 #my @cc = split /\s+/, `ifconfig | grep "inet .*broadcast"`;
  10 #my $aa =  `ifconfig | grep "inet .*broadcast"`;
  11 #$_ = $aa;
  12 #print $aa;
  13 #my $aa =~ m/([0-9]{1,3}\.){3}[0-9]{1,3}/;
  14 #print $1;
  15 my $ff = (split / /, `ifconfig | grep "inet .*broadcast"`)[0];
  16 print  "==||" . $ff . "==\n";
  17
  18
  19