Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Fragen zu Perl-Modulen
[thread]10116[/thread]

File::Listing tut nichts

Leser: 1


<< >> 8 Einträge, 1 Seite
RalphFFM
 2007-08-17 18:36
#98339 #98339
User since
2006-11-16
258 Artikel
BenutzerIn
[Homepage] [default_avatar]
Irgendwie werde ich heute die Probleme nicht mehr los. :-(

Code entsprechend http://search.cpan.org/dist/libwww-perl/lib/File/L... :
Code: (dl )
1
2
3
4
5
6
7
#!/usr/bin/perl
use warnings; use strict;
use File::Listing qw(parse_dir);
for (parse_dir(`ls -l`)) {
     ($name, $type, $size, $mtime, $mode) = @$_;
     print "Name: $name, Typ: $type\n";
}


Wenn ich das ausprobiere, erzeugt File::Listing schlicht keinerlei Ausgabe,
obwohl ein hinzugefügtes system("ls -l") beweist, daß jede Menge Dateien
vorhanden sind.

Nochmals im voraus vielen Dank für Hilfe.
pq
 2007-08-17 18:46
#98340 #98340
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
mach mal ein
$ENV{LANG} = "C";
am anfang.
im übrigen kompiliert dein skript nicht. scheint, als hättest du strict nur für das forum
hinzugefügt =)
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
sid burn
 2007-08-17 18:48
#98341 #98341
User since
2006-03-29
1520 Artikel
BenutzerIn

user image
warum nutzt du nicht ein opendir() und stat()? Soetwas ist dann auch Portabler.
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
RalphFFM
 2007-08-17 18:55
#98342 #98342
User since
2006-11-16
258 Artikel
BenutzerIn
[Homepage] [default_avatar]
(... Mein Gott, wo sind meine ansonsten so guten Nerven hin?)
Ja, diese magische Umgebungsvariable zu setzen hilft. Aber wie bist Du denn darauf gekommen?

Danke!

PS: Das my ist von der Hin- und Herkopiererei verlorengegangen. Ehrlich.
RalphFFM
 2007-08-17 19:03
#98343 #98343
User since
2006-11-16
258 Artikel
BenutzerIn
[Homepage] [default_avatar]
@sid burn: Hmm, im selben Skript benutze ich File::Listing um das Verzeichnis eines FTP-Verzeichnisses zu parsen. Deswegen lag es so (verführerisch) nahe es auch für ein lokales Verzeichnis zu verwenden.
sid burn
 2007-08-17 19:25
#98345 #98345
User since
2006-03-29
1520 Artikel
BenutzerIn

user image
RalphFFM+2007-08-17 17:03:56--
@sid burn: Hmm, im selben Skript benutze ich File::Listing um das Verzeichnis eines FTP-Verzeichnisses zu parsen. Deswegen lag es so (verführerisch) nahe es auch für ein lokales Verzeichnis zu verwenden.

Und wie greifst du auf FTP zu?

In Net::FTP hast du doch die Methoden "ls", "size", "mdtm" etc. die dir das ebenfalls zurück geben. Und das wiederrum sollte auch wieder Portabler sein. Da ein ls auf einem FTP Server ebenfalls bei der Ausgabe abweichen kann.
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
RalphFFM
 2007-08-17 19:42
#98347 #98347
User since
2006-11-16
258 Artikel
BenutzerIn
[Homepage] [default_avatar]
@sid burn: Ich greife wie in http://www.thomas-fahle.de/pub/perl/Net/File_Listi... auf FTP zu.

Insbesondere die erwähnten Net::FTP-Methoden ls und mdtm werde ich mir anschauen, das sieht ja sehr vielversprechend aus.
pq
 2007-08-17 20:05
#98351 #98351
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
RalphFFM+2007-08-17 16:55:09--
Ja, diese magische Umgebungsvariable zu setzen hilft. Aber wie bist Du denn darauf gekommen?

also ich habe mir http://search.cpan.org/src/GAAS/libwww-perl-5.808/...
angeguckt, weil ich dachte, die tests laufen ja alle durch.
dann hab ich gesehn, da steht am anfang "total 68", bei mir ist aber 'de' eingestellt,
somit liefert ls -l "insgesamt ..." statt "total ..."
bei dir vermutlich auch.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
<< >> 8 Einträge, 1 Seite



View all threads created 2007-08-17 18:36.