Opened by Gast at 2005-02-16 13:42
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Evtl. hilft dir dieses Snippet weiter:
Anstatt print müsstest du rename verwenden. Schau aber nochmal in die Doku von File::Find - es gibt da ein paar Variablen z.B. für aktuelle Datei mit absolutem Pfad usw.\n\n
<!--EDIT|Ronnie|1108554403-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
find(\&handle_file, '/usr/share/doc/');
exit;
sub handle_file {
print $_, "\n" if /.*\.html/;
}
Anstatt print müsstest du rename verwenden. Schau aber nochmal in die Doku von File::Find - es gibt da ein paar Variablen z.B. für aktuelle Datei mit absolutem Pfad usw.\n\n
<!--EDIT|Ronnie|1108554403-->