Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    90     gr1    2004-06-15
    55     gr4    1999-06-15
    etc ...
    
  2. or download this
    #!/usr/bin/perl -w
    
    ...
            print F "$_  gr".int(rand(10))."  ". (1990+int(rand(25))) . '-
    +0'. (int(rand(10))) . '-' . (10 + int(rand(20)) )."\n";
    }
    close F;
    
  3. or download this
    my code:
    
    ...
    real    0m3.497s
    user    0m3.452s
    sys     0m0.036s