Help for this page

Select Code to Download


  1. or download this
    values(" GOVALUE,  0.074997,  0.103143,  0.153955,  0.260586",
                     " 0.068394,  0.082183,  0.110329,  0.161142,  0.26777
    +3",
                     " 0.081887,  0.095677,  0.123822,  0.174635,  0.28126
    +6",
                     " 0.111534,  0.125324,  0.153470,  0.204282,  0.31091
    +4",
                     " 0.165731,  0.179521,  0.207666,  0.258479,  0.36511
    +0")
    
  2. or download this
    #!c:/perl/bin -w
    
    ...
    $text =~ s/abc(\D+)([\d\.\-]*)(.*)/values$1GOVALUE$3/g;
    
    print "$text\n";
    
  3. or download this
    $text2 = 'foo|abc-./|foo ';
    
    ...
    # expression... and fw_slash turns up correctly in $2
    
    print "\t++$text2++\n";