#!/usr/bin/perl $ifconfigin= `/sbin/ifconfig eth0`; @ifeth = split(/\n/, $ifconfigin); ($junk,$macaddr) = split(/ HWaddr /, $ifeth[0]); print "$macaddr\n";
Leave a comment: