Sstrhsrtj

I need to dynamically remove first part of name and copy to other locations.
My file names are like

Voice_XYZZ_1_1801.pdf

Voice_XYZZ_1_1801.ndx

Electon_MNOPQ_1_1801.pdf

Electon_MNOPQ_1_1801.ndx

at run time either Voice can generate or Electon or both.
I need to remove the initial part from file names and they should look like

XYZZ_1_1801.pdf

XYZZ_1_1801.ndx

MNOPQ_1_1801.pdf

MNOPQ_1_1801.ndx

Which command I can use to achieve this?

Assuming you're using a shell from the Bourne family, you can remove the shortest leading substring matching up to and including an underscore from a filename variable f using ${f#*_}

Ex.

$ touch Voice_XYZZ_1_1801.pdf Voice_XYZZ_1_1801.ndx Electon_MNOPQ_1_1801.pdf Electon_MNOPQ_1_1801.ndx



$ for f in Voice_* Electon_*; do echo "${f#*_}"; done

XYZZ_1_1801.ndx

XYZZ_1_1801.pdf

MNOPQ_1_1801.ndx

MNOPQ_1_1801.pdf

You can use this along with the mv command to rename files e.g.

for f in Voice_* Electon_*; do mv "$f" "${f#*_}"; done

Copying to another location may be done similarly with the cp command e.g.

for f in Voice_* Electon_*; do cp "$f" "newdir/${f#*_}"; done

This can be done very easily from the command-line by calling a Perl one-liner:

ls *_* | perl -ne 'chomp($_); $orig = $_; $_ =~ s/[^_]*_//; rename $orig,$_;'

Here's an explanation for the code:

• 
  

  Send all the filenames that have '_' in their name to the next command

  
  
  

  ls _ |

  
  


• 
  

  For each of the strings being passed in, do the command

  
  
  

  perl -ne

  
  


• 
  

  Remove the newline from the filename (leftover from running 'ls' command)

  
  
  

  chomp($_);

  
  


• 
  

  Remove the first part of the word, searching until you find a '_'

  
  
  

  $_ =~ s/[^]*//;

  
  


• 
  

  Rename the file

  
  
  

  rename $orig,$_;