Net::FTP kleine frage (Allgemeines zu Perl)

Mathias

2006-04-08 21:27

User since
2006-03-16
36 Artikel
BenutzerIn
[default_avatar]

Ich schreib zur zeit aus übungs zwecken einen kleinen ftp clienten in Perl/tk, allerdings habe ich da ein kleines problem und zwar weiß ich nicht wie ich an die liste der dateien auf dem server komme.
Ich hab bei cpan ma gesucht da finde ich nur

dir ( [ DIR ] )

Get a directory listing of DIR, or the current directory in long format.
In an array context, returns a list of lines returned from the server. In a scalar context, returns a reference to a list.

aber ich versteh nicht wie ich das jetzt in ne array bekomme.

Vielen dank schon mal im vorraus

gruss mathias

greets =)

Relais

2006-04-08 22:04

User since
2003-08-06
2254 Artikel
ModeratorIn

[quote=Mathias,08.04.2006, 19:27]In an array context, returns a list of lines returned from the server.[/quote]
Weißt Du, was ein Array ist? Weißt Du was ein Array-Kontext ist?
Kennst Du perlintro schon?

Code: (dl )

my @verzeichnisinhalt = dir();

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming

Mathias

2006-04-08 22:09

User since
2006-03-16
36 Artikel
BenutzerIn
[default_avatar]

ja
nein
nein

aber danke jetzte weiß ich es, ich bin halt noch nicht so lange dabei :(

greets =)

Relais

2006-04-08 22:58

User since
2003-08-06
2254 Artikel
ModeratorIn

Alle Fragen schon beantwortet? Das ging jetzt aber schnell!

Bei neuen Stolpersteinen einfach wieder fragen!

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming

Mathias

2006-04-09 17:34

User since
2006-03-16
36 Artikel
BenutzerIn
[default_avatar]

hehe ok

Danke :)

greets =)

lichtkind

2006-04-09 18:06

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

würdest du den quellcode veröffentlichen? vielleicht wär das was auch für unser wiki zum demonstrieren.

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

Mathias

2006-04-10 04:46

User since
2006-03-16
36 Artikel
BenutzerIn
[default_avatar]

Ja kann ich machen hab den quellcode mal auf
http://bloodscream.bl.funpic.de/tkftp.txt geladen.
Aber wie gesagt ich bin noch anfänger :)

greets =)

lichtkind

2006-04-10 04:56

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

jeder war mal anfänger, und ist es in vielem anderen ständig, nur lass dir raten mehr leerzeilen einzustreuen(zwischen die subs) auch vielleicht am anfang zwischen use und den variablen init, das macht den quellcode meist lesbarer.\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

Mathias

2006-04-10 04:59

User since
2006-03-16
36 Artikel
BenutzerIn
[default_avatar]

ok werde ich mir zu herzen nehmen

greets =)

Strat

2006-04-10 15:28

User since
2003-08-04
5246 Artikel
ModeratorIn

ein paar sachen sind mir aufgefallen:
1. ein paar leerzeichen helfen, einen gedankengang vom anderen zu trennen (schrieb eh schon lichtkind)

2. die gueltigkeitsbereiche von my-Variablen immer so klein wie moeglich halten; das spart eine Menge Zeit, weil man vorher nicht ueberpruefen muss, ob man sich vielleicht eine uebergeordnete Variable mit selben Namen veraendert; @content und @server verwendest du ja nur in den subroutinen, also diese Variablen besser in den subroutinen mit my deklarieren.

3. anstelle von

Code: (dl )

  @inhalt =();
  @inhalt = <$verz/*.*>;
  for(@inhalt){
    $list->insert('end',$_);
  }

koenntest du kuerzer und lesbarer schreiben:

Code: (dl )

1
2
3

  # leerzeile
  my @inhalt = <$verz/*.*>;
  $list->insert('end', @inhalt);

wobei <...> manchmal probleme mit leerzeichen in dateinamen hat; deshalb arbeite ich lieber mit opendir/readdir/closedir:

Code: (dl )

opendir(my $DIR, $verz) or die "Error: couldn't read dir '$verz': $!\n";
my @inhalt = sort
    grep { not /^\.\.?$/ } # . und .. ueberspringen
    readdir($DIR);
closedir($DIR);
$list->insert('end', @inhalt);

sonst gefaellt's mir gut\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/