From domm at zsi.at Tue Feb 10 18:09:06 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Entwurf: Perl Workshop Call for Papers Message-ID: <20040211000906.GB1879@zsi.at> Hi! Ich hab mal einen Entwurf fuer den Call for Papers fuer den Perl Workshop geschrieben: Noch nicht verlinkt, aber schon mal online: http://vienna.pm.org/workshop.html ----- schnipp ----- Österreichischer Perl Workshop ============================= Vom 20. bis 22. Mai 2004 veranstaltet vienna.pm gemeinsam mit 5uper.net den Ersten Österreichischer Perl Workshop Programm ======== Das Programm ist noch in Arbeit (bitte Talks etc vorschlagen!). Im Prinzip ist aber folgendes Schema gedacht: 20.5.: Perl Culture - The Culture of Perl Perl im Einsatz bei Kulturprojekten, Perl-Culture, Obfuscations, Generative Kunst, ... 21.5.: Perl im täglichen Einsatz Verschiedenste Anwendungen von klein bis gross, CPAN-Module, was auch immer 22.5.: Parrot / Perl6 Leo Tötsch hält ein Parrot-Tutorial, nachher gemeinsames hacken! Wir brauchen Vorträge !! ======================== Damit wir beim Workshop auch was zu tun haben, brauchen wir Vorträge. Ein Vortrag sollte zwischen 5 und 60 Minuten lang sein und bestenfalls eines der angesprochenen Themen berühren. Meiner (domm) Meinung nach sind auch kurze Vorträge über "nicht-professionelle" Themen interessant, also bitte keine Scheu.. Vortragsideen entweder an die Liste oder an domm AT zsi.at schicken. Und zwar reichlich! Wenn's klappt (i.e. Sponsoren!) werden Vortragende auf ein Abendessen ausgeführt. Vorträge können auf Deutsch oder English gehalten werden. Kosten ====== Es gibt drei Tarife, die allerdings noch nicht ganz fix sind: * Menschen mit wenig Budget, StudentInnen, Arbeitssuchende zahlen nix. * Menschen mit normalem Budget zahlen so ca 20 Euro (plus/minus 5) * Menschen mit viel Budget (bzw auf Firmenkosten teilnehmende) zahlen so ca 75 Euro Weiteres ======== Anmeldung, Hotelinfos etc kommen später. Watch this space! Der Workshop findet im Rahmen des Coded Culture Congress statt. Mehr Info dazu, sobald sie verfügbar sind. ----- schnapp ----- Was mein ihr dazu? Ich werden morgen noch eine Englisch Version machen (ausser jemand anderer hat Lust & Zeit...) und das ganze dann eher bald in diversen Listen/Foren/etc posten. Interessant ist noch die Frage der Sprache. Ich wuerde sage, das die primaere Sprache Deutsch sein sollte (von wegen niedigerer Barriere), aber wenn Leute nur English sprechen koennen dies kein Grund sein sollte, sie nicht trotzdem am Workshop zu haben. Vor allem fuer den parrot-Teil koennte ich mir regeres Internationel Interesse vorstellen (Leo Superstar!) Mit der Bitte um reges Feedback... -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From nick at ccl4.org Tue Feb 10 16:48:58 2004 From: nick at ccl4.org (Nicholas Clark) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Entwurf: Perl Workshop Call for Papers In-Reply-To: <20040211000906.GB1879@zsi.at> References: <20040211000906.GB1879@zsi.at> Message-ID: <20040210224858.GT46380@plum.flirble.org> mit Hilfe von babelfish und domm: ----- schnipp ----- Austrian perl worksop ===================== >From 20th to 22th May vienna.pm together with 5uper.net present the first Austrian Perl Workshop. Programme ========= The programme is a work in progress (please send talks etc) We expect a schedule roughly: 20.5.: Perl Culture - The Culture of Perl Perl employed in cultural projects, perl culture, obfuscations, generative art 21.5.: Perl in daily employment Diverse application from small to large, CPAN modules, etc 22.5.: Parrot / Perl6 Leo T?tsch is giving a Parrot Tutorial, to be followed by general hacking! We need talks !! ================ In order to have a workshop at all, we need talks. A talk should be between 5 and 60 minutes long, and preferably cover one of the workshop's topics. My (domm) opinion is that short presentations about "non-professional" topics are interesting, so don't be shy.. Send talk ideas to the list or to domm AT zsi.at. The more the merrier. If possible (ie Sponsors) there will be a speakers' dinner. Presentations may be in German or English. Cost ==== There are three rates, which aren't yet definite: * People with low budgets, students, the unemployed will participate for free * People with average budgets will pay about 20 Euros (plus/minus 5) * People with large budgets (eg people whose employers cover the cost) pay about 75 Euros Other ===== Registration, hotel info etc will follow later. Watch this space! The workshop takes place as part of the Coded Culture Congress. Additional information when it becomes available. ----- schnipp ----- Nicholas Clark From domm at zsi.at Fri Feb 13 10:17:13 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] threaded Perl vs. plain Perl Message-ID: <20040213161713.GC31699@zsi.at> Hi! Wir erinnern uns: Vor einiger Zeit wollte ich auf Grund von Geruechten (Perl mit threads ist langsamer als ohne) nicht das debian-Perl verwenden, sondern mein eigenes, was mir danke Alfies Hilfe inzwischen auch gelungen ist. Aber: Stimmt das Geruecht? Ich hab grad perl-5.8.3 einmal mit, einmal ohne threads kompiliert (sonst sind alle Config-settings gleich) und ein nicht sehr sinnvolles script geschrieben, das halt unnoetig rumrechnet und string/array Zeugs macht: # beginn use strict; use warnings; my $big; my $string="just another perl hacker"; for (0 .. 299999) { $big++; my @str=split(//,$string); my $f=shift(@str); push(@str,$f); $string=join('',@str); } print "$big; $string "; # ende (Das ganze ist absichtlich ineffizient geschrieben...) so, dann hab ich time angeworfen, mit folgendem Ergebnis: ohne threads: ~/perl/benchmark$ time plain_perl/bin/perl test.pl 300000; just another perl hacker real 0m9.906s user 0m9.870s sys 0m0.030s mit threads: ~/perl/benchmark$ time thread_perl/bin/perl test.pl 300000; just another perl hacker real 0m15.078s user 0m15.000s sys 0m0.080s oha! mit threads ca 50% langsamer! Mein Benchmark-script ist natuerlich volkommener Bloedsinn und testet viel zu wenig. Hat da jemand was ausfuehrlicheres? BZW wie/was sollte ein gutes Benchmark testen ? -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From bernd at firmix.at Fri Feb 13 08:33:19 2004 From: bernd at firmix.at (Bernd Petrovitsch) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] threaded Perl vs. plain Perl In-Reply-To: <20040213161713.GC31699@zsi.at> References: <20040213161713.GC31699@zsi.at> Message-ID: <1076682798.3848.157.camel@tara.firmix.at> On Fre, 2004-02-13 at 17:17, Thomas Klausner wrote: > Mein Benchmark-script ist natuerlich volkommener Bloedsinn und testet > viel zu wenig. Hat da jemand was ausfuehrlicheres? BZW wie/was sollte ein > gutes Benchmark testen ? Das, was du benchmarken willst. IdR (lies: wenn du seri?ser Techniker bist) ist das eine Applikation (bzw. Gruppe von "?hnlichen" Applikationen) - es bringt ja z.B. wenig, bei einem Rechencluster die schnellsten und teuersten Harddisks einzubauen, wenn von denen haupts?chlich gebootet wird .... Wenn du im Marketing von $HERSTELLER arbeitest, mu? dein Benchmark v.a. gr??er/schneller/besser als $MITBEWERB ergeben (da geht es weniger um die praktische Anwendbarkeit). Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From lt at toetsch.at Fri Feb 13 10:56:00 2004 From: lt at toetsch.at (Leopold Toetsch) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] threaded Perl vs. plain Perl References: <20040213161713.GC31699@zsi.at> Message-ID: <402D01A0.8040400@toetsch.at> Thomas Klausner wrote: > Hi! > > oha! mit threads ca 50% langsamer! Ja. Kommt nat?rlich auf das Programm drauf an, im Zweifelsfall einfach testen. > ... BZW wie/was sollte ein > gutes Benchmark testen ? That depends. Am Besten was aus der Praxis, was du verwendest. BTW ich hab dein Programm mal nach PASM[1] ?bersetzt. Parrot ist von Haus aus multi-threaded. Allerdings gibt's keinen Penalty f?r Programme, die keine Threads nutzen. Hier die Ergebnisse auf meinem Athlon 800: perl 5.8 19.5s parrot -j 21.5s parrot -C 22.1s perl58-th 30.1s Allerdings kennt Parrot noch kein join oder split, ich habe das jeweils in einer Schleife (in PASM) nachgebildet. Mit beiden Opcodes sollte es doch noch schneller gehen. leo [1] Parrot Assembler, aber eigentlich PIR eine mehr HLL-like Variante davon. # beginn #use strict; # #use warnings; .sub _main # my $big; .sym pmc big big = new PerlUndef # my $string="just another perl hacker"; .sym pmc String String = new PerlUndef String = "just another perl hacker" # for (0 .. 299999) { $P0 = new PerlUndef $P0 = 0 loop: # $big++; inc big # my @str=split(//,$string); .sym pmc str str = new PerlArray $S0 = String length $I0, $S0 $I1 = 0 spl: $S1 = $S0[$I1] str[$I1] = $S1 inc $I1 if $I1 < $I0 goto spl # my $f=shift(@str); .sym pmc f f = new PerlUndef shift $P2, str assign f, $P2 # push(@str,$f); push str, f # $string=join('',@str); String = new PerlString $I0 = str $I1 = 0 jlp: $P1 = str[$I1] concat String, String, $P1 inc $I1 if $I1 < $I0 goto jlp #} inc $P0 if $P0 <= 299999 goto loop #print "$big; print big print "\n" #$string #"; print String print "\n" end # ende .end From horshack at lisa.franken.de Sat Feb 14 00:30:18 2004 From: horshack at lisa.franken.de (Richard Lippmann) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Mason-Vortrag In-Reply-To: <20040211000906.GB1879@zsi.at> Message-ID: <5.1.1.2.2.20040214072352.04156ad0@lillebror.rosi13.de> Ich kann gerne einen Vortrag ?ber Mason halten. Der Vortrag ist unterhaltend und erz?hlt f?r was Mason ?berhaupt da ist und wie man es f?r dynamische Websites benutzen kann, aber auch wo die Grenzen dieser Dynamik sind. Das ganze wurde schon mal auf einem lokalen Kongress eines Netzwerkvereins in N?rnberg aufgef?hrt: http://www.franken.de/de/veranstaltungen/kongress/2003/03-1-4-mason.pdf Dauer: eine knappe Stunde. Herzliche Gr??e aus N?rnberg, Horshack -- Richard Lippmann, Findus Internet-OPAC Findus, see http://www.hultsfred.de Private, see http://lena.franken.de From horshack at lisa.franken.de Sat Feb 14 00:44:40 2004 From: horshack at lisa.franken.de (Richard Lippmann) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Vortrag ueber eine tragfaehige Programmstruktur In-Reply-To: <20040211000906.GB1879@zsi.at> Message-ID: <5.1.1.2.2.20040214073025.00b4a2a8@lillebror.rosi13.de> Nach einem gr??eren Webprojekt bei dem ich am Anfang nur ungef?hr gewusst habe was CGI eigentlich ist und da? sich inzwischen ?ber vier Jahre hinzieht war es Zeit mal etwas zu programmieren das einen ganz anderen Weg geht. Viele kleine Webprogramme f?r die Systemadministration in meiner Firma haben mir gezeigt, da? es so _nicht_ geht: Idee, auf geht's, wird schon was rauskommen. Ein gro?es internes Projekt ging auf diese Weise mit Gloria den Bach runter. Ich habe vor Kurzen ein Kundenkontakt-Managementprogramm von Access auf CGI/Web/Perl/Tex umgesetzt. In dem Vortrag m?chte ich diese Punkte ansprechen: - Web only, kann das ?berhaupt gehen und warum nicht Access oder Visual Basic? - Das Problem der Serienbriefe und Reportgeneratoren (Tex, Template) - Das Problem des einheitlichen Aussehens (Stylesheets, Template) - Die Aufteilung in Fachlichkeit und Benutzung (Fachmodule, Pr?sentation) - Kontrolle durch kleine Einheiten (Runmodes) Bevor ich mit dem Projekt angefangen habe waren einige Wochen an Vorbereitung n?tig um den Techniken die ich hier verwendet habe Vertrauen zu schenken. Inzwischen habe ich mehrere Projekte mit dieser Struktur programmiert von denen ich alle das Gef?hl habe immer noch den Code zu kontrollieren. Dauer: ca. 1 Stunde. Anschluss an Internet w?re toll um etwas zeigen zu k?nnen. Herzliche Gr??e aus N?rnberg, Horshack At 01:09 11.02.2004 +0100, Thomas Klausner wrote: >Hi! > >Ich hab mal einen Entwurf fuer den Call for Papers fuer den Perl Workshop >geschrieben: > >Noch nicht verlinkt, aber schon mal online: > http://vienna.pm.org/workshop.html > > >----- schnipp ----- > >?sterreichischer Perl Workshop >============================= > >Vom 20. bis 22. Mai 2004 veranstaltet vienna.pm gemeinsam mit 5uper.net den >Ersten ?sterreichischer Perl Workshop > >Programm >======== > >Das Programm ist noch in Arbeit (bitte Talks etc vorschlagen!). Im Prinzip >ist aber folgendes Schema gedacht: > >20.5.: Perl Culture - The Culture of Perl > Perl im Einsatz bei Kulturprojekten, Perl-Culture, Obfuscations, > Generative Kunst, ... >21.5.: Perl im t?glichen Einsatz > Verschiedenste Anwendungen von klein bis gross, CPAN-Module, was auch > immer >22.5.: Parrot / Perl6 > Leo T?tsch h?lt ein Parrot-Tutorial, nachher gemeinsames hacken! > >Wir brauchen Vortr?ge !! >======================== > >Damit wir beim Workshop auch was zu tun haben, brauchen wir Vortr?ge. >Ein Vortrag sollte zwischen 5 und 60 Minuten lang sein und bestenfalls eines >der angesprochenen Themen ber?hren. Meiner (domm) Meinung nach sind auch >kurze Vortr?ge ?ber "nicht-professionelle" Themen interessant, also bitte >keine Scheu.. > >Vortragsideen entweder an die Liste oder an domm AT zsi.at schicken. Und >zwar reichlich! > >Wenn's klappt (i.e. Sponsoren!) werden Vortragende auf ein Abendessen >ausgef?hrt. > >Vortr?ge k?nnen auf Deutsch oder English gehalten werden. > > >Kosten >====== > >Es gibt drei Tarife, die allerdings noch nicht ganz fix sind: > > * Menschen mit wenig Budget, StudentInnen, Arbeitssuchende zahlen nix. > * Menschen mit normalem Budget zahlen so ca 20 Euro (plus/minus 5) > * Menschen mit viel Budget (bzw auf Firmenkosten teilnehmende) > zahlen so ca 75 Euro > >Weiteres >======== > >Anmeldung, Hotelinfos etc kommen sp?ter. Watch this space! > >Der Workshop findet im Rahmen des Coded Culture Congress statt. Mehr Info >dazu, sobald sie verf?gbar sind. > >----- schnapp ----- > > >Was mein ihr dazu? > >Ich werden morgen noch eine Englisch Version machen (ausser jemand anderer >hat Lust & Zeit...) und das ganze dann eher bald in diversen >Listen/Foren/etc posten. > >Interessant ist noch die Frage der Sprache. Ich wuerde sage, das die >primaere Sprache Deutsch sein sollte (von wegen niedigerer Barriere), aber >wenn Leute nur English sprechen koennen dies kein Grund sein sollte, sie >nicht trotzdem am Workshop zu haben. Vor allem fuer den parrot-Teil koennte >ich mir regeres Internationel Interesse vorstellen (Leo Superstar!) > >Mit der Bitte um reges Feedback... > >-- >#!/usr/bin/perl http://domm.zsi.at >for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} >_______________________________________________ >Vienna-pm mailing list >Vienna-pm@mail.pm.org >http://mail.pm.org/mailman/listinfo/vienna-pm -- Richard Lippmann, Findus Internet-OPAC Findus, see http://www.hultsfred.de Private, see http://lena.franken.de From domm at zsi.at Thu Feb 19 10:21:32 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Website update (Workshop) Message-ID: <20040219162131.GF28577@zsi.at> Hi! Ich hab soeben ausfuehrliche Infos betr. den Perl Workshop auf http://vienna.pm.org gespielt, inkl Talk-Submission und vorlaeufige Anmeldung (alles deutsch/englisch) Heute am Abend werde ich dann den CfP per Email an diverse Listen/Einzelpersonen schicken und in div. Webforen posten. Bitte vorher ein wenig anschauen, ob eh alles passt (Tippfehler, Inhaltlicher Schwachsinn, etc) Die Anmeldung-Forms gehen und landen zZ in meiner INBOX. Und auf der Workshop-Liste anmelden kann ev auch nicht schaden, weil ich die vienna.pm-Liste nicht mit administrativem Zeugs zumuellen will. Bitte Feedback! -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From marcel at noug.at Thu Feb 19 09:34:15 2004 From: marcel at noug.at (=?ISO-8859-1?Q?Marcel_Gr=FCnauer?=) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Website update (Workshop) In-Reply-To: <20040219162131.GF28577@zsi.at> References: <20040219162131.GF28577@zsi.at> Message-ID: <130AE483-62F1-11D8-AC9B-003065F97C4A@noug.at> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 On Feb 19, 2004, at 5:21 PM, Thomas Klausner wrote: > Ich hab soeben ausfuehrliche Infos betr. den Perl Workshop auf > http://vienna.pm.org > gespielt, inkl Talk-Submission und vorlaeufige Anmeldung (alles > deutsch/englisch) Cool! > Bitte vorher ein wenig anschauen, ob eh alles passt (Tippfehler, > Inhaltlicher Schwachsinn, etc) Ja, da gibt's die "Vortr?gsideen" auf der Startseite. Auf der Workshop-Seite sollte bei "Talks etc" nach dem "etc" ein Punkt sein ("etc."). Dto. f?r "so ca" -> "so ca." Und statt der "Euro" k?nnte man das Euro-Zeichen (€, falls ich mich recht entsinne) verwenden. Am Ende der Workshop-Seite: "Mehr Info dazu, sobald sie verf?gbar sind.". Da es sich um mehrere Infos handelt, sollte es hei?en: "Mehr Infos dazu, sobald sie verf?gbar sind." Auf der englischen Workshop-Seite: Ist "employment" das richtige Wort? Sollte das nicht vielleicht "daily usage", "Perl usage" usw. hei?en? "Diverse application" -> "Diverse applications" (also plural). Weiteres Korrekturlesen, sobald ich Zeit hab. Marcel -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (Darwin) iD8DBQFANNd4mFGBz66xiXoRAqxAAJ9/JJTuN1ifnMgs9f4gsFIPMOTyGQCfQZfA 7YoZbJkz/ArXECF8OyXSDL0= =NT6B -----END PGP SIGNATURE----- From fh at laudatio.com Thu Feb 19 10:44:29 2004 From: fh at laudatio.com (Florian Helmberger) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Website update (Workshop) Message-ID: Begin forwarded message: > From: Florian Helmberger > Date: 19. Februar 2004 17:43:51 GMT+01:00 > To: Thomas Klausner > Subject: Re: [Vienna-pm] Website update (Workshop) > > On 19.02.2004, at 17:21, Thomas Klausner wrote: > >> Ich hab soeben ausfuehrliche Infos betr. den Perl Workshop auf >> http://vienna.pm.org >> gespielt, inkl Talk-Submission und vorlaeufige Anmeldung (alles >> deutsch/englisch) > > [...] > >> Die Anmeldung-Forms gehen und landen zZ in meiner INBOX. > > Ich bekomme bei der von http://vienna.pm.org/workshop.html gelinkten > Seite http://vienna.pm.org/ws_anmeldung.html einen 404er. > > LG, > Florian > > -- > 0699 109 24 24 5 - http://www.laudatio.com > > -- 0699 109 24 24 5 - http://www.laudatio.com From domm at zsi.at Thu Feb 19 13:55:54 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Website update (Workshop) In-Reply-To: <130AE483-62F1-11D8-AC9B-003065F97C4A@noug.at> References: <20040219162131.GF28577@zsi.at> <130AE483-62F1-11D8-AC9B-003065F97C4A@noug.at> Message-ID: <20040219195553.GB420@zsi.at> Hi! On Thu, Feb 19, 2004 at 04:34:15PM +0100, Marcel Gr?nauer wrote: > >Bitte vorher ein wenig anschauen, ob eh alles passt (Tippfehler, > >Inhaltlicher Schwachsinn, etc) > > Ja, da gibt's die "Vortr?gsideen" auf der Startseite. > .. Danke, korregiert. "Euro" vs "€": Ich bilde mir ein, dass "Euro" die bevorzugte Methode ist, weil das von ScreenReadern, Braille-Zeilen etc. leichter/besser ausgegeben werden kann. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Thu Feb 19 13:56:31 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Website update (Workshop) In-Reply-To: References: Message-ID: <20040219195631.GC420@zsi.at> Hi! On Thu, Feb 19, 2004 at 05:44:29PM +0100, Florian Helmberger wrote: > >Ich bekomme bei der von http://vienna.pm.org/workshop.html gelinkten > >Seite http://vienna.pm.org/ws_anmeldung.html einen 404er. korregiert, danke! -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Thu Feb 19 14:00:16 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Website update (Workshop) In-Reply-To: References: <20040219162131.GF28577@zsi.at> Message-ID: <20040219200015.GD420@zsi.at> Hi! On Thu, Feb 19, 2004 at 03:52:22PM +0100, Richard Lippmann wrote: > Ich habe zwei Vorschl?ge geschickt, sind die bei Dir gelandet, domm? Ja, sind angekommen. Ich wollt nur mal den CfP fertigkriegen, bevor ich die bereits eingegangenen Angebote bearbeite/kommentiere/etc. Es sind im uebrigen natuerliche alle eingeladen, bei der Auswahl (wenns genug zum Auswaehlen geben wird...) mitzumachen... -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Thu Feb 19 19:14:16 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Oesterreichischer Perl Workshop - Call for Papers / Participation Message-ID: <20040220011416.GC2974@zsi.at> Call for Papers / Participation ******************************* Vom 20. bis 22. Mai 2004 findet der Erste Oesterreichische Perl Workshop im Freiraum des Museumsquartier Wien statt, veranstaltet von vienna.pm (Vienna Perl Mongers) und 5uper.net. Der Workshop bietet Perl-UserInnen jeder Erfahrungsstufe (AnfaengerIn bis Pumpking): * die Moeglichkeit zum Lernen, Lehren und Plaudern. * Kontakt mit oesterreichischen und internationalen Perl EntwicklerInnen. * Einblicke in Methoden und Praktiken anderer ProgrammierInnen. * interessante, amuesante und lehrreiche Vortraege. * ein paar nette Tage im Zentrum von Wien. * und allen anderen Vorzuege einer Begegnung in real life. Programm / Inhalt ***************** Das genaue Programm ist noch in Arbeit. Im Prinzip ist aber an folgenden Ablauf und folgende Schwerpunkte gedacht: 20.5.: Perl Culture - The Culture of Perl Perl im Einsatz bei Kulturprojekten, Perl-Culture, Obfuscations, Generative Kunst, ... 21.5.: Perl im taeglichen Einsatz Verschiedenste Anwendungen von klein bis gross, CPAN-Module, was auch immer 22.5.: Parrot / Perl6 Leo Toetsch haelt ein Parrot-Tutorial, nachher gemeinsames hacken! Eine vorlaeufige Anmeldung ist unter dieser URL moeglich und erwuenscht: http://vienna.pm.org/ws_anmelden.html Vortraege ********* Damit wir beim Workshop auch was zu tun haben, brauchen wir Vortraege. Ein Vortrag sollte zwischen 5 und 60 Minuten lang sein und bestenfalls eines der angesprochenen Themen beruehren. Auch kurze Vortraege ueber "nicht-professionelle" Themen sind interessant & erwuenscht, also bitte keine Scheu.. Vortragsideen bitte bis 31.3.2004 entweder auf der vienna.pm Website unter http://vienna.pm.org/ws_talk.html eintragen oder per Mail an domm AT zsi.at schicken. Und zwar reichlich! Wenn's klappt (i.e. Sponsoren!) werden Vortragende zu einem Abendessen ausgefuehrt. Vortraege koennen auf Deutsch oder Englisch gehalten werden. Und sonst ********* Weitere Informationen finden sich auf der Website: http://vienna.pm.org/workshop.html Es gibt eine Mailingliste: Zum Subscriben einem Mail an perlworkshop-request@dmail.zsi.at mit dem Subject 'subscribe' schicken. Der Workshop findet im quartier21 (Freiraum) im MuseumsQuartier Wien statt: http://quartier21.mqw.at/ Leo Toetsch (das Parrot Patchmonster) spendiert ein signiertes Exemplar von "Perl6 Essentials" an die Person, die den weitesten Anreiseweg hat. In Kooperation mit den Linuxwochen: http://www.linuxwochen.at Der Workshop findet im Rahmen des Coded Culture Congress statt: http://5uper.net Wir freuen uns natuerlich auch ueber Sponsoring-Angebote! Bis dann! Thomas Klausner vienna.pm -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From max at sternwelten.at Fri Feb 20 03:06:12 2004 From: max at sternwelten.at (maximilian attems) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] Re: [ppm] [domm@zsi.at: Parrot day at the Austrian Perl Workshop] In-Reply-To: <20040220004452.GB4008@stefp.dyndns.org> References: <20040220004452.GB4008@stefp.dyndns.org> Message-ID: <20040220090612.GB1386@mail.sternwelten.at> On Fri, 20 Feb 2004, St?phane Payrard wrote: > Il faut que je... Vienne! > eeh oui :) vienne vaut une visite prolong?e!!! sourtout n'oubliez pas que vienne fourmille de bonne musique et de musiciens reconnu - bonus milles styles diff?rents: classique .. operette .. opera .. jazz .. vienna style drumm bass + house + dub + hip hop .. experimental electronics (dans l'ordre croisante de ma pr?ference personelle) voila les sites: http://www.musikverein.at/ http://www.musikverein.at/ .. http://www.musicalvienna.at/ .. http://www.wiener-staatsoper.at/ .. http://www.porgy.at/ .. http://www.flex.at/ http://www.wuk.at/ .. http://www.fluc.at/ bref pour chaque oreille son choix. pour ceux germanophile qui aiment le th?atre se retrouveront im "Burgtheater" (tr?s classiques .. m?mes si dans ces derniers temps un peux plus ouvert et aussi un centre de proteste lors du changement de gouvernement) plus moderne et "postdramatisch" c'est ? dire sans vrai fil d'histoire se distingue le kasino. tous deux -> http://www.burgtheater.at/ pariscope ce traduit en viennois "Falter" -> http://www.falter.at/ un must uncontournable de culture viennoise se manifeste dans ses vieux petits caf? ?spars?s, les "Wiener Kaffeh?user". manifestation sublime du "grantigen Kellner" mais voyez vous m?mes traduction sur place!!! a++ maks From klaus at kwz.at Sun Feb 22 05:54:17 2004 From: klaus at kwz.at (Klaus Zahradnik) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] use strict und dann wieder nicht.... Message-ID: <20040222115417.GA3470@kwz.at> Hallo! Ich lese gerade "Beginning Perl". Am Anfang des Buches wurde dem Leser erkl?rt, er solle doch _immer_ use strict; verwenden. Im Kapitel "Subroutines" wird auch der "namespace" erkl?rt. Dazu gibt es dann auch folgenden Code: #!/usr/bin/perl use warnings; $main::name = "Klaus Zahradnik"; $Fred::name = "Fred Flintstone"; $Barney::name = "Barney Rubble"; print "\$name in package main is $name\n"; print "\$name in package Fred is $Fred::name\n"; print "\$name in package Barney is $Barney::name\n"; So steht der im Buch. Ich habe allerdings use strict reingeschrieben. Das hatte dann diese Fehlermeldung zu folge: [klaus@cujo Scripts]$ ./globals.pl Variable "$name" is not imported at ./globals.pl line 9. Global symbol "$name" requires explicit package name at ./globals.pl line 9. Execution of ./globals.pl aborted due to compilation errors. Wenn ich Zeile mit der ersten print Anweisung wie folgt ?ndere, funktioniert das auch mit use strict: print "\$name in package main is $main::name\n"; Im orignalzustand funktioniert das nat?rlich auch ohne use strict. Ich weiss jetzt nicht mehr, was ich machen sollte. To use strict or not to use strict? Oder anders gefragt, verwendet man das nur um Anf?ngern suberen Stil anzugew?hnen? best regards und vielen Dank, Klaus -------------- 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/20040222/d64f48a0/attachment.bin From c_p_s at gmx.net Sun Feb 22 06:10:16 2004 From: c_p_s at gmx.net (Christian Schoeller) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] use strict und dann wieder nicht.... In-Reply-To: <20040222115417.GA3470@kwz.at> References: <20040222115417.GA3470@kwz.at> Message-ID: <20040222121016.GD484@cps-pbg4.local.> On Sun, Feb 22, 2004 at 12:54:17PM +0100, Klaus Zahradnik wrote: > Ich lese gerade "Beginning Perl". Am Anfang des Buches wurde dem Leser > erkl?rt, er solle doch _immer_ use strict; verwenden. > > Im Kapitel "Subroutines" wird auch der "namespace" erkl?rt. Dazu gibt es > dann auch folgenden Code: > [...] Ich habe auch "Beginning Perl" gelesen, ein solches Uebungsbeispiel ist mir allerdings nicht bekannt. > [...] > Ich weiss jetzt nicht mehr, was ich machen sollte. To use strict or not > to use strict? IMHO solltest du eindeutig "use strict" verwenden, da der Code dadurch einfach exakter wird. > Oder anders gefragt, verwendet man das nur um Anf?ngern suberen Stil > anzugew?hnen? Nein, auch erfahrene Perl-Skripter verwenden "use strict". C. -- Christian Schoeller {Student} | "It takes two to lie: MAIL {mailto:c_p_s@gmx.net} | one to lie and one to HTTP {http://www.yaup.at.tt} | listen." EBAY {c_p_s!} | --Homer Simpsons -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 186 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20040222/6a6d293f/attachment.bin From hjp-vienna-pm-list at hjp.at Sun Feb 22 07:05:27 2004 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] use strict und dann wieder nicht.... In-Reply-To: <20040222115417.GA3470@kwz.at> References: <20040222115417.GA3470@kwz.at> Message-ID: <20040222130527.GC19583@teal.hjp.at> On 2004-02-22 12:54:17 +0100, Klaus Zahradnik wrote: > Hallo! > > Ich lese gerade "Beginning Perl". Am Anfang des Buches wurde dem Leser > erkl?rt, er solle doch _immer_ use strict; verwenden. > > Im Kapitel "Subroutines" wird auch der "namespace" erkl?rt. Dazu gibt es > dann auch folgenden Code: > > #!/usr/bin/perl > use warnings; > > $main::name = "Klaus Zahradnik"; > $Fred::name = "Fred Flintstone"; > $Barney::name = "Barney Rubble"; > > print "\$name in package main is $name\n"; > print "\$name in package Fred is $Fred::name\n"; > print "\$name in package Barney is $Barney::name\n"; > > > So steht der im Buch. Konsistenz macht gl?cklich, wenn man rechtzeitig drauf schaut, dass man sie hat, wenn man sie braucht ;-) > Ich habe allerdings use strict reingeschrieben. Das hatte dann diese > Fehlermeldung zu folge: > [klaus@cujo Scripts]$ ./globals.pl > Variable "$name" is not imported at ./globals.pl line 9. > Global symbol "$name" requires explicit package name at ./globals.pl > line 9. > Execution of ./globals.pl aborted due to compilation errors. [...] > Ich weiss jetzt nicht mehr, was ich machen sollte. To use strict or not > to use strict? Use strict! Du ersparst Dir damit viel Arbeit bei der Fehlersuche. Wenn Du irgendwo tricksen *musst*, kannst Du strict immer noch lokal abschalten: { no strict; print "\$name in package main is $name\n"; } In dem Fall w?re es aber wohl besser, $name einfach global zu deklarieren: use vars qw($name); oder our $name; dann funktioniert es n?mlich auch mir use strict. > Oder anders gefragt, verwendet man das nur um Anf?ngern suberen Stil > anzugew?hnen? Nein, eher im Gegenteil. Anf?nger lassen use strict gerne weg, weil sie so schneller zu Ergebnissen kommen. Fortgeschrittene verwenden es, weil schon mal stundenlang einen bl?den Fehler gesucht haben, den perl mit use strict selbst entdeckt h?tte. hp -- _ | Peter J. Holzer | I think we need two definitions: |_|_) | Sysadmin WSR | 1) The problem the *users* want us to solve | | | hjp@hjp.at | 2) The problem our solution addresses. __/ | http://www.hjp.at/ | -- Phillip Hallam-Baker on spam -------------- 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/20040222/a8e69135/attachment.bin From domm at zsi.at Sun Feb 22 14:43:59 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] use strict und dann wieder nicht.... In-Reply-To: <20040222115417.GA3470@kwz.at> References: <20040222115417.GA3470@kwz.at> Message-ID: <20040222204359.GA31974@zsi.at> Hi! On Sun, Feb 22, 2004 at 12:54:17PM +0100, Klaus Zahradnik wrote: > Im Kapitel "Subroutines" wird auch der "namespace" erkl?rt. Dazu gibt es > dann auch folgenden Code: > > #!/usr/bin/perl > use warnings; > > $main::name = "Klaus Zahradnik"; > $Fred::name = "Fred Flintstone"; > $Barney::name = "Barney Rubble"; > > print "\$name in package main is $name\n"; > print "\$name in package Fred is $Fred::name\n"; > print "\$name in package Barney is $Barney::name\n"; > > > So steht der im Buch. Scheint ein Fehler im Buch zu sein. Hast du auf ww.oreilly.com die Errata-Section deiner Verion von Learning Perl gecheckt? > Ich habe allerdings use strict reingeschrieben. Das hatte dann diese > Fehlermeldung zu folge: > [klaus@cujo Scripts]$ ./globals.pl > Variable "$name" is not imported at ./globals.pl line 9. > Global symbol "$name" requires explicit package name at ./globals.pl > line 9. > Execution of ./globals.pl aborted due to compilation errors. > > Wenn ich Zeile mit der ersten print Anweisung wie folgt ?ndere, > funktioniert das auch mit use strict: > print "\$name in package main is $main::name\n"; > > Im orignalzustand funktioniert das nat?rlich auch ohne use strict. Klar. Ohne strict kann man immer&uberall variablen einfach so deklarieren. Mit strict (bzw use stricts 'vars') muessen Variablen explizit deklariert werden (mit our, my, use vars oder 'fully qualified', i.e. mit der package. (siehe perldoc strict)) d.h. ohne strict geht das script, und gibt sogar das gewuenschte aus. aber wenn du das aenderst auf: print "\$name in package main is $main::name\n"; print "\$name in package Fred is $name\n"; dann kommt bei Fred der main-Name. Typischer Bug. Und genau um solche Bugs zu vermeiden, gibts strict; > Ich weiss jetzt nicht mehr, was ich machen sollte. To use strict or not > to use strict? > Oder anders gefragt, verwendet man das nur um Anf?ngern suberen Stil > anzugew?hnen? Ich verwende strict nahezu immer (auch fuer kleine Scripts). Ab und zu (bei irgendwelchen eher absurden Gelegenheiten) drehe ich fuer genau den Block, wo ich's brauch, gewisse strictness ab, zb no strict 'refs'; Noch ein Beispiel, warum strict so gut wie immer eine gute Idee ist: (ist zwar Sinnloss, aber was solls..) 1: my $customer_cnt=get_customer_cnt(); 2: $custumer_cnt++; 3: set_customer_cnt($customer_cnt): Hmm, seltsam, der counter wird nicht groesser ... Weil in Zeile 2 nicht der alte Wert erhoeht wird, sondern ein neuer Wert initiert wird (wegen eines Typos (und die passieren mir staendig..)) mit strict wird der code erst gar nicht ausgefuehrt, weil: Global symbol "$custumer_cnt" requires explicit package name at bla.pl line 2 Zur weiteren Lektuere: http://tachyon.perlmonk.org/tutorials/use_strict.htm -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From klaus at kwz.at Sun Feb 22 23:24:12 2004 From: klaus at kwz.at (Klaus Zahradnik) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] =?iso-8859-1?q?G=FCltigkeitsbereich?= von Variablen Message-ID: <20040223052412.GA4775@kwz.at> Guten Morgen Liste! Das folgende Script soll den G?ltigkeitsbereich von Variablen "erkl?ren": #!/usr/bin/perl use warnings; use strict; my $x = 10; $_ = "alpha"; { my $x = 20; local $_ = "beta"; somesub(); } somesub(); sub somesub() { print "\$x is $x\n"; print "\$_ is $_\n"; } $x ist immer 10. Daraus folgern wir, das der Wert von $x aus dem Bereich genommen wird, in dem die Funktion definiert wird, richtig? Aber warum ist das so? Nach meinem Verst?ndnis, m?sste $x aus dem Bereich genommen werden in welchem die subroutine aufgerufen wird!? Vielen Dank im voraus! kwz -------------- 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/20040223/c8e2103a/attachment.bin From domm at zsi.at Mon Feb 23 03:48:26 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] G?ltigkeitsbereich von Variablen In-Reply-To: <20040223052412.GA4775@kwz.at> References: <20040223052412.GA4775@kwz.at> Message-ID: <20040223094826.GA6087@zsi.at> Hi! On Mon, Feb 23, 2004 at 06:24:12AM +0100, Klaus Zahradnik wrote: > #!/usr/bin/perl > use warnings; > use strict; > > my $x = 10; > $_ = "alpha"; > { > my $x = 20; > local $_ = "beta"; > somesub(); > } > somesub(); > > sub somesub() { ^^ das brauchst du nur, wenn du Prototypen erklaeren willst. Tust du aber nicht, also nicht sehr sinnvoll. Ausserdem krieg ich (perl 5.8.0) eine warning: main::somesub() called too early to check prototype at ns.pl line 10. d.h. wenn du prototypen verwenden willst, musst die die sub vor dem ersten Aufruf definieren. Das alles hat aber nix mit dem Problem zu tun... > print "\$x is $x\n"; > print "\$_ is $_\n"; > } > > $x ist immer 10. Daraus folgern wir, das der Wert von $x aus dem Bereich > genommen wird, in dem die Funktion definiert wird, richtig? > Aber warum ist das so? Nach meinem Verst?ndnis, m?sste $x aus dem > Bereich genommen werden in welchem die subroutine aufgerufen wird!? das $x=20 wird durch das my auf den aktuellen Block begrenzt. Du rufst somesub ohne irgenwelche Parameter auf. somesub ist jetzt wieder ein eigener Block, der allerdings kein "Unterblock" von dem vorherigen Block ist (vermutung: weil's eine routine ist). d.h. dort wird $main::x verwendet (als was $x immer interpretiert wird) Anders schaut's aus, wenn du's so machst: my $x = 10; $_ = "alpha"; { my $x = 20; local $_ = "beta"; somesub($x); } somesub($x); sub somesub { my $x=shift; print "\$x is $x\n"; print "\$_ is $_\n"; } IMO zeigt das: * Perl ist nicht PHP * Globale Variablen sind (meistens) eine schlechte Idee & stiften nur Verwirrung -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From wolfgang.laun at alcatel.at Mon Feb 23 02:01:21 2004 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] use strict und dann wieder nicht.... Message-ID: Nur um die Verwirrung nicht zu vergr??ern, s.u. > -----Original Message----- > From: Thomas Klausner [mailto:domm@zsi.at] > Sent: Sunday, February 22, 2004 9:44 PM > To: vienna-pm > Subject: Re: [Vienna-pm] use strict und dann wieder nicht.... > > > Hi! > > On Sun, Feb 22, 2004 at 12:54:17PM +0100, Klaus Zahradnik wrote: > > > > Im Kapitel "Subroutines" wird auch der "namespace" erkl?rt. Dazu gibt es > > dann auch folgenden Code: > > > > #!/usr/bin/perl > > use warnings; > > > > > $main::name = "Klaus Zahradnik"; > > $Fred::name = "Fred Flintstone"; > > $Barney::name = "Barney Rubble"; > > > > > print "\$name in package main is $name\n"; > > print "\$name in package Fred is $Fred::name\n"; > > print "\$name in package Barney is $Barney::name\n"; > > > > > > So steht der im Buch. > > Scheint ein Fehler im Buch zu sein. > Wo soll hier ein Fehler sein? (Wir sind in package main, also ist mit $name - in Abwesenheit von use strict - $main::name gemeint.) > Hast du auf ww.oreilly.com die Errata-Section deiner Verion von Learning > Perl gecheckt? > > > Ich habe allerdings use strict reingeschrieben. Das hatte dann diese > > Fehlermeldung zu folge: > > [klaus@cujo Scripts]$ ./globals.pl > > Variable "$name" is not imported at ./globals.pl line 9. > > Global symbol "$name" requires explicit package name at ./globals.pl > > line 9. > > Execution of ./globals.pl aborted due to compilation errors. > > > > Wenn ich Zeile mit der ersten print Anweisung wie folgt ?ndere, > > funktioniert das auch mit use strict: > > print "\$name in package main is $main::name\n"; > > > > Im orignalzustand funktioniert das nat?rlich auch ohne use strict. > > Klar. Ohne strict kann man immer&uberall variablen einfach so deklarieren. s/deklarieren/verwenden/ > Mit strict (bzw use stricts 'vars') muessen Variablen explizit deklariert > werden (mit our, my, use vars oder 'fully qualified', i.e. > mit der package. (siehe perldoc strict)) > Da fehlt mir das Zeitwort: "...oder 'fully qualified', d.h. mit dem Package-Namen, angegeben werden." lg Wolfgang Laun Transport Solutions Division Alcatel Austria AG Phone +43 1 27722 5662 Fax +43 1 27722 1173 From domm at zsi.at Mon Feb 23 04:01:08 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] use strict und dann wieder nicht.... In-Reply-To: References: Message-ID: <20040223100107.GC6087@zsi.at> Hi! On Mon, Feb 23, 2004 at 09:01:21AM +0100, LAUN Wolfgang wrote: > Nur um die Verwirrung nicht zu vergr??ern, s.u. > > Scheint ein Fehler im Buch zu sein. > > > > Wo soll hier ein Fehler sein? (Wir sind in package main, also ist mit > $name - in Abwesenheit von use strict - $main::name gemeint.) ah, ja, klaro, sorry, meine Verwirrung (witzigerweise hab ich genau das in meinem chronologisch letzem Mail auch geschrieben, bevor ich die Korrektuer hier gelesen habe :-) -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From wolfgang.laun at alcatel.at Mon Feb 23 02:37:52 2004 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Aug 2 21:39:17 2004 Subject: =?iso-8859-1?Q?RE=3A_=5BVienna-pm=5D_G=FCltigkeitsbereich_von_?= =?iso-8859-1?Q?Variablen?= Message-ID: On Mon, Feb 23, 2004 at 06:24:12AM +0100, Klaus Zahradnik wrote: > #!/usr/bin/perl > use warnings; > use strict; > > my $x = 10; > $_ = "alpha"; > { > my $x = 20; > local $_ = "beta"; > somesub(); > } > somesub(); > > sub somesub() { > print "\$x is $x\n"; > print "\$_ is $_\n"; > } > > $x ist immer 10. Daraus folgern wir, das der Wert von $x aus dem Bereich > genommen wird, in dem die Funktion definiert wird, richtig? > Aber warum ist das so? Nach meinem Verst?ndnis, m?sste $x aus dem > Bereich genommen werden in welchem die subroutine aufgerufen wird!? > Gegen "nach meinem Verst?ndnis" ist nat?rlich nichts zu sagen :-) Andrerseits: Leute, die mit blockstrukturierten Sprache (a la Pascal, C usw.) "aufgezogen" wurden, w?rden da kein Problem sehen. Die Regel, dass die Sichtbarkeit durch die *statische* Schachtelung von Bl?cken (d.h. "{...}" mit und ohne "sub" davor) abh?ngt, hat den nicht zu untersch?tzenden Vorteil, dass die Wirkung einer Subroutine durch Lesen der Definition und (nur) deren Umgebung voll verstanden werden kann. Der Einsatz von Parametern bietet genug M?glichkeiten, um dem Caller einer Subroutine Einflu? auf deren konkreten Ablauf zu erlauben; dabei wird das aber an der Schnittstelle sichtbar! Codierrichtlinien sagen i.d.R., dass die mehrfache Verwendung desselben Namens auf verschiedenen Schachtelungsebenen verboten ist: ...{ my $x; ... { my $x; ... } ... } Von der Verwendung von "local" ist ?brigens auch abzuraten (bis auf die ganz, ganz wenigen F?lle, wo... ;-) mfg Wolfgang Laun Transport Solutions Division Alcatel Austria AG Phone +43 1 27722 5662 Fax +43 1 27722 1173 From hjp-vienna-pm-list at hjp.at Mon Feb 23 04:01:27 2004 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] =?iso-8859-1?Q?G=FCltigkei?= =?iso-8859-1?Q?tsbereich?= von Variablen In-Reply-To: <20040223052412.GA4775@kwz.at> References: <20040223052412.GA4775@kwz.at> Message-ID: <20040223100127.GA403@teal.hjp.at> On 2004-02-23 06:24:12 +0100, Klaus Zahradnik wrote: > Das folgende Script soll den G?ltigkeitsbereich von Variablen > "erkl?ren": > > #!/usr/bin/perl > use warnings; > use strict; > > my $x = 10; > $_ = "alpha"; [...] > $x ist immer 10. Daraus folgern wir, das der Wert von $x aus dem Bereich > genommen wird, in dem die Funktion definiert wird, richtig? Ja. > Aber warum ist das so? Weil Larry Wall es so festgelegt hat :-) > Nach meinem Verst?ndnis, m?sste $x aus dem > Bereich genommen werden in welchem die subroutine aufgerufen wird!? Nein, das macht local. Aus perlsub: A "local" modifies its listed variables to be "local" to the enclosing block, "eval", or "do FILE"--and to any subroutine called from within that block. A "local" just gives temporary values to global (meaning package) variables. It does not create a local variable. This is known as dynamic scoping. Lexical scoping is done with "my", which works more like Cs auto declarations. hp -- _ | Peter J. Holzer | I think we need two definitions: |_|_) | Sysadmin WSR | 1) The problem the *users* want us to solve | | | hjp@hjp.at | 2) The problem our solution addresses. __/ | http://www.hjp.at/ | -- Phillip Hallam-Baker on spam -------------- 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/20040223/1d8c6b10/attachment.bin From bernd at firmix.at Tue Feb 24 04:11:24 2004 From: bernd at firmix.at (Bernd Petrovitsch) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] CPAN und RPM Message-ID: <1077617483.13894.21.camel@tara.firmix.at> Vermutlich schon zum x-ten Mal (in perl-Kreisen): Wie verheirate ich CPAN-Module mit RPM? Ich will f?r etliche CPAN-Module RPMs machen (und das ist eine notwendige Voraussetzung). F?r viel geht es out-of-the-box mit cpan2rpm[0], manchen wollen die Version extra haben - aber das ist auch nicht schlimm. Schon eher schlimm ist, da? Module::Build-0.23 im Moment eher nicht zum Verzehr geeignet ist, weil vieles mit "Cannot find perl_interpreter" das installieren verweigert. Und dann gibt es einige, die offenbar keine DESTDIR Variable (oder wie immer die in der perl-Welt genannt wird) unterst?tzen und sich unter / anstatt und /var/tmp/ installieren. Wie kann ich letzteres reparieren (bzw. wo steht die Doku dazu)? Bernd PS: BTW, gibt es beim CPAN-Modul kein "remove" oder so ?hnlich? -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From bernd at firmix.at Wed Feb 25 07:02:18 2004 From: bernd at firmix.at (Bernd Petrovitsch) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] CPAN und RPM In-Reply-To: <1077617483.13894.21.camel@tara.firmix.at> References: <1077617483.13894.21.camel@tara.firmix.at> Message-ID: <1077714138.11390.47.camel@tara.firmix.at> On Die, 2004-02-24 at 11:11, Bernd Petrovitsch wrote: [...] > Und dann gibt es einige, die offenbar keine DESTDIR Variable (oder wie > immer die in der perl-Welt genannt wird) unterst?tzen und sich unter / > anstatt und /var/tmp/ installieren. Das ist so nicht ganz korrekt - die wird offenbar eigentlich doch unterst?tzt, allerdings hab ich dazu das .spec File (von so einem widerspenstigen CPAN-Modul) selber editieren m?ssen. > Wie kann ich letzteres reparieren (bzw. wo steht die Doku dazu)? Und so geht es (der Rest des .spec Files ist daf?r nicht interessant): In der %build Section gibt es (im con cpan2rpm erzeugten) (und alles in einer Zeile) ---- snip ---- %{__perl} Makefile.PL `%{__perl} -MExtUtils::MakeMaker -e ' print qq|PREFIX=%{buildroot}%{_prefix}| if \$ExtUtils::MakeMaker::VERSION =~ /5\.9[1-6]|6\.0[0-5]/ '` ---- snip ---- Und das stellt dort die "destdir" Variable nicht rein. Voila - man kopiert von etwas weiter unten die ?hnliche Logik dort reian (auch alles in einer Zeile) ---- snip ---- %{__perl} Makefile.PL `%{__perl} -MExtUtils::MakeMaker -e ' print \$ExtUtils::MakeMaker::VERSION <= 6.05 ? qq|PREFIX=%{buildroot}%{_prefix}| : qq|destdir=%{buildroot}| '` ---- snip ---- That's it. Warum das im Original anders ist, wei? ich auch nicht. Und warum es f?r fast alle anderen Pakete trotzdem funktioniert, ist mir auch schleierhaft. 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 Wed Feb 25 09:06:29 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] CPAN und RPM In-Reply-To: <1077617483.13894.21.camel@tara.firmix.at> References: <1077617483.13894.21.camel@tara.firmix.at> Message-ID: <20040225150629.GA597@zsi.at> Hi! On Tue, Feb 24, 2004 at 11:11:24AM +0100, Bernd Petrovitsch wrote: > Vermutlich schon zum x-ten Mal (in perl-Kreisen): > Wie verheirate ich CPAN-Module mit RPM? Sorry, ich kenn mich mit RPM nicht aus (debian-user..) > PS: BTW, gibt es beim CPAN-Modul kein "remove" oder so ?hnlich? nein, ich glaub, weil das relativ leicht missbraucht werden koennte (CPAN ist ja recht offen ...) Aber wenn mich nicht alles taeuscht, sollte CPANPLUS das koennen, oder es ist zumindestens geplant, das es gehen soll. Wenn, dann aber auch nur mit Modulen, die via CPANPLUS installiert wurden. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From bernd at firmix.at Wed Feb 25 07:24:56 2004 From: bernd at firmix.at (Bernd Petrovitsch) Date: Mon Aug 2 21:39:17 2004 Subject: [Vienna-pm] CPAN und RPM In-Reply-To: <20040225150629.GA597@zsi.at> References: <1077617483.13894.21.camel@tara.firmix.at> <20040225150629.GA597@zsi.at> Message-ID: <1077715496.11390.50.camel@tara.firmix.at> On Mit, 2004-02-25 at 16:06, Thomas Klausner wrote: > On Tue, Feb 24, 2004 at 11:11:24AM +0100, Bernd Petrovitsch wrote: > > Vermutlich schon zum x-ten Mal (in perl-Kreisen): > > Wie verheirate ich CPAN-Module mit RPM? > > Sorry, ich kenn mich mit RPM nicht aus (debian-user..) Hmm, wie geht es mit .deb? > > PS: BTW, gibt es beim CPAN-Modul kein "remove" oder so ?hnlich? > > nein, ich glaub, weil das relativ leicht missbraucht werden koennte (CPAN > ist ja recht offen ...) Also ich meinte eigentlich das L?schen eines lokal installierten Paketes (und nicht von www.cpan.org). Oder hab ich was mi?verstanden? Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From alfie at ist.org Wed Feb 25 07:39:24 2004 From: alfie at ist.org (Gerfried Fuchs) Date: Mon Aug 2 21:39:18 2004 Subject: [Vienna-pm] CPAN und RPM In-Reply-To: <1077715496.11390.50.camel@tara.firmix.at> References: <1077617483.13894.21.camel@tara.firmix.at> <20040225150629.GA597@zsi.at> <1077715496.11390.50.camel@tara.firmix.at> Message-ID: <2004-02-25_14.39.20@alfie.ist.org> * Bernd Petrovitsch [2004-02-25 14:24]: > On Mit, 2004-02-25 at 16:06, Thomas Klausner wrote: >> Sorry, ich kenn mich mit RPM nicht aus (debian-user..) > > Hmm, wie geht es mit .deb? $> apt-get install dh-make-perl Damit geht das in der Regel sehr sehr gut und sauber. > Also ich meinte eigentlich das L?schen eines lokal installierten Paketes > (und nicht von www.cpan.org). Oder hab ich was mi?verstanden? 14:38 <@domm> hab grad nachgelesen (http://sial.org/howto/perl/life-with-cpan/), geht nur wenn's eine .packlist gibt Bis dann :) Alfie -- > Nachts bei 160 auf der leeren Autobahn m?gest Du mir ebenfalls den > Autofahrer zeigen, der da noch auf Sicht unterwegs ist. auf einer leeren autobahn befingen sich keine autofahrer *g* -- Richard Hanisch in -------------- 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/20040225/68bbf308/attachment.bin From gooly at gmx.at Wed Feb 25 09:24:35 2004 From: gooly at gmx.at (Gooly) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] threaded ChatServer Message-ID: <200402251624.35843.gooly@gmx.at> Hi List, for the Perl-Workshop I'd like to contribute a threadad-Chat-Server. But I'd like you to test it, to look at it and to comment it - if you can and would like too. It was my intention to use this for exchanging results of distributed programs. Therefor the options: yes/no Echo, yes/no print to console. Calli -------------- next part -------------- A non-text attachment was scrubbed... Name: ChatServer.pl Type: application/x-perl Size: 7100 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20040225/6b537e2b/ChatServer.bin From domm at zsi.at Wed Feb 25 12:04:55 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] YAPC::NA::2004 Registration Open! Message-ID: <20040225180455.GB2626@zsi.at> ----- Forwarded message from Kevin Christopher ----- Date: Wed, 25 Feb 2004 09:35:39 -0500 (EST) From: "Kevin Christopher" To: Subject: [pm_groups] YAPC::NA::2004 Registration Open! Spread the word to all your members: Registration Is Now Open for YAPC::NA::2004! Registration at http://www.yapc.org/America/register.shtml Details on lodging are also available. Dorm info is in the works. Links at http://www.yapc.org/America/ Talk proposals are currently being accepted. Deadline for submissions is March 27, 2004: http://www.yapc.org/America/cfp.shtml Kevin Christopher Buffalo Perl Mongers, Host Group for YAPC::NA::2004 buffalo.pm.org _______________________________________________ pm_groups mailing list pm_groups@pm.org http://www.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 gooly at gmx.at Wed Feb 25 10:11:10 2004 From: gooly at gmx.at (Gooly) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] Windows-DDE to Socket for Perl, Linux and everything Message-ID: <200402251711.10822.gooly@gmx.at> Hi, another optional project for the workshop that has been started (but not yet finfished) is a (Pascal-)Program that maps Windows-DDE to a Socket an makes it available for a LAN and for Perl. The program d2s is available at: ????http://www.tu-chemnitz.de/~heha/messtech/d2s.zip Henrik Haftmann from tu-chemnitz was so friendly to do that saying that this is usefull due to the fact that DDE is very wide spread and NetDDE from Windows very bad documented and not as good as it should be. Help is available within this program. For those who only speek english I've written an english translation, which I attached the german help is within the zip-file. The orders for DDE to attach a Windows-Program are: advise: automated update with the recent data connect: starts to connect to DDE server 'service' (appl:EXCEL) disconnect: the 'service' execute: execute the data as command poke: change the content of 'service'-'topic'-'item' to the given 'data' request: request data unadvise: stop a given advise order (either a or w) warm-advise: returns no (new) data, but only the information that the data has been changed. This way one has an easy access to most of the Win-Progs even from Linux and other OS. This is another option for the Workshop, but may need some additional work. As I don't have and don't know Windows maybe somebody else will help? calli PS.: If s.o. like to play around with it, I have DDEspy, just let me know. -------------- next part -------------- A non-text attachment was scrubbed... Name: D2Seng.rtf Type: text/rtf Size: 31088 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20040225/97957e5d/D2Seng.bin From domm at zsi.at Fri Feb 27 08:06:59 2004 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] Urlaub Message-ID: <20040227140659.GF23057@zsi.at> Hi! Ich bin naechste Woche nicht da (Urlaub / Snowboarden!) und wollt mal fragen, ob irgendjemand ev die Workshop/Vortragsanmeldungen als CC bekommen will, um auf ev Fragen zu antworten. -- -> Austrian Perl Workshop - 20th-22nd May - http://vienna.pm.org/ <- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From klaus at kwz.at Sat Feb 28 07:02:02 2004 From: klaus at kwz.at (Klaus Zahradnik) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] Ersetzen eines Chars in einem String Message-ID: <20040228130202.GA5164@kwz.at> Hallo Liste! Ich m?chte in einem String eine Zeichen mit einem anderen ersetzen. Zum Bleistift: _ _. soll --. werden. Also ersetzte ich alle _ mit - und alle \s mit nix. In php habe ich daf?r die Funktion ereg_replace(); Gibt es sowas auch in Perl? Wie kann ich dieses Problem L?sen? best regards kwz -------------- 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/20040228/2a1e9058/attachment.bin From c_p_s at gmx.net Sat Feb 28 07:13:12 2004 From: c_p_s at gmx.net (Christian Schoeller) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] Ersetzen eines Chars in einem String In-Reply-To: <20040228130202.GA5164@kwz.at> References: <20040228130202.GA5164@kwz.at> Message-ID: <20040228131312.GA3708@cps-pbg4.local.> On Sat, Feb 28, 2004 at 02:02:02PM +0100, Klaus Zahradnik wrote: > In php habe ich daf?r die Funktion ereg_replace(); Gibt es sowas auch in > Perl? Ja, moeglich mit dem Ersetzungsoperator s///. Grundsaetzlich arbeitet er gleich wie m// mit RegExps, die Aenderung ist jedoch, dass nach dem zweiten Slash der neue Ausdruck folgen muss. Beispiel: "I like Perl." s/like/love/ gibt den Satz veraendert zurueck: "I love Perl." C. -- Christian Schoeller {Student} | "If there is anything more important MAIL {mailto:c_p_s@gmx.net} | than my ego around, I want it caught HTTP {http://www.yaup.at.tt} | and shot now." EBAY {c_p_s!} | -A Hitchhiker's Guide to the Galaxys -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 186 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20040228/9ced4532/attachment.bin From klaus at kwz.at Sat Feb 28 07:33:00 2004 From: klaus at kwz.at (Klaus Zahradnik) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] Ersetzen eines Chars in einem String In-Reply-To: <20040228131312.GA3708@cps-pbg4.local.> References: <20040228130202.GA5164@kwz.at> <20040228131312.GA3708@cps-pbg4.local.> Message-ID: <20040228133300.GB5510@kwz.at> On Sat, Feb 28, 2004 at 02:13:12PM +0100, Christian Schoeller wrote: > On Sat, Feb 28, 2004 at 02:02:02PM +0100, Klaus Zahradnik wrote: > > In php habe ich daf?r die Funktion ereg_replace(); Gibt es sowas auch in > > Perl? > > Ja, moeglich mit dem Ersetzungsoperator s///. Grundsaetzlich arbeitet > er gleich wie m// mit RegExps, die Aenderung ist jedoch, dass nach dem > zweiten Slash der neue Ausdruck folgen muss. Danke! kwz > > Beispiel: "I like Perl." > s/like/love/ gibt den Satz veraendert zurueck: "I love Perl." > > C. > > -- > Christian Schoeller {Student} | "If there is anything more important > MAIL {mailto:c_p_s@gmx.net} | than my ego around, I want it caught > HTTP {http://www.yaup.at.tt} | and shot now." > EBAY {c_p_s!} | -A Hitchhiker's Guide to the Galaxys > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@mail.pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm -------------- 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/20040228/ce1f3f19/attachment.bin From alfie at ist.org Sun Feb 29 06:22:10 2004 From: alfie at ist.org (Gerfried Fuchs) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] Ersetzen eines Chars in einem String In-Reply-To: <20040228131312.GA3708@cps-pbg4.local.> References: <20040228130202.GA5164@kwz.at> <20040228131312.GA3708@cps-pbg4.local.> Message-ID: <2004-02-29_13.22.05@alfie.ist.org> * Christian Schoeller [2004-02-28 14:13]: > On Sat, Feb 28, 2004 at 02:02:02PM +0100, Klaus Zahradnik wrote: >> In php habe ich daf?r die Funktion ereg_replace(); Gibt es sowas auch in >> Perl? > > Ja, moeglich mit dem Ersetzungsoperator s///. Grundsaetzlich arbeitet > er gleich wie m// mit RegExps, die Aenderung ist jedoch, dass nach dem > zweiten Slash der neue Ausdruck folgen muss. > > Beispiel: "I like Perl." > s/like/love/ gibt den Satz veraendert zurueck: "I love Perl." Nur zu Dokumentationszwecken, wir haben das ja eh schon im IRC ausgebreitet: Klaus hat hier auch den /g Modifier von s/// gesucht, und in dem Fall ist y/// besser geeignet, weil es auf Zeichenebene arbeitet und nicht die regexp-Engine daf?r bem?ht: y/_ /-/d; Beschreibung der Modifier gibt es in perldoc perlop, in der jeweiligen Beschreibung unterhalb von: s/PATTERN/REPLACEMENT/egimosx y/SEARCHLIST/REPLACEMENTLIST/cds MfG, Alfie -- use Mail::Signature; $sig = Mail::Signature->new; print $sig->random; -------------- 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/20040229/a7d0fb83/attachment.bin From martin at leyrer.priv.at Sun Feb 29 11:40:02 2004 From: martin at leyrer.priv.at (Martin 'm3' Leyrer) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] Ersetzen eines Chars in einem String In-Reply-To: <2004-02-29_13.22.05@alfie.ist.org> References: <20040228131312.GA3708@cps-pbg4.local.> Message-ID: <40423202.26258.5FC6C45@localhost> Am 29 Feb 2004 um 13:22, schrieb Gerfried Fuchs: [Snip] > Nur zu Dokumentationszwecken, wir haben das ja eh schon im IRC > ausgebreitet: [Snip] Hi! Auch auf die Gefahr hin, dass ich mich als absoluter Noob oute, wo sollte man als Perl-interessierter IRCler herumhaengen? Cheers -- Martin 'm3' Leyrer Die Meldung zur Mail: You speak of beer, you speak my language -- Al Bundy From c_p_s at gmx.net Sun Feb 29 11:51:40 2004 From: c_p_s at gmx.net (Christian Schoeller) Date: Mon Aug 2 21:39:19 2004 Subject: [Vienna-pm] Ersetzen eines Chars in einem String In-Reply-To: <40423202.26258.5FC6C45@localhost> References: <20040228131312.GA3708@cps-pbg4.local.> <40423202.26258.5FC6C45@localhost> Message-ID: <20040229175140.GB3708@cps-pbg4.local.> On Sun, Feb 29, 2004 at 06:40:02PM +0100, Martin 'm3' Leyrer wrote: > Auch auf die Gefahr hin, dass ich mich als absoluter Noob oute, wo sollte man > als Perl-interessierter IRCler herumhaengen? Shame on me - ich war noch nie dort, aber IMHO zum Beispiel in #austria.pm auf irc.pm.org. C. -- Christian Schoeller {Student} | "I'm in favor of legalizing drugs. MAIL {mailto:c_p_s@gmx.net} | If people want to kill themselves, HTTP {http://www.yaup.at.tt} | they have every right to do so." EBAY {c_p_s!} | --Milton Friedman -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 186 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20040229/9965f4fb/attachment.bin