WCM Forum - PERL / DBI: Umstieg von Linux auf Windows Server

Seite 2 von 2

40 Beiträge dieses Themas auf einer Seite anzeigen

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - PERL / DBI: Umstieg von Linux auf Windows Server (http://www.wcm.at/forum/showthread.php?t=71051)

_m3	02.10.2002 00:51

perldoc -f readdir
und
perldoc -f -e
sollten Dir alle Infos liefern.

Uurtyp

02.10.2002 08:09

ah ok danke *anschau*

danke für die ganzen Infos!

mfg
Uurtyp

_m3	02.10.2002 08:42

no prob :)

Uurtyp

17.10.2002 15:56

hmmm also ganz klar komm i trotzdem noch ned damit
ich mein - readdir is echt genial
weils mir alles so ausspuckt wie ich will
nur
ich möcht directories als einen link als files ... und wie kenn ich damit auseinander, ob es ein dir od ein file is ( abgesehen davon möcht ich die dirs . und .. nat auch nicht ...)

ich hab derzeit:

$dir = "./Downloads";

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

damit listet er mir brav absolut alles auf - von . über alle dirs bis zu allen files.

ich möcht jetzt aber nur die dirs haben
bzw - es wird im endeffekt nur dirs geben -> kann er auch alles auflisten ... jedenfalls möchte ich, dass die directories verlinkt werden auf die aktuelle seite, und nur den directory name als argument.
-> downloads.cgi?dir=$dir
wäre cool wenn du mir da weiterhelfen könntest.
filehandling und cookies killen mich in perl - find ich einfach behindert.
danke nomal

käptn

17.10.2002 17:10

Gibt's sowas wie isdir() und foreach() in Perl?

~

_m3	17.10.2002 17:54

isdir()
-d
siehe auch perldoc -f -d

foreach()

Code:

my @array = qw{ a b c d e f };

for (@aray) {

    print "$_\n";

}

Output: abcdef

Uurtyp

21.10.2002 11:24

leute - tut echt leid - aba ich komm damit nicht zurecht.
ich möchte doch einfach nur eine Funktion, die mir aus dem directory ./Downloads alle subdirs auflistet. und eine weitere, die mir aus dem aktuellen verzeichnis alle files auflistet.
und zwar so, dass dann immer nur der genaue name ausgegeben wird.
ich hatte es schon, dass dann zB wenn das subdir von Downloads "haha" heisst, dass dann als subdir ./Downloads/haha/ ausgegeben wurde. aber das ist uninteressant - ich brächte dann nur das "haha"

plz help - ich sitz da schon stunden und ich glaub ich verrenn mich da komplett und such in die verkehrte richtung :((

thx
ein - verzweifelter - Uurtyp

_m3	21.10.2002 13:10

Code:

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/$_ );

        }

}

Uurtyp

24.10.2002 17:07

super danke

also zumindest das mit den dirs hatte ich schon fast so ;)

ich werds heute abend oder morgen gleich probieren. Danke jedenfalls schon mal dafür.

mfg
ein - hoffender - Uurtyp ;)

Alle Zeitangaben in WEZ +2. Es ist jetzt 04:14 Uhr.

Seite 2 von 2

40 Beiträge dieses Themas auf einer Seite anzeigen