split utf-8 string

[Giorgos Pallas]

προσπαθώ να φτιάξω ένα μικρό perl script για να μετατρέπω μαζικά τα
ελληνικά ονόματα αρχείων σε greeklish.

Παιδεύτηκα με διάφορα, αλλά τζίφος... Πρέπει να είναι μια δυο γραμμές
κώδικα όλο κι όλο αλλά δεν κατέχω και πολλά από encodings και ζητώ βοήθεια!

#!/usr/bin/perl

use Encode;
use utf8;

@gl =
('α','β','γ','δ','ε','ζ','η','θ','ι','κ','λ','μ','ν','ξ','ο','π','ρ','σ','τ','υ','φ','χ','ψ','ω');
@el =
('a','b','g','d','e','z','h','8','i','k','l','m','n','3','o','p','r','s','t','y','f','x','4','w');

opendir(DIRHANDLE, ".") || die "Cannot open current dir\n";

while ($name = readdir(DIRHANDLE)){
    next unless (-f $name);

<<<SNIP>>>

}

closedir(DIRHANDLE);


-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/x-pkcs7-signature
Size: 6261 bytes
Desc: S/MIME Cryptographic Signature
URL: <http://lists.hellug.gr/pipermail/linux-greek-users/attachments/20070927/2b2a8ac5/attachment.bin>