From domm at cpan.org Thu Feb 1 07:49:42 2007 From: domm at cpan.org (Thomas Klausner) Date: Thu, 1 Feb 2007 16:49:42 +0100 Subject: [Vienna-pm] Fwd: European Perl Hackathon Message-ID: <20070201154942.GT24487@domm2.zsi.at> Hi! Vielleicht hat ja jemand Lust (ich haett Lust, aber keine Zeit...) Leo, fahrst du hin? ----- Forwarded message from Ann Barcomb ----- From: Ann Barcomb Subject: [Hackathons] Announcement: European Perl Hackathon Date: Thu, 1 Feb 2007 16:22:13 +0100 (CET) To: hackathons at pm.org You are invited to attend the European Perl Hackathon in Arnhem, the Netherlands, from 2 - 4 March, 2007. Familiarity with the featured projects is not required; you need only bring a laptop and a willingness to join in. Although there is no fee to attend the hackathon, you are required to pay for your own accommodation and transportation. However, it is possible to book a room at the venue location when you register for the hackathon, at the price of 74 Euros for two nights plus breakfast. Space is limited to 30 participants, and registration is required. Reservations for accommodations made through the hackathon must be made by 9 February; reservations for the event itself must be made no later than 22 February. For more information about the event, please refer to http://conferences.yapceurope.org/hack2007nl Feel free to circulate this notice. _______________________________________________ Hackathons mailing list Hackathons at pm.org http://mail.pm.org/mailman/listinfo/hackathons ----- End forwarded message ----- -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From oliver.baier at lotterien.at Thu Feb 1 08:37:43 2007 From: oliver.baier at lotterien.at (Baier Oliver) Date: Thu, 1 Feb 2007 17:37:43 +0100 Subject: [Vienna-pm] ssh unter OpenVMS Message-ID: <11FC899FAE8B8748AB9E591B14547744015792B4@EXCHCLU01.office.lottery.co.at> Hi, ein aktuelles Projekt macht es erfoderlich, dass ein Perl-Prograemmchen unter OpenVMS laufen soll. Einiges verhaelt sich zwar anders, laesst sich aber umgehen. Ein grobes Problem habe ich jetzt allerdings mit dem open command bei ssh, bei welchem ich den Output des ssh commands nicht interpretieren kann, weil ssh scheinbar den output direkt ans Terminal schickt. Der Witz bei der Sache ist, dass ssh debug-Informationen aber sehrwohl verarbeitbar sind, nur nicht der eigentliche gewollte Output (STDOUT). Hat von euch schon wer Erfahrung mit perl und ssh unter OpenVMS? lg Oliver -------------- next part -------------- Oesterreichische Lotterien Gesellschaft m.b.H., Rennweg 44, A-1038 Wien, FN 54472 g, Handelsgericht Wien, DVR-Nr: 0476706 --- Laden Sie das E-Mail Wurzelzertifikat der Oesterreichischen Lotterien zur Vervollst?ndigung des Validierungspfades. Download the E-Mail root certificate of the Austrian Lotteries for completing the validation-path. http://www.lotterien.at/gaming/mailcert.html -------------- next part -------------- A non-text attachment was scrubbed... Name: smime.p7s Type: application/x-pkcs7-signature Size: 3643 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20070201/33e0dbe2/attachment.bin From domm at cpan.org Thu Feb 1 08:58:04 2007 From: domm at cpan.org (Thomas Klausner) Date: Thu, 1 Feb 2007 17:58:04 +0100 Subject: [Vienna-pm] ssh unter OpenVMS In-Reply-To: <11FC899FAE8B8748AB9E591B14547744015792B4@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B14547744015792B4@EXCHCLU01.office.lottery.co.at> Message-ID: <20070201165804.GW24487@domm2.zsi.at> Hi! On Thu, Feb 01, 2007 at 05:37:43PM +0100, Baier Oliver wrote: > Hat von euch schon wer Erfahrung mit perl und ssh unter OpenVMS? Nein, aber hast du schon Net::SSH probiert? Bzw Net::SSH::Perl (Net::SSH::Perl is an all-Perl module implementing an SSH (Secure Shell) client. It is compatible with both the SSH-1 and SSH-2 protocols.) > Oesterreichische Lotterien Gesellschaft m.b.H., Rennweg 44, A-1038 Wien, > FN 54472 g, Handelsgericht Wien, DVR-Nr: 0476706 Ah, freche Frage: wuerdet ihr (wenn ich das richtig verstehe und du bei den Lotterien arbeitest und ihr Perl verwendet) ev auch die YAPC::Europe 2007 in Wien sponsorn? -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From oliver.baier at lotterien.at Thu Feb 1 09:19:54 2007 From: oliver.baier at lotterien.at (Baier Oliver) Date: Thu, 1 Feb 2007 18:19:54 +0100 Subject: [Vienna-pm] ssh unter OpenVMS References: <11FC899FAE8B8748AB9E591B14547744015792B4@EXCHCLU01.office.lottery.co.at> <20070201165804.GW24487@domm2.zsi.at> Message-ID: <11FC899FAE8B8748AB9E591B14547744015792B5@EXCHCLU01.office.lottery.co.at> Hi Thomas, abgesehen davon, dass ich (zum Glueck) nicht im Marketing sitze, haben wir aus Firmensicht (leider) wenig mit Perl am Hut. Grad wir Unix-Sysmanager (und zukuenftig vielleicht auch die VMS-Kollegen) verwenden es fuer diverse Jobverarbeitungen. Der Modul-Hinweis hat mich vom Sessel geworfen, weil ich ansich unter *nix immer versuche alles ueber Module abzuwickeln und die Shell moeglichst nicht verwende. VMS ist fuer mich allerdings recht neu und ungewohnt, weshalb ich im ganzen "Drumherum" einfach nicht dran gedacht habe. Hab's soeben mal unter VMS dazugeworfen und werd's ausprobieren. thx, Oliver > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces+oliver.baier=lotterien.at at pm.org > [mailto:vienna-pm-bounces+oliver.baier=lotterien.at at pm.org] > Im Auftrag von Thomas Klausner > Gesendet: Donnerstag, 01. Februar 2007 17:58 > An: vienna-pm at pm.org > Betreff: Re: [Vienna-pm] ssh unter OpenVMS > > Hi! > > On Thu, Feb 01, 2007 at 05:37:43PM +0100, Baier Oliver wrote: > > > Hat von euch schon wer Erfahrung mit perl und ssh unter OpenVMS? > > Nein, aber hast du schon Net::SSH probiert? Bzw Net::SSH::Perl > (Net::SSH::Perl is an all-Perl module implementing an SSH > (Secure Shell) > client. It is compatible with both the SSH-1 and SSH-2 protocols.) > > > Oesterreichische Lotterien Gesellschaft m.b.H., Rennweg 44, > A-1038 Wien, > > FN 54472 g, Handelsgericht Wien, DVR-Nr: 0476706 > > Ah, freche Frage: wuerdet ihr (wenn ich das richtig verstehe > und du bei > den Lotterien arbeitest und ihr Perl verwendet) ev auch die > YAPC::Europe > 2007 in Wien sponsorn? > > -- > #!/usr/bin/perl http://domm.zsi.at > for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > > --- Laden Sie das E-Mail Wurzelzertifikat der Oesterreichischen Lotterien zur Vervollst?ndigung des Validierungspfades. Download the E-Mail root certificate of the Austrian Lotteries for completing the validation-path. http://www.lotterien.at/gaming/mailcert.html -------------- next part -------------- A non-text attachment was scrubbed... Name: smime.p7s Type: application/x-pkcs7-signature Size: 3643 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20070201/f8ea11b1/attachment.bin From lt at toetsch.at Thu Feb 1 12:23:21 2007 From: lt at toetsch.at (Leopold Toetsch) Date: Thu, 1 Feb 2007 21:23:21 +0100 Subject: [Vienna-pm] Fwd: European Perl Hackathon In-Reply-To: <20070201154942.GT24487@domm2.zsi.at> References: <20070201154942.GT24487@domm2.zsi.at> Message-ID: <200702012123.22032.lt@toetsch.at> Am Donnerstag, 1. Februar 2007 16:49 schrieb Thomas Klausner: > Hi! > > Vielleicht hat ja jemand Lust (ich haett Lust, aber keine Zeit...) > > Leo, fahrst du hin? Nope. Ich werde wohl virtuellerweise mit-IRCen. leo From mathias.frey at wu-wien.ac.at Fri Feb 2 08:33:05 2007 From: mathias.frey at wu-wien.ac.at (Mathias Frey) Date: Fri, 02 Feb 2007 17:33:05 +0100 Subject: [Vienna-pm] Webdesign gesucht Message-ID: <45C367C1.4040507@wu-wien.ac.at> [Sorry f?r den SPAM:] Wir suchen f?r die von uns erstellte Verwaltungssoftware der WU-Wien ein passendes (Web-)Design und w?rden diese Arbeit gerne an einen Experten abgeben: D.h. wir brauchen jemand, der - f?r unsere GUIs ein passendes Layout/Design entwickelt - auf Basis von validem HTML, CSS, etc. ohne tanzende Hamster oder Flash-Gru?karten ;-) - daraus eine Doku f?r unsere Entwickler erzeugt damit sich der neue Look&Feel auch durchsetzt Falls jemand von euch einen HTML-Spezialisten kennt, bitte weiterleiten. N?here Infos gibt's bei mir! lg mathias -- Mathias Frey WU > ZID > VA > BACH +43(1)31336-6080 //* How can we all have died at the *same* time? The salmon mousse! *// From wilhelm.nagy at bfw.gv.at Wed Feb 7 06:35:56 2007 From: wilhelm.nagy at bfw.gv.at (nagy) Date: Wed, 7 Feb 2007 15:35:56 +0100 Subject: [Vienna-pm] Hallo/oracle probleme Message-ID: Hallo Leute, es war in letzter zeit etwas still um mich. Hatte so ein paar kleine problemscher. aber ist wieder im loot. Hab eine neuen job und bin dabei hier perl einzuf?hren. (wilhelm.nagy at bfw.gv.at) Ich h?re schon ein paar lachen, weil hier wird linux aber auch Windows verwendet... BTW: die lassen mich hier nicht den kernel compelieren! also sowas, ich habe gedacht, dass man das als erstes nach dem IPL immer gleich machen muss. aber zu meinem problem: Hat jemand erfahrungen mit DBI::DBD und oracle mit CLOBs. Die 'einfachen' Datentypen funktioniere schon recht gut nur die BLOBs machen probleme. Ich habe schon manches Versucht: $oDb->Attach(-dbd=>'ODBC',-connectstring=>'Driver={Microsoft ODBC for Oracle};Server=bfw.world;Uid=hr;Pwd=hr;', -properties=>{AutoCommit => 0, RaiseError => 0, ora_check_sql => 0, RowCacheSize => 16, LongReadLen => 5242880, LongTruncOk => 0 } ); Hier noch ein paar versuche: $oDb->Attach(-dbd=>'ADO',-connectstring=>'Provider=MSDAORA;distribtx=0;Data Source=bfw.world;',-user=>'hr',-password=>'hr'); $oDb->Attach(-dbd=>'ODBC',-connectstring=>'Driver={Microsoft ODBC for Oracle};Server=bfw.world;Uid=hr;Pwd=hr;'); $oDb->Attach(-dbd=>'ODBC',-connectstring=>'HR',-user=>'hr',-password=>'hr'); Am schlimsten ist, das der nativ oracle Treiber nicht funktioniert. $oDb->Attach(-dbd=>'oracle',-connectstring=>'Server=bfw.world;Uid=hr;Pwd=hr;'); ---------- Fehlermeldung ---------- install_driver(oracle) failed: Can't load 'C:/Perl/site/lib/auto/DBD/Oracle/Oracle.dll' for module DBD::Oracle: load_file:Die angegebene Prozedur wurde nicht gefunden at C:/Perl/lib/DynaLoader.pm line 230. at (eval 4) line 3 Compilation failed in require at (eval 4) line 3. Perhaps a required shared library or dll isn't installed where expected at W:\Utils\ORA-RegEx\regex.pl line 6 Ich habe schon mehere stunden im google verbracht aber nix brauchbares gefunden. lg \^/ili -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/vienna-pm/attachments/20070207/e7262815/attachment.html From hjp-vienna-pm-list at hjp.at Wed Feb 7 08:15:29 2007 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Wed, 7 Feb 2007 17:15:29 +0100 Subject: [Vienna-pm] Hallo/oracle probleme In-Reply-To: References: Message-ID: <20070207161529.GA32529@hjp.at> On 2007-02-07 15:35:56 +0100, nagy wrote: > Hat jemand erfahrungen mit DBI::DBD und oracle mit CLOBs. (Ich nehme an, Du meinst "BDI bzw. DBD". perldoc DBI::DBD liefert mir den "Perl DBI Database Driver Writer?s Guide", und ich hoffe doch, dass Du es nicht f?r n?tig erachtest DBD::Oracle neu zu implementieren :-) ) Ja. Nicht wirklich viel, aber ich habe schon BLOBs und CLOBs in Oracle Datenbanken abgespeichert und auch wieder rausbekommen. > Die 'einfachen' Datentypen funktioniere schon recht gut nur die BLOBs machen probleme. > > Ich habe schon manches Versucht: > > $oDb->Attach(-dbd=>'ODBC',-connectstring=>'Driver={Microsoft ODBC for Oracle};Server=bfw.world;Uid=hr;Pwd=hr;', ^^^^^^^^^^^^ Welches Modul verwendest Du da? DBI ist das jedenfalls nicht. Ich habe hier folgendes herumliegen: my $dbh = DBI->connect(_read_cred($cred_file), { RaiseError => 1, AutoCommit => 1 }); $dbh->{LongReadLen} = 16_000_000; [...] my $sth = $dbh->prepare("update $table set $field=? where $where"); $sth->execute($content); $dbh->disconnect; (das ganze Script ist 43 Zeilen lang, der Rest ist aber nur File-Handling und hat mit Oracle nichts zu tun) > ---------- Fehlermeldung ---------- > install_driver(oracle) failed: Can't load 'C:/Perl/site/lib/auto/DBD/Oracle/Oracle.dll' for module DBD::Oracle: load_file:Die angegebene Prozedur wurde nicht gefunden at C:/Perl/lib/DynaLoader.pm line 230. > at (eval 4) line 3 Der Fehler scheint beim Laden von DBD::Oracle aufzutreten. Das scheint mir im Widerspruch dazu zu stehen, dass die einfachen Datentypen funktionieren. Wenn Du DBD::Oracle nicht laden kannst, kann eigentlich gar nichts gehen. > Compilation failed in require at (eval 4) line 3. > Perhaps a required shared library or dll isn't installed where expected > at W:\Utils\ORA-RegEx\regex.pl line 6 Das schaut so aus als ob DBD::Oracle nicht korrekt installiert w?re. Mit den Feinheiten der Windows-Installation kenne ich mich nicht so aus, aber ein paar allgemeine Tipps: * Gibt es eine funktionierende Oracle-Client-Installation auf der Kiste? Kannst Du mit SQL-Plus connecten? * Wie hast Du DBD::Oracle installiert? Selber compiliert oder ?ber Activestate (o.?.)? Wenn letzteres: Passt die DBD::Oracle-Version zur Oracle-Version? * Wei? DBD::Oracle, wo die Oracle-Libraries zu finden sind? Auf Unixen muss man das entweder (je nach OS/Compiler) zur Compile-Time angeben oder zur Runtime LD_LIBRARY_PATH gesetzt haben. hp -- _ | Peter J. Holzer | I know I'd be respectful of a pirate |_|_) | Sysadmin WSR | with an emu on his shoulder. | | | hjp at hjp.at | __/ | http://www.hjp.at/ | -- Sam in "Freefall" -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 189 bytes Desc: Digital signature Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20070207/095024bb/attachment.bin From domm at cpan.org Mon Feb 12 06:41:22 2007 From: domm at cpan.org (Thomas Klausner) Date: Mon, 12 Feb 2007 15:41:22 +0100 Subject: [Vienna-pm] Reminder: Treffen heute, 19:00, Ronahi Message-ID: <20070212144121.GJ24487@domm2.zsi.at> Hi! Heute, 19:00 Ronahi 1070 Wien, Schottenfeldgasse 18 Besuch aus Birmingham, YAPC-Orga-Meeting und allgemeines Geplaudere. Sofatisch (oben) ist reserviert auf Vienna.pm. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From lt at toetsch.at Mon Feb 12 14:18:15 2007 From: lt at toetsch.at (Leopold Toetsch) Date: Mon, 12 Feb 2007 23:18:15 +0100 Subject: [Vienna-pm] Reminder: Treffen heute, 19:00, Ronahi In-Reply-To: <20070212144121.GJ24487@domm2.zsi.at> References: <20070212144121.GJ24487@domm2.zsi.at> Message-ID: <200702122318.16032.lt@toetsch.at> Am Montag, 12. Februar 2007 15:41 schrieb Thomas Klausner: > Hi! > > Heute, 19:00 Ist mir ja peinlich, aber zu Hause hatte ich nur mehr 2 TShirts in der Hand. Das XXL war irgendwie zu schwer und muss mir rausgerutscht sein. leo From domm at cpan.org Tue Feb 13 00:27:13 2007 From: domm at cpan.org (Thomas Klausner) Date: Tue, 13 Feb 2007 09:27:13 +0100 Subject: [Vienna-pm] Fwd: Nordic Perl Workshop 2007 Message-ID: <20070213082713.GK24487@domm2.zsi.at> Hi! ist zwar ein bissl weit weg, aber vielleicht zieht es ja jemanden in den Norden... ----- Forwarded message from Claes Jakobsson ----- From: Claes Jakobsson Subject: [pm_groups] Nordic Perl Workshop 2007 Date: Sat, 10 Feb 2007 17:17:31 +0100 To: pm_groups at pm.org Hi, please send the invitation below to your local group if you think they might be interested. Thanks Claes Jakobsson, Stockholm Perl Mongers --------- The Copenhagen Perl Mongers will host the Fifth Nordic Perl Workshop on April 28-29, 2007. Submit proposals for papers, offer sponsorship, or volunteer to help. The price for two days of the workshop with lunch included is 500 DKK (about $US90). Presentations are held mostly in english. And, as usual, the workshop fee is waived for speakers, so submit a talk! Hope to see you in Copenhagen! http://www.perlworkshop.dk/2007/ http://www.perlworkshop.dk/2007/cfp.html http://www.perlworkshop.dk/2007/sponsors.html -- Request pm.org Technical Support via support at pm.org pm_groups mailing list pm_groups at pm.org http://mail.pm.org/mailman/listinfo/pm_groups ----- End forwarded message ----- -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at cpan.org Tue Feb 13 00:40:14 2007 From: domm at cpan.org (Thomas Klausner) Date: Tue, 13 Feb 2007 09:40:14 +0100 Subject: [Vienna-pm] Fwd: deutschsprachiges Perl-Magazin - Hilfe ben?tigt Message-ID: <20070213084014.GL24487@domm2.zsi.at> ----- Forwarded message from mailinglisten at renee-baecker.de ----- From: mailinglisten at renee-baecker.de Subject: deutschsprachiges Perl-Magazin - Hilfe ben?tigt Date: Sun, 4 Feb 2007 20:08:35 +0100 To: perl-mongers at 42.org Hallo Perlmongers, vielleicht habt ihr es schon mitbekommen: Ich habe eine deutschsprachige Perl-Zeitschrift herausgebracht (http://www.foo-magazin.de). Da ich auch immer News von den Perlmonger-Gruppen darin aufnehmen will, bin ich auf eure Hilfe angewiesen. Wenn ihr irgendwelche besonderen Treffen veranstaltet, oder sich der "Leader" der Gruppe ?ndert, w?re es sch?n, wenn ich von euch eine kurze Mail bekommen w?rde. Oder wenn sich jemand als Autor eines Artikels hervortun will, kann er mir gerne den Artikel zumailen... Viele Gr??e, Ren?e ----- End forwarded message ----- -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at cpan.org Thu Feb 15 22:49:19 2007 From: domm at cpan.org (Thomas Klausner) Date: Fri, 16 Feb 2007 07:49:19 +0100 Subject: [Vienna-pm] xkcd wiedermal... Message-ID: <20070216064919.GY11756@domm2.zsi.at> Hi! http://xkcd.com/c224.html ein bischen aelter: http://xkcd.com/c208.html -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From oliver.baier at lotterien.at Thu Feb 22 08:44:49 2007 From: oliver.baier at lotterien.at (Baier Oliver) Date: Thu, 22 Feb 2007 17:44:49 +0100 Subject: [Vienna-pm] Namen der Variable erhalten Message-ID: <11FC899FAE8B8748AB9E591B14547744015793B5@EXCHCLU01.office.lottery.co.at> Hi, ich will einer sub verschiedene Variablen uebergeben, deren Werte ich verarbeiten und mit dem Variablennamen verknuepfen will. Wenn ich eine Referenz uebergebe, bekomme ich problemlos den dahinterliegenden Wert, und wenn ich den Namen der Variable uebergebe, habe ich diesen zur Verfuegung. Aber wie komme ich an beides zugleich? Oder geht das gar nicht und ich muss mir einen Mapping-Hash erstellen? lg Oliver Oesterreichische Lotterien Gesellschaft m.b.H., Rennweg 44, A-1038 Wien, FN 54472 g, Handelsgericht Wien, DVR-Nr: 0476706 From bernd at firmix.at Thu Feb 22 08:52:57 2007 From: bernd at firmix.at (Bernd Petrovitsch) Date: Thu, 22 Feb 2007 17:52:57 +0100 Subject: [Vienna-pm] Namen der Variable erhalten In-Reply-To: <11FC899FAE8B8748AB9E591B14547744015793B5@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B14547744015793B5@EXCHCLU01.office.lottery.co.at> Message-ID: <1172163177.16204.95.camel@tara.firmix.at> On Thu, 2007-02-22 at 17:44 +0100, Baier Oliver wrote: [...] > Wenn ich eine Referenz uebergebe, bekomme ich problemlos > den dahinterliegenden Wert, und wenn ich den Namen der > Variable uebergebe, habe ich diesen zur Verfuegung. > > Aber wie komme ich an beides zugleich? Ungetestet: $main::$varname = 1 (f?r globale Variablen). oder mit `eval` drumrum ..... Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From oliver.baier at lotterien.at Thu Feb 22 11:55:22 2007 From: oliver.baier at lotterien.at (Baier Oliver) Date: Thu, 22 Feb 2007 20:55:22 +0100 Subject: [Vienna-pm] Namen der Variable erhalten References: <11FC899FAE8B8748AB9E591B14547744015793B5@EXCHCLU01.office.lottery.co.at> <1172163177.16204.95.camel@tara.firmix.at> Message-ID: <11FC899FAE8B8748AB9E591B14547744015793B6@EXCHCLU01.office.lottery.co.at> > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces+oliver.baier=lotterien.at at pm.org > [mailto:vienna-pm-bounces+oliver.baier=lotterien.at at pm.org] > Im Auftrag von Bernd Petrovitsch > Gesendet: Donnerstag, 22. Februar 2007 17:53 > > > Wenn ich eine Referenz uebergebe, bekomme ich problemlos > > den dahinterliegenden Wert, und wenn ich den Namen der > > Variable uebergebe, habe ich diesen zur Verfuegung. > > > > Aber wie komme ich an beides zugleich? > > Ungetestet: > $main::$varname = 1 (f?r globale Variablen). > > oder mit `eval` drumrum ..... Hallo Bernd, die Variable existiert aber zuvor schon und ist befuellt... Werd wohl nicht drum herumkommen, der sub eine Referenz auf ein Hashelement zu uebergeben, das den Variablennamen beinhaltet und dessen Variableninhalt wiederum woanders abgelegt ist... schade, hatte gehofft, es gibt da einen Trick. thx anyway Oliver Oesterreichische Lotterien Gesellschaft m.b.H., Rennweg 44, A-1038 Wien, FN 54472 g, Handelsgericht Wien, DVR-Nr: 0476706 From spaceman at foo.at Thu Feb 22 12:30:29 2007 From: spaceman at foo.at (Stefan Weiss) Date: Thu, 22 Feb 2007 21:30:29 +0100 Subject: [Vienna-pm] Namen der Variable erhalten In-Reply-To: <11FC899FAE8B8748AB9E591B14547744015793B6@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B14547744015793B5@EXCHCLU01.office.lottery.co.at> <1172163177.16204.95.camel@tara.firmix.at> <11FC899FAE8B8748AB9E591B14547744015793B6@EXCHCLU01.office.lottery.co.at> Message-ID: <45DDFD65.5040301@foo.at> Hi, On 22/02/07 20:55, Baier Oliver wrote: > die Variable existiert aber zuvor schon und ist befuellt... > > Werd wohl nicht drum herumkommen, der sub eine Referenz > auf ein Hashelement zu uebergeben, das den Variablennamen > beinhaltet und dessen Variableninhalt wiederum woanders > abgelegt ist... schade, hatte gehofft, es gibt da einen Trick. Erstens macht das ja nichts, ob die Variable schon existiert oder nicht; es wird in Bernds Beispiel ja nur exemplarisch der Wert auf 1 gesetzt. Zweitens, ich bin neugierig: wozu brauchst du das? Ich hab noch nie einer Funktion einen Variablennamen ?bergeben m?ssen. Das, und auch die erhofften "Tricks" daf?r, klingen wie ein sicheres Rezept f?r ganz garstigen und unwartbaren Code. Au?erdem kannst du mit $main::... auch nur package-globale Variablen ansprechen, keine lexikalischen ("my"). In was f?r Situationen w?re es sinnvoll, einen Variablennamen zu ?bergeben? .stefan -- :wq From oliver.baier at lotterien.at Fri Feb 23 01:00:40 2007 From: oliver.baier at lotterien.at (Baier Oliver) Date: Fri, 23 Feb 2007 10:00:40 +0100 Subject: [Vienna-pm] Namen der Variable erhalten References: <11FC899FAE8B8748AB9E591B14547744015793B5@EXCHCLU01.office.lottery.co.at> <45DE9E06.9050000@thalesgroup.com> Message-ID: <11FC899FAE8B8748AB9E591B14547744015793B9@EXCHCLU01.office.lottery.co.at> > -----Urspr?ngliche Nachricht----- > Von: Wolfgang Laun [mailto:Wolfgang.Laun at thalesgroup.com] > Gesendet: Freitag, 23. Februar 2007 08:56 > > Als weitere Variante k?me in Frage, alle auf diese Weise zu > ?bergebenden > Variablen mit tie an ein Objekt zu binden, das Name und Wert > verwaltet. > Da gehen dann auch lexikalische Variablen, und > programmiertechnisch ist > es halbwegs akzeptabel: Abgesehen von der Notwendigkeit, tie() > aufzurufen, muss man nur aufpassen, alle ?bergaben per > Referenz zu machen. > > #! /usr/bin/perl -w > use strict; > > sub procVar(\$) { > my( $aRef ) = @_; > print "name is ", nameof( $aRef ), "\n"; > print "value is $$aRef\n"; > $$aRef++; > } > sub nameof($){ > my $aRef = shift; > return tied( $$aRef )->getName(); > } > > tie my $x, 'NameValue', 'x', 42; > procVar( $x ); > print "x=$x\n"; > > package NameValue; > sub TIESCALAR { > my( $class, $name, $value ) = @_; > bless( { name => $name, value => $value }, $class ); > } > sub FETCH { > my $self = shift(); > return $self->{value}; > } > sub STORE { > my( $self, $newval ) = @_; > $self->{value} = $newval; > } > sub getName(){ > my $self = shift(); > return $self->{name}; > } > 1; > > Aber warum? Wenn Name und Wert als Daten verarbeitet werden > sollen, dann > ist doch ein Hash sowieso zweckm??iger? erstmal danke fuer die Auflistung der Moeglichkeiten! auch gleich als Antwort auf die Frage von Stefan: Ich wollte mir einfach einen Hash mit einem Value pro Key ersparen. Mein Beispiel kann man sich so vorstellen: Das Script bekommt eine Liste von Argumenten uebergeben, die es je nach Position und Inhalt unterschiedlich verarbeiten muss. Da ich die Argumentliste nicht zweimal durchgehen wollte, habe ich nach einer praktischen einfachen Loesung gesucht und mich in eine Sackgasse verrannt. Ich hab mir gedacht, dass es mit Perl doch einfach moeglich sein muss, den Namen der Variable zu erhalten, die man grad uebergeben bekommen hat. Leider ist mir erst jetzt eingefallen dass sich meine Anforderung vermutlich auch durch die Nutzung der Array-Indizes loesen laesst... ### Beispiel des bisher falschen Ansatzes: ### my ($anton, $berta, $caesar, $dora) = @names; ### besser: foreach (0 .. $#names) { Name anhand $_ bekannt, da die Position aussagekraeftig ist Wert ueber $names[$_] zugreifbar } Vermutlich greifen sich jetzt einige auf den Kopf, aber diese einfache Moeglichkeit ist mir gestern Abend einfach nicht eingefallen, ich wollte keinen counter mitschleppen und hab mich in die VarName-Sache verrannt. Das hat man davon, wenn man nur selten zum schreiben von Perl-Code kommt... Apropos, als Info zu meinem letzten Fall mit ssh unter OpenVMS: Die Verwendung von Net::SSH hat leider nicht geklappt, weil ein Haufen an Modulen dafuer erforderlich ist, von dem sich einige unter VMS einfach nicht gut installieren lassen. Das faengt mit case-Problemen an, weil von ODS2 mit lauter Grossbuchstaben ausgegangen wird, geht mit Pfadproblemen weiter, weil einfach Unix-Syntax auf OS-Ebene verwendet wird, und endet in einem Haufen weiterer Kleinigkeiten. Der Workaround fuer das "ssh Bufferproblem" war, $/="\r\n" in Kombination mit s#\n##g in jeder Zeile des open-commands, weil die Newlines beliebig reingestreut werden (erstmals immer nach 512 aber spaeter im Stream teilweise auch nach 5 Bytes!). lg Oliver Oesterreichische Lotterien Gesellschaft m.b.H., Rennweg 44, A-1038 Wien, FN 54472 g, Handelsgericht Wien, DVR-Nr: 0476706 --- Laden Sie das E-Mail Wurzelzertifikat der Oesterreichischen Lotterien zur Vervollst?ndigung des Validierungspfades. Download the E-Mail root certificate of the Austrian Lotteries for completing the validation-path. http://www.lotterien.at/gaming/mailcert.html -------------- next part -------------- A non-text attachment was scrubbed... Name: smime.p7s Type: application/x-pkcs7-signature Size: 3643 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20070223/d37d2366/attachment.bin From bernd at firmix.at Fri Feb 23 01:54:06 2007 From: bernd at firmix.at (Bernd Petrovitsch) Date: Fri, 23 Feb 2007 10:54:06 +0100 Subject: [Vienna-pm] Namen der Variable erhalten In-Reply-To: <11FC899FAE8B8748AB9E591B14547744015793B6@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B14547744015793B5@EXCHCLU01.office.lottery.co.at> <1172163177.16204.95.camel@tara.firmix.at> <11FC899FAE8B8748AB9E591B14547744015793B6@EXCHCLU01.office.lottery.co.at> Message-ID: <1172224446.5937.8.camel@tara.firmix.at> On Thu, 2007-02-22 at 20:55 +0100, Baier Oliver wrote: [...] > > Ungetestet: > > $main::$varname = 1 (f?r globale Variablen). > > > > oder mit `eval` drumrum ..... > Hallo Bernd, > > die Variable existiert aber zuvor schon und ist befuellt... Entschuldige, da? ich in meiner Kristallkugel nicht genau die L?sung gefunden habe, die deine Arbeit ohne weiteres zu tun deinerseits erledigt. Hinweis: Wenn du die Variable schreiben kannst, wirst du sie auch lesen k?nnen. Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From hjp-vienna-pm-list at hjp.at Sat Feb 24 10:59:37 2007 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Sat, 24 Feb 2007 19:59:37 +0100 Subject: [Vienna-pm] Kein Source-Code im Debugger Message-ID: <20070224185937.GA23875@hjp.at> Mir ist das in letzter Zeit ?fter passiert: Wenn ich ein perl-Programm im Debugger durchgehe, bekomme ich f?r manche Source-Files (oder manchmal auch nur f?r Teile eines Source-Files) keinen Source-Code zu sehen, sondern nur die Zeilennummern: Hier ein Transscript: [...] | 36: print "# Running $method tests for plugin " . $plugin->plugin_name . "\n"; | DB<1> | # Running test tests for plugin require_resolvable_client | Qpsmtpd::Plugin::run_tests(/home/hjp/wrk/qpsmtpd/trunk/t/Test/Qpsmtpd/Plugin.pm:37): | 37: local $plugin->{_qp} = $qp; | DB<1> | Qpsmtpd::Plugin::run_tests(/home/hjp/wrk/qpsmtpd/trunk/t/Test/Qpsmtpd/Plugin.pm:38): | 38: $plugin->$method(); Bis hierher ist alles in Ordnung, jetzt gehe ich in die Methode rein: | DB<1> s | Qpsmtpd::Plugin::require_resolvable_client::test(t/plugin_tests/require_resolvable_client:8): | 8: Ups. Da steht nur mehr "8:" und nicht "8: my ($self) = @_;", wie es sein sollte. Wenn ich weitergehe, bleibt das so: | DB<1> n | Qpsmtpd::Plugin::require_resolvable_client::test(t/plugin_tests/require_resolvable_client:9): | 9: | DB<1> | Qpsmtpd::Plugin::require_resolvable_client::test(t/plugin_tests/require_resolvable_client:10): | 10: | DB<1> | Qpsmtpd::Plugin::require_resolvable_client::test(t/plugin_tests/require_resolvable_client:11): | 11: | DB<1> | Qpsmtpd::Plugin::require_resolvable_client::test(t/plugin_tests/require_resolvable_client:12): | 12: | DB<1> | Qpsmtpd::Plugin::require_resolvable_client::test(t/plugin_tests/require_resolvable_client:13): | 13: | DB<1> | ok 1 - example.com is 192.0.34.166 Zeile 13 sollte genau das ausgeben. Das Programm funktioniert also, man ist nur im Blindflug unterwegs. Kennt jemand von Euch das Ph?nomen? In diesem speziellen Fall habe ich eine Theorie, woran es liegen k?nnte: Das File t/plugin_tests/require_resolvable_client wurde nicht mit "use" oder "require" eingelesen. Statt dessen wurde ein String, der die Zeile #line 1 t/plugin_tests/require_resolvable_client enth?lt, "eval"uiert (Der Code wird aus mehreren Files und etwas Boilerplate zusammengebastelt, daher die seltsame Konstruktion). Der Debugger wei? offensichtlich, wo er sein sollte (Filename und Zeilennummer stimmen), findet aber den dazupassenden Source nicht. Ich sehe bei einem strace auch nicht, dass der Debugger dieses oder ein anderes File extra ?ffnen w?rde - wird bei einem require oder use der Source-Code gespeichert? In anderen F?llen, in denen mir das untergekommen ist, war aber IIRC kein eval beteiligt - das waren "ganz normale" Perl-Module. hp -- _ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht |_|_) | Sysadmin WSR | > ist? | | | hjp at hjp.at | Was sonst w?re der Sinn des Erfindens? __/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd -------------- 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/20070224/d5930153/attachment.bin From domm at cpan.org Wed Feb 28 04:29:41 2007 From: domm at cpan.org (Thomas Klausner) Date: Wed, 28 Feb 2007 13:29:41 +0100 Subject: [Vienna-pm] YAPC-Orga-Meeting: Mo, 5.3., 19:00, HappyLab Message-ID: <20070228122941.GC29563@domm2.zsi.at> Hi! Naechstes YAPC-Orga-Meeting mit auch ein bischen Socialising: MO, 5.3.2007 19:00 HappyLab http://www.happylab.at/w/HappyLab Kampstra?e 15/1, A-1200 Wien Alle Interessierten sind herzlich eingeladen! -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}