Dir ohne Unterordner in .txt Datei u.ä.. Wie? - #165881 (Allgemeines zu Perl)

Linuxer

2013-02-18 22:37

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Basierend auf meiner vorigen Antwort hier mal ein Lösungsvorschlag mit File::Find::Rule:

Code (perl): (dl )

#! /usr/bin/env perl
use strict;
use warnings;

use File::Find::Rule;

my @dirs = @ARGV;
if ( !@dirs ) {
    warn "No directories specified.\nUsing '.' for search.\n";
    @dirs = ( '.' );
}

my @files = File::Find::Rule->file()
                            ->in( @dirs );

for my $file ( @files ) {
    print $file, "\n";
}

Das gibt die gefundenen Dateien auf STDOUT aus. Will man es in einer Datei haben, kann man die Ausgabe umleiten:

Code: (dl )

perl Skript.pl C:/durchsuche/mich  > C:/hab/ich/dich/gefunden.txt

Oder man verwendet eine Ausgabe, wie sie topeg in den letzten drei Zeilen seines Codes eingesetzt hat.

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!