RES: [Cascavel-pm] Renomear arquivos em um diretório

[Marcelo Stella]

#!/usr/bin/perl -w

open A, "Lista_A.txt" or die "$!";
open B, "Lista_B.txt" or die "$!";

while (<A>)
{
  $a = $_;  chomp $a;
  $b = <B>; chomp $b;
  rename "D/".$a, "D/".$b or warn "$!";
}

close A,B;



-----Mensagem original-----
De: cascavel-pm-bounces em pm.org [mailto:cascavel-pm-bounces em pm.org] Em nome
de Joselito Henriques
Enviada em: segunda-feira, 19 de dezembro de 2005 10:38
Para: cascavel-pm em pm.org
Assunto: [Cascavel-pm] Renomear arquivos em um diretório

Prezados especialista em Perl,

Estou precisado de um programa para renomear arquivos em um diretório.

Entrada:

- um Diretório (D) contendo vários arquivos.htm
- uma Lista_A.txt (LA) que contem todos os nomes dos arquivos do Diretório
(D), sendo que cada linha de (LA) contem apenas um nome.
- uma Lista_B.txt (LB) que contem o mesmo número de linhas de LA e em cada
linha um nome.
 

O programa deve fazer:

- Renomear os arquivos contidos em D, trocando (LA) por (LB)
 

Ficaria muito grato pelo auxílio,


Joselito

-- 
Telefonieren Sie schon oder sparen Sie noch?
NEU: GMX Phone_Flat http://www.gmx.net/de/go/telefonie
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm