Leser: 16
2009-11-20T07:57:17 jan999my @data_folder=glob("D:\DATEN\data_komm_hl\*.txt");
1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/perl -l use strict; use warnings; use File::Find::Rule; my $osmolt_filter = $ARGV[0]; my @files = File::Find::Rule->file( '*.txt' ) ->maxdepth( 1 ) ->in( $osmolt_filter ); print $_ for @files;