undefined value as a HASH reference - problem (Allgemeines zu Perl)

[thread]13334[/thread]

undefined value as a HASH reference - problem

Leser: 24

Articles: hide open all | hide show old branches

+8 replies

Mindfoo

2009-04-03 22:16

User since
2009-04-03
10 Artikel
BenutzerIn
[default_avatar]

Hallo, Ich hab ein kleines Problem mit einem Script :/

Kurze erklärung was es überhaupt macht:

Ich möchte auf einen jabberserver connecten, das passwort was ich bei diesem login brauche muss ich vorher von einer website scrapen... Das funktioniert auch, aber ich kann die variable im connect nicht nutzen, bekomme immer diesen fehler raus:
Can't use an undefined value as a HASH reference at /usr/local/share/perl/5.10.0/XML/Stream.pm line 1165.

der code:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use Net::XMPP;

sub getxmpp {
    my $mech = WWW::Mechanize->new( cookie_jar => {} );
    $mech->agent_alias( 'Windows IE 6' );
    $mech->add_header('Content-Type' => 'application/x-www-form-urlencoded; charset=UTF-8' );
    $mech->add_header('X-Requested-With' => 'XMLHttpRequest' );
    my ( $self, $event ) = @_;
    my $nick = shift;

    my $loginpost = $mech->post(
        'http://www.quakelive.com/user/login',
        {
            u => 'email@domain.com',
            p => 'meinpass',
            r => '0',
        }
    );
    $mech->get("http://www.quakelive.com/user/load");
    my $site = $mech->content();
    if($site =~/".+XAID":"(.+)","STATUS/){
        return $1;
    } else {
        print "fail";
    }
}

sub xmppconnect {
        my $connection = Net::XMPP::Client->new();
        my $xmpp = getxmpp();
        $connection->Connect( hostname => 'xmpp.quakelive.com') or die "Cannot connect ($!)\n";
        my @result = $connection->AuthSend( "username" => 'qlstats', "password" => $xmpp, "resource" => 'quakelive');
        if ($result[0] ne "ok") {
                die "Ident/Auth with server failed: $result[0] - $result[1]\n";
        }

#       $connection->PresenceSend();

        my $message = Net::XMPP::Message->new();
        $message->SetMessage(
                "to"           => 'Mindfoo\@xmpp.quakelive.com',
                "type"         => "chat",
                "body"         => "testmsg from script");
        $connection->Send($message) or die "Cant send msg!\n";
        sleep(2);

        $connection->Disconnect();
}

xmppconnect();

Hat jemand nen Tipp?

+6 replies

format_c

2009-04-04 10:00

User since
2003-08-04
1706 Artikel
HausmeisterIn

Pruef doch erst mal ob dir die Funktion getxmpp() ueberhaupt einen Wert zurueck gibt.

--A.

Effizente Linuxshell

+5 replies

Mindfoo

2009-04-04 12:16

User since
2009-04-03
10 Artikel
BenutzerIn
[default_avatar]

2009-04-04T08:00:05 format_c
Pruef doch erst mal ob dir die Funktion getxmpp() ueberhaupt einen Wert zurueck gibt.

--A.

funktioniert problemlos... print $xmpp gibt mir den passwort-hash aus... deswegen bin ich ja so verwirrt, $xmpp ist definitiv definiert...

+4 replies

nepos

2009-04-04 14:42

User since
2005-08-17
1420 Artikel
BenutzerIn

Naja, dann schau doch mal in das Modul, in dem der Fehler gemeldet wird und schau dir an, was an der entsprechenden Stelle steht...

+3 replies

Mindfoo

2009-04-04 15:12

User since
2009-04-03
10 Artikel
BenutzerIn
[default_avatar]

2009-04-04T12:42:38 nepos
Naja, dann schau doch mal in das Modul, in dem der Fehler gemeldet wird und schau dir an, was an der entsprechenden Stelle steht...

mein script funktioniert wenn ich anstatt einer variablen einen festen wert eintrage, z.B 'testpass'. Der Connect klappt aber ich bekomm dann natürlich nen not authorized error... :(

+2 replies

Mindfoo

2009-04-04 20:34

User since
2009-04-03
10 Artikel
BenutzerIn
[default_avatar]

hab gelöst:

Code (perl): (dl )

sub getxmpp {
    my $mech = WWW::Mechanize->new( cookie_jar => {} );
    $mech->agent_alias( 'Windows IE 6' );
    $mech->add_header('Content-Type' => 'application/x-www-form-urlencoded; charset=UTF-8' );
    $mech->add_header('X-Requested-With' => 'XMLHttpRequest' );
    my ( $self, $event ) = @_;
    my $nick = shift;

    my $loginpost = $mech->post(
        'http://www.quakelive.com/user/login',
        {
            u => 'user@mail.com',
            p => 'passwort',
            r => '0',
        }
    );
    $mech->get("http://www.quakelive.com/user/load");
    my $site = $mech->content();
    if($site =~/USERNAME":"(.+)","XAID":"(.+)","STATUS/){
        push(@xmppdata,("$1","$2"));
    } else {
        print "Fail!\n$site";
        exit;
    }
}

sub xmppconnect {
        use constant USER => $xmppdata[0];
        use constant PASS => $xmppdata[1];
        my $connection = Net::XMPP::Client->new();
        $connection->Connect( hostname => 'xmpp.quakelive.com') or die "Cannot connect ($!)\n";
        my @result = $connection->AuthSend( "username" => USER, "password" => PASS, "ressource" => 'quakelive');
        if (!defined($result[0])) {
                print "Authed with XMPP server as user $xmppdata[0] with password $xmppdata[1]\n";
        } else {
                die "Ident/Auth with server failed: $result[0] - $result[1]\n";
        }
        $connection->PresenceSend();
        my $message = Net::XMPP::Message->new();
        $message->SetMessage(
                "to"           => 'Mindfoo\@xmpp.quakelive.com',
                "type"         => "chat",
                "body"         => "testmsg from script");
        $connection->Send($message) or die "Cant send msg!\n";
        sleep(1);

        $connection->Disconnect();
}

Linuxer

2009-04-04 20:47

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Ich war mal so frei und hab' nen Diff der beiden Subroutinen erstellt, damit es etwas klarer wird, was Du geändert hast.

Code: (dl )

diff -u ?.1
--- a.1 2009-04-04 20:45:21.415888190 +0200
+++ b.1 2009-04-04 20:46:01.200703520 +0200
@@ -9,16 +9,17 @@
     my $loginpost = $mech->post(
         'http://www.quakelive.com/user/login',
         {
-            u => 'email@domain.com',
-            p => 'meinpass',
+            u => 'user@mail.com',
+            p => 'passwort',
             r => '0',
         }
     );
     $mech->get("http://www.quakelive.com/user/load");
     my $site = $mech->content();
-    if($site =~/".+XAID":"(.+)","STATUS/){
-        return $1;
+    if($site =~/USERNAME":"(.+)","XAID":"(.+)","STATUS/){
+        push(@xmppdata,("$1","$2"));
     } else {
-        print "fail";
+        print "Fail!\n$site";
+        exit;
     }
 }

Code: (dl )

 diff -u ?.2
--- a.2 2009-04-04 20:45:33.828027839 +0200
+++ b.2 2009-04-04 20:47:03.097072730 +0200
@@ -1,21 +1,22 @@
 sub xmppconnect {
+        use constant USER => $xmppdata[0];
+        use constant PASS => $xmppdata[1];
         my $connection = Net::XMPP::Client->new();
-        my $xmpp = getxmpp();
         $connection->Connect( hostname => 'xmpp.quakelive.com') or die "Cannot connect ($!)\n";
-        my @result = $connection->AuthSend( "username" => 'qlstats', "password" => $xmpp, "resource" => 'quakelive');
-        if ($result[0] ne "ok") {
+        my @result = $connection->AuthSend( "username" => USER, "password" => PASS, "ressource" => 'quakelive');
+        if (!defined($result[0])) {
+                print "Authed with XMPP server as user $xmppdata[0] with password $xmppdata[1]\n";
+        } else {
                 die "Ident/Auth with server failed: $result[0] - $result[1]\n";
         }
-
-#       $connection->PresenceSend();
-
+        $connection->PresenceSend();
         my $message = Net::XMPP::Message->new();
         $message->SetMessage(
                 "to"           => 'Mindfoo\@xmpp.quakelive.com',
                 "type"         => "chat",
                 "body"         => "testmsg from script");
         $connection->Send($message) or die "Cant send msg!\n";
-        sleep(2);
+        sleep(1);
 
         $connection->Disconnect();
 }

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

Gast Gast

2009-04-04 10:36

Ohne die Funktion zu kennen,
vielleicht liegt's ja nur an den ' in der Zeile 45
"to" => 'Mindfoo\@xmpp.quakelive.com',
probier' doch mal
"to" => "Mindfoo\@xmpp.quakelive.com",
oder
"to" => 'Mindfoo@xmpp.quakelive.com',

Viel Erfolg!
Gast.

View all threads created 2009-04-03 22:16.