Как обрабатывать имена файлов с пробелами?

Я использую Perl в Windows (Active Perl). У меня есть программа на Perl, которая объединяет файлы в текущую папку и объединяет их все с помощью команды dos copy, вызываемой изнутри с помощью system () ...

Когда я выполняю, появляется сообщение об ошибке dos: "Система не может найти указанный файл ". Это связано с пробелами в именах файлов, которые у меня есть.

Это код perl: -

@files = glob "*.mp3";
$outfile = 'final.mp3';
$firsttime = 1;
foreach (@files)
{

    if($firsttime == 1)
    {
       @args = ('copy' ,"/b ","$_","+","$outfile", "$outfile");
       system (@args);
       #system("copy /b '$_'+$outfile $outfile"); 
       $firsttime = 0;  
    }
    else
    {
       @args = ('copy' ,"/b ","$outfile","+","$_", "$outfile");
       system (@args);
       #system("copy /b $outfile+'$_' $outfile"); 
    }

}

glob возвращает массив имен файлов в моей текущей папке. Эти имена файлов имеют пробелы между ними, поэтому элементы массива имеют пробелы между. Когда я использую систему (...) для выполнения моей команды копирования для этих элементов массива с помощью "$ _", как показано выше, это дает ошибку, как указано выше.

Я попробовал несколько способов, которыми я мог бы вызвать систему ( ... ), но безуспешно.

Я хотел бы знать,

1] Как я могу заставить это работать с файлами, между которыми есть пробелы, используя приведенный выше код. Как «избежать» пробелов в именах файлов.

2] Любое альтернативное решение в Perl для достижения того же. (Простые приветствуются ..)

8
задан jww 27 March 2016 в 15:14
поделиться