Opened by gtrdriver at 2019-01-30 21:01
User since
2012-09-16
11 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-09-16
11 Artikel
BenutzerIn
Hallo
erstmal vielen dank für deinen Post - wie gesagt - ich bin jetzt leider nicht der Perl Guru - im Gegenteil ...
Habe eben verschiedene Fragmente die ich im Netzt so gefunden habe probiert - immer mit dem genannten Ergebnis.
Mein Test script sieht wie folgt aus:
erstmal vielen dank für deinen Post - wie gesagt - ich bin jetzt leider nicht der Perl Guru - im Gegenteil ...
Habe eben verschiedene Fragmente die ich im Netzt so gefunden habe probiert - immer mit dem genannten Ergebnis.
Mein Test script sieht wie folgt aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl -w
use strict;
use File::Find;
my $MeinVerzeichnis = "/raid5";
my $MeinDateiNamePattern = ".rec";
sub match {print "$_\n" if /$MeinDateiNamePattern/}
find {wanted => \&match, no_chdir => 1}, $MeinVerzeichnis;