Il 24/11/12 17.39, unaelle ha scritto:
allora rinominiamoli..
basta inserire il path corretto in $directory
e lanciarlo, i file PDF e SWF saranno rinominati con la relativa estensione
#!/usr/bin/perl
use strict;
use warnings;
my $directory = '/Users/.../dir_che_contiene_i file';
opendir (DIR, $directory) or die $!;
while (my $file = readdir(DIR)) {
next if ($file =~ m/^\./);
next if ($file =~ m/^\../);
my $file_type=`file --mime-type $directory/$file 2>&1`;
if($file_type =~ m/pdf/) {
my $newfile=`mv $directory/$file $directory/$file.pdf`;
}
if($file_type =~ m/x-shockwave-flash/) {
my $newfile=`mv $directory/$file $directory/$file.swf`;
}
}
closedir(DIR);