From Oliver.Baier at lotterien.at Tue May 3 01:14:40 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Tue May 3 03:01:34 2005 Subject: [Vienna-pm] CGI - DocType-Problem bei Mozilla Message-ID: <427732F0.8050708@lotterien.at> Hi, ich habe eine CGI-Output-Tabelle, die zentriert auf der Seite steht. Das Problem ist, dass ueber die CGI-Header-Definition print header( -type => 'text/html' ); folgender Header generiert wird der bewirkt, dass aus dem sogar explizit definiertenn vertical-align:middle; ein vertical-align:top; wird. Wenn man die Seite lokal speichert und den DOCTYPE loescht, ist die Darstellung korrekt. Hatte jemand von euch auch schon das Problem und weiss, welche Parameter man bei "print header" setzen muss, um das zu verhindern? mfg Oliver From mjy at geizhals.at Tue May 3 03:05:50 2005 From: mjy at geizhals.at (Marinos Yannikos) Date: Tue May 3 03:06:00 2005 Subject: [Vienna-pm] CGI - DocType-Problem bei Mozilla In-Reply-To: <427732F0.8050708@lotterien.at> References: <427732F0.8050708@lotterien.at> Message-ID: <42774CFE.7050905@geizhals.at> Baier Oliver wrote: > Hatte jemand von euch auch schon das Problem und weiss, welche Parameter > man bei "print header" setzen muss, um das zu verhindern? Gar keine, daf?r ist start_html() zust?ndig, das implizit aufgerufen wird. Dort kannst du z.B. mit -dtd eine andere DTD setzen (man CGI). MfG, -mjy From Oliver.Baier at lotterien.at Tue May 3 03:40:35 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Tue May 3 03:40:45 2005 Subject: AW: [Vienna-pm] CGI - DocType-Problem bei Mozilla Message-ID: <42775523.4090602@lotterien.at> > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org] > Im Auftrag von Marinos Yannikos > Gesendet: Dienstag, 03. Mai 2005 12:06 > > > Hatte jemand von euch auch schon das Problem und weiss, welche > > Parameter man bei "print header" setzen muss, um das zu verhindern? > > Gar keine, daf?r ist start_html() zust?ndig, das implizit aufgerufen > wird. Dort kannst du z.B. mit -dtd eine andere DTD setzen (man CGI). Habe herausgefunden, dass die Ursache dafuer "XHTML 1.0" ist. Gibt man zB. statt "-//W3C//DTD XHTML 1.0 Transitional//EN" "-//W3C//DTD HTML 4.0 Transitional//EN" an, ist die Anzeige korrekt. mfg Oliver From wilhelm.nagy at umweltbundesamt.at Wed May 4 03:07:51 2005 From: wilhelm.nagy at umweltbundesamt.at (Nagy Wilhelm) Date: Wed May 4 03:08:06 2005 Subject: [Vienna-pm] Perl 6 Message-ID: <72BF39602187F24A9F9538B8BAE2993E0620D2@PCMAIL1.umweltbundesamt.at> Hallo Leute, bei mir ist ein evaluator am werkln. Jetzt kommt die Frage nach Perl 6 natuerlich auf. Hat jemans schnell parat: Max. 1 A4-Seite a) was ist neu in perl6 (m?glichst in deutsch) b) wie geht's weiter mit perl 5 Thx & Lg \^/ili From domm at zsi.at Wed May 4 03:50:40 2005 From: domm at zsi.at (Thomas Klausner) Date: Wed May 4 03:43:04 2005 Subject: [Vienna-pm] Perl 6 In-Reply-To: <72BF39602187F24A9F9538B8BAE2993E0620D2@PCMAIL1.umweltbundesamt.at> References: <72BF39602187F24A9F9538B8BAE2993E0620D2@PCMAIL1.umweltbundesamt.at> Message-ID: <20050504105039.GB18438@domm2.zsi.at> Hi! On Wed, May 04, 2005 at 12:07:51PM +0200, Nagy Wilhelm wrote: > Hat jemans schnell parat: > Max. 1 A4-Seite > > a) was ist neu in perl6 (m?glichst in deutsch) nope, haett ich auch gerne (zB als Vortrag am Workshop, hint hint) Allison Randal hat einen recht guten (englishen) Talk, kann aber grad keine Slides finden (bin auch sehr in eile) > b) wie geht's weiter mit perl 5 Wenn PONIE so wird, wie es werden soll, wirds perl5 weiter (unbegrenzt) geben. Aber da kann Nicolas Clark ev mehr dazu sagen, weil er dank Fotango ja dran arbeitet... -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From nick at ccl4.org Wed May 4 04:04:26 2005 From: nick at ccl4.org (Nicholas Clark) Date: Wed May 4 04:04:36 2005 Subject: [Vienna-pm] Perl 6 In-Reply-To: <20050504105039.GB18438@domm2.zsi.at> References: <72BF39602187F24A9F9538B8BAE2993E0620D2@PCMAIL1.umweltbundesamt.at> <20050504105039.GB18438@domm2.zsi.at> Message-ID: <20050504110426.GY94420@plum.flirble.org> On Wed, May 04, 2005 at 12:50:40PM +0200, Thomas Klausner wrote: > Hi! > > On Wed, May 04, 2005 at 12:07:51PM +0200, Nagy Wilhelm wrote: > > > > Hat jemans schnell parat: > > Max. 1 A4-Seite Wie klein durfen wir schreiben? > > a) was ist neu in perl6 (m?glichst in deutsch) > > nope, haett ich auch gerne (zB als Vortrag am Workshop, hint hint) > > Allison Randal hat einen recht guten (englishen) Talk, kann aber grad keine > Slides finden (bin auch sehr in eile) > > > b) wie geht's weiter mit perl 5 > > Wenn PONIE so wird, wie es werden soll, wirds perl5 weiter (unbegrenzt) > geben. Aber da kann Nicolas Clark ev mehr dazu sagen, weil er dank Fotango > ja dran arbeitet... Der Bergriff ist da? Ponie Quellcode kompatibel mit Perl 5 ist. Damit kann man XS Code von CPAN und Perl 6 zusammen nutzen. (Aber vielleicht werde est nicht perfekt sein, aber ich hoffe da? fast alle CPAN Module arbeiten werden) Auch arbeit Rafael Garcia-Suarez auf Perl 5.10. Nicholas Clark From armin at xos.net Wed May 4 04:46:37 2005 From: armin at xos.net (Armin Obersteiner) Date: Wed May 4 04:46:54 2005 Subject: [Vienna-pm] Perl 6 In-Reply-To: <72BF39602187F24A9F9538B8BAE2993E0620D2@PCMAIL1.umweltbundesamt.at> References: <72BF39602187F24A9F9538B8BAE2993E0620D2@PCMAIL1.umweltbundesamt.at> Message-ID: <20050504114637.GA24774@elch.elche> hi! > bei mir ist ein evaluator am werkln. Jetzt kommt die Frage nach Perl 6 natuerlich auf. > > Hat jemans schnell parat: > Max. 1 A4-Seite > > a) was ist neu in perl6 (m?glichst in deutsch) http://www.whoi.edu/committees/WHIT/Archive/Perl6andParrot.htm das sind eher diffs und englisch. wie aktuell? Ciao, Armin -- armin@xos.net pgp public key on request CU From steven at accognoscere.org Wed May 4 13:51:42 2005 From: steven at accognoscere.org (Steven Philip Schubiger) Date: Wed May 4 13:53:54 2005 Subject: [Vienna-pm] Perl 6 In-Reply-To: <20050504105039.GB18438@domm2.zsi.at> Message-ID: <200505042051.j44Kpgv7022239@accognoscere.homeunix.org> On 4 May, Thomas Klausner wrote: : On Wed, May 04, 2005 at 12:07:51PM +0200, Nagy Wilhelm wrote: : :> a) was ist neu in perl6 (m?glichst in deutsch) : : nope, haett ich auch gerne (zB als Vortrag am Workshop, hint hint) Excerpt: ------ Forwarded message ------ From: Steven Philip Schubiger Subject: Vortr?ge: Ausblick? Date: Sat, 30 Apr 2005 16:02:32 +0200 (CEST) To: lugs@lugs.ch Reply-To: Steven Philip Schubiger Hinsichtlich Vortr?ge k?nnt' ich l?ngerfristig (nach GV) noch folgendes aus dem ?rmel sch?tteln: ... 4) (advanced) Perl 5 <-> Perl 6: Essential differences ... F?r ein Talk Proposal bis zur Workshop Deadline jedwelche Hoffnungen zu hegen, ist mehr als nur unangemessen und blau?ugig. Steven From gooly at gmx.at Tue May 10 01:27:20 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue, 10 May 2005 10:27:20 +0200 Subject: [Vienna-pm] =?iso-8859-15?q?Socket_-_Buffergr=F6=DFe?= Message-ID: <200505101027.21065.gooly@gmx.at> Hallo, eine Frage mit Zweifeln ob das ?berhaupt geht. Es geht um Socketverbindungen: - Kann man herauskriegen wie gro? der Zwischenspeicher (= gesendet, aber noch nicht abgeholt) unter der Annahme, der Empf?nger ist langsamer ist als der Sender also seine Sachen nicht 'abholt'? - Wo wird den zwischengespeichert auf dem Sender pc oder dem Empf?nger pc? - K?nnte man die Gr??e diese Zwischenspeichers definieren (ver?ndern)? - K?nnte man ?ber den (das?) Handle Infos wie die Gr??e zB erhalten (wie)? Man k?nnte das ?ber einen Line_Count_Send und Line_Count_Receive machen, und das st?ndig hin- und her schicken, nicht besonders toll. Hat jeman so etwas schon mal gemacht..? Danke schon mal f?r Hinweise, auch wo man eventuell weitersuchen k?nnte. Calli From wolfgang.laun at alcatel.at Tue May 10 06:57:00 2005 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Tue, 10 May 2005 15:57:00 +0200 Subject: =?iso-8859-15?Q?RE=3A_=5BVienna-pm=5D_Socket_-_Buffergr=F6=DFe?= Message-ID: Das sollte mit getsockopt und setsockopt m?glich sein. (perlfunc enth?lt keine Details; dazu w?ren die lokalen man pages zu konsultieren.) Die Strategie, die Buffer zu vergr??ern, ist aber m.E. fragw?rdig: Der Tag wird kommen, wo auch der vergr??erte Buffer nicht ausreicht. Wenn es f?r den Sender nicht tolerierbar ist, beim Senden zu blockieren, wird der Empf?nger schneller gemacht werden m?ssen. (Warum ist er langsamer?) Zu ?berlegen ist ein weiterer Prozess auf der Emf?ngerseite, der puffert und den langsamen eigentlichen Emp?nger angepasst bedient. ?berlegungen wie "Line_Count_Send" lassen mich aber vermuten, dass der Sender ?nderbar ist; dann kann ja auch vor dem Senden gepuffert werden (zumindest bis dort der Speicher ausgeht). "Advanced Perl Programming" von S. Srinivasan enth?lt ein Package Msg.pm, das zeigt, wie man das macht. (Den Code kann man von www.oreilly.com herunterladen.) Ich habe das Package seit Jahren praktisch ohne Probleme im Einsatz. -W -----Original Message----- From: Carl A. Schreiber To: vienna-pm at pm.org Sent: 5/10/2005 10:27 AM Subject: [Vienna-pm] Socket - Buffergr??e Hallo, eine Frage mit Zweifeln ob das ?berhaupt geht. Es geht um Socketverbindungen: - Kann man herauskriegen wie gro? der Zwischenspeicher (= gesendet, aber noch nicht abgeholt) unter der Annahme, der Empf?nger ist langsamer ist als der Sender also seine Sachen nicht 'abholt'? - Wo wird den zwischengespeichert auf dem Sender pc oder dem Empf?nger pc? - K?nnte man die Gr??e diese Zwischenspeichers definieren (ver?ndern)? - K?nnte man ?ber den (das?) Handle Infos wie die Gr??e zB erhalten (wie)? Man k?nnte das ?ber einen Line_Count_Send und Line_Count_Receive machen, und das st?ndig hin- und her schicken, nicht besonders toll. Hat jeman so etwas schon mal gemacht..? Danke schon mal f?r Hinweise, auch wo man eventuell weitersuchen k?nnte. Calli _______________________________________________ Vienna-pm mailing list Vienna-pm at pm.org http://mail.pm.org/mailman/listinfo/vienna-pm From hjp-vienna-pm-list at hjp.at Tue May 10 13:53:18 2005 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Tue, 10 May 2005 22:53:18 +0200 Subject: [Vienna-pm] Socket - =?iso-8859-1?Q?Bu?= =?iso-8859-1?B?ZmZlcmdy9t9l?= In-Reply-To: <200505101027.21065.gooly@gmx.at> References: <200505101027.21065.gooly@gmx.at> Message-ID: <20050510205318.GA7351@teal.hjp.at> On 2005-05-10 10:27:20 +0200, Carl A. Schreiber wrote: > Es geht um Socketverbindungen: > - Kann man herauskriegen wie gro? der Zwischenspeicher (= gesendet, aber noch > nicht abgeholt) unter der Annahme, der Empf?nger ist langsamer ist als der > Sender also seine Sachen nicht 'abholt'? Prinzipiell nein. > - Wo wird den zwischengespeichert auf dem Sender pc oder dem Empf?nger pc? Beides. Und au?erdem noch auf allen Switches und Routern die dazwischenliegen. > - K?nnte man die Gr??e diese Zwischenspeichers definieren (ver?ndern)? Einzelne Parameter, die hier einflie?en, kann man (betriebssystemabh?ngig) ?ndern. Setsockopt wurde schon erw?hnt, au?erdem gibt es h?ufig globale Einstellungen (/proc/sys/net unter Linux). > Man k?nnte das ?ber einen Line_Count_Send und Line_Count_Receive machen, und > das st?ndig hin- und her schicken, nicht besonders toll. Wenn Du sichergehen willst, dass der andere bestimmte Daten empfangen hat, muss er eine Best?tigung zur?ckschicken, ja. Anders geht es nicht. hp -- _ | Peter J. Holzer | Weil wir die materielle Welt nicht so |_|_) | Sysadmin WSR | wahrnehmen, wie sie ist, sind Sachen wie | | | hjp at hjp.at | JPEG, MP3 usw. m?glich. __/ | http://www.hjp.at/ | -- Heiko Schlenker in drsm. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 189 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050510/d304581b/attachment.bin From glim at mycybernet.net Tue May 10 20:08:00 2005 From: glim at mycybernet.net (Gerard Lim) Date: Tue, 10 May 2005 23:08 -0400 Subject: [Vienna-pm] Yet Another Perl Conference final details Message-ID: Hi everyone... There have been some recent developments on the YAPC::NA front, and it has been suggested to us that a reminder might be helpful to some people, so here's a quick summary of the event. Summary ------- YAPC::NA 2005 (Yet Another Perl Conference, North America) in Toronto, Canada, Monday - Wednesday 27 - 29, June 2005 Home page: http://yapc.org/America/ Conference Location: http://89chestnut.com/ A facility of the University of Toronto Accommodations -------------- Normally registration information would come first, but accommodations are the bottleneck -- our main group reservation (at the conference hotel) expires at the end of the week, and as the conference approaches it will be extremely difficult to find a hotel anywhere in the city. Info on how to book at: http://yapc.org/America/accommodations-2005.shtml Registration ------------ Register now! :-) We are on track to break attendance records at YAPC::NA this year, and we could even sell out before the conference starts. The price for the full 3 days is USD$85. We keep it insanely low through many generous sponsorships and the all-volunteer organizational and speaking crews. Registration info: http://yapc.org/America/register-2005.shtml Direct registration link: http://donate.perlfoundation.org/index.pl?node=registrant%20info&conference_id=423 Conference Speaking Schedule ---------------------------- We've got an excellent selection of talks and speakers for Perl programmers of all levels, beginner through expert. We are fortunate enough to have presentations coming from some of the most recognizable names in Perl programming today, including Larry Wall, Chip Salzenberg, Dan Sugalski, Autrijus Tang and brian d foy. Summary -- http://yapc.org/America/schedule-2005/summary.html Day 1 -- http://yapc.org/America/schedule-2005/day1.html Day 2 -- http://yapc.org/America/schedule-2005/day2.html Day 3 -- http://yapc.org/America/schedule-2005/day3.html Lightning Talks --------------- These short (5 minutes each) talks, presented by the conference attendees, are a YAPC tradition. If you're interested please read more about them and sign up: http://www.justanotherperlhacker.org/lightning/ [ This message was sent by Gerard Lim on behalf of the YAPC::NA 2005 Conference organizing committee of the Toronto Perl Mongers. Thanks for your patience and support. ] From gooly at gmx.at Wed May 11 04:55:11 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Wed, 11 May 2005 13:55:11 +0200 Subject: [Vienna-pm] =?iso-8859-15?q?ein_klein_bi=DFchen_unser=F6se_Frage_?= =?iso-8859-15?q?=2E=2E?= Message-ID: <200505111355.11268.gooly@gmx.at> Hallo liebe Gemeinde, es gibt eine Web-seite, die über eine .jar-applet realtime Währungs-Kurse auf meinen Browser bringt. Wenn ich mir aber nun den Quelltext dieser Web-Seite (es stehen die Kurse drin) anschaue sehe ich die Zahlen nicht, es gibt sie nur "auf dem Browser". Nun würd ich gerne (auch wenn das der "Sender" eigentlich nicht beabsichtige, mir diese Kurse 'greppen' - geht das überhaupt, wenn ja wie. Wäre es möglich, dieses applet in einer anderen Umgebung laufenzulassen und das, was es an den Browser schickt umlenke in meinen 'Daten-Sammler'? (Übrigens diese Kurse werden am Tag danach zum Herunterladen eh frei angeboten, meine Unseriostät hält sich so durchaus in Grenzen :-) Danke schon mal Calli From spaceman at foo.at Wed May 11 05:53:54 2005 From: spaceman at foo.at (Stefan Weiss) Date: Wed, 11 May 2005 14:53:54 +0200 Subject: [Vienna-pm] ein klein =?ISO-8859-15?Q?bi=DFchen_unser=F6se?= =?ISO-8859-15?Q?_Frage_=2E=2E?= In-Reply-To: <200505111355.11268.gooly@gmx.at> References: <200505111355.11268.gooly@gmx.at> Message-ID: <42820062.3050205@foo.at> On 2005-05-11 13:55, Carl A. Schreiber wrote: > Wenn ich mir aber nun den Quelltext dieser Web-Seite (es stehen die Kurse > drin) anschaue sehe ich die Zahlen nicht, es gibt sie nur "auf dem Browser". > Nun würd ich gerne (auch wenn das der "Sender" eigentlich nicht beabsichtige, > mir diese Kurse 'greppen' - geht das überhaupt, wenn ja wie. > > Wäre es möglich, dieses applet in einer anderen Umgebung laufenzulassen und > das, was es an den Browser schickt umlenke in meinen 'Daten-Sammler'? Du gehst das viel zu kompliziert an. Wenn die betreffende Website dir die tagesaktuellen Kurse nicht geben will, dann such doch lieber eine andere Website, bevor du versuchst ihre Policy zu umgehen. Mir fällt auf die Schnelle jetzt nur oanda.com ein (die verwenden zumindest keine Applets), aber wenn du ein bisschen suchst, findest du sicher irgendwo eine Kursliste. Ausserdem ist es durchaus möglich, dass sich das Applet die Kurse dynamisch vom Server holt, dass sie also nirgends "drin stehen". Dann könntest du dich auch noch mit tcpdump o.ä. spielen, aber das hat noch weniger mit Perl zu tun als der Rest. cheers, stefan From gooly at gmx.at Wed May 11 06:18:40 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Wed, 11 May 2005 15:18:40 +0200 Subject: [Vienna-pm] ein klein =?iso-8859-15?q?bi=DFchen_unser=F6se_Frage?= .. In-Reply-To: <42820062.3050205@foo.at> References: <200505111355.11268.gooly@gmx.at> <42820062.3050205@foo.at> Message-ID: <200505111518.40380.gooly@gmx.at> Hallo, habe Inline::Java gefunden, bin am ausprobieren, Calli Am Mittwoch, 11. Mai 2005 14:53 schrieb Stefan Weiss: > On 2005-05-11 13:55, Carl A. Schreiber wrote: > > Wenn ich mir aber nun den Quelltext dieser Web-Seite (es stehen die Kurse > > drin) anschaue sehe ich die Zahlen nicht, es gibt sie nur "auf dem > > Browser". Nun würd ich gerne (auch wenn das der "Sender" eigentlich nicht > > beabsichtige, mir diese Kurse 'greppen' - geht das überhaupt, wenn ja > > wie. > > > > Wäre es möglich, dieses applet in einer anderen Umgebung laufenzulassen > > und das, was es an den Browser schickt umlenke in meinen 'Daten-Sammler'? > > Du gehst das viel zu kompliziert an. Wenn die betreffende Website dir > die tagesaktuellen Kurse nicht geben will, dann such doch lieber eine > andere Website, bevor du versuchst ihre Policy zu umgehen. > > Mir fällt auf die Schnelle jetzt nur oanda.com ein (die verwenden > zumindest keine Applets), aber wenn du ein bisschen suchst, findest du > sicher irgendwo eine Kursliste. > > Ausserdem ist es durchaus möglich, dass sich das Applet die Kurse > dynamisch vom Server holt, dass sie also nirgends "drin stehen". Dann > könntest du dich auch noch mit tcpdump o.ä. spielen, aber das hat noch > weniger mit Perl zu tun als der Rest. > > > cheers, > stefan From pilsl at goldfisch.at Wed May 11 07:49:22 2005 From: pilsl at goldfisch.at (peter pilsl) Date: Wed, 11 May 2005 16:49:22 +0200 Subject: [Vienna-pm] ein klein =?UTF-8?B?77+9cmFnZSAuLg==?= In-Reply-To: <200505111518.40380.gooly@gmx.at> References: <200505111355.11268.gooly@gmx.at> <42820062.3050205@foo.at> <200505111518.40380.gooly@gmx.at> Message-ID: <42821B72.2050200@goldfisch.at> Carl A. Schreiber wrote: > Hallo, > habe Inline::Java gefunden, bin am ausprobieren,Calli > Am Mittwoch, 11. Mai 2005 14:53 schrieb Stefan Weiss:> On 2005-05-11 13:55, Carl A. Schreiber wrote:> > Wenn ich mir aber nun den Quelltext dieser Web-Seite (es stehen die Kurse> > drin) anschaue sehe ich die Zahlen nicht, es gibt sie nur "auf dem> > Browser". Nun würd ich gerne (auch wenn das der "Sender" eigentlich nicht> > beabsichtige, mir diese Kurse 'greppen' - geht das überhaupt, wenn ja> > wie.> >> > Wäre es möglich, dieses applet in einer anderen Umgebung laufenzulassen> > und das, was es an den Browser schickt umlenke in meinen 'Daten-Sammler'?>> Du gehst das viel zu kompliziert an. Wenn die betreffende Website dir> die tagesaktuellen Kurse nicht geben will, dann such doch lieber eine> andere Website, bevor du versuchst ihre Policy zu umgehen.>> Mir fällt auf die Schnelle jetzt nur oanda.com ein (die verwenden> zumindest keine Applets), aber wenn du ein bisschen suchst, findest du> sicher irgendwo eine Kursliste.>> Ausserdem ist es durchaus möglich, dass sic h das Applet die Kurse> dynamisch vom Server holt, dass sie also nirgends "drin stehen". Dann> könntest du dich auch noch mit tcpdump o.ä. spielen, aber das hat noch> weniger mit Perl zu tun als der Rest.>>> cheers,> stefan_______________________________________________Vienna-pm mailing listVienna-pm at pm.orghttp://mail.pm.org/mailman/listinfo/vienna-pm > Lieber Carl, Lieber Stefan, Ich möchte hier ja nicht überpenibel erscheinen, aber könntet Ihr bitte gewisse Postingregeln einhalten wie Zeilenlänge/Zeilenumbruch, kein TOFU usw. Weil dann könnte man versuchen, den Thread zu verfolgen. So aber ist das zumindest auf meinem Reader ein einziger Buchstabensalat. vielen dank, lg peter -- mag. peter pilsl goldfisch.at IT-management tel +43 699 1 3574035 fae +43 699 4 3574035 pilsl at goldfisch.at From pilsl at goldfisch.at Wed May 11 07:52:15 2005 From: pilsl at goldfisch.at (peter pilsl) Date: Wed, 11 May 2005 16:52:15 +0200 Subject: [Vienna-pm] ein klein =?UTF-8?B?77+9cmFnZSAuLg==?= In-Reply-To: <42821B72.2050200@goldfisch.at> References: <200505111355.11268.gooly@gmx.at> <42820062.3050205@foo.at> <200505111518.40380.gooly@gmx.at> <42821B72.2050200@goldfisch.at> Message-ID: <42821C1F.9010907@goldfisch.at> ... ähhh ... sorry !! entweder die mailingliste haut alle zeilenumbrüche raus oder ich hab ein grosses problem hier ... mist. ich hab mein posting hier soeben auch ohne zeilenumbrüche bekommen. hat wer anderer das gleiche problem? lgp peter pilsl wrote: > > Carl A. Schreiber wrote:> Hallo,> habe Inline::Java gefunden, bin am ausprobieren,Calli> Am Mittwoch, 11. Mai 2005 14:53 schrieb Stefan Weiss:> On 2005-05-11 13:55, Carl A. Schreiber wrote:> > Wenn ich mir aber nun den Quelltext dieser Web-Seite (es stehen die Kurse> > drin) anschaue sehe ich die Zahlen nicht, es gibt sie nur "auf dem> > Browser". Nun würd ich gerne (auch wenn das der "Sender" eigentlich nicht> > beabsichtige, mir diese Kurse 'greppen' - geht das überhaupt, wenn ja> > wie.> >> > Wäre es möglich, dieses applet in einer anderen Umgebung laufenzulassen> > und das, was es an den Browser schickt umlenke in meinen 'Daten-Sammler'?>> Du gehst das viel zu kompliziert an. Wenn die betreffende Website dir> die tagesaktuellen Kurse nicht geben will, dann such doch lieber eine> andere Website, bevor du versuchst ihre Policy zu umgehen.>> Mir fällt auf die Schnelle jetzt nur oanda.com ein (die verwenden> zumindest keine Applets), aber wenn du ein bisschen suchst, f indest du> sicher irgendwo eine Kursliste.>> Ausserdem ist es durchaus möglich, dass sic > h das Applet die Kurse> dynamisch vom Server holt, dass sie also nirgends "drin stehen". Dann> könntest du dich auch noch mit tcpdump o.ä. spielen, aber das hat noch> weniger mit Perl zu tun als der Rest.>>> cheers,> stefan_______________________________________________Vienna-pm mailing listVienna-pm at pm.orghttp://mail.pm.org/mailman/listinfo/vienna-pm> > Lieber Carl, Lieber Stefan, > Ich möchte hier ja nicht überpenibel erscheinen, aber könntet Ihr bittegewisse Postingregeln einhalten wie Zeilenlänge/Zeilenumbruch, kein TOFUusw. > Weil dann könnte man versuchen, den Thread zu verfolgen. So aber ist daszumindest auf meinem Reader ein einziger Buchstabensalat. > vielen dank,lgpeter > > > -- mag. peter pilslgoldfisch.atIT-managementtel +43 699 1 3574035fae +43 699 4 3574035pilsl at goldfisch.at > _______________________________________________Vienna-pm mailing listVienna-pm at pm.orghttp://mail.pm.org/mailman/listinfo/vienna-pm > -- mag. peter pilsl goldfisch.at IT-management tel +43 699 1 3574035 fae +43 699 4 3574035 pilsl at goldfisch.at From michael.kroell at uibk.ac.at Wed May 11 08:05:05 2005 From: michael.kroell at uibk.ac.at (=?UTF-8?B?TWljaGFlbCBLcsO2bGw=?=) Date: Wed, 11 May 2005 17:05:05 +0200 Subject: [Vienna-pm] ein klein =?UTF-8?B?77+9cmFnZSAuLg==?= In-Reply-To: <42821C1F.9010907@goldfisch.at> References: <200505111355.11268.gooly@gmx.at> <42820062.3050205@foo.at> <200505111518.40380.gooly@gmx.at> <42821B72.2050200@goldfisch.at> <42821C1F.9010907@goldfisch.at> Message-ID: <42821F21.30006@uibk.ac.at> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 peter pilsl wrote: | ... ähhh ... sorry !! entweder die mailingliste haut alle | zeilenumbrüche raus oder ich hab ein grosses problem hier ... mist. | ich hab mein posting hier soeben auch ohne zeilenumbrüche bekommen. | hat wer anderer das gleiche problem? yep, vielleicht braucht mailman eine siesta... ;-) - --michael - -- 063A F25E B064 A98F A479 1690 78CD D023 5E2A 6688 http://zis.uibk.ac.at/.m/uibk.ac.at_pgp_pubkey.asc -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (MingW32) iD8DBQFCgh8geM3QI14qZogRAg5IAKDONYYkjA5g3zjm0JK7E4t0/jhkAgCfTeWp RxqxkJPNe2lneL+TAHnckT0= =XjRA -----END PGP SIGNATURE----- From hjp-vienna-pm-list at hjp.at Wed May 11 12:10:55 2005 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Wed, 11 May 2005 21:10:55 +0200 Subject: [Vienna-pm] ein klein ???rage .. In-Reply-To: <42821F21.30006@uibk.ac.at> References: <200505111355.11268.gooly@gmx.at> <42820062.3050205@foo.at> <200505111518.40380.gooly@gmx.at> <42821B72.2050200@goldfisch.at> <42821C1F.9010907@goldfisch.at> <42821F21.30006@uibk.ac.at> Message-ID: <20050511191054.GC7351@teal.hjp.at> On 2005-05-11 17:05:05 +0200, Michael Kröll wrote: > peter pilsl wrote: > | ... ähhh ... sorry !! entweder die mailingliste haut alle > | zeilenumbrüche raus oder ich hab ein grosses problem hier ... mist. > | ich hab mein posting hier soeben auch ohne zeilenumbrüche bekommen. > | hat wer anderer das gleiche problem? > > yep, vielleicht braucht mailman eine siesta... ;-) Bei mir schaut's ok aus. hp -- _ | Peter J. Holzer | Weil wir die materielle Welt nicht so |_|_) | Sysadmin WSR | wahrnehmen, wie sie ist, sind Sachen wie | | | hjp at hjp.at | JPEG, MP3 usw. möglich. __/ | http://www.hjp.at/ | -- Heiko Schlenker in drsm. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 189 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050511/14f6a300/attachment.bin From domm at zsi.at Sun May 15 12:18:47 2005 From: domm at zsi.at (Thomas Klausner) Date: Sun, 15 May 2005 21:18:47 +0200 Subject: [Vienna-pm] ein klein ???rage .. In-Reply-To: <42821C1F.9010907@goldfisch.at> References: <200505111355.11268.gooly@gmx.at> <42820062.3050205@foo.at> <200505111518.40380.gooly@gmx.at> <42821B72.2050200@goldfisch.at> <42821C1F.9010907@goldfisch.at> Message-ID: <20050515191847.GA19618@domm2.zsi.at> Hi! On Wed, May 11, 2005 at 04:52:15PM +0200, peter pilsl wrote: > > ... ??hhh ... sorry !! entweder die mailingliste haut alle zeilenumbr??che > raus oder ich hab ein grosses problem hier ... mist. Anscheinend gab es ein Problem mit mailman auf dem pm.org server. Ist jetzt aber (angeblich) behoben. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Sun May 15 12:18:47 2005 From: domm at zsi.at (Thomas Klausner) Date: Sun, 15 May 2005 21:18:47 +0200 Subject: [Vienna-pm] ein klein ???rage .. In-Reply-To: <42821C1F.9010907@goldfisch.at> References: <200505111355.11268.gooly@gmx.at> <42820062.3050205@foo.at> <200505111518.40380.gooly@gmx.at> <42821B72.2050200@goldfisch.at> <42821C1F.9010907@goldfisch.at> Message-ID: <20050515191847.GA19618@domm2.zsi.at> Hi! On Wed, May 11, 2005 at 04:52:15PM +0200, peter pilsl wrote: > > ... ??hhh ... sorry !! entweder die mailingliste haut alle zeilenumbr??che > raus oder ich hab ein grosses problem hier ... mist. Anscheinend gab es ein Problem mit mailman auf dem pm.org server. Ist jetzt aber (angeblich) behoben. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Fri May 20 01:56:51 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri, 20 May 2005 10:56:51 +0200 Subject: [Vienna-pm] Fwd: [ANNOUNCE] mod_perl 2.0.0 Message-ID: <20050520085651.GD6615@domm2.zsi.at> Hi! Bin zwar immer noch nicht zum ausprobieren gekommen, aber trotzdem: YEAH! ----- Forwarded message from "Philippe M. Chiasson" ----- Date: Fri, 20 May 2005 14:24:50 +0800 From: "Philippe M. Chiasson" To: announce at perl.apache.org Cc: modperl at perl.apache.org, dev at perl.apache.org Subject: [ANNOUNCE] mod_perl 2.0.0 The URL http://people.apache.org/~gozer/mp2/mod_perl-2.0.0.tar.gz has entered CPAN as file: $CPAN/authors/id/G/GO/GOZER/mod_perl-2.0.0.tar.gz size: 1440319 bytes md5: 99325d82e2c42361123f6a242e57a593 The package is also available from: http://apache.org/dist/perl/mod_perl-2.0.0.tar.gz http://apache.org/dist/perl/mod_perl-2.0.0.tar.gz.asc (pgp sig) Change since RC6: fix global anon_cnt double-initialization bug that was causing startup segfaults on OSX. [Gozer] fix the ap_install target in the top-level Makefile (used for static build) [Stas] Reintroduce a pure-Perl version of ModPerl::Util::unload_package() The problematic XS version is now called unload_package_xs() and not used by default [Gozer] More APR::Status wrappers: [Stas, Randy Kobes] - is_EOF - is_ECONNABORTED - is_ECONNRESET - is_TIMEUP make sure that the build picks up the include directories based on the apxs queries and only search the httpd source if $self->{MP_AP_PREFIX} was set. Earlier it was always picking the headers from the httpd source if it was available, which was resulting in the wrong headers if the installed httpd was different than the source that was found [Stas] introduce ModPerl::RegistryPrefork and ModPerl::PerlRunPrefork, which behave the same as ModPerl::Registry and ModPerl::PerlRun, respectively, but chdir to the script's directory like mod_cgi does. These two new handlers will refuse to load under threaded MPMs where chdir can't be used as it will affect all running threads [Stas] ModPerl::RegistryCooker::chdir_file_normal() now chdirs to the current script's directory or the specified directory as an argument, as it was planned in first place. Therefore switch ModPerl::Registry and ModPerl::PerlRun to us NOP for this method call. If chdir_file is mapped to chdir_file_normal(), then run() and convert_script_to_compiled_handler() now call chdir to the script's directory and at before returning go back to the server root. [Stas] prevent undef warnings in catfile() calls in Apache2::Build when called from the ModPerl-Registry tree [Stas] fix modperl_brigade_dump to use apr_file_printf() instead of fprintf(), which doesn't work everywhere [Stas] Fix a warning triggered by `ln` on Cygwin, when running perl Makefile.PL for a second time without previously running make clean. [Nick *** ] When compiling a static mod_perl and MP_AP_CONFIGURE="--with-apr=/some/path" argument is given, Apache will use the apr-config at the given path, but mod_perl was using the default at "srclib/apr/.libs". Fix that [Nick *** ] Show MP_APU_CONFIG as an argument to Makefile.PL in the Usage menu. [Nick *** ] Makefile.PL: fix the pre-rename mp2 install diagnostics code, to use the mp version of 1.999xx and not 1.999_xx, as the latter is unsuitable for numerical comparison, also fix the name of the reported conflicting directory [Stas]. add APR::Status::is_(EACCES|ENOENT), and use in ModPerl::RegistryCooker to return, as appropriate, Apache2::Const::(FORBIDDEN|NOT_FOUND), based on $@. Also remove a check in modperl_slurp_filename of src/modules/perl/modperl_util.c to enable $@ to be set when opening or reading a file fails. This fixes a bug on Win32, revealed in 404.t and redirect.t of the ModPerl-Registry tests, as reported by Steve Hay and Markus Wichitill [Stas, Randy Kobes] link Apache2::* and ModPerl::* to mod_perl.a and DynaLoader.a, but -lmod_perl and -lDynaLoader don't work, and we can't supply the full paths, because MakeMaker doesn't allow this. I workaround this by making a symlink to mod_perl.a (called libmod_perl.a) and copy DynaLoader.a to libDynaLoader.a (I don't create a symlink, because, when running make clean, the real DynaLoader.a may get deleted). The APR::* extensions are not affected, because in both cases we link them against aprext. Also other small fixes are added. [Nick *** ] ----- End forwarded message ----- -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Fri May 20 02:04:25 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri, 20 May 2005 11:04:25 +0200 Subject: [Vienna-pm] Stas Beckman Message-ID: <20050520090425.GE6615@domm2.zsi.at> Hi! Oh, weil wir grad bei mod_perl sind. Stas Beckman macht auf seiner Weltreise http://stason.org/schedule.html kurz in Wien vorbei. Leider nur wirklich kurz, naemlich am 12.7. 20:00 bis am 13.7. Vormittag. Da er bei mir uebernachten wird, werden wir auf jeden Fall ein wenig am Abend in Wien rumhaengen. Natuerlich sind alle Interessenten eingeladen dazuzustossen (wo wir rumhaengen werden hab ich noch nicht ueberlegt) Stas wuerde auch einen Vortrag zum Thema mod_perl machen, der aber wohl erst um 21:00 beginnen koennte (und u.U. hat der Flug Verspaetung etc). Hat jemand ev einen sehr zentralen (in der Naehe von Wien Mitte) Raum mit Beamer den wir verwenden koennten? Und der am Abend verfuegbar ist. Wir koennten uns natuerlich im ZSI treffen, nur ist das bei der U4/U6-Station Laengefeldgasse. Wieauchimmer, bis dann! Und nicht vergessen: Perl Workshop! http://conferences.yapceurope.org/apw2005/ Schedule ist schon online, bezahlt (mit Kreditkarte..) kann auch schon werden! -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From bernd at firmix.at Fri May 20 02:01:30 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Fri, 20 May 2005 11:01:30 +0200 Subject: [Vienna-pm] Fwd: [ANNOUNCE] mod_perl 2.0.0 In-Reply-To: <20050520085651.GD6615@domm2.zsi.at> References: <20050520085651.GD6615@domm2.zsi.at> Message-ID: <1116579691.1284.6.camel@tara.firmix.at> On Fri, 2005-05-20 at 10:56 +0200, Thomas Klausner wrote: > Bin zwar immer noch nicht zum ausprobieren gekommen, aber trotzdem: > > YEAH! Dumme Frage eine au?enstehende Laien: Hei?t das, da? mod_perl auf Apache-2.0.x vom Maintainer als stabl?e angesehen wird? Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From domm at zsi.at Fri May 20 02:15:32 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri, 20 May 2005 11:15:32 +0200 Subject: [Vienna-pm] Fwd: [ANNOUNCE] mod_perl 2.0.0 Message-ID: <20050520091532.GG6615@domm2.zsi.at> Hi! On Fri, May 20, 2005 at 11:01:30AM +0200, Bernd Petrovitsch wrote: > Dumme Frage eine au?enstehende Laien: Hei?t das, da? mod_perl auf > Apache-2.0.x vom Maintainer als stabl?e angesehen wird? Ja, so wuerde ich das deuten. Allerdings gabs zwischen Apache 1.x und 2.x haufenweisse Aenderungen, die natuerlich auch in mod_perl 1.x vs 2.x zum Tragen kommen. Es gibt zwar Kompabilitaetsschichten, aber soweit ich weiss laufen mod_perl 1 Applikationen nicht ohne ein wenig Arbeit unter mod_perl 2. Einfache CGIs etc natuerlich schon, Apache::Registry scripte ebenfalls (glaub ich). Nur "richtige" mod_perl handler muessen angepasst werden. Siehe hier fuer mehr: http://perl.apache.org/docs/2.0/user/porting/compat.html -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From mjy at geizhals.at Fri May 20 04:44:43 2005 From: mjy at geizhals.at (Marinos Yannikos) Date: Fri, 20 May 2005 13:44:43 +0200 Subject: [Vienna-pm] Fwd: [ANNOUNCE] mod_perl 2.0.0 In-Reply-To: <20050520091532.GG6615@domm2.zsi.at> References: <20050520091532.GG6615@domm2.zsi.at> Message-ID: <428DCDAB.3040908@geizhals.at> Thomas Klausner schrieb: > http://perl.apache.org/docs/2.0/user/porting/compat.html Was die da angestellt haben, ist ja furchtbar... Statt eines neuen API, das mit beiden Versionen funktioniert, haben sie bestehende Funktionen entweder gestrichen oder inkompatibel umdefiniert. Man kann also nicht sinnvoll "alte" scripts umschreiben, soda? sie mit beiden mod_perl-Versionen funktionieren. -mjy From Oliver.Baier at lotterien.at Fri May 20 04:51:32 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Fri, 20 May 2005 13:51:32 +0200 Subject: [Vienna-pm] immer diese referenzen... Message-ID: <11FC899FAE8B8748AB9E591B1454774404ED3C@EXCHCLU01.office.lottery.co.at> Hi, ich habe Hashes of Arrays und will der subroutine "get_data" zur Verarbeitung das entsprechende Array vorwerfen. So, wie ich das versuche, ist's leider falsch: ______________________ get_data(\$irgendeinhash{$key_mit_array_als_value},\@data); sub get_data { my ($arrayref, $dataref) = @_; foreach (@$arrayref) { # kein Fehler, aber auch kein Output... ________________________ Ich kann mir vorstellen, dass der Compiler das Array nicht finden kann, weiss aber nicht, wie ich's anders angeben soll. foreach (@{$arrayref}) geht auch nicht. please help... lg Oliver From Oliver.Baier at lotterien.at Fri May 20 04:56:34 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Fri, 20 May 2005 13:56:34 +0200 Subject: [Vienna-pm] WG: immer diese referenzen... Message-ID: <11FC899FAE8B8748AB9E591B1454774404ED3D@EXCHCLU01.office.lottery.co.at> Zur Info: Es funktioniert, wenn ich den Hash als Referenz angebe... ______ get_data(\%irgendeinhash,\@data); sub get_data { my ($hashref, $dataref, $mod) = @_; foreach ( @{ $$hashref{$key_mit_array_als_value} }) { # klappt... ______ ... aber ich will der subroutine auch andere arrays vorwerfen und nicht von einem bestimmten Key eines Hashes ausgehen... lg Oliver -----Urspr?ngliche Nachricht----- Von: vienna-pm-bounces at pm.org [mailto:vienna-pm-bounces at pm.org]Im Auftrag von Baier Oliver Gesendet: Freitag, 20. Mai 2005 13:52 An: vienna-pm (E-Mail) Betreff: [Vienna-pm] immer diese referenzen... Hi, ich habe Hashes of Arrays und will der subroutine "get_data" zur Verarbeitung das entsprechende Array vorwerfen. So, wie ich das versuche, ist's leider falsch: ______________________ get_data(\$irgendeinhash{$key_mit_array_als_value},\@data); sub get_data { my ($arrayref, $dataref) = @_; foreach (@$arrayref) { # kein Fehler, aber auch kein Output... ________________________ Ich kann mir vorstellen, dass der Compiler das Array nicht finden kann, weiss aber nicht, wie ich's anders angeben soll. foreach (@{$arrayref}) geht auch nicht. please help... lg Oliver _______________________________________________ Vienna-pm mailing list Vienna-pm at pm.org http://mail.pm.org/mailman/listinfo/vienna-pm From domm at zsi.at Fri May 20 05:02:58 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri, 20 May 2005 14:02:58 +0200 Subject: [Vienna-pm] Fwd: [ANNOUNCE] mod_perl 2.0.0 In-Reply-To: <428DCDAB.3040908@geizhals.at> References: <20050520091532.GG6615@domm2.zsi.at> <428DCDAB.3040908@geizhals.at> Message-ID: <20050520120258.GH6615@domm2.zsi.at> Hi! On Fri, May 20, 2005 at 01:44:43PM +0200, Marinos Yannikos wrote: > Thomas Klausner schrieb: > > http://perl.apache.org/docs/2.0/user/porting/compat.html > > Was die da angestellt haben, ist ja furchtbar... Statt eines neuen API, > das mit beiden Versionen funktioniert, haben sie bestehende Funktionen > entweder gestrichen oder inkompatibel umdefiniert. Man kann also nicht > sinnvoll "alte" scripts umschreiben, soda? sie mit beiden > mod_perl-Versionen funktionieren. Ich glaub das liegt zu einem grossen Teil daran, dass sich die Apache API mit Version 2.0 ziemlich geaendert hat. Ausserdem steht hier: "As it will be explained in details later, loading Apache2::compat at the server startup, should make the code running properly under 1.0 work under mod_perl 2.0." Die ganzen API-Aenderungen sind also im Prinzip nur relevant, wenn man from scratch fuer mod_perl 2 entwicklen, oder eine bestehende App portieren will. Aber: Ich habs selber noch nicht ausprobiert, das sind also nur Vermutungen, bzw was ich halt so in div Mailinglisten aufgeschnappt habe. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Fri May 20 05:08:14 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri, 20 May 2005 14:08:14 +0200 Subject: [Vienna-pm] immer diese referenzen... Message-ID: <20050520120814.GJ6615@domm2.zsi.at> Hi! On Fri, May 20, 2005 at 01:51:32PM +0200, Baier Oliver wrote: Ohne was ausprobiert zu haben: > get_data(\$irgendeinhash{$key_mit_array_als_value},\@data); der '\' kommt mir hier \$irgendeinhash ein wenig seltsam vor. Versuchs mal ohne. An sich muesste $irgendeinhash{$key_mit_array_als_value} eh einen ARRAYREF zurueckgeben, weil $foo{bar}=qw(a b c); nicht funktioniert ($foo{bar} ist dann naemlich 'c') su funktioniertes: $foo{bar}=[qw(a b c)]; -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From Oliver.Baier at lotterien.at Fri May 20 05:06:39 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Fri, 20 May 2005 14:06:39 +0200 Subject: [Vienna-pm] immer diese referenzen... Message-ID: <11FC899FAE8B8748AB9E591B1454774404ED3E@EXCHCLU01.office.lottery.co.at> Das war's! Habe mit dem falschen "\" scheinbar gleich den Hash als Referenz uebergeben. Jetzt passts :-) DANKE! lg Oliver > -----Urspr?ngliche Nachricht----- > Von: Thomas Klausner [mailto:domm at zsi.at] > Gesendet: Freitag, 20. Mai 2005 14:08 > An: Baier Oliver > Betreff: Re: [Vienna-pm] immer diese referenzen... > > > Hi! > > On Fri, May 20, 2005 at 01:51:32PM +0200, Baier Oliver wrote: > > Ohne was ausprobiert zu haben: > > > get_data(\$irgendeinhash{$key_mit_array_als_value},\@data); > > der '\' kommt mir hier \$irgendeinhash ein wenig seltsam vor. > Versuchs mal > ohne. > > An sich muesste $irgendeinhash{$key_mit_array_als_value} eh > einen ARRAYREF > zurueckgeben, weil > > $foo{bar}=qw(a b c); > > nicht funktioniert ($foo{bar} ist dann naemlich 'c') > > su funktioniertes: > $foo{bar}=[qw(a b c)]; > > > > > > sub get_data { > > my ($arrayref, $dataref) = @_; > > foreach (@$arrayref) { > > # kein Fehler, aber auch kein Output... > > > > ________________________ > > > > Ich kann mir vorstellen, dass der Compiler das Array nicht > > finden kann, weiss aber nicht, wie ich's anders angeben soll. > > foreach (@{$arrayref}) geht auch nicht. > > > > please help... > > > > lg > > Oliver > > _______________________________________________ > > Vienna-pm mailing list > > Vienna-pm at pm.org > > http://mail.pm.org/mailman/listinfo/vienna-pm > > -- > #!/usr/bin/perl http://domm.zsi.at > for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} > From domm at zsi.at Fri May 20 05:16:16 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri, 20 May 2005 14:16:16 +0200 Subject: [Vienna-pm] WG: immer diese referenzen... In-Reply-To: <11FC899FAE8B8748AB9E591B1454774404ED3D@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B1454774404ED3D@EXCHCLU01.office.lottery.co.at> Message-ID: <20050520121616.GK6615@domm2.zsi.at> Hi! On Fri, May 20, 2005 at 01:56:34PM +0200, Baier Oliver wrote: > Es funktioniert, wenn ich den Hash als Referenz angebe... Das Problem ist definitv der ueberzaehlige \ weil du damit eine Referenz auf eine Referenz uebergibts. Attachet ein kleines Beispiel.. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} -------------- next part -------------- A non-text attachment was scrubbed... Name: hoa.pl Type: text/x-perl Size: 368 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050520/1e9bfbaa/hoa.bin From spaceman at foo.at Sun May 22 10:45:47 2005 From: spaceman at foo.at (Stefan Weiss) Date: Sun, 22 May 2005 19:45:47 +0200 Subject: [Vienna-pm] Gleichen Anfang in mehreren Zeilen entfernen Message-ID: <4290C54B.5050200@foo.at> Moin. Ich steh wahrscheinlich nur grad b?se auf der Leitung, aber ich finde keinen eleganten Weg, ein relativ einfaches Problem zu l?sen. Mit elegant meine ich: keine Schleifen, nicht zuviele Regular Expressions (am besten nur eine). Input: my $str = < References: <4290C54B.5050200@foo.at> Message-ID: <1116785488.14217.11.camel@einstein> Wenn ich dass halbwegs richtig verstanden hab, dann soll der Anfang gleicher Zeichen (die anfangs unbekannt sind) entfernt werden von allen Zeilen: Also soll auch aaaaa/foo aaaaa/bar/foo aaaaa/bar dann werden foo bar/foo bar Ich w?rde schon zuvor prozedural das gr??ten gemeinsamen anfangs string bestimmen und dann mit einer RE entfernen. Meines wissen, ist das mit RE nicht m?glich einen unbekannten gemeinsamen string zu entfernen. (Andererseits kann man mit RE Sachen machen, die ich nie begreifen werd, als m?glich ist es sicher irgendwie...) Ein einfacher Algorithmus (und noch auszuprogrammieren): # lead als erste zeile setzen $lead = $lines[0]; # und nun alle zeilen durchgehen (die erste k?nnt man auslasen) foreach (@lines) { # gemeinsamen start string finden (das soll samestart machen) $lead = samestart($lead,$_); } # my $all = join("\n", at lines); $all =~ s/$lead/$all/g; Cheers +rl On Sun, 2005-05-22 at 19:45 +0200, Stefan Weiss wrote: > Moin. > > Ich steh wahrscheinlich nur grad b?se auf der Leitung, aber ich finde > keinen eleganten Weg, ein relativ einfaches Problem zu l?sen. Mit > elegant meine ich: keine Schleifen, nicht zuviele Regular Expressions > (am besten nur eine). > > Input: > my $str = < /home/user/dir1/dir2/file1.foo: some text > /home/user/dir1/dir2/fee/fi/fo/fum.bar: some (more) tex/t > /home/user/dir1/dir2/file3.baz(1243): text? > EOT > > Gew?nschter Output: > file1.foo: some text > fee/fi/fo/fum.bar: some (more) tex/t > file3.baz(1243): text? > > Es soll also der gemeinsame Pfad am Anfang aller Zeilen (wenn vorhanden) > entfernt werden. In diesem speziellen Fall fangen noch die > unterschiedlichen Teile mit demselben Buchstaben an, der wenn m?glich > erhalten bleiben sollte (aber mit solchen Details kann ich mich auch > selbst spielen, wenn ich einen geeigneten Ansatz gefunden habe). > > So geht's mal nicht: > > my $leader = ""; > if ($str =~ m#^((/[^\n]+/)(.*?))+$#s) { # (for vim) > $leader = $2; > } > if ($leader) { > print "leader = $leader\n"; > $str =~ s/^\Q$leader\E//gm; > } > print $str; > > Das scheitert schon, wenn man die zweite und dritte Input-Zeile > austauscht. Ich hab auch versucht, das mit Backreferences zu l?sen, aber > leider erst mal ohne Erfolg. Ich habe jetzt zwar eine vor?bergehende > L?sung mit eine Schleife in Verwendung, aber die ist alles andere als > elegant. > > Any hints? > > > cheers, > stefan > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm -- Roland Lammel From domm at zsi.at Sun May 22 12:22:01 2005 From: domm at zsi.at (Thomas Klausner) Date: Sun, 22 May 2005 21:22:01 +0200 Subject: [Vienna-pm] Gleichen Anfang in mehreren Zeilen entfernen In-Reply-To: <4290C54B.5050200@foo.at> References: <4290C54B.5050200@foo.at> Message-ID: <20050522192201.GA23829@domm2.zsi.at> Hi! On Sun, May 22, 2005 at 07:45:47PM +0200, Stefan Weiss wrote: > Moin. Abend! > Input: > my $str = < /home/user/dir1/dir2/file1.foo: some text > /home/user/dir1/dir2/fee/fi/fo/fum.bar: some (more) tex/t > /home/user/dir1/dir2/file3.baz(1243): text? > EOT > > Gew?nschter Output: > file1.foo: some text > fee/fi/fo/fum.bar: some (more) tex/t > file3.baz(1243): text? > > Es soll also der gemeinsame Pfad am Anfang aller Zeilen (wenn vorhanden) > entfernt werden. Ich vermute mal, der zu entfernende Pfad ist nicht immer derselbe, weil sonst waeres ja leicht. > In diesem speziellen Fall fangen noch die > unterschiedlichen Teile mit demselben Buchstaben an, der wenn m?glich > erhalten bleiben sollte (aber mit solchen Details kann ich mich auch > selbst spielen, wenn ich einen geeigneten Ansatz gefunden habe). De facto willst du also aus einer Menge von Strings den gemeinsamen Anfang rausfinden und den dann entfernen? Ich glaube, das wird nur mit einer Regex o.ae. nicht gehen.. Du musst naemlich zuerst mal alle Eintraege durchschauen, um den laengsten gemeinesamen Anfang zu ermitteln. Der Rest ist dann eine regex. Hier mal ein (ev ein wenig dilletantischer, ich bin ja kein EDVler) Versuch: use strict; use warnings; my $in="/home/user/dir1/dir2/file1.foo: some text /home/user/dir1/dir2/fee/fi/fo/fum.bar: some (more) tex/t /home/user/dir1/dir2/file3.baz(1243): text?"; my @data=split(/\n/,$in); my %result; foreach my $file (@data) { my @frags=split(/\//,$file); my $path; foreach (@frags) { $path.=$_."/"; $result{$path}++; } } my $max=@data; my $length=0; my $longest; while(my ($path,$cnt)=each %result) { next unless $cnt == $max; $longest=$path if length($path) > length($longest); } print "$longest\n"; -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From spaceman at foo.at Sun May 22 12:14:51 2005 From: spaceman at foo.at (Stefan Weiss) Date: Sun, 22 May 2005 21:14:51 +0200 Subject: [Vienna-pm] Gleichen Anfang in mehreren Zeilen entfernen In-Reply-To: <1116785488.14217.11.camel@einstein> References: <4290C54B.5050200@foo.at> <1116785488.14217.11.camel@einstein> Message-ID: <4290DA2B.2080901@foo.at> On 2005-05-22 20:11, Roland Lammel wrote: > Wenn ich dass halbwegs richtig verstanden hab, dann soll der Anfang > gleicher Zeichen (die anfangs unbekannt sind) entfernt werden von > allen Zeilen: Genau. > Ich w?rde schon zuvor prozedural das gr??ten gemeinsamen anfangs > string bestimmen und dann mit einer RE entfernen. [..] > Ein einfacher Algorithmus (und noch auszuprogrammieren): [snip] Naja, eine L?sung hab ich ja schon, nur ist die halt etwas grauslich, deshalb hab ich sie vorher nicht mitgepostet. Ist wie gesagt nur vor?bergehend und v?llig unausgegolft: my $level = 0; my $leader = ""; my @dirs = split("/", substr($str, 0, index($tmp, ": "))); do { $leader = "/" . join("/", @dirs[1 .. ++$level]); } while ($str =~ /^(\Q$leader\E[^\n]+\n)+$/s); if ($level > 2) { $leader = "/" . join("/", @dirs[1 .. --$level]) . "/"; $str =~ s/^\Q$leader\E//gsm; } Diese Variante geht davon aus, dass alle Zeilen nach dem Pfad ein ": " enthalten, was in der Praxis auch der Fall ist. Ausserdem wird nur gek?rzt, wenn mindestens 2 Verzeichnisse dadurch wegfallen. Ich hoff immer noch auf den heiligen regul?ren Gral :-) cheers, stefan From pilsl at goldfisch.at Sun May 22 12:17:59 2005 From: pilsl at goldfisch.at (peter pilsl) Date: Sun, 22 May 2005 21:17:59 +0200 Subject: [Vienna-pm] Gleichen Anfang in mehreren Zeilen entfernen In-Reply-To: <1116785488.14217.11.camel@einstein> References: <4290C54B.5050200@foo.at> <1116785488.14217.11.camel@einstein> Message-ID: <4290DAE7.4040109@goldfisch.at> > > Ich w?rde schon zuvor prozedural das gr??ten gemeinsamen anfangs string > bestimmen und dann mit einer RE entfernen. Meines wissen, ist das mit RE > nicht m?glich einen unbekannten gemeinsamen string zu entfernen. > (Andererseits kann man mit RE Sachen machen, die ich nie begreifen werd, > als m?glich ist es sicher irgendwie...) > regular expressions sind echt cool :) und das geht schon also der ansatz lautet hier wie folgt (untested) $str=~/(.*\/)\n\1/; sucht nach gleichen anf?ngen in $str, die mit / enden \1 ist hier die referenz auf das bekannte $1 schon in der expression. ein kleines beispiel f?r die commandline: perl -e '$a="hans/kurt/esel\nhans/kurt/emmi"; print $1,"\n" if $a=~/(.*\/).*\n\1/' gibt als ergebnis hans/kurt/ das ausf?hren des ganzen f?r ersetzung und das mehrfach bleibt dem OP ?berlassen oder jemand anderem. Ich selbst muss dringenst was essen ;) lgp -- mag. peter pilsl goldfisch.at IT-management tel +43 699 1 3574035 fae +43 699 4 3574035 pilsl at goldfisch.at From spaceman at foo.at Sun May 22 12:42:18 2005 From: spaceman at foo.at (Stefan Weiss) Date: Sun, 22 May 2005 21:42:18 +0200 Subject: [Vienna-pm] Gleichen Anfang in mehreren Zeilen entfernen In-Reply-To: <4290DAE7.4040109@goldfisch.at> References: <4290C54B.5050200@foo.at> <1116785488.14217.11.camel@einstein> <4290DAE7.4040109@goldfisch.at> Message-ID: <4290E09A.9040402@foo.at> On 2005-05-22 21:17, peter pilsl wrote: > perl -e '$a="hans/kurt/esel\nhans/kurt/emmi"; print $1,"\n" if > $a=~/(.*\/).*\n\1/' Genau das habe ich gesucht. Fertig geschrieben: if ($str =~ /^(.+\/).*\n(\1.*\n)+$/) { $str =~ s/^\Q$1\E//gm; } Ich h?tte bei meiner Testversion noch etwas mehr Geduld haben sollen... ich war dann bei /^([^\n]+)[\n]*?\n(\1[\n]*\n)+$/s stehengeblieben, aber das matcht halt nicht ganz. Ich weiss noch nicht genau warum, aber jetzt kann ich auch essen gehen :-) Danke! stefan From domm at zsi.at Mon May 23 01:27:37 2005 From: domm at zsi.at (Thomas Klausner) Date: Mon, 23 May 2005 10:27:37 +0200 Subject: [Vienna-pm] Perl @ Linuxwochen Message-ID: <20050523082737.GC26517@domm2.zsi.at> Hi! Wie wahrscheinlich eh die meisten wissen, findet diese Woche die Wiener Linuxwoche statt: http://www.linuxwochen.at/ Im Prinzip koennten wir da einen Perl-Tisch machen, nur hab ich nicht die Zeit, die ganze Zeit dort rumzusitzen. D.h. wenn es einen Perl-Tisch geben soll, brauche ich noch ein paar Leute, die mitmachen. An sich geht es schon morgen los. DI und MI sind sog. 'Business'-Tage, die mich persoenlich nicht wirklich interessieren. Weswegen ich auch nicht hingehen werden. Ich kann eigentlich nur am DO dort sein (allerdings auch lieber mit noch jemanden, weil alleine isses ein bissl fad, ev.) Am FR hab ich leider keine Zeit. Wenns also Interessenten gibt, bitte bald melden, damit ich das den LinuxWochenLeuten (sprich: Alfie...) noch mitteilen kann. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From gooly at gmx.at Mon May 23 02:36:56 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Mon, 23 May 2005 11:36:56 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? Message-ID: <200505231136.56983.gooly@gmx.at> Hallo, Vater - Kind Problem und ich weiss nicht weiter: Was bedeutet hier Nicht erlaubter Seek, nachdem open funktioniert hat?? Wieso kann ich nicht auf dem PIP-Handle schreiben? Code ist von perlipc. Da threaded Vars verwenden werden setzte ich: $SIG{PIPE} = 'ignore'; sub ignore { print "Sig { Pipe } called ignore?: $!\n"; } aber diese Zeile wird nicht gedruckt? Kann mir jemand meine Pipe 'reparieren' ? Danke Calli der Vater: my $pid = open(PIP, "|-"); if ($pid < 0 ) { die "open: $!\n"; } else { print "pid:$pid\n";} # alles OK, keine Fehlermeldung if ( $pid==0 ) { # child # Kind lebt!! machWas( ); exit; } else { # parent my $e = print PIP "hallo bist Du da? \n"; print "Par\t1. Print: $e: $!\n"; # jetzt isses passiert Kin der Konsole steht: # >Par 1. Print: 1: Nicht erlaubter Seek my $n = 0; while (1) { my $x = print PIP "hmm, No. ",++$n,"$EOL"; print "Par:\thmm, No. $n: $x\t $!\n"; sleep 1; # und weiter folgen: # >Par: hmm, No. 4: 1 Nicht erlaubter Seek } } das Kind aber bleibt stumm nach 'before while..!: sub machWas { print "before while..\n"; my $l; while ( defined ($l = ) ) { print "kid:\t$l\n"; } } From gooly at gmx.at Mon May 23 04:00:49 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Mon, 23 May 2005 13:00:49 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <20050523094739.GA1586@elch.elche> References: <200505231136.56983.gooly@gmx.at> <20050523094739.GA1586@elch.elche> Message-ID: <200505231300.49152.gooly@gmx.at> Danke, so funktioniert's erst einmal, jetzt muss ich noch hinkriegen, dass ich non_blocking vom $reader lesen kann, aber jetzt kommt schon mal 'was an! ?brigens die (warn-) Melduung: nicht erlaubter Seek beim Schreiben auf dem $writer wird weiterhin produziert. Bis sp?ter (?), Calli Am Montag, 23. Mai 2005 11:47 schrieb Armin Obersteiner: > hi! > > bei einer pipe konstruktion darf nur einer lesen und einer schreiben. > > du brauchst 2 pipes. um sicher zu gehen solltest du so eine konstruktion > verwenden: > > use IO::Handle; > my ($reader, $writer); > pipe $reader, $writer; > $writer->autoflush(1); > > if ($pid = fork) { > close $reader; > print $writer "xxx\n"; > close $writer; > waitpid($pid,0); > } else { > die "cannot fork: $!" unless defined $pid; > close $writer; > chomp($line = <$reader>); > print "just read: `$line'\n"; > close $reader; > exit; > } > > also reader/writer schliessen wenn man ihn nicht verwenden darf. > > halt 2x fuer beide richtungen. > > Ciao, > Armin > -- > armin at xos.net pgp public key on request CU From wolfgang.laun at alcatel.at Mon May 23 04:30:45 2005 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon, 23 May 2005 13:30:45 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? Message-ID: Welches OS? Welche Perl-Version? Es gab da einmal auf P5P eine Diskussion mit Solaris und seek-Problem nach fork; lief - glaube ich - auf einen Bug in Solaris hinaus; irgendeine Positionsangabe wird da nicht sauber zwischen den Filehandles getrennt. (Ich konnte das auch mit einem C-Programm nachbauen - ist also definitiv kein Perl-Problem. Unter Linux geht das Programm problemlos. Alternativen w?ren named pipes oder eine Socket-Verbindung. mfg WL -----Original Message----- From: Carl A. Schreiber To: vienna-pm at pm.org Sent: 5/23/2005 11:36 AM Subject: [Vienna-pm] Nicht erlaubter seek ?? Hallo, Vater - Kind Problem und ich weiss nicht weiter: Was bedeutet hier Nicht erlaubter Seek, nachdem open funktioniert hat?? Wieso kann ich nicht auf dem PIP-Handle schreiben? Code ist von perlipc. From bernd at firmix.at Mon May 23 04:38:32 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Mon, 23 May 2005 13:38:32 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <200505231136.56983.gooly@gmx.at> References: <200505231136.56983.gooly@gmx.at> Message-ID: <1116848312.5303.5.camel@gimli.at.home> On Mon, 2005-05-23 at 11:36 +0200, Carl A. Schreiber wrote: [...] > my $pid = open(PIP, "|-"); Hat das eine spezielle Bedeutung oder ?ffnet das eine Pipe zu einem Script/Command mit dem Namen "-"? Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From wolfgang.laun at alcatel.at Mon May 23 04:50:33 2005 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon, 23 May 2005 13:50:33 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? Message-ID: Das hat eine spezielle Bedeutung: '-' wird als "dasselbe Script, das das open macht" interpretiert. Siehe perlopentut. mfg WL -----Original Message----- From: Bernd Petrovitsch To: vienna-pm at pm.org Sent: 5/23/2005 1:38 PM Subject: Re: [Vienna-pm] Nicht erlaubter seek ?? On Mon, 2005-05-23 at 11:36 +0200, Carl A. Schreiber wrote: [...] > my $pid = open(PIP, "|-"); Hat das eine spezielle Bedeutung oder ?ffnet das eine Pipe zu einem Script/Command mit dem Namen "-"? Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services _______________________________________________ Vienna-pm mailing list Vienna-pm at pm.org http://mail.pm.org/mailman/listinfo/vienna-pm From bernd at firmix.at Mon May 23 05:48:06 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Mon, 23 May 2005 14:48:06 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: References: Message-ID: <1116852487.5303.16.camel@gimli.at.home> On Mon, 2005-05-23 at 13:30 +0200, LAUN Wolfgang wrote: > Welches OS? > Welche Perl-Version? > > Es gab da einmal auf P5P eine Diskussion mit > Solaris und seek-Problem nach fork; lief - glaube > ich - auf einen Bug in Solaris hinaus; irgendeine > Positionsangabe wird da nicht sauber zwischen > den Filehandles getrennt. (Ich konnte das auch > mit einem C-Programm nachbauen - ist also definitiv > kein Perl-Problem. > > Unter Linux geht das Programm problemlos. > > Alternativen w?ren named pipes oder eine Socket-Verbindung. Unixe unterscheiden grunds?tzlich seekable und unseekable Devices (und das ist auch die einzige gr?bere Unterscheidung, die mWn existiert). Seekable sind Files, Block- und einige Char-Devices (wo es geht bzw. sinnvoll implementierbbar ist). Unseekable sind Pipes (named und unnamed) und Netzwerkverbindungen (es mag sein, da? es irgendwo Hacks und Extensions gibt, die da sehr wohl lseek() (unter gewissen Umst?nden bzw. Randbedingungen) implementieren, aber ich w?rd' mal davon ausgehen, da? es das nicht geht). Warum sind die nicht allgemein seekable? Wie soll man den Filepointer bei einer Netzwerkverbindung 100KB r?ckw?rts positionieren? Und das ist zumindest eine Eigenschaft des OSes (und nicht nur perl). Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From gooly at gmx.at Mon May 23 06:16:01 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Mon, 23 May 2005 15:16:01 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <1116852487.5303.16.camel@gimli.at.home> References: <1116852487.5303.16.camel@gimli.at.home> Message-ID: <200505231516.02254.gooly@gmx.at> Ahhhh !! > Unixe unterscheiden grunds?tzlich seekable und unseekable Devices (und > das ist auch die einzige gr?bere Unterscheidung, die mWn existiert). ich hab mich schon immer gefragt warum es diese (alten?) See-Kable -Verbindungen noch gibt. Es musste aus den Anf?ngen der Computer-Technologie stammen, dachte ich mir, zeitlich w?re das ja durchaus denkbar. Schmunzle Calli From armin at xos.net Mon May 23 02:47:39 2005 From: armin at xos.net (Armin Obersteiner) Date: Mon, 23 May 2005 11:47:39 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <200505231136.56983.gooly@gmx.at> References: <200505231136.56983.gooly@gmx.at> Message-ID: <20050523094739.GA1586@elch.elche> hi! bei einer pipe konstruktion darf nur einer lesen und einer schreiben. du brauchst 2 pipes. um sicher zu gehen solltest du so eine konstruktion verwenden: use IO::Handle; my ($reader, $writer); pipe $reader, $writer; $writer->autoflush(1); if ($pid = fork) { close $reader; print $writer "xxx\n"; close $writer; waitpid($pid,0); } else { die "cannot fork: $!" unless defined $pid; close $writer; chomp($line = <$reader>); print "just read: `$line'\n"; close $reader; exit; } also reader/writer schliessen wenn man ihn nicht verwenden darf. halt 2x fuer beide richtungen. Ciao, Armin -- armin at xos.net pgp public key on request CU From armin at xos.net Mon May 23 07:13:14 2005 From: armin at xos.net (Armin Obersteiner) Date: Mon, 23 May 2005 16:13:14 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <200505231300.49152.gooly@gmx.at> References: <200505231136.56983.gooly@gmx.at> <20050523094739.GA1586@elch.elche> <200505231300.49152.gooly@gmx.at> Message-ID: <20050523141314.GA4318@elch.elche> hi! > so funktioniert's erst einmal, jetzt muss ich noch hinkriegen, dass ich > non_blocking vom $reader lesen kann, aber jetzt kommt schon mal 'was an! schau dir IO::Select an. ansosnten musst du mit sysopen/sysread arbeiten. > ?brigens die (warn-) Melduung: nicht erlaubter Seek beim Schreiben auf dem > $writer wird weiterhin produziert. komisch. perl version? os? Ciao, Armin -- armin at xos.net pgp public key on request CU From bernd at firmix.at Mon May 23 07:43:48 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Mon, 23 May 2005 16:43:48 +0200 Subject: [Vienna-pm] Reminder: Re: [luga] Linuxwochen-Helfer und -Helferinnen gesucht In-Reply-To: <1115483100.5299.69.camel@gimli.at.home> References: <1115483100.5299.69.camel@gimli.at.home> Message-ID: <1116859428.5303.23.camel@gimli.at.home> Reminder f?r alle Kurzentschlossenen und nat?r?ioch auch alle schon l?nger Entschlossenen: Morgen in der Fr?h ist es soweit: On Sat, 2005-05-07 at 18:25 +0200, Bernd Petrovitsch wrote: > Sorry for Listencrosspost. Rein praktischerweise bitte etwaige > Antworten, Diskussionen u.?. auf der Linuxeventmailingliste > (linuxevent at luga.at) platzieren bzw. f?hren (oder direkt an mich > antworten, wenn es nicht unbedingt ?ffentlich sein soll). > > Am Di. 24. Mai bauen wir wieder im MuQua auf. Dazu braucht es jede Menge > helfende H?nde, die beim Tische aufstellen, Strom- und Netzwerk verlegen > ben?tigt werden. > Der Aufbau f?ngt um 6:00 an und mu?^Wwird vor 9:00 Uhr fix und fertig > sein - da f?ngt das offizielle Programm an. > > Nochmal: *Jeder* und *jede* kann helfen, der 2 halbwegs gesunde H?nde > hat (und dort erscheint). Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From gooly at gmx.at Mon May 23 08:03:07 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Mon, 23 May 2005 17:03:07 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <20050523141314.GA4318@elch.elche> References: <200505231136.56983.gooly@gmx.at> <200505231300.49152.gooly@gmx.at> <20050523141314.GA4318@elch.elche> Message-ID: <200505231703.07931.gooly@gmx.at> Hallo Armin, > > so funktioniert's erst einmal, jetzt muss ich noch hinkriegen, dass ich > > non_blocking vom $reader lesen kann, aber jetzt kommt schon mal 'was an! > > schau dir IO::Select an. ansosnten musst du mit sysopen/sysread arbeiten. Ich hab's so (siehe unten) hingekriegt (ohne sysopen, sysread ;-) - Was meinst Du dazu? Es zeigt auch die Seek-Warning (jedenfalls bei mir). > > > ?brigens die (warn-) Melduung: nicht erlaubter Seek beim Schreiben auf > > dem $writer wird weiterhin produziert. > > komisch. perl version? os? SuSe 9.2 (inkl updates) Perl 5.8.3-32.4 > > Ciao, > Armin > -- > armin at xos.net pgp public key on request CU #!/usr/bin/perl -w use strict; use IO::Handle; my ($readPIPE,$writePIPE, $pid); pipe $readPIPE, $writePIPE; $writePIPE->autoflush(1); $pid = fork; if ( !$pid ) { # child close($writePIPE); nonBlockingRead( $readPIPE ); exit; } else { # parent close($readPIPE); my ($n,$s) = (0,0); while (1) { $s = (int(rand( 5 ))); sleep $s; my $err = print $writePIPE "Dad: line ",++$n," after sleep $s sec\n"; print "Error: $!\n" if $err; # das sollte den seek-Error zeigen } } sub nonBlockingRead { use IO::Select; my $PIPE = ( shift ); my $SEL = IO::Select->new( $PIPE ); my ($sleep, $send) = (10,0); my @LINES = qw ( ini deafault array size ); IO::Handle->new_from_fd(fileno( $PIPE ),"r")->blocking(0); while ( $SEL->exists( $PIPE ) ) { ($sleep,$send) = doWait( $sleep, scalar @LINES ); @LINES = (); foreach my $h ( $SEL->can_read(0) ) { push @LINES, ( <$h> ); } foreach my $l ( @LINES ) { &doSomething( $l ); } } } sub doSomething { print shift; } sub doWait { my $sec = (shift); my $NoL = (shift); #: every whole min $sec = ($NoL>20)?($sec/2):(($NoL< 5)?($sec+1):$sec); my $m = 60 - (time%60); if ( ( $m - $sec/2 ) < $sec ) { sleep ($m-0.2); return ($sec, 1); # ok full Min } else { sleep ($sec); return ($sec, 0); # default } } From lt at toetsch.at Mon May 23 08:17:55 2005 From: lt at toetsch.at (Leopold Toetsch) Date: Mon, 23 May 2005 17:17:55 +0200 Subject: [Vienna-pm] Perl @ Linuxwochen In-Reply-To: <20050523082737.GC26517@domm2.zsi.at> References: <20050523082737.GC26517@domm2.zsi.at> Message-ID: <4291F423.3090709@toetsch.at> Thomas Klausner wrote: > Ich kann eigentlich nur am DO dort sein (allerdings auch lieber mit noch > jemanden, weil alleine isses ein bissl fad, ev.) Ich komme zu 99.99% auch am Do. leo From armin at xos.net Mon May 23 08:56:42 2005 From: armin at xos.net (Armin Obersteiner) Date: Mon, 23 May 2005 17:56:42 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <200505231703.07931.gooly@gmx.at> References: <200505231136.56983.gooly@gmx.at> <200505231300.49152.gooly@gmx.at> <20050523141314.GA4318@elch.elche> <200505231703.07931.gooly@gmx.at> Message-ID: <20050523155642.GA5370@elch.elche> hi! > > > so funktioniert's erst einmal, jetzt muss ich noch hinkriegen, dass ich > > > non_blocking vom $reader lesen kann, aber jetzt kommt schon mal 'was an! > > > > schau dir IO::Select an. ansosnten musst du mit sysopen/sysread arbeiten. > Ich hab's so (siehe unten) hingekriegt (ohne sysopen, sysread ;-) > - Was meinst Du dazu? genau das hab ich gemeint mit can_read. > Es zeigt auch die Seek-Warning (jedenfalls bei mir). > > > > > ?brigens die (warn-) Melduung: nicht erlaubter Seek beim Schreiben auf > > > dem $writer wird weiterhin produziert. > > > > komisch. perl version? os? > SuSe 9.2 (inkl updates) Perl 5.8.3-32.4 wenn ichs bei mir start tut sich gar nichts. kein output. ist das das volle programm? sollte das was tun? (schicks am besten als attachment, dann hat mans nicht inline beim editieren...) Ciao, Armin -- armin at xos.net pgp public key on request CU From armin at xos.net Mon May 23 08:59:02 2005 From: armin at xos.net (Armin Obersteiner) Date: Mon, 23 May 2005 17:59:02 +0200 Subject: [Vienna-pm] Perl @ Linuxwochen In-Reply-To: <4291F423.3090709@toetsch.at> References: <20050523082737.GC26517@domm2.zsi.at> <4291F423.3090709@toetsch.at> Message-ID: <20050523155902.GB5370@elch.elche> hi! > > Ich kann eigentlich nur am DO dort sein (allerdings auch lieber mit noch > > jemanden, weil alleine isses ein bissl fad, ev.) > > Ich komme zu 99.99% auch am Do. ich bin am do auch dort, allerdings hoer ich mir auch was an, sprich kann nur ab und zu mal vorbeischaun. in der frueh koennt ich mich schon mal laenger dazusetzen... Ciao, Armin -- armin at xos.net pgp public key on request CU From gooly at gmx.at Tue May 24 00:51:28 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue, 24 May 2005 09:51:28 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <20050523155642.GA5370@elch.elche> References: <200505231136.56983.gooly@gmx.at> <200505231703.07931.gooly@gmx.at> <20050523155642.GA5370@elch.elche> Message-ID: <200505240951.29099.gooly@gmx.at> Guten Morgen, Armin, > wenn ichs bei mir start tut sich gar nichts. kein output. ist das das volle > programm? sollte das was tun? (schicks am besten als attachment, dann hat > mans nicht inline beim editieren...) also so wie's ist geht's bei mir (SuSE 9.1 inkl updates) und produziert fortlaufend: ./test.pl Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Dad: line 1 after sleep 4 sec Dad: line 2 after sleep 3 sec Dad: line 3 after sleep 2 sec Dad: line 4 after sleep 3 sec Dad: line 5 after sleep 4 sec Dad: line 6 after sleep 0 sec Dad: line 7 after sleep 0 sec Dad: line 8 after sleep 3 sec Dad: line 9 after sleep 4 sec Dad: line 10 after sleep 4 sec Dad: line 11 after sleep 4 sec Dad: line 12 after sleep 1 sec Dad: line 13 after sleep 1 sec Dad: line 14 after sleep 1 sec Dad: line 15 after sleep 2 sec Dad: line 16 after sleep 4 sec Dad: line 17 after sleep 2 sec Dad: line 18 after sleep 2 sec Dad: line 19 after sleep 4 sec Dad: line 20 after sleep 3 sec Dad: line 21 after sleep 4 sec Dad: line 22 after sleep 2 sec Dad: line 23 after sleep 1 sec Error: Nicht erlaubter Seek Dad: line 24 after sleep 4 sec Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek Error: Nicht erlaubter Seek -------------- next part -------------- A non-text attachment was scrubbed... Name: test.pl Type: application/x-perl Size: 1440 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050524/9edc1230/test.bin From hjp-vienna-pm-list at hjp.at Tue May 24 03:16:40 2005 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Tue, 24 May 2005 12:16:40 +0200 Subject: [Vienna-pm] Perl @ Linuxwochen In-Reply-To: <20050523155902.GB5370@elch.elche> References: <20050523082737.GC26517@domm2.zsi.at> <4291F423.3090709@toetsch.at> <20050523155902.GB5370@elch.elche> Message-ID: <20050524101640.GB9393@teal.hjp.at> On 2005-05-23 17:59:02 +0200, Armin Obersteiner wrote: > > > Ich kann eigentlich nur am DO dort sein (allerdings auch lieber mit noch > > > jemanden, weil alleine isses ein bissl fad, ev.) > > > > Ich komme zu 99.99% auch am Do. > > ich bin am do auch dort, allerdings hoer ich mir auch was an, sprich kann > nur ab und zu mal vorbeischaun. in der frueh koennt ich mich schon mal > laenger dazusetzen... Ich bin Donnerstag und Freitag dort, am Nachmittag aber "im Dienst" als Session-Chair. Und am Vormittag gibt es auch einige interessante Vortr?ge, ich w?rde also auch eher nur ab und zu vorbeischauen. hp -- _ | Peter J. Holzer | Weil wir die materielle Welt nicht so |_|_) | Sysadmin WSR | wahrnehmen, wie sie ist, sind Sachen wie | | | hjp at hjp.at | JPEG, MP3 usw. m?glich. __/ | http://www.hjp.at/ | -- Heiko Schlenker in drsm. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 189 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050524/62c66442/attachment.bin From gooly at gmx.at Wed May 25 01:03:02 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Wed, 25 May 2005 10:03:02 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <20050523155642.GA5370@elch.elche> References: <200505231136.56983.gooly@gmx.at> <200505231703.07931.gooly@gmx.at> <20050523155642.GA5370@elch.elche> Message-ID: <200505251003.02653.gooly@gmx.at> und, Armin, geht's ? Calli From armin at xos.net Wed May 25 05:08:56 2005 From: armin at xos.net (Armin Obersteiner) Date: Wed, 25 May 2005 14:08:56 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <200505251003.02653.gooly@gmx.at> References: <200505231136.56983.gooly@gmx.at> <200505231703.07931.gooly@gmx.at> <20050523155642.GA5370@elch.elche> <200505251003.02653.gooly@gmx.at> Message-ID: <20050525120856.GA32098@elch.elche> hi! > und, Armin, > > geht's ? unter perl 5.6.1 tut sich gar nichts und unter 5.8.5 hab ich die selben ergebnisse: Error: Illegal seek Error: Illegal seek Error: Illegal seek Error: Illegal seek Error: Illegal seek Error: Illegal seek Error: Illegal seek Dad: line 1 after sleep 0 sec Dad: line 2 after sleep 0 sec Dad: line 3 after sleep 2 sec Dad: line 4 after sleep 1 sec Dad: line 5 after sleep 4 sec Dad: line 6 after sleep 3 sec Dad: line 7 after sleep 0 sec Error: Illegal seek Error: Illegal seek Error: Illegal seek Error: Illegal seek Error: Illegal seek Dad: line 8 after sleep 4 sec Dad: line 9 after sleep 3 sec Dad: line 10 after sleep 1 sec Dad: line 11 after sleep 2 sec Dad: line 12 after sleep 0 sec ... ich hab eine nettere version mit IO::Pipe. (blocking, aber man kanns ja umschreiben) (attachment) ich glaube das folgende gilt nicht: my $err = print $writePIPE "Dad: line ",++$n," after sleep $s sec\n"; print liefer meines wissens (perldoc): print Prints a string or a list of strings. Returns true if successful. ... d.h. $err ist true du musst auf false abfragen in der zeile: print "Error: $!\n" if $err; # das sollte den seek-Error zeigen sprich du siehts errors, dies nicht gibt :) das ware richtig: my $ok = print $writePIPE "Dad: line ",++$n," after sleep $s sec\n"; print "Error: $!\n" unless $ok; ja in sysprog hab ich auch gelernt alles abzufragen, bis auf print STDERR. *wenn* mans tut, sollte man aber schaun *was* man abfragt :-) Ciao, Armin -- armin at xos.net pgp public key on request CU -------------- next part -------------- A non-text attachment was scrubbed... Name: test.pl Type: application/x-perl Size: 472 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050525/4819d88e/test.bin From Oliver.Baier at lotterien.at Wed May 25 05:22:31 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Wed, 25 May 2005 14:22:31 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? Message-ID: <11FC899FAE8B8748AB9E591B1454774404ED94@EXCHCLU01.office.lottery.co.at> Hi, habe dein Script unveraendert angeworfen und erhalte keine errors: got 18711: Dad: line 1 after sleep 1 sec got 18711: Dad: line 2 after sleep 0 sec got 18711: Dad: line 3 after sleep 0 sec got 18711: Dad: line 4 after sleep 0 sec got 18711: Dad: line 5 after sleep 4 sec got 18711: Dad: line 6 after sleep 0 sec got 18711: Dad: line 7 after sleep 4 sec got 18711: Dad: line 8 after sleep 3 sec got 18711: Dad: line 9 after sleep 2 sec got 18711: Dad: line 10 after sleep 4 sec got 18711: Dad: line 11 after sleep 3 sec got 18711: Dad: line 12 after sleep 2 sec got 18711: Dad: line 13 after sleep 3 sec got 18711: Dad: line 14 after sleep 3 sec got 18711: Dad: line 15 after sleep 2 sec got 18711: Dad: line 16 after sleep 2 sec got 18711: Dad: line 17 after sleep 2 sec got 18711: Dad: line 18 after sleep 2 sec got 18711: Dad: line 19 after sleep 2 sec got 18711: Dad: line 20 after sleep 3 sec got 18711: Dad: line 21 after sleep 0 sec ^C hmmm... lg Oliver > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces at pm.org [mailto:vienna-pm-bounces at pm.org]Im > Auftrag von Armin Obersteiner > Gesendet: Mittwoch, 25. Mai 2005 14:09 > An: Carl A. Schreiber > Cc: Vienna-pm > Betreff: Re: [Vienna-pm] Nicht erlaubter seek ?? > > > hi! > > > und, Armin, > > > > geht's ? > > unter perl 5.6.1 tut sich gar nichts und unter 5.8.5 hab ich > die selben ergebnisse: > > Error: Illegal seek > Error: Illegal seek > Error: Illegal seek > Error: Illegal seek > Error: Illegal seek > Error: Illegal seek > Error: Illegal seek > Dad: line 1 after sleep 0 sec > Dad: line 2 after sleep 0 sec > Dad: line 3 after sleep 2 sec > Dad: line 4 after sleep 1 sec > Dad: line 5 after sleep 4 sec > Dad: line 6 after sleep 3 sec > Dad: line 7 after sleep 0 sec > Error: Illegal seek > Error: Illegal seek > Error: Illegal seek > Error: Illegal seek > Error: Illegal seek > Dad: line 8 after sleep 4 sec > Dad: line 9 after sleep 3 sec > Dad: line 10 after sleep 1 sec > Dad: line 11 after sleep 2 sec > Dad: line 12 after sleep 0 sec > ... > > ich hab eine nettere version mit IO::Pipe. (blocking, aber > man kanns ja umschreiben) > (attachment) > > ich glaube das folgende gilt nicht: > > my $err = print $writePIPE "Dad: line ",++$n," after sleep > $s sec\n"; > > print liefer meines wissens (perldoc): > > print Prints a string or a list of strings. Returns true > if successful. ... > > d.h. $err ist true du musst auf false abfragen in der zeile: > > print "Error: $!\n" if $err; # das sollte den seek-Error zeigen > > sprich du siehts errors, dies nicht gibt :) das ware richtig: > > my $ok = print $writePIPE "Dad: line ",++$n," after sleep $s sec\n"; > print "Error: $!\n" unless $ok; > > ja in sysprog hab ich auch gelernt alles abzufragen, bis auf > print STDERR. > *wenn* mans tut, sollte man aber schaun *was* man abfragt :-) > > Ciao, > Armin > -- > armin at xos.net pgp public key on > request CU > From armin at xos.net Wed May 25 13:17:16 2005 From: armin at xos.net (Armin Obersteiner) Date: Wed, 25 May 2005 22:17:16 +0200 Subject: [Vienna-pm] Nicht erlaubter seek ?? In-Reply-To: <11FC899FAE8B8748AB9E591B1454774404ED94@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B1454774404ED94@EXCHCLU01.office.lottery.co.at> Message-ID: <20050525201716.GA4297@elch.elche> hi! bitte thread genau verfolgen. mein script gibt auch keine errors aus. die zeile, die das tut ist nicht drinnen. mein script verwendet IO::Pipe statt den normalen pipes, was irgendwie verstaendlicher ist. (deshalb hab ichs geschickt) probier das orginal ... > habe dein Script unveraendert angeworfen und erhalte keine errors: es get um $err=print ... und print "Error: $!" if $err. dieses konstrukt ist nicht richtig, da print true on success liefert. sprich es gibt hier keinen error. Ciao, Armin -- armin at xos.net pgp public key on request CU From domm at zsi.at Fri May 27 04:11:49 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri, 27 May 2005 13:11:49 +0200 Subject: [Vienna-pm] Gestern waehrend der Linuxwochen... Message-ID: <20050527111149.GA18155@domm2.zsi.at> ... haben Armin, Josef & ich ein wenig zu viel Zeit gehabt, und hiermit begonnen (ich habs grad halbwegs fertig gemacht): http://svn.zsi.at:1000/releases/Acme-ReturnValue-1.00.tar.gz $> perl -MAcme::ReturnValue -e 'use Ima::DBI' Ima::DBI 1001001 Listet verwendete Module mit seltsamen Return Values (Also nicht '1'). Armin: Ich habs dann mit 'do' gemacht, und mit einem TIE *STDERR die ganzen Import-Fehler entsorgt :-) Solln wirs auf CPAN schmeissen? -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}