Help for this page

Select Code to Download


  1. or download this
    
@ex_array = qw(sample1:3,4,5
sample2:5,7,8
sample3
sample4:6,9,0)
  2. or download this
    foreach $sy (@ex_arrya) {
%cp_samp=map {$_} split/:/, $sy;
}