Cleanup Filenames (Perl script)

Το scriptaki αυτό μετονομάζει τα αρχεία ενός directory μετατρέποντας τα ελληνικά σε greeklish, τα κενά σε underscores και τα κεφαλαία σε μικρά χωρίς να πειράζει τους υπόλοιπους χαρακτήρες. Μπορεί να χρησιμοποιηθεί σε ISO-8859-7 και UTF-8 filenames μόνο. Για να τρέξει χρειάζεται Perl και chmod +x cleanup_filenames

Παραδείγματα:

Directory με αρχεία που θέλουμε να μετονομάσουμε:

$ ls example_dir/
Ελληνικότατο FileνάMe.Txτ Λόλα Γλαδιόλα - Τεράστιο Souxe.Mp3
$ ./cleanup_filenames example_dir/
$ ls example_dir/
ellinikotato_filename.txt lola_gladiola-terastio_souxe.mp3


Λάθος directory:

$ ./cleanup_filenames wrong_dir/
Sorry dude. There is no such directory.


Παρακάτω είναι ο κώδικας.

Προσοχή!!

Για να παίξει σωστά, φροντίστε στο αρχείο που θα σώσετε το script να έχει encoding iso-8859-7, διαφορετικά δε θα γίνει σωστά η μετατροπή ή κατεβάστε το original αρχείο από εδώ: http://quasar.dnsalias.com/~eleni/cleanup_filenames

#!/usr/bin/perl

################################
# cleanup_filenames.pl
# author: Eleni Maria Stea
################################

use strict;
use Encode;
use File::Copy;

my $dir;
my @files;
my $file;
my $initfile;
my $flag;

$dir=$ARGV[0];

if ( -d $dir ) {
    opendir (DIR,$dir) or die $!;
    @files = (readdir DIR) or die $!;
    closedir (DIR) or die $!;

    foreach ( @files ) {
        next if ( $_ eq "." || $_ eq ".." );
        $file = $_;
        $initfile = $_;
        $flag = decode ("utf8",$_,Encode::FB_QUIET);
        if ( $flag ) {
            $file = encode("iso-8859-7",$flag);
        }
        $file =~ s/\s/_/g;
        $file =~ s/θ/th/g;
        $file =~ s/Θ/th/g;
        $file =~ s/ψ/ps/g;
        $file =~ s/Ψ/ps/g;
        $file =~ tr/ΑΒΓΔΕΖΗΙΚΛΜΝΞΟΠΡΣΤΥΦΧΩΆΈΉΊΎΌΏΪΫαβγδεζηικλμνξοπρστυφχωάέήίύόώϋϊΰΐς/abgdeziiklmnxoprstyfhoaeiiyooiyabgdeziiklmnxoprstyfhoaeiiyooyiyis/;
        $file =~s/_-_/-/g;
        $file = "\L$file";
        move("$dir$initfile","$dir$file") || die $!;
        if ( $initfile eq $file ) {
            print "Filename $initfile has not been changed.\n";
        }
        else {
            print "Filename $initfile has been changed to $file.\n";
        }
    }
}
else {
    print "Sorry dude. There is no such directory.\n";
}