[Cascavel-pm] apagando arquivos

[Luis Motta Campos]

On May 30, 2007, at 10:24 PM, Thomas Britis wrote:
> Duas formas.
>
> 1- (feia, q nem a sua, hehe):
> #!/usr/bin/perl
> `find ../../dircod/ -exec rm -f {} \;`;

   Use o shell:

   #!/usr/bin/bash
   find ../../dircod -type f -name "nome_*.txt" -exec rm -f "{}" \;

   # muito mais simples de ler e escrever...

> 2- (bonita):
> #!/usr/bin/perl
> unlink <../../dircod/*>;

   Isto está ficando repetitivo...

   #!/usr/bin/perl
   use strict;
   use warnings;
   use File::Find;

   # Experimente o find2perl, muito interessante também.
   find( sub { -f && m{^nome.+\.txt$} && unlink; }, q{../../dircod/} );
   __END__

   Putamplexos!
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}