Return to Answer

added 114 characters in body

Source Link

edited Nov 26, 2013 at 17:14

40.5k
8
113
146

If you don't have Perl's rename:

perl -nee '
FILE:for $file ($new@ARGV){
        ($new_name = $ARGV$file) =~ s/-mIF-/-mImpFRA-/;rename 
 $ARGV       next FILE if -e $new_name;
        rename $file => $new'$new_name
}' *_opt

If you do have Perl's rename:

rename 's/-mIF-/-mImpFRA-/' *_opt

If you don't have Perl's rename:

perl -ne '($new = $ARGV)=~ s/-mIF-/-mImpFRA-/;rename $ARGV => $new' *_opt

If you do have Perl's rename:

rename 's/-mIF/-mImpFRA-/' *_opt

If you don't have Perl's rename:

perl -e '
FILE:for $file (@ARGV){
        ($new_name = $file) =~ s/-mIF-/-mImpFRA-/ 
        next FILE if -e $new_name;
        rename $file => $new_name
}' *_opt

If you do have Perl's rename:

rename 's/-mIF-/-mImpFRA-/' *_opt

Source Link

answered Nov 26, 2013 at 16:22

Joseph R.

40.5k
8
113
146

If you don't have Perl's rename:

perl -ne '($new = $ARGV)=~ s/-mIF-/-mImpFRA-/;rename $ARGV => $new' *_opt

If you do have Perl's rename:

rename 's/-mIF/-mImpFRA-/' *_opt