![](https://seccdn.libravatar.org/avatar/810db23745ca15233b258103f0f47538.jpg?s=120&d=mm&r=g)
Ich habe ein riesen Verzeichnis mit Dateien, die alle die selbe Dateiendung haben. Wie kann ich allen autom. eine andere Dateiendung geben, ohne dies per Hand machen zu müssen?
Benutze Larry Wall's 'rename' script: ---------------------------------------------------------------- #!/usr/bin/perl $op = shift || die "Usage: rename expr [files]\n"; if ($op =~ m/^--?h/i) { print <<'HELP'; Usage: rename expr [files] Examples: rename 's/\.orig$//' *.orig rename 'y/A-Z/a-z/ unless /^Make/' * rename '$_ .= ".bad"' *.f rename 'print "$_: "; s/foo/bar/ if <stdin> =~ /^y/i' * HELP exit; } for (@ARGV) { $was = $_; eval $op; die $@ if $@; rename($was,$_) unless $was eq $_; } ---------------------------------------------------------------- Du musst ein bisschen etwas ueber Perls Regulaere Ausdruecke (Regular Expressions) wissen. Info dazu gibt's durch den Befehl 'perldoc perlre'. Viel Glueck, HJ --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com