Kein Betreff

>From guckes  Fri Jan 29 08:50:55 1999
Return-Path: <owner-linux-l at calle.in-berlin.de>
Delivered-To: guckes at math.fu-berlin.de
Received: (qmail 21181 invoked from network); 29 Jan 1999 07:50:53 -0000
Received: from methan.in-berlin.de (160.45.10.13)
  by leibniz.math.fu-berlin.de with SMTP; 29 Jan 1999 07:50:53 -0000
Received: from calle.in-berlin.de (calle.in-berlin.de [193.175.21.97])
	by methan.in-berlin.de (8.9.1/8.9.1) with ESMTP id IAA20758;
	Fri, 29 Jan 1999 08:50:46 +0100 (CET)
	(envelope-from owner-linux-l at calle.in-berlin.de)
Received: by calle.in-berlin.de (Smail3.2.0.98) 
	  from  localhost with smtp
	  id <m1068QK-000A0YC>; Fri, 29 Jan 1999 08:33:04 +0100 (CET)
Received: by calle.in-berlin.de (Smail3.2.0.98)
	  id <m1068QH-000A0Oa>; Fri, 29 Jan 1999 08:33:01 +0100 (CET)
Message-ID: <36B16333.8D3E0E37 at detewe.de>
Date: Fri, 29 Jan 1999 08:28:51 +0100
From: "Michael Wiedmann" <michael.wiedmann at detewe.de>
Organization: CordLess Technology
X-Sender: "Michael Wiedmann" <mwiedman at zinse043.detewe.de> (Unverified)
X-Mailer: Mozilla 4.05 [de] (WinNT; I)
MIME-Version: 1.0
To: linux-l at calle.in-berlin.de
Subject: Re: linux-l: Perl Hilfe bitte...
References: <14000.42817.704891.743306 at mero.in-berlin.de>
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
Sender: owner-linux-l at calle.in-berlin.de
Reply-To: linux-l at calle.in-berlin.de
Status: O
Content-Length: 1215
Lines: 45

Carsten Wartmann schrieb:

> ich brauche mal Hilfe... Ich m=F6chte ein Perl Script haben, welches mi=
t
> ein Directory rekursiv auflistet... Jaja, kein Problem einfach ein
> "ls -lRa", allerdings gibts einige kr=FCpplige ftp-Server, die da nur
> ein nicht-rekursives Listing liefern...

[...]

Ungef=E4hr so:

use File::Find;

find(\&wanted, $start_dir);

foreach $f (@dirlist {
 ...
}

#####

# $_ enth=E4lt den Dateinamen
# $File::Find::dir enth=E4lt das aktuelle Dir.
# $File::Find::name enth=E4lt '$File::Find::dir/$_'
# Beim Aufruf von find(...) passiert ein implizites
'chdir($File::Find::dir);' !
sub wanted {
    if (-f $_) {
        push @dirlist, $File::Find::name if ( -f @dirlist,
$File::Find::name);
    }
}

Was dir das aber bei deinem ftp-Problem n=FCtzen soll, ist mir nicht
ganz klar?

Michael
-------------------------------------------------------------------
  Michael Wiedmann           |  PGP protects        +-----------+
  Cordless Technology A/S    |  your privacy!       |\  O---m  /|
  K=F6penicker Str. 180        | (key via server      |/`-------'\|
  D-10997 Berlin             |  or on request)      +-----------+
-------------------------------------------------------------------