Help for this page

Select Code to Download


  1. or download this
    perl -ane '$s = "";
    foreach (@F) { /(\d+)-(\d+)/ and $2 - $1 >= 30 and $s .= " $1-$2" }
    print "$F[0]$s\n" if $s' input.txt
    
  2. or download this
    C:\Users\Desktop\x\New folder>perl -ane '$s = "";
    Can't find string terminator "'" anywhere before EOF at -e line 1.
    ...
     30 and $s .= " $1-$2" }
    'foreach' is not recognized as an internal or external command,
    operable program or batch file.
    
  3. or download this
    perl -ane '$s = ""; foreach (@F) { /(\d+)-(\d+)/ and $2 - $1 >= 30 and
    + $s .= " $1-$2" } print "$F[0]$s\n" if $s' input.txt
    
  4. or download this
    Can't find string terminator "'" anywhere before EOF at -e line 1.