У меня есть файлы, имена которых похожи на это:
Sim1-2_40.36.chr20_sb.foo.indel.novoalign.sam
Sim1-2_40.36.chr20_sb.foo.indel.bwa.sam
То, что я хочу сделать, должно заменить все indel
с snp
в получении имен
Sim1-2_40.36.chr20_sb.foo.snp.novoalign.sam
Sim1-2_40.36.chr20_sb.foo.snp.bwa.sam
Но почему этот Unix управляет не, работают?
$ rename 's/indel/snp/' *.sam
Поскольку Вы используете несправедливость, переименовывают программу. Это - правильное.
"Нормальное" rename
утилита (часть util-linux
) берет 3 или больше аргумента (как упомянуто в TFM..)
rename FROM TO filespec...
Таким образом Вы (вероятно), ищете:
rename .indel. .snp. *.sam
Протестируйте это на каталоге царапины сначала, поскольку можно использовать другую реализацию rename
.
Или проверьте страницу справочника. кашель
rename
не делает sed
- замены стиля. Этот очень короткий сценарий Perl позволит Вам сделать regmv *.sam s/indel/snp/
:
#!/usr/bin/perl -w
#
# regmv - Rename files using a regular expression
#
# This program renames files by using a regular expression to
# determine their new name.
#
# Usage: regmv file [file ...] regexp
#
# $Id: regmv,v 1.1 1998/10/14 17:07:55 blrfl Exp $
#
sub at_clean()
{
my $message = $@;
$message =~ s|\s+at /.*$||s;
return $message;
}
(@ARGV > 1)
|| die "Usage: regmv [options] file [file ...] regexp\n";
my $expr = pop @ARGV;
$_ = 'SomeValue';
eval "\$_ =~ $expr";
die "Yuck: " . at_clean() if $@;
foreach (@ARGV)
{
my $old = $_;
eval "\$_ =~ $expr";
next if $_ eq $old;
(rename $old, $_)
|| die "Rename failed: $!\n";
}