Help for this page

Select Code to Download


  1. or download this
    perl -e 'map{($a=$_)=~s/REPT/ERR/,rename($_,$a)}glob("*.REPT")'
  2. or download this
    perl -e '$var = "\@m=glob(\"*\");\@m = grep{m/\d+_\d+\.REPT/g} \@m; fo
+reach(\@m){$s=$_;$s=~s/REPT/ERR/; rename($_,$s);}";print length($var)
+,"\n";'

83
  3. or download this
    perl -e '$var = "map{($a=$_)=~s/REPT/ERR/,rename($_,$a)}glob(\"*.REPT\
+")";print length($var),"\n";'

45
  4. or download this
    [qadmin@concon qw]$ ls -1 *REPT *ERR
ls: *ERR: No such file or directory
...
42342_12.ERR
442342_2.ERR
[qadmin@concon qw]$