On 5/9/07, Leonardo Costa <leocostabh em gmail.com> wrote:
> Como eu edito todos os arquivos para tirar essa data do final?
use File::Rename qw(rename);
rename <*>, sub { s/\d{6,8}$// }; # untested
Aprendar o poder da CPAN caso queira usar Perl de verdade.
-Nilson Santos F. Jr.