Retourner au contenu associé (entrée de forum : script pour renommer)
Posté par cho7 (site web personnel) le 19 août 2005 à 12:17. En réponse au message script pour renommer. Évalué à 2.
AltStyle によって変換されたページ (->オリジナル) / アドレス: モード: デフォルト 音声ブラウザ ルビ付き 配色反転 文字拡大 モバイル
[^] # Re: un truc comme ca ?
Posté par cho7 (site web personnel) . En réponse au message script pour renommer. Évalué à 2.
#!/usr/bin/perl -w
my $fic = $ARGV[0];
my $ext = "";
if ($fic =~ m/(.+)\.(.+)/)
{
$fic =~ s/\ /_/g;
$fic =~ m/(.+?)\.(.+)/;
$fic = 1ドル;
$ext = 2ドル;
$ext =~ tr/A-Z/a-z/;
print $fic.".".$ext;
}
Bon ca te converti juste le nom du fichier passé en parametre, donc après faut le donner a manger a find...