Help for this page

Select Code to Download


  1. or download this
    ($line)=split(' ',$line,1)
    
  2. or download this
    [0]  # time perl -e 'for (1..1000000) { $line="   aaa bbb ccc ddd eee 
    +fff    "; $line =~ s/\s+$//;  $line =~ s/\s+$//;}'
    
    real    0m3.526s
    user    0m3.510s
    sys     0m0.000s