Arbeiten mit DIR - #188748 (Allgemeines zu Perl)

Raubtier

2018-08-08 14:47

User since
2012-05-04
1081 Artikel
BenutzerIn
[default_avatar]

2018-08-07T18:51:07 dirk.m
Code (perl): (dl )
if ("$body =~ m/\.csv$/" cmp "$body =~ m/\.csv.xls$/")

Erkläre bitte dieses if. Ich kann dir jetzt schon sagen, dass es immer false ist, egal was für Werte in $body und $/ stehen.

Mir scheint, dass du in deinem readdir ein grep auf alle csv-Dateien machen möchtest und dann jeweils nachschauen solltest, ob ein ensprechendes .xlsx enthalten ist (dafür könntest du einen Hash nehmen).

Sowas in der Art:

Code (perl): (dl )

opendir(my $dirh, ".");
my @all = grep/\.csv(\.xlsx?)?$/i, readdir $dirh;
my %excel; 
@excel{map lc, grep /\.xlsx?$/i, @all} = ();
for(grep $_ !~ /.xlsx?$/i, @all) {
    say unless exists $excel{lc "$_.xlsx"} || exists $excel{lc "$_.xls"};
}

Last edited: 2018-08-08 15:11:12 +0200 (CEST)