Thread Arbeiten mit DIR (6 answers)
Opened by dirk.m at 2018-08-07 20:51

dirk.m
 2018-08-07 20:51
#188743 #188743
User since
2018-08-07
2 Artikel
BenutzerIn
[default_avatar]
Hallo Leute,Ich möchte ein verzeichnis auslesen, darin befindliche Dateien vergleichen, Wenn CSV und CSV.Excel gleich sind tue nichts, ansonsten übergebe den Wert an $file.
Print $file ist nur zur kontrolle :).

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

my $dir = 'C:/Users/';               
my $body;                    
my @file = ("");
opendir( MYDIR, $dir ) or die 'opendir';
$body =
   join( "\n",                           
               
      readdir MYDIR
          
   );
closedir MYDIR;
#print "$body";

if ("$body =~ m/\.csv$/" cmp "$body =~ m/\.csv.xls$/")
{}
else {push (my $file);}
print "$file";
exit 0;

Last edited: 2018-08-08 09:13:08 +0200 (CEST)

View full thread Arbeiten mit DIR