Thread $File::Find::name, wer kann helfen !!! (18 answers)
Opened by miricoleo at 2008-08-12 23:13

pktm
 2008-08-12 23:46
#113444 #113444
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Ich hab überhaput keine Lust mir ein Skript anzugucken, dass kein strict und warnings verwendet (ist nicht persönlich gemeint).
Aber wenn dir jemand helfen soll, dann solltest du Fehler durch strict & warnings schonmal ausgemerzt haben.

Hier ein kleines (ungetestetes) Skript, das machen müsste, was du willst:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use File::Find::Rule;

my $muster = '*.xls';
my @verzeichnisse = (
'c:/verz1/test',
'c:/verz1/test2',
);

# find all the .pm files in @INC
my @files = File::Find::Rule->file()
->name( $muster )
->in( @verzeichnisse );

print Dumper \@files;


Grüße, pktm

Nachtrag: siehe auch http://wiki.perl-community.de/bin/view/Wissensbasi...
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread $File::Find::name, wer kann helfen !!!