perl面向对象小练习

#!/usr/bin/perl
#编写一个面向对象的程序，对设备状态进行统计管理
package DEVICE;
sub new {
        my $class=shift;
        my $ref={
                ip_addr=>undef,
                hw_type=>undef,
                mac_addr=>undef,
                flag_mask=>undef,
                iface=>undef,
        };
        bless ($ref,$class);
}
sub set {
        my $self=shift;
        my ($ip_addr,$hw_type,$mac_addr,$iface)=@_;
        $self->{ip_addr}=$ip_addr;
        $self->{hw_type}=$hw_type;
        $self->{flag_mask}=$flag_mask;
        $self->{iface}=$iface;
}

sub display {
        my $self=shift;
        print "---------------------------------------\n";
        print "IP ADDRESS IS ".$self->{ip_addr}."\n";
        print "HARDWARE TYPE IS ".$self->{hw_type}."\n";
        print "FLAG MASK IS ".$self->{flag_mask}."\n";
        print "INTERFACE IS ".$self->{iface}."\n";
        print "---------------------------------------\n";
}

package main;
        open DF,"<./device";
        my $i=0;
        while (<DF>){
                my @tmp= split(" ",$_);
                ${dev_{$i}}=DEVICE->new();
                ${dev_{$i}}->set(@tmp);
                $i++;
                print  $i."\n";
        }
my $j;
for ($j=0;$j<$i;$j++){
        ${dev_{$j}}->display;
}

说明：device文件位置及内容设置参考下图：