9 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl -w
use strict;
my $zaehler;
for my $spacig ( @ARGV ) {
( my $underscorig = $spacig ) =~ s/\s/_/g;
if ( -f $underscorig ) {
warn qq(Die Datei "$spacig" mag ich nicht in ),
qq("$underscorig" umbenennen, denn die gibt es bereits\n);
}
else {
rename( $spacig => $underscorig ) && ++$zaehler;
print qq(rename $spacig => $underscorig\n);
}
}
print $zaehler += 0, " Dateien umbenannt\n";
rename
@ - *
@ -
rename
Quote> which rename
/usr/bin/rename
> file /usr/bin/rename
/usr/bin/rename: ELF 32-bit LSB executable, Intel 80386, version 1 (SYSV), for GNU/Linux 2.2.5, dynamically linked (uses shared libs), stripped
> ls -l /usr/bin/rename
-rwxr-xr-x 1 root root 4540 2004-05-27 16:55 /usr/bin/rename
> man rename
Formatiere rename(1) neu, bitte warten...
9 Einträge, 1 Seite |