程嶏清单4-4.txt

< linux网络编程工具>>配套源码

%father = (   'Cain '      => 'Adam ',
            'Abel '      => 'Adam ',
            'Seth '      => 'Adam ',
            'Enoch '     => 'Cain ',
            'Irad '      => 'Enoch ',
            'Mehujael '  => 'Irad ',
            'Methusael ' => 'Mehujael ',
            'Lamech '    => 'Methusael ',
            'Jabal '     => 'Lamech ',
            'Jubal '     => 'Lamech ',
            'Tubalcain ' => 'Lamech ',
'Enos '      => 'Seth ' );
@father = %father;
print @father;