Help for this page

Select Code to Download


  1. or download this
         /.*,.*,.*,.*,.*,.*,.*,.*,(*),.*/  
       my $X = $1
  2. or download this
        chomp( my($line)=$_ ) ;
  3. or download this
    my ($X, $Y, $A, $B, $C, $D);
while(<DATAIN>)