PERL / DBI: Umstieg von Linux auf Windows Server

[_m3]

sub dirs {
	my $dir = "./Downloads";

	opendir(DIR, $dir) || die "konnte $dir nicht öffnen: $!";
	my @files = readdir(DIR);
	closedir DIR; 

	foreach (@file) {
		next if ($_ eq "." or $_ eq "..");
		print "DIR: $_\n" if( -d $dir/$_ );
	}
}

sub files {
	my $dir = "./Downloads";

	opendir(DIR, $dir) || die "konnte $dir nicht öffnen: $!";
	my @files = readdir(DIR);
	closedir DIR; 

	foreach (@file) {
		next if ($_ eq "." or $_ eq "..");
		print "FILE: $_\n" if( -f $dir/$_ );
	}
}