[FoLUG] perl e rinominare files

[simona bazzocchi]

salve il mio scopo sarebbe quello di aprire tutti i
file in una cartella, leggere la prima riga,
cancellarla e farla diventare il nome del file.
Tutte le prime rige del file iniziano con >hsa
Niente paura mi fermo molto prima... non riesco ad
aprire i file in lettura e scrittura infatti ecco
l'errore e il codice, grazie:

Non riesco ad aprire . at /home/simo/rename.pl line
11.



#/usr/bin/perl

$dir="/home/simo/mfold_scripts/mfold_script2/fold";
opendir(JAZZ,$dir) || die "I cannot open the directory
$dir";
@nomi_file=readdir(JAZZ);
closedir(JAZZ);


foreach $_(@nomi_file){
    print "$_\n";
    open (A,'+<$dir/$_') || die "Non riesco ad aprire
$_";
    while($a=<A>){print $a;} 
   
    

                         }


      ___________________________________ 
L'email della prossima generazione? Puoi averla con la nuova Yahoo! Mail: http://it.docs.yahoo.com/nowyoucan.html