Shell Programming and Scripting

ABC_96_20141031_041133.232468

ABC_96_141031_041133.232468

ls * | perl -lne 'print "$& $_" if s/(^[A-Z]{3}_\d+_)\d\d(\d\d.*$)/$1$2/'

ls * | perl -lne 'rename $&, $_ if s/(^[A-Z]{3}_\d+_)\d\d(\d\d.*$)/$1$2/'

ls *_*_2014*_*.* | while read original
do
 new=$(echo "$original" | awk -F_ 'BEGIN{OFS="_"}{gsub(/^20/,"",$3); print}')
 echo "$original" "$new"
done

ls *_*_2014*_*.* | while read original
do
#disassembling sample file ABC_96_20141031_041133.232468
 piece1=${original##*_} # piece1 now holding 041133.232468
 piece2=${original%_*}  # piece2 now holding ABC_96_20141031
 piece3=${piece2%_*}    # piece3 now holding ABC_96
 piece4=${piece2##*_}   # piece4 now holding 20141031
 piece5=${piece4:2}     # piece5 now holding 141031
#reassembling
 echo "$original" "$piece3"_"$piece5"_"$piece1"
done

ls * | while read file
do 
mv $file $(echo $file | sed 's/\(ABC_\)\([0-9]*_\)\(2014\)\(.*\)/\1\214\4/')
done

ls -1 XV4_* | awk '{print("mv "$1 " " $1)}' | sed 's/_2014/_14/2' > rename_files.txt

ls -1 XV4_* | awk '{X=$1; sub(/_2014/,"_14",X); print "mv", $1,X}'
or
ls -1 XV4_*| sed  's/\(.*\)/mv \1 \1/;s/_2014/_14/2'

for FN in ABC_*; do echo mv "$FN" "${FN/_2014/_14}"; done

for f in *_*_20*_*.*
do
  [ -f "$f" ] && mv -- "$f" "${f%_*_*}_${f#*_*_20}"
done