Matthias Kleine schrieb in 0,7K (30 Zeilen): [Dateinamen in Kleinschreibung]
#!/usr/bin/perl
open(DATEINAMEN, "ls|"); @dateinamen = <DATEINAMEN>; close(DATEINAMEN);
Und was machst du mit Dateinamen, die "\n" enthalten? BOOM! man find --> -print0 man xargs
foreach (@dateinamen){
Eleganter und speichersparender (aber genauso unsicher) waere ein open D, "ls|"; # close ist implizit while (<D>) {
$alt=$_; if (tr/A-Z/a-z/){
perldoc -t -f lc # Ü, Ä. Ö
rename($alt, $_);
MyFile, myfile. Von zwischendurch angelegten Dateinamen nicht zu sprechen. -Wolfgang --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com