Net::FTP Serverausgaben in variable speichern... - #136271 (Netzwerkprogrammierung und Netzwerke mit Perl)

renee

2010-04-20 08:19

User since
2003-08-04
14371 Artikel
ModeratorIn

2010-04-20T04:19:42 lxuser
öh komisch das hab ich erst versucht dann gings nich und dann nomma iwie anders jez gehts XD thx :)
hab nur noch paar fragen unzwar
1. wo hast du die infos her für die zeile
Code: (dl )
*Net::FTP::debug_print = sub { my ($cmd,$out,$txt) = @_; $debug .= $txt; }; 
selbst im original manual war davon nix zu sehn

Net::FTP erbt von Net::Cmd. Die Original-Subroutine ist in Net::Cmd zu finden.

2010-04-20T04:19:42 lxuser
2. kannst du mir die zeile erklären ? mangels verständnis kann ich die nämlich nich formatieren

*Net::FTP::debug_print ist ein Typeglob. In einem Typeglob können verschiedene Sachen gespeichert werden. So werden auch Subroutinen und "normale" Variablen in Typeglobs gespeichert.

statt

Code (perl): (dl )

#!/usr/bin/perl

#... code ...

sub mytest {
    print "hallo";
}

könnte man also auch schreiben

Code (perl): (dl )

#!/usr/bin/perl

#... code ...

*mytest = sub {
    print "hallo";
}

Damit wäre die Subroutine aber im "main" Namensraum. Da wir aber in Net::FTP etwas ändern wollen, müssen wir den kompletten "Pfad" zu der Subroutine angeben. Also *Net::FTP::debug_print.

Wenn etwas Eigenwerbung erlaubt ist: In $foo gab es ab Ausgabe 7 ein mehrteiliges Typeglob-Tutorial.

2010-04-20T04:19:42 lxuser
3. warum seh ich die daten in der $debug variable jetzt NUR auf der tk oberfläche? wenn ich normal print $debug; mach wird ganix ausgegeben

Um das zu beantworten müsste ich Deinen Code kennen.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/