From gooly at gmx.at Sat Nov 4 03:54:20 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Sat, 4 Nov 2006 12:54:20 +0100 Subject: [Vienna-pm] lesen und schreiben in Einem In-Reply-To: <45466390.4050104@goldfisch.at> References: <200610260942.56863.gooly@gmx.at> <45466390.4050104@goldfisch.at> Message-ID: <200611041254.21342.gooly@gmx.at> Herzlichen Dank erst einmal allen 'Teilnehmern' > > `cat $0>>$0_Erg.txt` ich hatte in etwa an so etwas gedacht, aber mit perls open-Pipe, um $0 in $0_Erg.txt zu 'pipen'. Bin da aber beim print stecken geblieben und wusste nicht weiter. Danke jedenfalls und sch?nes Wochenende Calli From mailinglisten at renee-baecker.de Thu Nov 9 23:47:14 2006 From: mailinglisten at renee-baecker.de (ReneeB) Date: Fri, 10 Nov 2006 08:47:14 +0100 Subject: [Vienna-pm] =?iso-8859-15?q?=5BFwd=3A_Plat=5Fforms_Contest_-_Team?= =?iso-8859-15?q?s_f=FCr_Perl_gesucht=5D?= Message-ID: <45542E82.7060001@renee-baecker.de> Hallo Wien, da ich jetzt erst auf der Mailingliste von euch angemeldet bin, hier mal eine Mail, die Alvar mal wegen dem Plat_forms-Wettbewerb rumgeschickt hat: Hallo Perl-Mongers! wie vielleicht der eine oder andere schon mitbekommen hat, ist unter http://www.plat-forms.org/ ein Web-Programmier-Wettbewerb ausgeschrieben. Dieser soll wissenschaftlich beobachtet und analysiert werden, um die Entwicklungsumgebungen/Sprachen zu finden, die besonders gut f?r die professionelle Web-Entwicklung geeignet sind. Nachdem anf?nglich nur PHP, .NET, Java, Python und Ruby dabei waren, ist Perl nun aufgrund einiger Beschwerden offiziell dabei. Pro Sprache werden drei Teams ? drei Personen ausgew?hlt, die innerhalb von 30 Stunden die gleiche Aufgabe m?glichst elegant, performant usw. l?sen sollen. Die ganze Sache findet am 25. und 26. Januar in N?rnberg bei der "Open Source meets Business" Konferenz statt. Im Vorfeld muss nur eine kurze Anmeldung ausgef?llt werden (bis ende November), die Arbeit h?lt sich unter dem Strich also in Grenzen ;-) Dabei m?ssen pro Sprache mindestens drei hochkar?tige Teams zusammen kommen; von denen werden dann die drei "besten" oder "hochkar?tigsten" ausgew?hlt. Und es w?re doch sehr schade, wenn wir aus der Perl-Gemeinschaft nicht mindestens drei ordentliche Teams finden w?rden ... Also, liebe Perl-Mongers, stellt Teams zusammen! Im Idealfall Teams von Entwicklern, die schon zusammen professionelle Web-Anwendungen entwickelt haben und gut miteinander harmonieren ;-) Zur Koordinierung etc. -- damit wir mindestens drei gute Teams zusammenbekommen usw. -- habe ich eine Mailingliste eingerichtet: https://lists.odem.org/mailman/listinfo/perl-platform F?r die IRC-Freaks gibt es auf irc.perl.org auch den Channel #plat_forms Ciao Alvar Freude, via Ren?e B?cker -- --- 9. Deutscher Perl-Workshop 2007 - 21.-23. Februar 2007 http://www.perl-workshop.de/de/2007/ From hjp-vienna-pm-list at hjp.at Sat Nov 18 07:00:31 2006 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Sat, 18 Nov 2006 16:00:31 +0100 Subject: [Vienna-pm] Readonly considered harmful Message-ID: <20061118150031.GC1742@hjp.at> Es gibt ein Modul namens Readonly, das eine "bessere" Methode f?r Konstanten zur Verf?gung stellen soll als der ?bliche Subroutine-ohne-Parameter-Trick. Damian empfiehlt es auch w?rmstens in PBP, also habe ich es auch verwendet (ich bin ja ein autorit?tsgl?ubiger Mensch). Doch ohweh, der Perl-Debugger nimmt dies ?bel: Irgendwann (n?mlich ab einer scheinbar v?llig unabh?ngigen Stelle in einem Source-File, das gar nicht use Readonly verwendet) weigert er sich pl?tzlich, den Source-Code der Zeile, die man als n?chstes ausf?hren m?chte, auszugeben: Nur mehr der Filename und die Zeilennummer sind ihm zu entlocken. Daneben in einem zweiten Fenster den Source-Code zu ?ffnen um zu sehen, wo man gerade umgeht, ist irgendwie von m??iger Eleganz. hp -- _ | Peter J. Holzer | Schlagfertigkeit ist das, was einem |_|_) | Sysadmin WSR | auf dem Nachhauseweg einf?llt. | | | hjp at hjp.at | -- Lars 'Cebewee' Noschinski in dasr. __/ | http://www.hjp.at/ | -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 189 bytes Desc: Digital signature Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20061118/13faa67e/attachment.bin From hjp-vienna-pm-list at hjp.at Sat Nov 18 07:08:39 2006 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Sat, 18 Nov 2006 16:08:39 +0100 Subject: [Vienna-pm] =?iso-8859-1?q?=DCberraschungen_mit_Filedescriptoren?= Message-ID: <20061118150839.GD1742@hjp.at> Man kann ja bekanntlich seit einiger Zeit in Skalare schreiben, indem man eine Referenz auf sie ?ffnet. open($fh, '>', \$s1); $fh->print("foo"); hat im Wesentlichen den gleichen Effekt wie $s1 = "foo". Wer jetzt aber glaubt, dass open($fh, '>:raw', \$s2); $fh->print("gazonk"); den gleichen Effekt habe, wie $s2 = "gazonk", und nur daf?r sorge, dass nicht irgendwie Bytes zu UTF-8-Sequenzen werden, ist schief gewickelt. Das ?ffnet n?mlich ein File namens "SCALAR(0x8164e58)" (oder so ?hnlich), und schreibt "gazonk" hinein. Irgendwo ist da wohl was nicht ganz so orthogonal, wie man erwarten k?nnte. hp -- _ | Peter J. Holzer | Schlagfertigkeit ist das, was einem |_|_) | Sysadmin WSR | auf dem Nachhauseweg einf?llt. | | | hjp at hjp.at | -- Lars 'Cebewee' Noschinski in dasr. __/ | http://www.hjp.at/ | -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 189 bytes Desc: Digital signature Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20061118/edf14b9b/attachment.bin From hjp-vienna-pm-list at hjp.at Sun Nov 19 02:25:44 2006 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Sun, 19 Nov 2006 11:25:44 +0100 Subject: [Vienna-pm] Readonly considered harmful In-Reply-To: <20061118150031.GC1742@hjp.at> References: <20061118150031.GC1742@hjp.at> Message-ID: <20061119102544.GF1742@hjp.at> On 2006-11-18 16:00:31 +0100, Peter J. Holzer wrote: > Es gibt ein Modul namens Readonly, [...] > Doch ohweh, der Perl-Debugger nimmt dies ?bel: Das 11. Gebot: Du sollst Dich nicht t?uschen. Es scheint doch nichts mit Readonly zu tun zu haben, sondern vielmehr mit der Perl-Version: Das seltsame Verhalten des Debuggers tritt bei perl 5.8.8 auf, nicht aber bei perl 5.8.4, v?llig unabh?ngig von der Verwendung von Readonly. Irgendwie scheint meine Testreihe da nicht ganz vollst?ndig gewesen zu sein. hp -- _ | Peter J. Holzer | Schlagfertigkeit ist das, was einem |_|_) | Sysadmin WSR | auf dem Nachhauseweg einf?llt. | | | hjp at hjp.at | -- Lars 'Cebewee' Noschinski in dasr. __/ | http://www.hjp.at/ | -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 189 bytes Desc: Digital signature Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20061119/1478d234/attachment.bin From gooly at gmx.at Tue Nov 21 05:27:32 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue, 21 Nov 2006 14:27:32 +0100 Subject: [Vienna-pm] https-Seiten Message-ID: <200611211427.32686.gooly@gmx.at> Hallo, welches Modul benutzt man f?r einen https zugriff mit Perl, jemand mit einer Empfehlung? Es gibt IO::All::HTTPS, das verursacht zuerst beim Installieren Fehler (ohne 'force install' ka Musi) und bei der Verwendung ebenso. Der erste Fehler-Teil schaut im Orginal so aus: field 'response' field 'content' field 'put_content' und erzeugt: String found where operator expected at /usr/lib/perl5/site_perl/5.8.3/IO/All/LWP.pm line 12, near "field 'response'" (Do you need to predeclare field?) String found where operator expected at /usr/lib/perl5/site_perl/5.8.3/IO/All/LWP.pm line 13, near "field 'content'" (Do you need to predeclare field?) String found where operator expected at /usr/lib/perl5/site_perl/5.8.3/IO/All/LWP.pm line 14, near "field 'put_content'" (Do you need to predeclare field?) Mein Programm macht in Zeile 11 nur was empfohlen: $content < io('https://example.org'); # GET webpage Can't find a class for method 'https' at ./myPrg.pl line 11 Aber auch die Alternative LWP::Protocol::https::SocksChain macht Probleme. Das ben?tigt andere Module u.a. Net::SSLeay, aber (das deswegen neu upgedatete) cpan bircht mit mehr als 1000 Fehlerzeilen ab?? Danke schon mal, Calli From mjy at geizhals.at Tue Nov 21 05:32:25 2006 From: mjy at geizhals.at (Marinos Yannikos) Date: Tue, 21 Nov 2006 14:32:25 +0100 Subject: [Vienna-pm] https-Seiten In-Reply-To: <200611211427.32686.gooly@gmx.at> References: <200611211427.32686.gooly@gmx.at> Message-ID: <4562FFE9.2@geizhals.at> Carl A. Schreiber schrieb: > welches Modul benutzt man f?r einen https zugriff mit Perl, > jemand mit einer Empfehlung? > Das normale LWP funktioniert bei uns problemlos mit https:// ... (Debian mit libcrypt-ssleay-perl) > Aber auch die Alternative LWP::Protocol::https::SocksChain macht > Probleme. > Das ben?tigt andere Module u.a. Net::SSLeay, aber (das deswegen neu > upgedatete) cpan bircht mit mehr als 1000 Fehlerzeilen ab?? Wenn du eine schnelle L?sung ben?tigst - einfach wget mit SSL-Unterst?tzung compilieren und aufrufen. MfG, -mjy From kh at dartbase.com Tue Nov 21 05:36:34 2006 From: kh at dartbase.com (Karlheinz) Date: Tue, 21 Nov 2006 14:36:34 +0100 Subject: [Vienna-pm] https-Seiten In-Reply-To: <200611211427.32686.gooly@gmx.at> References: <200611211427.32686.gooly@gmx.at> Message-ID: <456300E2.6090809@dartbase.com> Carl A. Schreiber wrote: > Das ben?tigt andere Module u.a. Net::SSLeay, aber (das deswegen neu > upgedatete) cpan bircht mit mehr als 1000 Fehlerzeilen ab?? hm... der "normale" weg ist LWP, das https kann wenn Net::SSLeay installiert ist. wenn das nicht zu installieren geht sollte man wohl den fehler an dieser stelle suchen. lg kh > > Danke schon mal, > Calli > > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm From gooly at gmx.at Tue Nov 21 06:15:14 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue, 21 Nov 2006 15:15:14 +0100 Subject: [Vienna-pm] https-Seiten In-Reply-To: <4562FFE9.2@geizhals.at> References: <200611211427.32686.gooly@gmx.at> <4562FFE9.2@geizhals.at> Message-ID: <200611211515.15007.gooly@gmx.at> Danke Marinos, hab's also mit LWP versucht, das wollte dann Crypt::SSLeay haben, aber auch die Installatin dessen mit cpan ging in die Hose: Es wollte gegen openssl gelinkt werden, das es selbst es bei mir nicht auf /usr/local fand. Bei mir (SuSi 9.1) ist's in /usr/bin/, hab ich halt am promt alles was irgendwie vielleicht doch sinnvoll seien k?nnte eingetragen, alles ohne Erfolg: /usr /usr/bin /usr/bin/openssl Ich vermute es ist ein Verzeichnis-Problem, ich weiss aber nicht wo, welches usw. Jemand mit einer Idee? Danke schon mal, calli Am Dienstag, 21. November 2006 14:32 schrieb Marinos Yannikos: > Carl A. Schreiber schrieb: > > welches Modul benutzt man f?r einen https zugriff mit Perl, > > jemand mit einer Empfehlung? > > Das normale LWP funktioniert bei uns problemlos mit https:// ... > (Debian mit libcrypt-ssleay-perl) > > > Aber auch die Alternative LWP::Protocol::https::SocksChain macht > > Probleme. > > Das ben?tigt andere Module u.a. Net::SSLeay, aber (das deswegen neu > > upgedatete) cpan bircht mit mehr als 1000 Fehlerzeilen ab?? > > Wenn du eine schnelle L?sung ben?tigst - einfach wget mit > SSL-Unterst?tzung compilieren und aufrufen. > > MfG, > -mjy From gooly at gmx.at Tue Nov 21 06:24:45 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue, 21 Nov 2006 15:24:45 +0100 Subject: [Vienna-pm] https-Seiten In-Reply-To: <200611211515.15007.gooly@gmx.at> References: <200611211427.32686.gooly@gmx.at> <4562FFE9.2@geizhals.at> <200611211515.15007.gooly@gmx.at> Message-ID: <200611211524.45289.gooly@gmx.at> Ich denke, ich hab's, das Problem waren (wieder mal - 2 Jahre ist's her) die Devel. Packages (von openssl), Yast installiert die selbstst?ndig, cpan schreibt compiler Fehler... Naja, Danke jedenfalls, Calli Am Dienstag, 21. November 2006 15:15 schrieb Carl A. Schreiber: > Danke Marinos, > > hab's also mit LWP versucht, das wollte dann > Crypt::SSLeay haben, aber auch die Installatin dessen mit cpan ging > in die Hose: Es wollte gegen openssl gelinkt werden, das es selbst es > bei mir nicht auf /usr/local fand. Bei mir (SuSi 9.1) ist's in > /usr/bin/, hab ich halt am promt alles was irgendwie vielleicht doch > sinnvoll seien k?nnte eingetragen, alles ohne Erfolg: > /usr > /usr/bin > /usr/bin/openssl > > Ich vermute es ist ein Verzeichnis-Problem, ich weiss aber nicht wo, > welches usw. > Jemand mit einer Idee? > > Danke schon mal, > calli > > Am Dienstag, 21. November 2006 14:32 schrieb Marinos Yannikos: > > Carl A. Schreiber schrieb: > > > welches Modul benutzt man f?r einen https zugriff mit Perl, > > > jemand mit einer Empfehlung? > > > > Das normale LWP funktioniert bei uns problemlos mit https:// ... > > (Debian mit libcrypt-ssleay-perl) > > > > > Aber auch die Alternative LWP::Protocol::https::SocksChain macht > > > Probleme. > > > Das ben?tigt andere Module u.a. Net::SSLeay, aber (das deswegen > > > neu upgedatete) cpan bircht mit mehr als 1000 Fehlerzeilen ab?? > > > > Wenn du eine schnelle L?sung ben?tigst - einfach wget mit > > SSL-Unterst?tzung compilieren und aufrufen. > > > > MfG, > > -mjy > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm From gooly at gmx.at Tue Nov 21 07:39:16 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue, 21 Nov 2006 16:39:16 +0100 Subject: [Vienna-pm] 2. Frage :) Message-ID: <200611211639.16619.gooly@gmx.at> So, die https-Login-Page laden: $ua->request(..), ausf?llen: $form->value(... wegschicken: my $ret = $ua->request($form->click) klappt einmal :), aber dann 'verliere' ich die Session, wie mach ich das jetzt mit Perl? Danke schon mal, der code ist dann unten.. Calli Jetzt krieg ich aber das zur?ck: Ich denke, das ist jetzt ein re-direct, aber meine naiver Ansatz klappt nicht, wobei $rett->base => https://myaccount.bank.com/clx/index.php redirekt ist: url=index.php?part=menu&justloggedin=true zusammengesetzt w?re das: https://myaccount.bank.com/clx/index.php?part=menu&justloggedin=true (Diese Addresse (in $newurl) steht auch aif dem Browser..) aber das geht gibt keine richtige Antwort: my $ub = LWP::UserAgent->new(); my $req2 = HTTP::Request->new( GET => $newurl ); my $res2 = $ub->request($req2) || die $!; if ($res2->is_success) { print $res2->content; } Die Antwort ist ein Session lost: Session lost
Click here to go back to the login page From gooly at gmx.at Tue Nov 21 08:21:53 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue, 21 Nov 2006 17:21:53 +0100 Subject: [Vienna-pm] 2. Frage :) In-Reply-To: <4563244C.8050305@geizhals.at> References: <200611211639.16619.gooly@gmx.at> <4563244C.8050305@geizhals.at> Message-ID: <200611211721.53971.gooly@gmx.at> Am Dienstag, 21. November 2006 17:07 schrieb Marinos Yannikos: > Carl A. Schreiber schrieb: > > Jetzt krieg ich aber das zur?ck: > > > http-equiv="Refresh"content="0;url=index.php?part=menu&justloggedin > >=true"> > > > > > > Ich denke, das ist jetzt ein re-direct, aber meine naiver Ansatz > > klappt > > Schau dir mal die HTTP-Header an. Vermutlich wird da ein > Session-Cookie gesetzt. > > my $cookie_jar = HTTP::Cookies->new; > $ua->cookie_jar($cookie_jar); > > und vor jedem request(): > > $cookie_jar->add_cookie_header($req); > > (m??te so stimmen, aber so etwas habe ich zuletzt vor 2+ Jahren > angefa?t ...) Danke, das k?nnt's sein, aber das versuch ich dann morgen, jetzt geht's erstmal langsam in die Oper :) Calli From mjy at geizhals.at Tue Nov 21 08:07:40 2006 From: mjy at geizhals.at (Marinos Yannikos) Date: Tue, 21 Nov 2006 17:07:40 +0100 Subject: [Vienna-pm] 2. Frage :) In-Reply-To: <200611211639.16619.gooly@gmx.at> References: <200611211639.16619.gooly@gmx.at> Message-ID: <4563244C.8050305@geizhals.at> Carl A. Schreiber schrieb: > Jetzt krieg ich aber das zur?ck: > http-equiv="Refresh"content="0;url=index.php?part=menu&justloggedin=true"> > > > > Ich denke, das ist jetzt ein re-direct, aber meine naiver Ansatz klappt Schau dir mal die HTTP-Header an. Vermutlich wird da ein Session-Cookie gesetzt. my $cookie_jar = HTTP::Cookies->new; $ua->cookie_jar($cookie_jar); und vor jedem request(): $cookie_jar->add_cookie_header($req); (m??te so stimmen, aber so etwas habe ich zuletzt vor 2+ Jahren angefa?t ...) MfG, -mjy From kh at dartbase.com Tue Nov 21 08:15:36 2006 From: kh at dartbase.com (Karlheinz) Date: Tue, 21 Nov 2006 17:15:36 +0100 Subject: [Vienna-pm] 2. Frage :) In-Reply-To: <200611211639.16619.gooly@gmx.at> References: <200611211639.16619.gooly@gmx.at> Message-ID: <45632628.8030705@dartbase.com> Carl A. Schreiber wrote: > die https-Login-Page > laden: $ua->request(..), [..] > my $ub = LWP::UserAgent->new(); der neue useragent hat nicht die cookies des ersten, daran scheitert's vermutlich... aber besser als sowas muehevoll selbst zusammenzubasteln ist WWW::Mechanize http://search.cpan.org/~petdance/WWW-Mechanize-1.20/lib/WWW/Mechanize.pm das kuemmert sich recht gut um solche "kleinigkeiten" ;-) lg kh From gooly at gmx.at Wed Nov 22 02:59:13 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Wed, 22 Nov 2006 11:59:13 +0100 Subject: [Vienna-pm] 2. Frage :) In-Reply-To: <45632628.8030705@dartbase.com> References: <200611211639.16619.gooly@gmx.at> <45632628.8030705@dartbase.com> Message-ID: <200611221159.13657.gooly@gmx.at> Am Dienstag, 21. November 2006 17:15 schrieb Karlheinz: > Carl A. Schreiber wrote: > > die https-Login-Page > > laden: $ua->request(..), > > [..] > > > my $ub = LWP::UserAgent->new(); > > der neue useragent hat nicht die cookies des ersten, daran > scheitert's vermutlich... > > aber besser als sowas muehevoll selbst zusammenzubasteln ist > WWW::Mechanize > > http://search.cpan.org/~petdance/WWW-Mechanize-1.20/lib/WWW/Mechanize >.pm > > das kuemmert sich recht gut um solche "kleinigkeiten" ;-) Danke, aber auch damit krieg ich's nicht hin :( nach deren Anleitung komme ich soweit wie gestern: Nach: Ich krieg die Seite, die mir sagt ich bin eingeloggt: Session lost
Click here to go back to the login page From patrick at pantheon.at Wed Nov 22 03:10:25 2006 From: patrick at pantheon.at (Patrick Meidl) Date: Wed, 22 Nov 2006 11:10:25 +0000 Subject: [Vienna-pm] 2. Frage :) In-Reply-To: <200611221159.13657.gooly@gmx.at> References: <200611211639.16619.gooly@gmx.at> <45632628.8030705@dartbase.com> <200611221159.13657.gooly@gmx.at> Message-ID: <20061122111025.GB4811@lektor.homelinux.net> On Wed, Nov 22 2006, Carl A. Schreiber wrote: > Am Dienstag, 21. November 2006 17:15 schrieb Karlheinz: > > Carl A. Schreiber wrote: > > > die https-Login-Page > > > laden: $ua->request(..), > > > > [..] > > > > > my $ub = LWP::UserAgent->new(); > > > > der neue useragent hat nicht die cookies des ersten, daran > > scheitert's vermutlich... > > > > aber besser als sowas muehevoll selbst zusammenzubasteln ist > > WWW::Mechanize > > > > http://search.cpan.org/~petdance/WWW-Mechanize-1.20/lib/WWW/Mechanize > >.pm > > > > das kuemmert sich recht gut um solche "kleinigkeiten" ;-) > > Danke, aber auch damit krieg ich's nicht hin :( ich kenne einige seiten, wo ein teil des session managements in javascript implementiert ist. hab aber selbst keine erfahrung mit LWP, weiss also nicht, wie es damit umgeht. aber in diese richtung koenntest du mal forschen. HTH patrick -- Patrick Meidl ........................... +44-7770-526961 (mobile) 20 Guest Road ........................... +44-1223-514058 (home) Cambridge CB1 2AL ....................... patrick at pantheon.at England, UK ............................. http://pmeidl.homelinux.net/ -- From gooly at gmx.at Wed Nov 22 03:13:26 2006 From: gooly at gmx.at (Carl A. Schreiber) Date: Wed, 22 Nov 2006 12:13:26 +0100 Subject: [Vienna-pm] 2. Frage :) [ uups, war falsche Taste.. ] In-Reply-To: <45632628.8030705@dartbase.com> References: <200611211639.16619.gooly@gmx.at> <45632628.8030705@dartbase.com> Message-ID: <200611221213.26113.gooly@gmx.at> Am Dienstag, 21. November 2006 17:15 schrieb Karlheinz: > Carl A. Schreiber wrote: > > die https-Login-Page > > laden: $ua->request(..), > > [..] > > > my $ub = LWP::UserAgent->new(); > > der neue useragent hat nicht die cookies des ersten, daran > scheitert's vermutlich... > > aber besser als sowas muehevoll selbst zusammenzubasteln ist > WWW::Mechanize > > http://search.cpan.org/~petdance/WWW-Mechanize-1.20/lib/WWW/Mechanize >.pm > > das kuemmert sich recht gut um solche "kleinigkeiten" ;-) Danke, aber auch damit krieg ich's nicht hin :( nach deren Anleitung komme ich soweit wie gestern: Nach (das ist wirklich einfach!): use WWW::Mechanize; my $m = WWW::Mechanize->new( agent => 'Linux Konqueror' ); $m->get( $url ); $r = $m->success or die "Can't get this url $url\n\n"; # login-Seite ist jetzt da.. my $r = $m->submit_form( fields => { $uFld => $uNme, $pFld => $pPwd } ); die "Couldn't submit form" unless $r->is_success; # Loginseite richtig ausgef?llt, abgeschickt und beantwortet.. # Dies ist die Seite, die mir sagt ich bin eingeloggt: # erhalten durch print $r->content; Und dann gehts nicht weiter, entweder wieder "Session lost": $m->follow_link( n => 3 ); $m->get( $m->base.'?part=menu&justloggedin=true' ); #das ist von denen.. und dass WWW::Mechanize den Refresh-Link selber bastelt ist mir mit allem, was da auf der pod-Seite aufgeboten wird nicht gelungen: ->uri(), ->uri, >-links, ->links(), ... jeweils f?r $r und f?r $m. Kann mir jemand einen kleinen Schubs geben wie ich in Perl diesen Refresh 'ausl?se' bzw diesen Hi, ich verwende so gut wie nie printf, will es aber diesmal aufgrund mehrerer Zahlenformatierungen anwenden. Mein Problem ist, dass das warnings pragma mir zwar rausschreibt, wenn das Format nicht passt, printf aber nicht drauf reagiert. 13:35:36 ~# perl -e 'use warnings; eval {$a='X';printf "%02d", $a or warn "inside\n"}; warn "outside\n" if $@; print " done\n";' Argument "X" isn't numeric in printf at -e line 1. 00 done Gibt es eine Moeglichkeit, solche Format-Fehler abzufangen ohne im Vorhinein alle Variablen zu ueberpruefen? lg Oliver ---------------------------------------------------------------- Oesterreichische Lotterien Ges.m.b.H. A-1038 Wien, Rennweg 44 Online Production Systems - Unix Systemmangement Tel.: +43 (1) 790 70-5541 Fax: +43 (1) 790 72-5541 http://www.lotterien.at http://www.win2day.at ---------------------------------------------------------------- -------------- next part -------------- --- Laden Sie das E-Mail Wurzelzertifikat der Oesterreichischen Lotterien zur Vervollst?ndigung des Validierungspfades. Download the E-Mail root certificate of the Austrian Lotteries for completing the validation-path. http://www.lotterien.at/gaming/mailcert.html -------------- next part -------------- A non-text attachment was scrubbed... Name: smime.p7s Type: application/x-pkcs7-signature Size: 3643 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20061124/6fa72b8f/attachment.bin From domm at cpan.org Fri Nov 24 13:11:28 2006 From: domm at cpan.org (Thomas Klausner) Date: Fri, 24 Nov 2006 22:11:28 +0100 Subject: [Vienna-pm] YAPC::Europe 2007 Website launched Message-ID: <20061124211128.GM23438@domm2.zsi.at> Vienna.pm is pleased to announce the website for YAPC::Europe 2007: http://vienna.yapceurope.org/ If you're to lazy to follow the link, here are some of the most important bits: YAPC::Europe 2007 will happen from 29th to 31st August 2007 in Vienna, Austria. Larry Wall will be there, and we are currently looking for funding to invite Damian Conway, Audrey Tang and Mark Jason Dominus (if you want to sponsor, drop us an email). Attendance will cost 100 Euros (but see the website for other tariffs), there will be a Attendees Dinner, conference t-shirts, orange mohawks, and we'll try hard to even squeeze in a bit of Perl :-) We will sent out an official Call for Papers at the beginning of 2007, but feel free to already register at the website and submit your talk proposals. If you have any questions, or maybe want to sponsor YAPC::Europe 2007, send an e-mail to vienna2007 at yapceurope.org! On behalf of Vienna.pm & the YAPC::Europe 2007 organisers, hoping to see all of you in Vienna, Thomas Klausner -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at cpan.org Fri Nov 24 14:43:56 2006 From: domm at cpan.org (Thomas Klausner) Date: Fri, 24 Nov 2006 23:43:56 +0100 Subject: [Vienna-pm] printf format fehler abfangen In-Reply-To: <11FC899FAE8B8748AB9E591B145477440157904B@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B145477440157904B@EXCHCLU01.office.lottery.co.at> Message-ID: <20061124224355.GO23438@domm2.zsi.at> Hi! On Fri, Nov 24, 2006 at 01:42:21PM +0100, Baier Oliver wrote: > Gibt es eine Moeglichkeit, solche Format-Fehler abzufangen > ohne im Vorhinein alle Variablen zu ueberpruefen? Du koenntest diese eine warnings-category (oder auch alle..) als FATAL deklarieren, dann wird statt print STDERR ein die gemacht, das du dann mit eval abfangen koenntest. Allerdings weiss ich grad nicht auswendig, wie man warnings zu FATAL macht, und in welcher warnings-kategorie diese printf-warning ist... -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From spaceman at foo.at Sat Nov 25 01:41:30 2006 From: spaceman at foo.at (Stefan Weiss) Date: Sat, 25 Nov 2006 10:41:30 +0100 Subject: [Vienna-pm] printf format fehler abfangen In-Reply-To: <20061124224355.GO23438@domm2.zsi.at> References: <11FC899FAE8B8748AB9E591B145477440157904B@EXCHCLU01.office.lottery.co.at> <20061124224355.GO23438@domm2.zsi.at> Message-ID: <45680FCA.8010804@foo.at> On 24/11/06 23:43, Thomas Klausner wrote: > Du koenntest diese eine warnings-category (oder auch alle..) als FATAL > deklarieren, dann wird statt print STDERR ein die gemacht, das du dann > mit eval abfangen koenntest. > > Allerdings weiss ich grad nicht auswendig, wie man warnings zu FATAL > macht, und in welcher warnings-kategorie diese printf-warning ist... eval { use warnings FATAL => "numeric"; $a='X'; printf "%02d", $a; }; if ($@) { chomp $@; warn "outside (caught '$@')\n"; } print "done\n"; cheers, stefan From hjp-vienna-pm-list at hjp.at Sat Nov 25 12:26:58 2006 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Sat, 25 Nov 2006 21:26:58 +0100 Subject: [Vienna-pm] Job-Angebot: WSR sucht Softwareentwickler/in Message-ID: <20061125202658.GA12609@hjp.at> [Ich muss mal ein wenig spammen ...] Das Wirtschafts- und Sozialwissenschaftliche Rechenzentrum (WSR) wurde 1971 gegr?ndet und hat heute einen weitreichenden Aufgabenbereich im Umfeld der Wirtschafts- und Sozialwissenschaftlichen Forschung in ?sterreich. In seiner Funktion als Datenhost der Volkswirtschaftlichen Datenbank des ?sterreichischen Institutes f?r Wirtschaftsforschung (WIFO) bietet das WSR seinen Kunden Zugang zu nationalen und internationalen Wirtschaftsdaten. Als Rechenzentrum des ?sterreichischen Instituts f?r Wirtschaftsforschung betreut das WSR eine umfangreiche EDV-Infrastruktur und bietet zudem als Internet-Host Leistungen im Bereich Web-Design und Web-Hosting an. Zur Verst?rkung unseres Teams suchen wir eine/n Softwareentwickler/in f?r Design und Programmierung einer datenbankbasierten Web-Anwendung. Ihr Aufgabengebiet: * Mitarbeit an Design und Programmierung eines Datenportals f?r volkswirtschaftliche Daten Folgende Kenntnisse und Qualifikationen sind f?r die Mitarbeit im Entwicklerteam erforderlich: * Erfahrung im Bereich der Softwareentwicklung * Fundiertes Verst?ndnis relationaler Datenmodelle * Erfahrung in der Perl-Programmierung * Verarbeitung von XML * JavaScript-, CSS- und HTML-Erfahrung * Kenntnisse der Betriebssysteme UNIX / LINUX * Gute Kommunikations- und Teamf?higkeit * Java-Kenntnisse von Vorteil Sie werden ein Team von zwei erfahrenen SW-Entwicklern bei der Arbeit an einem interessanten Projekt unterst?tzen. Wir bieten Ihnen ein bis 30. April 2008 befristetes freies Dienstverh?ltnis im Umfang von 20 bis 25 Wochenstunden. Die Stelle ist ab sofort zu besetzen. Bitte richten Sie weitere Anfragen sowie Ihre Bewerbungsunterlagen per eMail an: WSR - Wirtschafts- und Sozialwissenschaftliches Rechenzentrum Arsenal Objekt 20 Postfach 63 A - 1103 Wien zu Handen Frau Brigitte Hofer oder telefonisch unter +43 1 795 81 - 40 -- _ | Peter J. Holzer | I know I'd be respectful of a pirate |_|_) | Sysadmin WSR | with an emu on his shoulder. | | | hjp at hjp.at | __/ | http://www.hjp.at/ | -- Sam in "Freefall" -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 189 bytes Desc: Digital signature Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20061125/1cc99575/attachment.bin