¿Cómo se manejan los nombres de archivos con espacios?

Question

Uso Perl en Windows (Active Perl). Tengo un programa perl para englobar los archivos en la carpeta actual y concatenarlos todos usando el comando dos copy llamado desde adentro usando system() ...

Cuando ejecuto, esto da un error dos diciendo "El sistema no puede encontrar el archivo especificado. " Está relacionado con los espacios en los nombres de archivo que tengo.

Este es el código 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"); 
    } 

} 

pegote devuelve una matriz de nombres de archivos en mi carpeta actual, esos nombres de archivo tienen espacios entre ellos, por lo que los elementos de la matriz tienen espacios en el medio. Cuando uso el sistema (...) para ejecutar mi comando de copia en esos elementos de la matriz usando "$ _" como se muestra arriba, da error como el anterior.

Intenté dos maneras en que podía llamar al sistema (...) pero sin éxito.

Me gustaría saber,

1] ¿Cómo puedo conseguir este trabajo en archivos que tienen espacios entre ellos utilizando el código de seguridad. Cómo 'escapar' el espacio en blanco en los nombres de archivo.

2] Cualquier solución alternativa en Perl para lograr lo mismo. (Los más simples son bienvenidos ..)

Answer 1

Su código no agrega ninguna comilla alrededor de los nombres de los archivos.

Trate

"\"$_\"" 

y

"\"$outfile\"" 

Answer 2

Pueden surgir problemas cuando se está tratando de acceder a la variable $_ dentro de un bloque interno. La más segura, cambie:

foreach (@files) 

a:

foreach $file (@files) 

Después, realice los cambios necesarios en @args, y escapar comillas dobles para incluirlos en la cadena ..

@args = ('copy' ,"/b ","\"$file\"","+","$outfile", "$outfile"); 
... 
@args = ('copy' ,"/b ","$outfile","+","\"$file\"", "$outfile"); 

Answer 3

En las ventanas normalmente puede poner comillas dobles alrededor de los nombres de los archivos (y/o rutas) permitiendo caracteres especiales, es decir, "nombres largos de archivos".

C: \ "mi larga ruta \ esto es un file.mp3"

Editar:

qué no funciona?

system("copy /b \"$_\"+$outfile $outfile"); 

(NOTA DE LAS comillas dobles dentro de la cadena de cotizaciones individuales) no

Answer 4

deja de usar system() para hacer una llamada que se puede hacer con una biblioteca portátil. Perl tiene un módulo File::Copy, utilícelo en su lugar y no tiene que preocuparse por cosas como esta además de que obtiene una mejor portabilidad del sistema operativo.

Answer 5

system rara vez es la respuesta correcta, use File::Copy ;

para concatenar todos los archivos:

use File::Copy; 
my @in = glob "*.mp3"; 
my $out = "final.mp3"; 

open my $outh, ">", $out; 
for my $file (@in) { 
    next if $file eq $out; 
    copy($file, $outh); 
} 
close $outh; 

Answer 6

$ archivo = ~ s/\/\ /;

lo que cada vez el nombre del archivo que se acaba de usar barra de espacios refrence