sh: 1: Ошибка синтаксиса: «(« неожиданно

Question

Я пытаюсь запустить исполняемый файл perl, который копирует каталог в другое место, а затем удаляет каждый файл в этом новом месте, кроме тех, которые заканчиваются на .faa и .tsv. Вот код:

#!/usr/bin/perl 
use strict; 
use warnings; 

my $folder = $ARGV[0]; 

system ("cp -r ~/directoryA/$folder/ ~/directoryB/"); 
chdir "~/directoryB/$folder"; 

# Remove everything except for .faa and .tsv files 
system ("rm !\(*.faa|*.tsv\)"); 

Независимо от того, убегаю ли не круглые скобки, я получаю ошибку:.

sh: 1: Syntax error: "(" unexpected 

и не удалит файлы, расположение файла PERL составляет ~/bin, и я хотел бы избежать изменения строки #!/usr/bin/perl, поскольку несколько компьютеров будут использовать этот скрипт. Это немного больше, чем я знаю, поскольку я знаю только основные сценарии, но кто-нибудь знает, почему это происходит?

Answer 1

Он жалуется этой линии:

system ("rm !\(*.faa|*.tsv\)"); 

, так как даже если вы получите цитирование метасимволов правых, является довольно тупым и не, я считаю, стереть все файлы, которые не заканчиваются в .faa или .tsv.

Perl соответствует последней задаче.

unlink grep { -f $_ && !/[.]faa$/ && !/[.]tsv$/ } glob("*") 

является одним из нескольких способов.

Answer 2

Вся эта программа намного проще без использования оболочки команд

Я пишу это, который копирует только разыскиваемые типы файлов в первую очередь. Я предполагаю, что нет вложенных каталогов, которые будут копироваться

use strict; 
use warnings; 

use File::Copy 'copy'; 

my ($folder) = @ARGV; 

while (my $file = glob "~/directoryA/$folder/*.{faa,tsv}") { 
    copy $file, '~/directoryB'; 
}