Help for this page

Select Code to Download

Select or download this

     my @fields = @{$data1{$datafile}};
 #    next if   (length(map { s/\s+//g, $_ } @fields) < 15);
     print map { s/\s+//g, $_ } @fields;

Select or download this

     my @fields = @{$data1{$callid}};
     next if   (length(map { s/\s+//g, $_ } @fields) < 15);
     print map { s/\s+//g, $_ } @fields;