Thread File::Find unter Windows + versteckte Dateien (2 answers)
Opened by Gast at 2009-01-28 16:55

renee
 2009-01-28 17:48
#118439 #118439
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Beispiel für Win32::File:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl -l

use strict;
use warnings;
use Win32::File qw(GetAttributes HIDDEN);

my $hidden = 'hidden.txt';

for my $file( $0, $hidden, 'C:\Dokumente und Einstellungen' ){
    my $attribs;
    GetAttributes( $file, $attribs );
    print $file, " -> ", $attribs & HIDDEN;
}


Edit: Das Programm ist natürlich nicht versteckt, 'hidden.txt' ist eine versteckte Datei und das Verzeichnis ist ebenfalls *nicht* versteckt. Dann ergibt das:
Code: (dl )
1
2
3
test_hidden.pl -> 0
hidden.txt -> 2
C:\Dokumente und Einstellungen -> 0
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread File::Find unter Windows + versteckte Dateien