[perl] Script para poner los nombres reales a archivos 8.3

[Gunnar Wolf]

#!/usr/bin/perl
# 
# En sistemas DOS, tenemos nombres de archivo recortados (el
# famoso 8.3). Para poder compartir archivos hacia el mundo
# de DOS, los sistemas Unix han empleado el archivo TRANS.TBL
# en los directorios de medios exportados hacia estos sistemas,
# especialmente CD-ROMs y floppies.
#
# No se si haya alguna utilera del sistema que haga este mismo
# trabajo, pero esto puede serles de utilidad. El programa esta
# tal vez en un estado demasiado basico, no se mete a directorios
# ni sigue links (el primer campo de TRANS.TBL es el que lo
# indica, con una F para archivos, una D para directorios y...
# Lo demas, ustedes sabran encontrarlo.
#
# Por si alguien recibe este sencillo script y me quiere contactar,
# puede hacerlo a gwolf@campus.iztacala.unam.mx

open (TRANS,"TRANS.TBL");
@trans = <TRANS>;
close (TRANS);
foreach (@trans) {
    @linea = split(/\s+/,$_);
    $nombreUnix=$linea[2];
    $nombreDOS=$linea[1];
    chop $nombreDOS;
    chop $nombreDOS;
    rename $nombreDOS, $nombreUnix;
}

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl