From roland.bauer at fff.at Sun Nov 7 18:13:22 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:01 2004 Subject: Wiener Perl Mongers Treffen Message-ID: <382615A2.FABCCD5A@fff.at> * * * vienna-pm-list * * * Hallo Mongers! Marcel und ich haben uns am Wochenende getroffen und dabei kam Folgendes heraus ... Wiener Perl Mongers Treffen Am Donnerstag, 18. 11. 1999 ab 19 Uhr soll in Wien das erste - offizielle - Treffen der Wiener Perl Mongers stattfinden. Perl Mongers: http://www.fff.at/fff/vienna.pm/ Der genaue Ort wird in der Mailingliste mailto:vienna-pm-list@hfb.pm.org vereinbart. Erwartet Euch nichts Grossartiges, derzeit hat die Mailingliste etwa fuenf Mitglieder ;-) Von drei Leuten weiss ich schon, dass sie kommen werden und Perl wird sicherlich auch ein Thema sein ... Ein bestimmtes Programm gibt es nicht, wir laden aber speziell auch ------------------------- Perl-Neulinge ------------------------- ein, bei uns vorbeizukommen. Prost! - Roland P.S.: Bitte diese Einladung an Interessierte weiterleiten. -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From p.guehring at enemy.org Mon Nov 8 12:15:14 1999 From: p.guehring at enemy.org (Philipp Gühring) Date: Thu Aug 5 00:24:01 2004 Subject: Treffen, Code Review Message-ID: <99110819573409.00801@linux1> * * * vienna-pm-list * * * Hi! Ich hätte Interesse, beim Treffen am 18. dabei zu sein. Wo soll es denn stattfinden? Noch was anderes: Ich hab ein Perl Programm namens PerlChat entwickelt, mit dem man mittels Browser diskutieren kann. Hat jemand Lust, das Ding mal zu debuggen, und zu verbessern? Ich bin noch eher Anfänger, was Perl betrifft. http://members.xoom.com/p_guehring/perlchat.tgz Ich denke, daß man mit den Perl Modulen HTML::, CGI::, ... noch einiges optimieren kann. Schöne Grüße, -- ~ Philipp Gühring p.guehring@poboxes.com ~ http://www.poboxes.com/p.guehring ICQ UIN: 6588261 ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From vkalajdzic at MCS.at Tue Nov 9 00:53:54 1999 From: vkalajdzic at MCS.at (Vlado Kalajdzic) Date: Thu Aug 5 00:24:01 2004 Subject: Wiener Perl Mongers Treffen Message-ID: <06473754901235@mmm.at> * * * vienna-pm-list * * * Hallo Roland & co, bitte melde rechtzeitig den Ort, ich komme gerne! Servus Vlado -------------------------------------------------------------------------- | MANZsche Buchdruckerei Stein & Co | Tel: +43/1/54 665-225 | | Vlado Kalajdzic | Fax: +43/1/54 665-264 | | (Datenmanagement) | e-mail: vkalajdzic@MCS.at | | A-1050 Wien, Siebenbrunnengasse 21 | http://www.MCS.at | -------------------------------------------------------------------------- ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Tue Nov 9 15:37:48 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:01 2004 Subject: Derzeit 9 Mongers References: <06473754901235@mmm.at> Message-ID: <3828942C.92F52542@fff.at> * * * vienna-pm-list * * * Hallo Vlado & Co! > bitte melde rechtzeitig den Ort, ich komme gerne! Hat jemand einen Vorschlag? Ein Kaffeehaus? Ein Stadt-Heuriger? Ein Bier-Lokal? Derzeit sind 9 Mongers auf der Liste. Schoene Gruesse Roland ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Thu Nov 11 10:16:30 1999 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Thu Aug 5 00:24:01 2004 Subject: Derzeit 9 Mongers In-Reply-To: <3828942C.92F52542@fff.at>; from Roland Bauer on Tue, Nov 09, 1999 at 10:37:48PM +0100 References: <06473754901235@mmm.at> <3828942C.92F52542@fff.at> Message-ID: <19991111171630.B6160@wsr.ac.at> On 1999-11-09 22:37:48 +0100, Roland Bauer wrote: > > bitte melde rechtzeitig den Ort, ich komme gerne! > > Hat jemand einen Vorschlag? > > Ein Kaffeehaus? Ein Stadt-Heuriger? Ein Bier-Lokal? Lieber Bier als Wein, und wenns was zu essen gibt, ist das auch kein Fehler. Geringer Ger?uschpegel und Erreichbarkeit (oder eher Verla?barkeit) mit ?ffentlichen Verkehrsmitteln sind ebenfalls Kriterien. Ein paar Lokale, die sich bei Luga-Treffen bereits bew?hrt haben: Bierkutschn (Wien Mitte) Salmbr?u (Rennweg, nahe Schwarzenbergplatz) Seibold (Aegidigasse, nahe Wbf) hp -- _ | Peter J. Holzer | Nobody should ever have to be |_|_) | Sysadmin WSR / Obmann LUGA | ashamed if they have a secret love | | | hjp@wsr.ac.at | for writing computer programs that __/ | http://wsrx.wsr.ac.at/~hjp/ | actually work. -- Donald E. Knuth -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/19991111/f1633f72/attachment.bin From roland.bauer at fff.at Sun Nov 14 18:40:39 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:01 2004 Subject: Mongers: Lokalsuche References: <06473754901235@mmm.at> <3828942C.92F52542@fff.at> <19991111171630.B6160@wsr.ac.at> Message-ID: <382F5687.D7387A4A@fff.at> * * * vienna-pm-list * * * Hallo Peter, danke fuer den Vorschlag. Spaetestens am Dienstag waehl ich eines davon aus, es sei denn, es kommen noch Vorschlaege oder jemand aeussert vorher Praeferenzen fuer eines dieser drei Lokale. > Ein paar Lokale, die sich bei Luga-Treffen bereits bew?hrt haben: > > Bierkutschn (Wien Mitte) > Salmbr?u (Rennweg, nahe Schwarzenbergplatz) > Seibold (Aegidigasse, nahe Wbf) Schoene Gruesse Roland ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From Martin.Schretzmeier at one.at Mon Nov 15 08:45:58 1999 From: Martin.Schretzmeier at one.at (Schretzmeier, Martin) Date: Thu Aug 5 00:24:01 2004 Subject: Mongers: Lokalsuche Message-ID: <41E1A7B4D460D2118FA60008C71E3FB403314B82@NTSVIEMXS0011> * * * vienna-pm-list * * * Hey Mongers! Erstens: War zwar erst einmal im Salmbr?u und kenn leider die anderen nicht, aber Essen und Trinken war sehr gut. Zweitens: Ich suche ein Skript (ob Perl oder auch nicht), da? mir alle wichtigen HW und SW-Infos von Servern liefert. Am wichtigsten ist mir HP (D, R, K, N, L - Klasse), Sun und SGI w?re auch super. Ich brauch Memory, CPUs (Anzahl, Geschwindigkeit, Typ), Hostname, Lan-Karten mit IP-Adressen und Subnets, Disken (Anzahl, Gr??e, Typ), sonstige Peripherie (DAT, CD, ...), Version und Art des OS... Kennt/Hat irgendjemand von auch bereits sowas oder ist wer am basteln. Hab zwar schon begonnen soetwas unter Perl zu schreiben, dauert aber noch lange bis ich es habe. cu Martin Schretzmeier Sr. Analyst UNIX / Ingres Connect-Austria Gesellschaft f?r Telekomunikation GmbH Br?nnerstra?e 52 A-1210 Wien Fix- *: +43/1/27728-3151 Mobil-*: +43/699/16993151 mailto:martin.schretzmeier@one.at http://www.one.at -----Original Message----- From: Roland Bauer [mailto:roland.bauer@fff.at] Sent: Montag, 15. November 1999 01:41 To: Peter J. Holzer Cc: vienna-pm-list@happyfunball.pm.org Subject: Mongers: Lokalsuche * * * vienna-pm-list * * * Hallo Peter, danke fuer den Vorschlag. Spaetestens am Dienstag waehl ich eines davon aus, es sei denn, es kommen noch Vorschlaege oder jemand aeussert vorher Praeferenzen fuer eines dieser drei Lokale. > Ein paar Lokale, die sich bei Luga-Treffen bereits bew?hrt haben: > > Bierkutschn (Wien Mitte) > Salmbr?u (Rennweg, nahe Schwarzenbergplatz) > Seibold (Aegidigasse, nahe Wbf) Schoene Gruesse Roland ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Mon Nov 15 09:18:04 1999 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Thu Aug 5 00:24:01 2004 Subject: Hostinfo-Script (was Re: Mongers: Lokalsuche) In-Reply-To: <41E1A7B4D460D2118FA60008C71E3FB403314B82@NTSVIEMXS0011>; from Schretzmeier, Martin on Mon, Nov 15, 1999 at 03:45:58PM +0100 References: <41E1A7B4D460D2118FA60008C71E3FB403314B82@NTSVIEMXS0011> Message-ID: <19991115161804.T17960@wsr.ac.at> On 1999-11-15 15:45:58 +0100, Schretzmeier, Martin wrote: > Zweitens: Ich suche ein Skript (ob Perl oder auch nicht), da? mir alle > wichtigen HW und SW-Infos von Servern > liefert. Am wichtigsten ist mir HP (D, R, K, N, L - Klasse), Ja, f?r HP habe ich mal was geschrieben, nur hat es inzwischen etwas Patina angesetzt - w?re aber gern bereit das abzustauben. > Ich brauch Memory, CPUs (Anzahl, Geschwindigkeit, Typ), > Hostname, Lan-Karten mit IP-Adressen und Subnets, > Disken (Anzahl, Gr??e, Typ), sonstige Peripherie (DAT, CD, ...), Version und > Art des OS... Haupts?chlich liefert es derzeit Information ?ber SCSI-Adapter und alles was dran h?ngt. Memory funktioniert bei manchen Maschinen aber nicht bei allen. CPU, LAN, OS ist nicht drin, w?re aber wohl kein Problem. Das Script liefert wahlweise HTML oder LaTeX-Output (?ber Qualit?t des Codes und des Outputs sage ich lieber nichts :-). Mir pers?nlich fehlt noch: * Sinnvolle Einbindung unseres EMCs. * Portierung auf Linux. * Sinnvollere Untergliederung des Outputs. Ich werde das Machwerk mal selber kurz ?berfliegen, und dann auf meinen Webserver stellen. hp -- _ | Peter J. Holzer | Nobody should ever have to be |_|_) | Sysadmin WSR / Obmann LUGA | ashamed if they have a secret love | | | hjp@wsr.ac.at | for writing computer programs that __/ | http://wsrx.wsr.ac.at/~hjp/ | actually work. -- Donald E. Knuth -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/19991115/9b3d0cbd/attachment.bin From operamail at earthlink.net Mon Nov 15 13:17:29 1999 From: operamail at earthlink.net (operamail@earthlink.net) Date: Thu Aug 5 00:24:01 2004 Subject: Best New Trade Show Display Opera Portables, Inc. Message-ID: <869.530721.386518@earthlink.net> * * * vienna-pm-list * * * Opera Portables, Inc. is presenting "by invitation" visits to our web site. Newly updated and packed full of exciting display projects and news, Opera is leading the industry with eye-popping visuals and an exhibit structure that is completely new. Opera is a young progressive company and winner of multiple industry awards, including Exhibitor Magazine's Best New Product, Ernst & Young's Crescendo Award, 40 Under Forty and Emerging Thirty. Go to http://opera.mswin.net/ and check us out. If you use displays you really owe it to yourself to see our stuff! operamail@earthlink.net ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Tue Nov 16 14:01:05 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:01 2004 Subject: Perl Mongers: Do 19.00 Uhr Salmbraeu Message-ID: <3831B801.20EBB6C@fff.at> * * * vienna-pm-list * * * Hallo Perl Mongers, ( http://www.fff.at/fff/vienna.pm/ ) habe gerade einen Tisch fuer 10 Personen reserviert: Do, 18. 11. ab 19 Uhr im Salmbr?u 1030 Wien, Rennweg 8 (angeblich Naehe Schwarzenbergplatz) Wenn deutlich weniger als 10 Leute kommen, wird der Tisch halbiert, werden es mehr, werden Sessel dazugestellt (dh es wird eng). Soweit die Kellnerin. Reserviert habe ich unter "Perl" und "Computer". Etwas Besseres fiel mir auf die Schnelle nicht ein. Das koennen wir ja dann auch besprechen ;-) Meine Handy-Nummer: 0676/574-5-574 Schoene Gruesse Roland -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Fri Nov 19 17:16:01 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:01 2004 Subject: Treffen, Code Review References: <99110819573409.00801@linux1> Message-ID: <3835DA31.BEDBA7DF@fff.at> * * * vienna-pm-list * * * Halo Philipp, > Lust, das Ding mal zu debuggen, und zu verbessern? Ich bin noch eher > Anf?nger, was Perl betrifft. > http://members.xoom.com/p_guehring/perlchat.tgz Ich hab es nicht geschafft, das File zu entpacken. Ich bekam "Disk read error" Hab ich was falsch gemacht? Schoene Gruesse Roland -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Fri Nov 19 18:48:11 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:01 2004 Subject: New and updated pages Message-ID: <3835EFCA.6DEBF135@fff.at> http://www.fff.at/fff/vienna.pm/pages/1999-11-19-new.htm -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/vienna-pm/attachments/19991120/78d52feb/1999-11-19-new.htm From roland.bauer at fff.at Sat Nov 20 04:14:48 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:02 2004 Subject: snip - Perl Codeschnipsel Message-ID: <38367498.17802FF6@fff.at> Empfehlenswert dazu: Das "Perl Cookbook" von Tom Christiansen. Da sind lauter solche Schnipsel drin. Aber das ist von mir ;-) http://www.fff.at/fff/perl/snip/1999-11-20-uc.pod.htm -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/vienna-pm/attachments/19991120/347e6fe3/1999-11-20-uc.pod.htm From adepretis at mmm.at Sat Nov 20 04:42:55 1999 From: adepretis at mmm.at (Andreas de Pretis) Date: Thu Aug 5 00:24:02 2004 Subject: snip - Perl Codeschnipsel In-Reply-To: <38367498.17802FF6@fff.at> Message-ID: <4.1.19991120113104.03739a10@mail.mmm.at> * * * vienna-pm-list * * * At 11:14 20.11.99 +0100, you wrote: > > Empfehlenswert dazu: Das "Perl Cookbook" von Tom Christiansen. Noch besser ist das "Perl Bookshelf" von O'Reilly - 6 Perl Bestseller-Books (inkl. Cookbook) auf einer CD mit genialer Volltextsuche + "Perl in a Nutshell" zus?tzlich als Printversion beiliegend. ISBN: 1565924622 Btw. alle B?cher in Originalfassung, also Englisch :) cheers, Andreas ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Sat Nov 20 07:57:56 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:02 2004 Subject: Perl books Message-ID: <3836A8E4.3EFEED11@fff.at> http://www.fff.at/fff/perl/pages/1999-11-20-books.htm -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/vienna-pm/attachments/19991120/719c2e5f/1999-11-20-books.htm From hjp at wsr.ac.at Mon Nov 22 04:02:10 1999 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Thu Aug 5 00:24:02 2004 Subject: snip - Perl Codeschnipsel In-Reply-To: <38367498.17802FF6@fff.at>; from Roland Bauer on Sat, Nov 20, 1999 at 11:14:48AM +0100 References: <38367498.17802FF6@fff.at> Message-ID: <19991122110210.A1504@wsr.ac.at> On 1999-11-20 11:14:48 +0100, Roland Bauer wrote: > Converting a string to uppercase > > Angenommen, man m?chte folgenden String auf Gro?buchstaben umwandeln: > > $_ = "teststring"; > > ACHTUNG: Umlaute werden nicht ber?cksichtigt ... Das sollte rein theoretisch gehen, wenn man use locale; verwendet (und das System locales unterst?tzt und die entsprechenden Environment-Variablen gesetzt sind). Allerdings funktioniert es bei mir weder unter Redhat Linux 6.0 noch unter HP-UX 10.20 - in C-Programmen aber schon :-( > tr/a-z/A-Z/; Bei Ranges hat man allerdings immer das Problem, da? man dann wissen mu?, welcher Zeichensatz verwendet wird. Obiges funktioniert nur in ASCII. In POSIX-Regexps gibt es eine (ziemlich h??liche) Syntax f?r Character-Classes, z.B.: grep '[[:upper:]][[:lower:][:digit:]]' gibt alle Zeilen aus, in denen ein Gro?buchstabe von einem Kleinbuchstaben oder einer Ziffer gefolgt wird. So etwas scheint es in Perl nicht zu geben. > Not recommended ... > > s/[a-z]/uc $&/eg; Wie w?r's mit s/.*/\U$&\E/; hp -- _ | Peter J. Holzer | Nobody should ever have to be |_|_) | Sysadmin WSR / Obmann LUGA | ashamed if they have a secret love | | | hjp@wsr.ac.at | for writing computer programs that __/ | http://wsrx.wsr.ac.at/~hjp/ | actually work. -- Donald E. Knuth -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/19991122/a78d9c19/attachment.bin From roland.bauer at fff.at Mon Nov 22 15:01:15 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:02 2004 Subject: snip - Perl Codeschnipsel References: <38367498.17802FF6@fff.at> <19991122110210.A1504@wsr.ac.at> Message-ID: <3839AF1B.150DBB36@fff.at> * * * vienna-pm-list * * * > > Converting a string to uppercase > use locale; so steht es auch im Cookbook ;-) > > Not recommended ... > > > > s/[a-z]/uc $&/eg; > Wie w?r's mit > s/.*/\U$&\E/; oder auch: s/./\u$&/g; Roland -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Mon Nov 22 16:48:49 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:02 2004 Subject: Das Verwendung von "use strict;" Message-ID: <3839C851.D731A309@fff.at> http://www.fff.at/fff/perl/pages/1999-11-22-strict.htm -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/vienna-pm/attachments/19991122/ef443e13/1999-11-22-strict.htm From Roland.Bauer at mediaprint.at Tue Nov 23 04:13:19 1999 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:24:02 2004 Subject: hash of hashes Message-ID: * * * vienna-pm-list * * * Kann mir bitte jemand auf die Spruenge helfen? use strict; my %x; $x{33}{44}=7; $x{33}{45}=8; $x{33}{46}=9; for my $y (keys %x) { print "y = $y\n"; # 33 my %z = $x{$y}; # wieso nicht 444546 ??? <<<<<<<<<<<<<<<<<<<<< print "KEYS = ",(keys %z),"\n"; } dabke ! -- roland.bauer@mediaprint.at internet-applikationen TEL: +43-1-36000/3949 ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From Roland.Bauer at mediaprint.at Tue Nov 23 05:42:13 1999 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:24:02 2004 Subject: Antw: Re: hash of hashes Message-ID: * * * vienna-pm-list * * * Hallo Marcel, danke fuer den Tip. (Ich war irritiert dadurch, dass keys unbedingt ein % am variablenbeginn will) So funktioniert es: use strict; my %x; $x{33}{44}=7; $x{33}{45}=8; $x{33}{46}=9; for my $y (keys %x) { print "y = $y\n"; # 33 my $z = $x{$y}; # 444546 print "KEYS = ",(keys %$z),"\n"; } Roland -- roland.bauer@mediaprint.at internet-applikationen TEL: +43-1-36000/3949 >>> Marcel Grunauer 23.11.1999 11.42 Uhr >>> On Tue, 23 Nov 1999 11:13:19 +0100, you wrote: > * * * vienna-pm-list * * * > Kann mir bitte jemand auf die Spruenge helfen? > > use strict; > > my %x; > > $x{33}{44}=7; > $x{33}{45}=8; > $x{33}{46}=9; > > for my $y (keys %x) { > > print "y = $y\n"; # 33 > > my %z = $x{$y}; Das ist eine hashref! D.h. $z = $x{$y}; Dann $z->{45} etc. -- Marcel, Perl Padawan sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Perl_Hacker; ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Thu Nov 25 16:53:48 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:02 2004 Subject: Tip - Mailingliste daily_perl@yoak.com Message-ID: <383DBDFB.C28336B4@fff.at> * * * vienna-pm-list * * * Hallo Mongers! Weil keine Fragen kommen, hier wieder einmal ein kleiner Tip: Wer zu faul ist, das Perl-FAQ zu lesen, kann sich jeden Tag eine zuf?llig ausgew?hlte FAQ zumailen lassen. Empfehlenswert, weil bequem, lehrreich und trotzdem kostenlos ;-) For subscription info, please see http://yoak.com/daily_perl/ Roland -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Thu Nov 25 17:02:35 1999 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:24:02 2004 Subject: File::Slurp - mein Lieblingsmodul Message-ID: <383DC00A.D1548DB9@fff.at> * * * vienna-pm-list * * * Spart zwar nur wenige Zeilen Code, aber ich mag es! Dieses Modul kann man sich von CPAN herunterladen. #!/usr/bin/perl use strict; use File::Slurp; # File einlesen my $text = read_file "meinfile.txt"; # Text auf File schreiben write_file "ausgabe.txt", $text; P.S.: Hallo Marcel, willst Du Deine Alternative vorstellen? ;-) -- roland.bauer@fff.at job: roland.bauer@mediaprint.at http://www.fff.at/fff/roland/ tel: +43-1-36000/3949 ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Fri Nov 26 03:59:55 1999 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Thu Aug 5 00:24:02 2004 Subject: XML::Parser Entities Message-ID: <19991126105954.A32557@wsr.ac.at> Hallo, das ist vielleicht gar keine Perl- sondern eine XML-Frage. Ich verwende XML::Parser, um XHTML (mittels tidy -asxml aus HTML generiert) zu parsen. Da kommen aber noch Entity References wie ö drin vor, die mir der Parser scheinbar wegschmei?t. Wei? wer, wie ich * entweder den Parser dazu bringen kann, die Entities in das entsprechende Zeichen umzuwandeln * oder welchen Handler ich installieren mu?, um das selber zu machen (ExternEnt scheint es nicht zu sein) * oder ob ich durch Einf?gen von im XML-File an geeigneter Stelle (wo?) ö und Konsorten vordefinieren kann? Ein Workaround, der mir einf?llt, ist im XML-File alle ö durch Ö zu ersetzen. Das funktioniert n?mlich, wenn auch nicht besonders sch?n. ObCode: #!/usr/bin/perl -w use strict; use XML::Parser; use IO::File; sub handle_start { my ($parser, $element, %attr) = (@_); print "handle_char: "; if ($element eq "meta") { if ($attr{name} eq 'description') { print "description: ", $attr{content}; } if ($attr{name} eq 'keywords') { print "keywords: ", $attr{content}; } } print "\n"; } sub handle_char { my ($parser, $text) = (@_); print "handle_char: "; for my $i (qw/title h1 h2 h3 h4 h5 h6/) { if ($parser->within_element($i)) { print "$i "; } } print "$text\n"; } sub handle_externent { my ($parser, $base, $sysid, $pubid) = (@_); print "handle_externent: base = $base, sysid = $sysid, pubid = $pubid\n"; } my $p1 = new XML::Parser (Handlers => {Start => \&handle_start, Char => \&handle_char, ExternEnt => \&handle_externent }, ProtocolEncoding => 'ISO-8859-1', NoExpand => 0 ); my $fh = new IO::File ("test.xml", "r"); $p1->parse($fh); -- _ | Peter J. Holzer | Nobody should ever have to be |_|_) | Sysadmin WSR / Obmann LUGA | ashamed if they have a secret love | | | hjp@wsr.ac.at | for writing computer programs that __/ | http://wsrx.wsr.ac.at/~hjp/ | actually work. -- Donald E. Knuth -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/19991126/1dc90a10/attachment.bin From marcel.grunauer at lovely.net Fri Nov 26 04:29:49 1999 From: marcel.grunauer at lovely.net (Marcel Grunauer) Date: Thu Aug 5 00:24:02 2004 Subject: File Slurp Message-ID: * * * vienna-pm-list * * * Hi, sorry wegen des ge?nderten Subjects, aber ich hab die Roland's mail verloren. Anyway. Statt ein Modul zu bem?hen, geht's auch mit einem Einzeiler. Sei $filename der Name des Files, dessen Inhalt einzulesen ist. my $content = do { local ($/, @ARGV) = (undef, $filename); <> }; D.h. wir simulieren, dass der filename ueber die command-line uebergeben wird und lesen das ganze File ein, weil ja $/ undefined ist. Und damit wir @ARGV nicht zerst?ren, machen wir's local. Eine der wenigen Verwendungen f?r local. -- Marcel, Perl Padawan sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Perl_Hacker; ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From Roland.Bauer at mediaprint.at Fri Nov 26 14:43:19 1999 From: Roland.Bauer at mediaprint.at (Roland Bauer) Date: Thu Aug 5 00:24:02 2004 Subject: Antw: XML::Parser Entities Message-ID: * * * vienna-pm-list * * * Hallo Peter, ich hab's nicht ausprobiert, aber ev ist das die antwort: (aus der perl-xml-mailingliste) roland ####################BEGIN############### Phil Lanch An: "Perl-XML Mailing List" Datum: 26.11.99 16.27 Uhr Betreff: Re:  , –, &ldquo Guy Hulbert wrote: > > On Fri, 26 Nov 1999, phil lanch wrote: > > > > pl> pl> > pl> > ? ndash ? > pl> > pl> ]> > > > ... looks like a missed opportunity to cut-and-paste :) ... Hmmm... actually that _was_ cut-and-paste and the error was in the original post... though of course I wouldn't flame anyone for making tpyos... though of course you weren't flaming me... More to the point, I've found the missing numbers for XXX and YYY: ]> There are loads of these things (a.k.a. character entitiy sets) in the XHTML spec at: http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent http://www.w3.org/TR/xhtml1/DTD/xhtml-special.ent http://www.w3.org/TR/xhtml1/DTD/xhtml-symbol.ent -- cheers phil witness relocation program alumnus --- You are currently subscribed to perl-xml as: [Roland.Bauer@mediaprint.at] To unsubscribe, forward this message to leave-perl-xml-115740Y@lyris.activestate.com For non-automated Mailing List support, send email to ListHelp@ActiveState.com CC: Perl-XML Mailing List ################### END################### -- roland.bauer@mediaprint.at internet-applikationen TEL: +43-1-36000/3949 >>> "Peter J. Holzer" 26.11.1999 10.59 Uhr >>> Hallo, das ist vielleicht gar keine Perl- sondern eine XML-Frage. Ich verwende XML::Parser, um XHTML (mittels tidy -asxml aus HTML generiert) zu parsen. Da kommen aber noch Entity References wie ö drin vor, die mir der Parser scheinbar wegschmei?t. Wei? wer, wie ich * entweder den Parser dazu bringen kann, die Entities in das entsprechende Zeichen umzuwandeln * oder welchen Handler ich installieren mu?, um das selber zu machen (ExternEnt scheint es nicht zu sein) * oder ob ich durch Einf?gen von im XML-File an geeigneter Stelle (wo?) ö und Konsorten vordefinieren kann? Ein Workaround, der mir einf?llt, ist im XML-File alle ö durch Ö zu ersetzen. Das funktioniert n?mlich, wenn auch nicht besonders sch?n. ObCode: #!/usr/bin/perl -w use strict; use XML::Parser; use IO::File; sub handle_start { my ($parser, $element, %attr) = (@_); print "handle_char: "; if ($element eq "meta") { if ($attr{name} eq 'description') { print "description: ", $attr{content}; } if ($attr{name} eq 'keywords') { print "keywords: ", $attr{content}; } } print "\n"; } sub handle_char { my ($parser, $text) = (@_); print "handle_char: "; for my $i (qw/title h1 h2 h3 h4 h5 h6/) { if ($parser->within_element($i)) { print "$i "; } } print "$text\n"; } sub handle_externent { my ($parser, $base, $sysid, $pubid) = (@_); print "handle_externent: base = $base, sysid = $sysid, pubid = $pubid\n"; } my $p1 = new XML::Parser (Handlers => {Start => \&handle_start, Char => \&handle_char, ExternEnt => \&handle_externent }, ProtocolEncoding => 'ISO-8859-1', NoExpand => 0 ); my $fh = new IO::File ("test.xml", "r"); $p1->parse($fh); -- _ | Peter J. Holzer | Nobody should ever have to be |_|_) | Sysadmin WSR / Obmann LUGA | ashamed if they have a secret love | | | hjp@wsr.ac.at | for writing computer programs that __/ | http://wsrx.wsr.ac.at/~hjp/ | actually work. -- Donald E. Knuth ### You are subscribed to vienna-pm-list http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Mon Nov 29 05:30:17 1999 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Thu Aug 5 00:24:02 2004 Subject: Antw: XML::Parser Entities In-Reply-To: ; from Roland Bauer on Fri, Nov 26, 1999 at 09:43:19PM +0100 References: Message-ID: <19991129123017.D9001@wsr.ac.at> On 1999-11-26 21:43:19 +0100, Roland Bauer wrote: > ich hab's nicht ausprobiert, aber ev ist das die antwort: > (aus der perl-xml-mailingliste) [...] > > > > ]> Ja, so geht's, super! Ich habe versucht, die Entities vor und hinter dem Doctype-Tag einzuschieben, aber auf die Idee, sie hineinzugeben bin ich nicht gekommen - wahrscheinlich sollte ich die XML-Specs mal ausdrucken und eine Woche unter den Kopfpolster legen :-) hp PS: Ich wei? nicht, wie es anderen auf der Liste geht, aber ich finde Vollquotes am Ende einer Mail extrem un?bersichtlich und sinnlos. K?nnten wir uns darauf einigen, auch hier die ?blichen Konventionen (nur das n?tigste zitieren, eigene Kommentare jeweils unter die Quote) zu verwenden? -- _ | Peter J. Holzer | Nobody should ever have to be |_|_) | Sysadmin WSR / Obmann LUGA | ashamed if they have a secret love | | | hjp@wsr.ac.at | for writing computer programs that __/ | http://wsrx.wsr.ac.at/~hjp/ | actually work. -- Donald E. Knuth -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/19991129/7a25310a/attachment.bin