#!/usr/bin/perl #my $in = <STDIN>; my $in = `ip addr`; my @eth = split(/$ARGV[0]/, $in); my @delnext = split(/: /, $eth[1]); my @inet = split(/inet /, $delnext[1]); my @addr = split(/\//, $inet[1]); print $addr[0];
#!/usr/bin/perl #my $in = <STDIN>; my $in = `ip addr`; my @eth = split(/$ARGV[0]/, $in); my @delnext = split(/: /, $eth[1]); my @inet = split(/inet /, $delnext[1]); my @addr = split(/\//, $inet[1]); print $addr[0];
Comments