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

[thread]14954[/thread]

Net::FTP Serverausgaben in variable speichern...

Leser: 22

Articles: hide open all | hide show old branches

+11 replies
lxuser

2010-04-19 11:19

User since
2010-04-19
10 Artikel
BenutzerIn

moin moin
ich in zur zeit dabei mir n ftp programm zu schreiben und hab nu das problem das ich halt gerne ausgaben vom server also erfolgzeiches login usw weiterverwenden möchte und auf meiner tk oberfläche anzeigen wies halt zu nem ftp programm gehört :P
wie mach ich das nun das ich die ausgaben vom net::ftp modul die leider nur auf dem terminal landen in einer variable speichern kann?

danke schonmal im vorraus

lxuser
- +10 replies
- renee
  
  2010-04-19 11:39
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Zeig mal welchen Code Du hast und welche Ausgaben Du in Variablen haben möchtest...
  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/
  - +9 replies
  - lxuser
    
    2010-04-19 11:46
    User since
    2010-04-19
    10 Artikel
    BenutzerIn
    
    ausgaben halt sowas wie:
    Net::FTP=GLOB(0x8d53280)<<< 220 Welcome to ftp.CesNET.CZ service.
    Net::FTP=GLOB(0x8d53280)>>> USER anonymous
    Net::FTP=GLOB(0x8d53280)<<< 331 Please specify the password.
    Net::FTP=GLOB(0x8d53280)>>> PASS ....
    Net::FTP=GLOB(0x8d53280)<<< 230 Login successful.
    nur ohne das "Net::FTP=GLOB(0x8d53280)" zeug
    
    code hab ich bis jez nur das hier zumindest an code das hier wichtig is:
    
    Code: (dl )
    
    1 2 3 4 5
    
    $ftp=Net::FTP->new($host, Debug=>1, Hash=>1); unless (defined($ftp)) { print "verbindung zu $host fehlgeschlagen\n"; return 0; }
    
    hab versucht mir die daten aus der $ftp variable zu holen aber da is nur dieses Net::FTP=GLOB(0x8d53280) drinne
    - +4 replies
    - GwenDragon
      
      2010-04-19 11:54
      
      User since
      2005-01-17
      14607 Artikel
      Admin1
      
      Du willst die Debugmessages lesen?
      Dann musst du STDERR in eine Filehandle umleiten und dann auslesen.
      
      Oder in eine Variable:
      
      Code (perl): (dl )
      
      1 2 3
      
      my $variable; close STDERR; open (STDERR, '>', \$variable) or die("Can't open STDERR: $!");
      
      Last edited: 2010-04-19 12:01:28 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +3 replies
      - lxuser
        
        2010-04-20 06:13
        
        User since
        2010-04-19
        10 Artikel
        BenutzerIn
        
        hi ich hab es mal versucht....dein code bewirkt ganix....scheint als wenn die STDERR leer wäre hier noch der code wie ich das verwendet hab:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
        
        sub verbinden { $host = $host_ip_entry->get; $ftp=Net::FTP->new($host, Debug=>1, Hash=>1); unless (defined($ftp)) { print "verbindung zu $host fehlgeschlagen\n"; return 0; } $benutzername = $username_entry->get; $passwort = $passwort_entry->get; $ftp->login ($benutzername, $passwort); unless (defined($ftp)) { print "login zu $host fehlgeschlagen\n"; return 0; } my $variable; close STDERR; open (STDERR, '>', \$variable) or die("Can't open STDERR: $!"); $ausgabe_listbox->insert('end', $variable); $ausgabe_listbox -> update; }
        
        +2 replies
        
        GwenDragon
        
        2010-04-20 08:42
        
        User since
        2005-01-17
        14607 Artikel
        Admin1
        
        Erst STDERR umleiten und dann die ganzen FTP-Kommandos ausführen.
        Dann sollte es gehen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        lxuser
        
        2010-04-22 09:03
        
        User since
        2010-04-19
        10 Artikel
        BenutzerIn
        
        thx das geht :)
    - +4 replies
    - renee
      
      2010-04-19 12:01
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Das wäre eine Möglichkeit, wenn Du STDERR nicht umleiten willst...
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      my $debug = ""; *Net::FTP::debug_print = sub { my ($cmd,$out,$txt) = @_; $debug .= $txt; }; my $ftp = Net::FTP->new("domain.tld", Debug => 1); $ftp->login( "user", "password" ); print $debug; __END__ Net::FTP(2.75) Exporter(5.58) Net::Cmd(2.26) IO::Socket::INET(1.31) IO::Socket(1.31) IO::Handle(1.28) 220 (vsFTPd 2.0.5) user user 331 Please specify the password. PASS password 230 Login successful.
      
      Last edited: 2010-06-03 10:21:32 +0200 (CEST)
      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/
      - +3 replies
      - lxuser
        
        2010-04-20 06:19
        
        User since
        2010-04-19
        10 Artikel
        BenutzerIn
        
        ö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
        2. kannst du mir die zeile erklären ? mangels verständnis kann ich die nämlich nich formatieren
        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
        Last edited: 2010-04-20 06:54:47 +0200 (CEST)
        
        +2 replies
        
        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 )
        
        1 2 3 4 5 6 7
        
        #!/usr/bin/perl #... code ... sub mytest { print "hallo"; }
        
        könnte man also auch schreiben
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        #!/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/
        
        Gast wer
        
        2010-06-03 11:23
        
        Sollte da nicht bei "use warnings;" eine Redefined-Warnung auftauchen?
        
        Und
        
        Code (perl): (dl )
        
        1 2
        
        sub Net::FTP::debug_print { my ($cmd,$out,$txt) = @_; $debug .= $txt; };
        
        sollte doch das selbe machen, oder?
        Last edited: 2010-06-03 11:35:45 +0200 (CEST)

View all threads created 2010-04-19 11:19.