В качестве более общего решения, почтенный скрипт переименования работает хорошо:
$ rename 's/m4v.*$/m4v/' Aev264*.m4v*
Я почти уверен, что он уже установлен в /usr/bin
в дистрибутивах debian/ubuntu/mint и является 42-строчным сценарием, если он не установлен (ну, на самом деле, это perl, так что это только одна строка, если вы не в вся вещь читабельности).
$ squish /usr/bin/rename
use strict; use Getopt::Long; Getopt::Long::Configure('bundling'); my ($verbose, $no_act, $force, $op); die "Usage: rename [-v] [-n] [-f] perlexpr [filenames]\n" unless GetOptions( 'v|verbose' => \$verbose, 'n|no-act' => \$no_act, 'f|force' => \$force, ) and $op = shift; $verbose++ if $no_act; if (!@ARGV) { print "reading filenames from STDIN\n" if $verbose; @ARGV = <STDIN>; chop(@ARGV); } for (@ARGV) { my $was = $_; eval $op; die $@ if $@; next if $was eq $_; if (-e $_ and !$force) { warn "$was not renamed: $_ already exists\n"; } elsif ($no_act or rename $was, $_) { print "$was renamed as $_\n" if $verbose; } else { warn "Can't rename $was $_: $!\n"; } }