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