Help for this page

Select Code to Download


  1. or download this
    perl -e 'map{`mv $_ $1.ERR`if/^(\d+_\d+)\.REPT$/}<*>'
  2. or download this
    perl -e '/^(\d+_\d+)\.REPT$/&&`mv $_ $1.ERR`for<*>'