Como mover arquivos no perl recursivamente

Question

Como posso mover todos os arquivos em um diretório para o diretório anterior em Perl usando o comando do sistema?

Eu tentei o seguinte método e ele mostrou erro

system('/bin/mv "test/*" , "./"');

bash: syntax error near unexpected token '/bin/mv "test/*" , "./"''

Por favor ajude.

    

Answer 1

Perl tem métodos nativos para isso. De CPAN :

% bl0ck_qu0te%

E 1 que usa globbing:

% bl0ck_qu0te%

Menciona ...

% bl0ck_qu0te%

A partir dos exemplos no link:

rmove('foo/bar/baz', '/etc/');
# "baz" is removed from foo/bar after it is successfully copied to /etc/