程嶏清单10-8.txt

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

@firstArray = (1..5);
@secondArray = ("A".."E");
firstSub( \@firstArray, \@secondArray);
sub firstSub {
    my($ref_firstArray, $ref_secondArray) = @_ ;          
    print("The first array is  @{$ref_firstArray}.\n");   
  print("The second array is @{$ref_secondArray}.\n");
}