Rompe enlaces simbolicos y deja el original

-Script para romper enlaces simbolicos desde la ruta actual donde nos encontramos
y deja sólamente los originales donde apuntaba.


#!/usr/bin/perl

########################################
#Rompe enlaces y copia los originales
#
########################################

@lineas= `ls -la`;
$n=0;
#$formato="tmpl";

print "Entra formato: ";
$formato = ;
chomp($formato);

print "$formato\n";
foreach $line (@lineas)
{
chomp($line);


if ( $line =~ /($formato)$/i)
{
@partes = split ( / +/,$line);
#$partes[8]= enlace
#$partes[10] = original
$propietario=$partes[2];
$grupo=$partes[3];

system("unlink $partes[8]");
system("cp -pr $partes[10] .");

$n +=1;
}

}

print "\n";
print "Aplicando permisos correspondientes...\n";
system("chown -R $propietario.$grupo *.$formato");
system("chmod 770 *.$formato");
print "$n enlaces rotos..\n";