From Gernot.Havranek at bertelsmann.at Mon Oct 6 04:45:25 2003 From: Gernot.Havranek at bertelsmann.at (Gernot.Havranek@bertelsmann.at) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit Message-ID: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> Hi! Da ja der erste Versuch ziemlich gescheitert ist, hab ich nun eine neue Idee! Was haltet ihr davon eine Perl-Monger Seite fuer ganz ?sterreich zu erstellen! Deutschland hat so eine Seite auch schon ( http://www.perlmongers.de/ ). Namensvorschlag: http://perlmongers.at/ oder eine Seite bei pm.org organisieren z.B.: http://oesterreich.pm.org/ ? Um R?ckmeldungen wird gebeten! Gruss Gernot From alfie at ist.org Mon Oct 6 05:06:14 2003 From: alfie at ist.org (Gerfried Fuchs) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit In-Reply-To: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> References: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> Message-ID: <2003-10-06_12.06.10@alfie.ist.org> * Gernot.Havranek@bertelsmann.at [2003-10-06 11:45]: > Da ja der erste Versuch ziemlich gescheitert ist, > hab ich nun eine neue Idee! Ich will Dich ja nicht in Deinem Enthusiasmus bremsen, aber was bringt es Dir, wenn sich der sowieso kaum vorhandene Traffic auf der vienna.pm Liste auf Deine Liste aufteilt? Noch weniger Traffic, oder h?ttest Du gerne, dass der Traffic dupliziert wird, damit man alles doppelt und dreifach (Cc's) liest? Wieviele Leute hast Du denn tats?chlich im Marchfeld ausser Dir, nur so nebenbei gefragt? Btw., deine Austria.marchfeld-pm Liste ist weder auf der Austria-Seite von pm.org eingetragen noch hat sie eine Beschreibung. Ganz abgesehen davon, dass der Listenname komplett an der Namenskonvention vorbeigeht :-/ > Was haltet ihr davon eine Perl-Monger Seite fuer ganz ?sterreich zu > erstellen! W?rs nicht sinnvoller, zuerst mal zu ?berlegen, was da an Inhalt draufkommen sollte? Wenn man mal Inhalt hat, dann kann man sich auch noch ?berlegen, eine Domain dazu zu nehmen. Ich sehe keinen wirklichen Nutzen, eine Domain zu bestellen, f?r die kein Inhalt vorhanden ist. So long, Alfie -- "Dein Browser macht Probleme!" -- http://www.bravo.de/ bei deaktiviertem JS -------------- 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/20031006/ba840ff3/attachment.bin From michael at wsr.ac.at Mon Oct 6 05:46:42 2003 From: michael at wsr.ac.at (Michael Demelbauer) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit In-Reply-To: <2003-10-06_12.06.10@alfie.ist.org> References: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> <2003-10-06_12.06.10@alfie.ist.org> Message-ID: <20031006104642.GA1253@wsr.ac.at> Thus spaketh Gerfried Fuchs: > * Gernot.Havranek@bertelsmann.at [2003-10-06 11:45]: > > Da ja der erste Versuch ziemlich gescheitert ist, > > hab ich nun eine neue Idee! [ ... Erstellung von perl-mongers.at Seite ... ] Ich glaube nicht, da? derartiges auf einer Mailingliste ausdiskutiert werden kann. Eine Zeit lang waren die pm-Treffen immer zeit- und ortsgleich mit den Treffen der LUGA (www.luga.at/; Leute, die sie in letzter Zeit auch besucht haben, wissen sicher mehr :-( ). F?r das n?chste Treffen (15.10., 19:00, Hopfenstange in Wien 7), ist das zwar nicht speziell angemerkt, aber ich war noch auf keinem LUGA-Treffen, wo nicht auch einige ambitionierte Perlhacker anwesend gewesen w?ren. Ich glaube dein Ansinnen (?sterreichische Infrastruktur f?r Perl) lie?e sich leichter transportieren, wenn du zuerst die existierende Szene kennenlernen w?rdest. lG - Michl"dessen Perlkenntnisse bei weitem nicht ausreichen, um Content f?r ein ?sterr. Perlportal auszusuchen" -- Michael P. Demelbauer WSR (Wirtschafts- und Sozialwissenschaftliches Rechenzentrum) LUGA (Linux User Group Austria) Intelligenz l??t sich nicht am Weg, sondern nur am Ergebnis feststellen. -- Gary Kasparov From domm at zsi.at Mon Oct 6 06:34:56 2003 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit In-Reply-To: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> References: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> Message-ID: <20031006113456.GE8759@zsi.at> Hi! On Mon, Oct 06, 2003 at 11:45:25AM +0200, Gernot.Havranek@bertelsmann.at wrote: > Was haltet ihr davon eine Perl-Monger Seite fuer ganz ?sterreich zu > erstellen! > Deutschland hat so eine Seite auch schon ( http://www.perlmongers.de/ ). > > Namensvorschlag: http://perlmongers.at/ oder eine Seite bei pm.org > organisieren z.B.: http://oesterreich.pm.org/ ? Ich weiss nicht wie ihr das seht, aber mir sind solche Websites relativ wurscht. Sie sind auch eher unwichtig, was den Community-Aspekt angeht, weil dieser sowieso von Mailinglist, IRC und f2f-Treffen abgedeckt wird. Eine Webseite ist nur interessant als Pointer zu diesen Aktivitaeten und ev als Archiv. Ich wuerde mal vorschlagen: * Etablierung von #austria.pm auf irc.perl.org (hi Alfie!) * Entweder Leute aus Bundeslaendern etc auf vienna.pm bringen, oder vienna.pm in austria.pm umwandeln (die Oestereiche Perl-communitiy scheint mir nicht gross genug fuer zwei Listen etc zu sein) (wobei in meinem Ohr vienna.pm besser klingt als austria.pm) BTW, wer der werten Subskribenten ist denn eingentlich nicht aus Wien? -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From patrick at pantheon.at Mon Oct 6 05:34:31 2003 From: patrick at pantheon.at (Patrick Meidl) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit In-Reply-To: <20031006113456.GE8759@zsi.at> References: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> <20031006113456.GE8759@zsi.at> Message-ID: <20031006103431.GA8902@lektor.homelinux.net> On Mon, Oct 06 2003, Thomas Klausner wrote: > Ich weiss nicht wie ihr das seht, aber mir sind solche Websites > relativ wurscht. Sie sind auch eher unwichtig, was den > Community-Aspekt angeht, weil dieser sowieso von Mailinglist, IRC und > f2f-Treffen abgedeckt wird. Eine Webseite ist nur interessant als > Pointer zu diesen Aktivitaeten und ev als Archiv. ACK. > BTW, wer der werten Subskribenten ist denn eingentlich nicht aus Wien? bin schon seit 3 jahren nicht mehr in wien (ich arbeite momentan in cambridge im umfeld von bioperl), ist aber trotzdem interessant, was sich daheim in der perl-cummunity abspielt (man weiss ja nie, ob's einen nicht wieder mal dorthin verschlaegt ...). ob die liste jetzt vienna.pm oder austria.pm oder wie auch immer heisst, ist mir ziemlich wurscht, bin sowieso kein freund von lokal- oder nationalpatriotismus. cheers patrick -- Patrick Meidl ............................... patrick@pantheon.at 20 Guest Road ............................... +44-1223-514058 (home) Cambridge CB1 2AL, UK ....................... +44-7770-526961 (mobile) -- -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20031006/6b949152/attachment.bin From alfie at ist.org Mon Oct 6 09:40:58 2003 From: alfie at ist.org (Gerfried Fuchs) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit In-Reply-To: <20031006113456.GE8759@zsi.at> References: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> <20031006113456.GE8759@zsi.at> Message-ID: <2003-10-06_16.40.55@alfie.ist.org> Hi! Silly me, dabei bin ich eigentlich ein Gegner von Reply-To: List, und dann passierts mir, dass ich eine rein pers?nliche Antwort generiere *grummel* Hier f?r den Rest der Liste :) * Thomas Klausner [2003-10-06 13:34]: > Ich wuerde mal vorschlagen: > > * Etablierung von #austria.pm auf irc.perl.org > (hi Alfie!) Hallo. Also ich muss sagen, ich h?ng das seit 1. Oktober ab 11:07 drin, und die ganze Zeit war niemand da.... Bisserl einsam f?hl ich mich schon, wenn ich ehrlich sein soll :) > * Entweder Leute aus Bundeslaendern etc auf vienna.pm bringen, oder > vienna.pm in austria.pm umwandeln (die Oestereiche Perl-communitiy scheint > mir nicht gross genug fuer zwei Listen etc zu sein) Halte ich auch f?r den richtigen Weg. Ich sehe keinen Sinn in zahllosen Listen ohne auch nur ann?hernd einen Inhalt, das wird nichts, das zerkl?ftet nur die Wissenden. Aber es w?re leichter, Halbwissen r?berzubringen, weil keiner widerspricht (ob das ein Vorteil ist? ;) > (wobei in meinem Ohr vienna.pm besser klingt als austria.pm) Ja, aber es k?nnte sein, dass sich manche Leute fehl am Platz f?hlen. Das kann auch mit der Grund sein, warum wir jetzt eine Marchfeld-Gruppe haben, auf der es offenbar nur eine Person gibt :) > BTW, wer der werten Subskribenten ist denn eingentlich nicht aus Wien? /me hebt die Hand. Klosterneuburg. So long, Alfie -- > hat man als Frau eigentlich wenn man es richtig macht einen St?rkeren > Orgasmus beim Analsex, als beim Normalen Sex ? RTFM -- Fentler Wolfgang in <3B867C0E.A530AD8D@teleweb.at> From BaierO at spardat.at Mon Oct 6 10:14:43 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:13 2004 Subject: AW: [Vienna-pm] Zusammenarbeit Message-ID: <1FCFCFC1F0830E4D93860866CACC07B60399BF20@m0114.s-mxs.net> Hi, ich bin zwar aus Wien, aber ich waere genauso dabei, wenn es lower_austria.pm, noe.pm oder anders heissen wuerde. Auch wenn manche ihr Bundesland wichtiger finden, kann ich mir nicht vorstellen, dass sie der group nicht joinen, weil sie vienna.pm heisst; schliesslich geht's ja um den content. Der eigentliche Grund meiner mail ist aber: > Silly me, dabei bin ich eigentlich ein Gegner von > Reply-To: List, und ... Gut, in deinem vorigen Fall von persoenlicher Kritik waere das ok gewesen, aber prinzipiell bin ich schwer dagegen. Auch an den vienna.pm-mails in der letzten Zeit konnte man erkennen, dass nicht jeder gerne an die Liste replied. Warum? Fuer mich ist der grosse Vorteil - wenn nicht gar der groesste Vorteil - member einer list zu sein, an anderen Problemloesungen mitle(sen/rnen) zu koennen. Also please reply to list. lg Oliver PS: originelle sigs :) > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@mail.pm.org > [mailto:vienna-pm-bounces@mail.pm.org]Im Auftrag von Gerfried Fuchs > Gesendet: Montag, 06. Oktober 2003 16:41 > An: vienna-pm@mail.pm.org > Betreff: Re: [Vienna-pm] Zusammenarbeit > > > Hi! > > Silly me, dabei bin ich eigentlich ein Gegner von Reply-To: List, und > dann passierts mir, dass ich eine rein pers?nliche Antwort generiere > *grummel* > > Hier f?r den Rest der Liste :) > > * Thomas Klausner [2003-10-06 13:34]: > > Ich wuerde mal vorschlagen: > > > > * Etablierung von #austria.pm auf irc.perl.org > > (hi Alfie!) > > Hallo. Also ich muss sagen, ich h?ng das seit 1. Oktober ab 11:07 > drin, und die ganze Zeit war niemand da.... Bisserl einsam > f?hl ich mich > schon, wenn ich ehrlich sein soll :) > > > * Entweder Leute aus Bundeslaendern etc auf vienna.pm bringen, oder > > vienna.pm in austria.pm umwandeln (die Oestereiche > Perl-communitiy scheint > > mir nicht gross genug fuer zwei Listen etc zu sein) > > Halte ich auch f?r den richtigen Weg. Ich sehe keinen Sinn in > zahllosen Listen ohne auch nur ann?hernd einen Inhalt, das > wird nichts, > das zerkl?ftet nur die Wissenden. Aber es w?re leichter, Halbwissen > r?berzubringen, weil keiner widerspricht (ob das ein Vorteil ist? ;) > > > (wobei in meinem Ohr vienna.pm besser klingt als austria.pm) > > Ja, aber es k?nnte sein, dass sich manche Leute fehl am Platz f?hlen. > Das kann auch mit der Grund sein, warum wir jetzt eine > Marchfeld-Gruppe > haben, auf der es offenbar nur eine Person gibt :) > > > BTW, wer der werten Subskribenten ist denn eingentlich > nicht aus Wien? > > /me hebt die Hand. Klosterneuburg. > > So long, > Alfie > -- > > hat man als Frau eigentlich wenn man es richtig macht einen > St?rkeren > > Orgasmus beim Analsex, als beim Normalen Sex ? > RTFM > -- Fentler Wolfgang in > <3B867C0E.A530AD8D@teleweb.at> > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@mail.pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From nick at ccl4.org Mon Oct 6 15:47:53 2003 From: nick at ccl4.org (Nicholas Clark) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit In-Reply-To: <20031006113456.GE8759@zsi.at> References: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> <20031006113456.GE8759@zsi.at> Message-ID: <20031006204753.GH14030@plum.flirble.org> On Mon, Oct 06, 2003 at 01:34:56PM +0200, Thomas Klausner wrote: > * Entweder Leute aus Bundeslaendern etc auf vienna.pm bringen, oder > vienna.pm in austria.pm umwandeln (die Oestereiche Perl-communitiy scheint > mir nicht gross genug fuer zwei Listen etc zu sein) die ganze Welt^W^WBritishe Perl-communitiy ist nicht gross genug f?r mehr als einer Liste. cam.pm und tyneside.pm sind sehr r?hig - jemand schreibt auf london.pm (aber ich glaube da? birmingham.pm nicht fast tot ist) Nicholas Clark From domm at zsi.at Mon Oct 6 16:01:47 2003 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit In-Reply-To: <20031006204753.GH14030@plum.flirble.org> References: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> <20031006113456.GE8759@zsi.at> <20031006204753.GH14030@plum.flirble.org> Message-ID: <20031006210147.GF12084@zsi.at> Hi Nicholas! On Mon, Oct 06, 2003 at 09:47:53PM +0100, Nicholas Clark wrote: > On Mon, Oct 06, 2003 at 01:34:56PM +0200, Thomas Klausner wrote: > > > * Entweder Leute aus Bundeslaendern etc auf vienna.pm bringen, oder > > vienna.pm in austria.pm umwandeln (die Oestereiche Perl-communitiy scheint > > mir nicht gross genug fuer zwei Listen etc zu sein) > > die ganze Welt^W^WBritishe Perl-communitiy ist nicht gross genug f?r mehr > als einer Liste. cam.pm und tyneside.pm sind sehr r?hig - jemand schreibt > auf london.pm du meinst wohl "jeder schreibt auf london.pm". Aber ++ fuer das Deutsch! (jemand = somebody, zumindest in diesem Kontext) -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From nick at ccl4.org Mon Oct 6 16:17:33 2003 From: nick at ccl4.org (Nicholas Clark) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit In-Reply-To: <20031006210147.GF12084@zsi.at> References: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> <20031006113456.GE8759@zsi.at> <20031006204753.GH14030@plum.flirble.org> <20031006210147.GF12084@zsi.at> Message-ID: <20031006211733.GI14030@plum.flirble.org> On Mon, Oct 06, 2003 at 11:01:47PM +0200, Thomas Klausner wrote: > du meinst wohl "jeder schreibt auf london.pm". Aber ++ fuer das Deutsch! Danke Mein ispell kennt nur English. Was solte ich nutzen, um Deutsch zu korrigieren? (ispell deutsch glaubt da? man mit nur 7 bit schreiben mussen) Nicholas Clark From alfie at ist.org Tue Oct 7 02:04:55 2003 From: alfie at ist.org (Gerfried Fuchs) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Zusammenarbeit In-Reply-To: <20031006211733.GI14030@plum.flirble.org> References: <4B4AF79B34DED21185D10008C75B6E6D0156E693@AZ-MAIL> <20031006113456.GE8759@zsi.at> <20031006204753.GH14030@plum.flirble.org> <20031006210147.GF12084@zsi.at> <20031006211733.GI14030@plum.flirble.org> Message-ID: <2003-10-07_09.04.34@alfie.ist.org> * Nicholas Clark [2003-10-06 22:17]: > On Mon, Oct 06, 2003 at 11:01:47PM +0200, Thomas Klausner wrote: >> du meinst wohl "jeder schreibt auf london.pm". Aber ++ fuer das Deutsch! > > Mein ispell kennt nur English. Was solte ich nutzen, um Deutsch zu > korrigieren? (ispell deutsch glaubt da? man mit nur 7 bit schreiben mussen) $> ispell -T latin1 -d ngerman $DATEI HTH & HAND :) Alfie -- FORTUNE PROVIDES QUESTIONS FOR THE GREAT ANSWERS: #19 A: To be or not to be. Q: What is the square root of 4b^2? -------------- 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/20031007/1fe03d75/attachment.bin From BaierO at spardat.at Tue Oct 14 08:10:12 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Problem mit rewinddir Message-ID: <1FCFCFC1F0830E4D93860866CACC07B60399BF2D@m0114.s-mxs.net> Hi, ich durchsuche rekursiv bestimmte Verzeichnisse und loesche deren Unterverzeichnisse, wenn diese nicht auf einer "Liste" stehen oder Dateien enthalten. Irgendwie scheint rewinddir nicht ganz so zu funktionieren, wie ich es mir vorstelle. Meine Subroutine lautet: sub cleandir { my ($countref, $dir) = @_; my $deleteflag = 1; opendir DIR, $dir or warn "open-error bei $dir: $!\n"; foreach ( grep -d, map "$dir/$_", grep !/^\.\.?$/, readdir DIR ) { $deleteflag *= cleandir($countref, $_); } # rewinddir DIR; closedir DIR; opendir DIR, $dir or warn "open-error bei $dir: $!\n"; my $files = grep -f, map "$dir/$_", readdir DIR; closedir DIR; if ($deleteflag && !$files && !exists $templates{$dir}) { print "loesche $dir ($files Dateien)\n"; #rmdir $dir or warn "delete-error bei $dir: $!\n"; $$countref++; return 1; } else { print "verschone $dir ($files Dateien)\n"; } return 0; } und fuehrt (mit open&close) zum Ergebnis: | loesche /data/apache_entw_dev/newsroom/images/no_a_dir (0 Dateien) | loesche /data/apache_entw_dev/newsroom/images/nr_banner_aboservice_neu.gif (0 Dateien) | verschone /data/apache_entw_dev/newsroom/images/und_a_dir_mit_feus (2 Dateien) | loesche /data/apache_entw_dev/newsroom/images/und_no_ans_ohne (0 Dateien) | verschone /data/apache_entw_dev/newsroom/images (52 Dateien) wenn ich allerdings rewinddir statt open&close verwende, erhalte ich ein falsches Ergebnis: | loesche /data/apache_entw_dev/newsroom/images/no_a_dir (0 Dateien) | loesche /data/apache_entw_dev/newsroom/images/nr_banner_aboservice_neu.gif (0 Dateien) | verschone /data/apache_entw_dev/newsroom/images/und_a_dir_mit_feus (2 Dateien) | loesche /data/apache_entw_dev/newsroom/images/und_no_ans_ohne (0 Dateien) | verschone /data/apache_entw_dev/newsroom/images (0 Dateien) Das uebergebene Verzeichnis ".../images" wird in diesem Fall zwar trotzdem verschont, weil's berechtigte Unterverzeichnisse erhaelt, aber die Anzahl der Dateien ist falsch. Warum? lg Oliver From domm at zsi.at Tue Oct 14 08:36:05 2003 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Problem mit rewinddir In-Reply-To: <1FCFCFC1F0830E4D93860866CACC07B60399BF2D@m0114.s-mxs.net> References: <1FCFCFC1F0830E4D93860866CACC07B60399BF2D@m0114.s-mxs.net> Message-ID: <20031014133605.GB24311@zsi.at> Hi! On Tue, Oct 14, 2003 at 03:10:12PM +0200, Baier Oliver MAX SD wrote: > ich durchsuche rekursiv bestimmte Verzeichnisse und loesche > deren Unterverzeichnisse, wenn diese nicht auf einer "Liste" > stehen oder Dateien enthalten. hab grad keine Zeit, aber warum amchst du das nicht mit File::Find? -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From wolfgang.laun at alcatel.at Tue Oct 14 09:10:56 2003 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Problem mit rewinddir Message-ID: <75A46BF1A9D8D311863A00508B6259A405F180E7@ATTMSX4> Rekursive Prozeduren vertragen sich nicht gut mit Filehandles, und mit Directory-Handles ist es nicht anders. Wolfgang > -----Original Message----- > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > Sent: Tuesday, October 14, 2003 3:10 PM > To: Vienna. Pm (E-Mail) > Subject: [Vienna-pm] Problem mit rewinddir > > > Hi, > > ich durchsuche rekursiv bestimmte Verzeichnisse und loesche > deren Unterverzeichnisse, wenn diese nicht auf einer "Liste" > stehen oder Dateien enthalten. > > Irgendwie scheint rewinddir nicht ganz so zu funktionieren, > wie ich es mir vorstelle. > > Meine Subroutine lautet: > > sub cleandir { > my ($countref, $dir) = @_; > my $deleteflag = 1; > opendir DIR, $dir or warn "open-error bei $dir: $!\n"; > foreach ( grep -d, map "$dir/$_", grep !/^\.\.?$/, readdir DIR ) { > $deleteflag *= cleandir($countref, $_); > } > # rewinddir DIR; > closedir DIR; > opendir DIR, $dir or warn "open-error bei $dir: $!\n"; > my $files = grep -f, map "$dir/$_", readdir DIR; > closedir DIR; > if ($deleteflag && !$files && !exists $templates{$dir}) { > print "loesche $dir ($files Dateien)\n"; > #rmdir $dir or warn "delete-error bei $dir: $!\n"; > $$countref++; > return 1; > } else { > print "verschone $dir ($files Dateien)\n"; > } > return 0; > } > > und fuehrt (mit open&close) zum Ergebnis: > > | loesche /data/apache_entw_dev/newsroom/images/no_a_dir (0 Dateien) > | loesche > /data/apache_entw_dev/newsroom/images/nr_banner_aboservice_neu > .gif (0 Dateien) > | verschone > /data/apache_entw_dev/newsroom/images/und_a_dir_mit_feus (2 Dateien) > | loesche > /data/apache_entw_dev/newsroom/images/und_no_ans_ohne (0 Dateien) > | verschone /data/apache_entw_dev/newsroom/images (52 Dateien) > > wenn ich allerdings rewinddir statt open&close verwende, > erhalte ich ein falsches Ergebnis: > > | loesche /data/apache_entw_dev/newsroom/images/no_a_dir (0 Dateien) > | loesche > /data/apache_entw_dev/newsroom/images/nr_banner_aboservice_neu > .gif (0 Dateien) > | verschone > /data/apache_entw_dev/newsroom/images/und_a_dir_mit_feus (2 Dateien) > | loesche > /data/apache_entw_dev/newsroom/images/und_no_ans_ohne (0 Dateien) > | verschone /data/apache_entw_dev/newsroom/images (0 Dateien) > > Das uebergebene Verzeichnis ".../images" wird in diesem Fall zwar > trotzdem verschont, weil's berechtigte Unterverzeichnisse erhaelt, > aber die Anzahl der Dateien ist falsch. > > Warum? > > lg > Oliver > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@mail.pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From BaierO at spardat.at Tue Oct 14 10:10:44 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:13 2004 Subject: AW: [Vienna-pm] Problem mit rewinddir Message-ID: <1FCFCFC1F0830E4D93860866CACC07B60399BF2F@m0114.s-mxs.net> Hi, kenne File::Find nicht so genau, aber habe gerade gelesen, dass es keine Argumente uebergeben kann und ich deshalb vermutlich ein Problem damit haette, jedes Verzeichnis zu behandeln und je nach Ergebnis a oder b ans naechste Verzeichnis weiterzureichen. Hast du vielleicht auch eine Alternative zu rewinddir, die performanter ist als closedir&&opendir? lg Oliver > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@mail.pm.org > [mailto:vienna-pm-bounces@mail.pm.org]Im Auftrag von Thomas Klausner > Gesendet: Dienstag, 14. Oktober 2003 15:36 > An: Vienna. Pm (E-Mail) > Betreff: Re: [Vienna-pm] Problem mit rewinddir > > > Hi! > > On Tue, Oct 14, 2003 at 03:10:12PM +0200, Baier Oliver MAX SD wrote: > > > ich durchsuche rekursiv bestimmte Verzeichnisse und loesche > > deren Unterverzeichnisse, wenn diese nicht auf einer "Liste" > > stehen oder Dateien enthalten. > > hab grad keine Zeit, aber warum amchst du das nicht mit File::Find? > > > -- > #!/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 > From wolfgang.laun at alcatel.at Tue Oct 14 11:44:53 2003 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Problem mit rewinddir Message-ID: <75A46BF1A9D8D311863A00508B6259A405F180E8@ATTMSX4> Vielleicht war mein Hinweis nicht deutlich genug: Das Problem der nicht gefundenen Files kommt m.E. davon, dass DIR global sichtbar ist und im rekursivn Aufruf wieder verwendet wird. Dadurch wird DIR mit einem anderen Directory neu er?ffne, und die Fortsetzung mit rewinddir usw. nach der R?ckkehr aus dem rekursiven Aufruf liest etwas ganz anderes. Jede Rekursionsebene ben?tigt ihr eigenes Handle DIR. (Darauf wird etwa in perlfunc oder perlsub hingewiesen.) Es ist m?glich, mit local *DIR auf jeder Rekursionsebene ein neues DIR bereitzustellen. HTH -Wolfgang > -----Original Message----- > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > Sent: Tuesday, October 14, 2003 5:11 PM > To: Thomas Klausner > Cc: Vienna. Pm (E-Mail) > Subject: AW: [Vienna-pm] Problem mit rewinddir > > > Hi, > > kenne File::Find nicht so genau, aber habe gerade gelesen, > dass es keine Argumente uebergeben kann und ich deshalb > vermutlich ein Problem damit haette, jedes Verzeichnis > zu behandeln und je nach Ergebnis a oder b ans naechste > Verzeichnis weiterzureichen. > > Hast du vielleicht auch eine Alternative zu rewinddir, > die performanter ist als closedir&&opendir? > > lg > Oliver > From BaierO at spardat.at Tue Oct 14 12:06:32 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:13 2004 Subject: AW: [Vienna-pm] Problem mit rewinddir Message-ID: <1FCFCFC1F0830E4D93860866CACC07B60399BF31@m0114.s-mxs.net> Hallo Wolfgang, das kann ich so nicht bestaetigen, da ich ja problemlos den Verzeichnisbaum runterwandern kann und die jeweils richtigen Unterverzeichnisse bekomme. Auch scheint das anschliessende rewinddir nicht prinzipiell zu scheitern, da ich meistens die korrekte Anzahl an darin enthaltenen Dateien angezeigt bekomme. Aber irgendwie hast du damit auch recht, weil ich soeben opendir & Co auf die OO-Variante umgestellt habe my $D = DirHandle->new("$dir")... und alle 13000 Verzeichnisse und 35000 Dateien korrekt aufgelistet werden. Was auch immer anders schiefgeht, so klappt's. Danke fuer den Hinweis! lg Oliver > -----Urspr?ngliche Nachricht----- > Von: LAUN Wolfgang [mailto:wolfgang.laun@alcatel.at] > Gesendet: Dienstag, 14. Oktober 2003 18:45 > An: Baier Oliver MAX SD; Thomas Klausner > Cc: Vienna. Pm (E-Mail) > Betreff: RE: [Vienna-pm] Problem mit rewinddir > > > Vielleicht war mein Hinweis nicht deutlich genug: Das Problem > der nicht gefundenen Files kommt m.E. davon, dass DIR global > sichtbar ist und im rekursivn Aufruf wieder verwendet wird. > Dadurch wird DIR mit einem anderen Directory neu er?ffne, > und die Fortsetzung mit rewinddir usw. nach der R?ckkehr aus > dem rekursiven Aufruf liest etwas ganz anderes. > > Jede Rekursionsebene ben?tigt ihr eigenes Handle DIR. (Darauf wird > etwa in perlfunc oder perlsub hingewiesen.) Es ist m?glich, > mit local *DIR auf jeder Rekursionsebene ein neues DIR > bereitzustellen. > > HTH > -Wolfgang > > > > -----Original Message----- > > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > > Sent: Tuesday, October 14, 2003 5:11 PM > > To: Thomas Klausner > > Cc: Vienna. Pm (E-Mail) > > Subject: AW: [Vienna-pm] Problem mit rewinddir > > > > > > Hi, > > > > kenne File::Find nicht so genau, aber habe gerade gelesen, > > dass es keine Argumente uebergeben kann und ich deshalb > > vermutlich ein Problem damit haette, jedes Verzeichnis > > zu behandeln und je nach Ergebnis a oder b ans naechste > > Verzeichnis weiterzureichen. > > > > Hast du vielleicht auch eine Alternative zu rewinddir, > > die performanter ist als closedir&&opendir? > > > > lg > > Oliver > > > From wolfgang.laun at alcatel.at Wed Oct 15 01:16:47 2003 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] Problem mit rewinddir Message-ID: <75A46BF1A9D8D311863A00508B6259A405F180E9@ATTMSX4> > -----Original Message----- > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > Sent: Tuesday, October 14, 2003 7:07 PM > To: LAUN Wolfgang > Cc: Vienna. Pm (E-Mail) > Subject: AW: [Vienna-pm] Problem mit rewinddir > > > Hallo Wolfgang, > > das kann ich so nicht bestaetigen, da ich ja problemlos den > Verzeichnisbaum runterwandern kann und die jeweils richtigen > Unterverzeichnisse bekomme. Das ist habe ich nicht in Frage gestellt. Die Verzeichnisse werden durch das erste foreach (... readdir DIR) korrekt unmittelbar nach dem Er?ffnen eines weiteren Verzeichnisses ausgelesen; danach kommt cleandir in alle Unterverzeichnisse. > Auch scheint das anschliessende > rewinddir nicht prinzipiell zu scheitern, da ich meistens > die korrekte Anzahl an darin enthaltenen Dateien angezeigt > bekomme. Ein Directory ohne Unterverzeichnisse wird korrekt verarbeitet, da hier kein opendir DIR mit einem Unterverzeichnis zwischen dem ersten und dem zweiten Lesen dazwischenkommt. Das kann schon die Mehrzahl der Directories sein. > > Aber irgendwie hast du damit auch recht, weil ich soeben > opendir & Co auf die OO-Variante umgestellt habe > my $D = DirHandle->new("$dir")... > und alle 13000 Verzeichnisse und 35000 Dateien korrekt > aufgelistet werden. > Klar: DirHandle (und auch FileHandle) verwenden Symbol::gensym, um vor jedem open ein neues Glob (in Symbol::) anzulegen. Mit der zur?ckgelieferten Referenz auf das Glob gelingt das open(dir) ohne Namenskollision. Servus Wolfgang > Was auch immer anders schiefgeht, so klappt's. > Danke fuer den Hinweis! > > lg > Oliver > > > > -----Urspr?ngliche Nachricht----- > > Von: LAUN Wolfgang [mailto:wolfgang.laun@alcatel.at] > > Gesendet: Dienstag, 14. Oktober 2003 18:45 > > An: Baier Oliver MAX SD; Thomas Klausner > > Cc: Vienna. Pm (E-Mail) > > Betreff: RE: [Vienna-pm] Problem mit rewinddir > > > > > > Vielleicht war mein Hinweis nicht deutlich genug: Das Problem > > der nicht gefundenen Files kommt m.E. davon, dass DIR global > > sichtbar ist und im rekursivn Aufruf wieder verwendet wird. > > Dadurch wird DIR mit einem anderen Directory neu er?ffne, > > und die Fortsetzung mit rewinddir usw. nach der R?ckkehr aus > > dem rekursiven Aufruf liest etwas ganz anderes. > > > > Jede Rekursionsebene ben?tigt ihr eigenes Handle DIR. (Darauf wird > > etwa in perlfunc oder perlsub hingewiesen.) Es ist m?glich, > > mit local *DIR auf jeder Rekursionsebene ein neues DIR > > bereitzustellen. > > > > HTH > > -Wolfgang > > > > > > > -----Original Message----- > > > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > > > Sent: Tuesday, October 14, 2003 5:11 PM > > > To: Thomas Klausner > > > Cc: Vienna. Pm (E-Mail) > > > Subject: AW: [Vienna-pm] Problem mit rewinddir > > > > > > > > > Hi, > > > > > > kenne File::Find nicht so genau, aber habe gerade gelesen, > > > dass es keine Argumente uebergeben kann und ich deshalb > > > vermutlich ein Problem damit haette, jedes Verzeichnis > > > zu behandeln und je nach Ergebnis a oder b ans naechste > > > Verzeichnis weiterzureichen. > > > > > > Hast du vielleicht auch eine Alternative zu rewinddir, > > > die performanter ist als closedir&&opendir? > > > > > > lg > > > Oliver > > > > > > From domm at zsi.at Wed Oct 15 05:05:35 2003 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] komme heute nicht zum LUGA-Treffen Message-ID: <20031015100535.GW31213@zsi.at> weil ich leider grad etwas zu viel zu tun hab.. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From parasew at sonance.net Wed Oct 15 08:16:01 2003 From: parasew at sonance.net (matthias tarasiewicz) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] SQL fairy! Message-ID: <3F8D4891.1010303@sonance.net> after my question about visualization of SQL tables on perlmonks http://perlmonks.org/index.pl?node_id=298959 i was pointed to a very nice tool i wanted to report further (thanks again, PodMaster): SQLFairy http://sqlfairy.sourceforge.net/ http://search.cpan.org/~kclark/SQL-Translator-0.02/lib/SQL/Translator.pm "The SQL::Translator is a group of Perl modules that converts vendor-specific SQL table definitions into other formats, such as other vendor-specific SQL, ER diagrams, documentation (POD and HTML), XML, and Class::DBI classes. The main focus of SQL::Translator is SQL, but parsers exist for other structured data formats, including Excel spreadsheets and arbitrarily delimited text files. Through the separation of the code into parsers and producers with an object model in between, it's possible to combine any parser with any producer, to plug in custom parsers or producers, or to manipulate the parsed data via the built-in object model. Presently only the definition parts of SQL are handled (CREATE, ALTER), not the manipulation of data (INSERT, UPDATE, DELETE)." definitely rocks! greetings, matthias -- 404 is now 5uper.net! -> http://5uper.net that's the way i like I.T. -> http://fs2.at MovingMediaMultiplicator -> http://mmm.ok.ag PPP (parasew's personal place) -> http://parasew.sonance.net From max at sternwelten.at Wed Oct 15 10:21:51 2003 From: max at sternwelten.at (max@sternwelten.at) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] komme heute nicht zum LUGA-Treffen In-Reply-To: <20031015100535.GW31213@zsi.at> References: <20031015100535.GW31213@zsi.at> Message-ID: <20031015152151.GA13270@stallburg.dyndns.org> On Wed, Oct 15, 2003 at 12:05:35PM +0200, Thomas Klausner wrote: > weil ich leider grad etwas zu viel zu tun hab.. gibt's bereits ein plan fuer naechstes techmeet ?? a++ maks From alfie at ist.org Wed Oct 15 11:39:31 2003 From: alfie at ist.org (Gerfried Fuchs) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] komme heute nicht zum LUGA-Treffen In-Reply-To: <20031015152151.GA13270@stallburg.dyndns.org> References: <20031015100535.GW31213@zsi.at> <20031015152151.GA13270@stallburg.dyndns.org> Message-ID: <2003-10-15_18.39.27@alfie.ist.org> * max@sternwelten.at [2003-10-15 17:21]: > On Wed, Oct 15, 2003 at 12:05:35PM +0200, Thomas Klausner wrote: >> weil ich leider grad etwas zu viel zu tun hab.. > > gibt's bereits ein plan fuer naechstes techmeet ?? Wieso sollten wir uns ohne domm nicht trefen k?nnen? Ich bin auf jeden Fall da :) So long, Alfie -- Wo wir schon bei Schn?ppchenbestrafungen sind: ich finde ? 307 StGB hat ein recht ordentliches Preis-Leistungs-Verh?ltnis. Soviel Bums f?r sowenig Strafe gibt sonst nirgendwo. -- Holger Lembke in de.soc.recht.misc -------------- 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/20031015/dd38218c/attachment.bin From BaierO at spardat.at Wed Oct 22 10:14:02 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] srict refs problem Message-ID: <1FCFCFC1F0830E4D93860866CACC07B60399BF3F@m0114.s-mxs.net> Hi, kann mir jemand sagen, wie ich die dynamische Variablenkonstruktion ${"slice".$.} umbauen kann, dass sie auch unter use strict funktioniert? lg Oliver ____________________ Code: | | while () { | (${"slice".$.} = $_) =~ s#.*?([^ ]*)%.*\n#$1#; | } | Error: Can't use string ("slice1") as a SCALAR ref while "strict refs" in use at ./mrtg_storydata.cgi line 99, chunk 1. From nick at ccl4.org Wed Oct 22 10:18:02 2003 From: nick at ccl4.org (Nicholas Clark) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] srict refs problem In-Reply-To: <1FCFCFC1F0830E4D93860866CACC07B60399BF3F@m0114.s-mxs.net> References: <1FCFCFC1F0830E4D93860866CACC07B60399BF3F@m0114.s-mxs.net> Message-ID: <20031022151802.GJ22077@plum.flirble.org> On Wed, Oct 22, 2003 at 05:14:02PM +0200, Baier Oliver MAX SD wrote: > Hi, > > kann mir jemand sagen, wie ich die dynamische > Variablenkonstruktion ${"slice".$.} umbauen kann, > dass sie auch unter use strict funktioniert? > > lg > Oliver > ____________________ > > Code: > | > | while () { > | (${"slice".$.} = $_) =~ s#.*?([^ ]*)%.*\n#$1#; > | } > | > > Error: > > Can't use string ("slice1") as a SCALAR ref while "strict refs" > in use at ./mrtg_storydata.cgi line 99, chunk 1. while () { no strict 'refs'; (${"slice".$.} = $_) =~ s#.*?([^ ]*)%.*\n#$1#; } Nicholas Clark From spaceman at foo.at Wed Oct 22 10:07:49 2003 From: spaceman at foo.at (Stefan Weiss) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] srict refs problem In-Reply-To: <1FCFCFC1F0830E4D93860866CACC07B60399BF3F@m0114.s-mxs.net> References: <1FCFCFC1F0830E4D93860866CACC07B60399BF3F@m0114.s-mxs.net> Message-ID: <200310221707.49011.spaceman@foo.at> On Wednesday, 22 October 2003 17:14, Baier Oliver MAX SD wrote: > kann mir jemand sagen, wie ich die dynamische > Variablenkonstruktion ${"slice".$.} umbauen kann, > dass sie auch unter use strict funktioniert? Einen Hash verwenden? Ansonsten zB use strict; no strict 'refs'; cheers, stefan From Gernot.Havranek at bertelsmann.at Wed Oct 22 10:23:48 2003 From: Gernot.Havranek at bertelsmann.at (Gernot.Havranek@bertelsmann.at) Date: Mon Aug 2 21:39:13 2004 Subject: AW: [Vienna-pm] srict refs problem Message-ID: <4B4AF79B34DED21185D10008C75B6E6D0156E75B@AZ-MAIL> Schau dir mal no strict 'refs'; an... Gruss > -----Urspr?ngliche Nachricht----- > Von: Baier Oliver MAX SD [SMTP:BaierO@spardat.at] > Gesendet am: Mittwoch, 22. Oktober 2003 17:14 > An: Vienna. Pm (E-Mail) > Betreff: [Vienna-pm] srict refs problem > > Hi, > > kann mir jemand sagen, wie ich die dynamische > Variablenkonstruktion ${"slice".$.} umbauen kann, > dass sie auch unter use strict funktioniert? > > lg > Oliver > ____________________ > > Code: > | > | while () { > | (${"slice".$.} = $_) =~ s#.*?([^ ]*)%.*\n#$1#; > | } > | > > Error: > > Can't use string ("slice1") as a SCALAR ref while "strict refs" > in use at ./mrtg_storydata.cgi line 99, chunk 1. > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@mail.pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm From wolfgang.laun at alcatel.at Wed Oct 22 10:33:19 2003 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] srict refs problem Message-ID: <75A46BF1A9D8D311863A00508B6259A405F180FE@ATTMSX4> Wenn ich das recht verstehe, so wird hier "slice" mit einer Zeilennummer verkettet => slice1,... slice42,... Anscheinend liefert jede Zeile eine Slice; somit w?re vielleicht ein Array auch eine M?glichkeit: | while () { | ($slice[$.] = $_) =~ s#.*?([^ ]*)%.*\n#$1#; | } lg Wolfgang > -----Original Message----- > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > Sent: Wednesday, October 22, 2003 5:14 PM > To: Vienna. Pm (E-Mail) > Subject: [Vienna-pm] srict refs problem > > > Hi, > > kann mir jemand sagen, wie ich die dynamische > Variablenkonstruktion ${"slice".$.} umbauen kann, > dass sie auch unter use strict funktioniert? > > lg > Oliver > ____________________ > > Code: > | > | while () { > | (${"slice".$.} = $_) =~ s#.*?([^ ]*)%.*\n#$1#; > | } > | > > Error: > > Can't use string ("slice1") as a SCALAR ref while "strict refs" > in use at ./mrtg_storydata.cgi line 99, chunk 1. > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@mail.pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From BaierO at spardat.at Thu Oct 23 03:38:43 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:13 2004 Subject: AW: [Vienna-pm] srict refs problem Message-ID: <1FCFCFC1F0830E4D93860866CACC07B60399BF40@m0114.s-mxs.net> Wollte noch sagen: Danke fuer die hilfreichen Antworten! lg Oliver From c_p_s at gmx.net Thu Oct 23 09:40:40 2003 From: c_p_s at gmx.net (Christian Schoeller) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl Message-ID: <20031023144040.GA477@cps-pbg4.local.> Liebe Liste! Bei der Lektuere von "Einfuherung in Perl" fiel mir auf, dass die Programmiersprache meiner Wahl kein mathematisches Rundungsverhalten anwendet, sondern falls noetig immer auf den kleineren ganzzahligen Wert reduziert: Absatz "Modulo-Operator": # Beide Werte werden vorher auf ihren ganzzahligen Wert reduziert. Find' ich irgendwie merkwuerdig. Gibt es dafuer einen bestimmten Grund, den zu durschauen mir noch nicht moeglich war? Danke fuer Aufklaerung, Christian -- Christian Schoeller {Student} | "It's easy to find something MAIL {mailto:c_p_s@gmx.net} | worth dying for. Do you have HTTP {http://www.yaup.at.tt} | anything worth living for?" EBAY {c_p_s!} | --Lorien (Babylon 5) -------------- 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/20031023/ccc469ae/attachment.bin From domm at zsi.at Thu Oct 23 10:18:32 2003 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl In-Reply-To: <20031023144040.GA477@cps-pbg4.local.> References: <20031023144040.GA477@cps-pbg4.local.> Message-ID: <20031023151832.GD18806@zsi.at> Hi! On Thu, Oct 23, 2003 at 04:40:40PM +0200, Christian Schoeller wrote: > Bei der Lektuere von "Einfuherung in Perl" fiel mir auf, dass die > Programmiersprache meiner Wahl kein mathematisches > Rundungsverhalten anwendet, sondern falls noetig immer auf den > kleineren ganzzahligen Wert reduziert: > > Absatz "Modulo-Operator": > # Beide Werte werden vorher auf ihren ganzzahligen Wert reduziert. > > Find' ich irgendwie merkwuerdig. Gibt es dafuer einen bestimmten > Grund, den zu durschauen mir noch nicht moeglich war? ich denke mal das modulo nur bei ganzen Zahlen Sinn macht (allerdings bin ich kein (echter) Mathematiker..) Der Grund fuer den integer context von modulo ist wohl der, das Runden von floating point numbers irgendwie schwierig ist (wegen der Prezision und so..) Du kannst aber vorher einfach selber runden: $a=4/3; $b=sprintf("%.0f",$a); # auf die naechste ganze Zahl $c=sprintf("%.2f",$a); # auf 2 Stellen nach dem Komma -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From alfie at ist.org Thu Oct 23 10:52:36 2003 From: alfie at ist.org (Gerfried Fuchs) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl In-Reply-To: <20031023151832.GD18806@zsi.at> References: <20031023144040.GA477@cps-pbg4.local.> <20031023151832.GD18806@zsi.at> Message-ID: <2003-10-23_17.52.18@alfie.ist.org> * Thomas Klausner [2003-10-23 17:18]: > Du kannst aber vorher einfach selber runden: > > $a=4/3; > $b=sprintf("%.0f",$a); # auf die naechste ganze Zahl > $c=sprintf("%.2f",$a); # auf 2 Stellen nach dem Komma W?re f?rs demonstrieren wohl besser gewesen, 5/3 zu w?hlen *ducks* Alfie -- * The 'Yes, I need more sleep, and also to test my releases' release. -- David Mart?nez Moreno, changelog.Debian for freecraft (1.17pre1build16-4) -------------- 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/20031023/ed9c866c/attachment.bin From c_p_s at gmx.net Thu Oct 23 11:17:05 2003 From: c_p_s at gmx.net (Christian Schoeller) Date: Mon Aug 2 21:39:13 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl In-Reply-To: <20031023151832.GD18806@zsi.at> References: <20031023144040.GA477@cps-pbg4.local.> <20031023151832.GD18806@zsi.at> Message-ID: <20031023161705.GB477@cps-pbg4.local.> On Thu, Oct 23, 2003 at 05:18:32PM +0200, Thomas Klausner wrote: > On Thu, Oct 23, 2003 at 04:40:40PM +0200, Christian Schoeller wrote: > > Absatz "Modulo-Operator": > > # Beide Werte werden vorher auf ihren ganzzahligen Wert reduziert. > > > > Find' ich irgendwie merkwuerdig. Gibt es dafuer einen bestimmten > > Grund, den zu durschauen mir noch nicht moeglich war? > > ich denke mal das modulo nur bei ganzen Zahlen Sinn macht (allerdings bin > ich kein (echter) Mathematiker..) Stimmt natuerlich (obwohl ich auch keiner bin :-). > Du kannst aber vorher einfach selber runden: > > $a=4/3; > $b=sprintf("%.0f",$a); # auf die naechste ganze Zahl > $c=sprintf("%.2f",$a); # auf 2 Stellen nach dem Komma Ah, danke sehr. "sprintf" hilft (bei was weisz ich noch nicht so genau, weil ich derzeit sowieso nur mehr oder wenig sinnlose Uebungsbeispiele vor mich hinschreib)! Danke, C. -- Christian Schoeller {Student} | "It's easy to find something MAIL {mailto:c_p_s@gmx.net} | worth dying for. Do you have HTTP {http://www.yaup.at.tt} | anything worth living for?" EBAY {c_p_s!} | --Lorien (Babylon 5) -------------- 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/20031023/0a3dc06c/attachment.bin From hjp-vienna-pm-list at hjp.at Thu Oct 23 11:29:23 2003 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl In-Reply-To: <20031023151832.GD18806@zsi.at> References: <20031023144040.GA477@cps-pbg4.local.> <20031023151832.GD18806@zsi.at> Message-ID: <20031023162923.GD32690@teal.hjp.at> On 2003-10-23 17:18:32 +0200, Thomas Klausner wrote: > On Thu, Oct 23, 2003 at 04:40:40PM +0200, Christian Schoeller wrote: > > > Bei der Lektuere von "Einfuherung in Perl" fiel mir auf, dass die > > Programmiersprache meiner Wahl kein mathematisches > > Rundungsverhalten anwendet, sondern falls noetig immer auf den > > kleineren ganzzahligen Wert reduziert: > > > > Absatz "Modulo-Operator": > > # Beide Werte werden vorher auf ihren ganzzahligen Wert reduziert. > > > > Find' ich irgendwie merkwuerdig. Gibt es dafuer einen bestimmten > > Grund, den zu durschauen mir noch nicht moeglich war? > > ich denke mal das modulo nur bei ganzen Zahlen Sinn macht (allerdings bin > ich kein (echter) Mathematiker..) Mathematisch ist der Perl- bzw. C-Operator % eh nur vage mit den "Ganzen Zahlen modulo n" verwandt. Es gibt in C ?brigens auch eine Funktion fmod: SYNOPSIS #include double fmod(double x, double y); DESCRIPTION The fmod() function computes the remainder of dividing x by y. The return value is x - n * y, where n is the quo? tient of x / y, rounded towards zero to an integer. F?r FP-Werte diese statt dem Operator % zu verwenden, w?re technisch kein Problem. > Der Grund fuer den integer context von modulo ist wohl der, das Runden von > floating point numbers irgendwie schwierig ist (wegen der Prezision und so..) So schwierig ist es (wenn man auf ganze Stellen runden will) eigentlich nicht: Ist das n?chste Bit 0 wird abgerundet, ist das n?chste 1 wird aufgerundet, au?er die folgenden sind alle 0, dann wird zur n?chsten geraden Zahl gerundet. Das l?sst sich in HW einfach implementieren und d?rfte wohl in allen halbwegs aktuellen Prozessoren drin sein. Der Grund, warum das nicht gemacht wird, d?rfte eher ein historischer sein: C macht's auch nicht. Wobei wir da ja jetzt eigentlich zwei Dinge haben, die C nicht macht: 1) Remainder-Operationen auf FP-Werte. Keine Ahnung, warum C das nicht macht. M?glicherweise war die Operation Anfang der 70er-Jahre nicht ?blicherweise in Hardware implementiert. (C hat eine starke Neigung, genau das als Operatoren darzustellen, was ?blicherweise genau eine Maschineninstruktion ergibt, und alles kompliziertere in Library-Funktionen auszulagern). 2) Mathematisch korrektes Runden bei der FP-Integer-Konversion. Da mag wieder das HW-Argument eine Rolle spielen (der korrekte Algorithmus ist aufwendiger als simples Abschneiden), aber es ist auch konsistenter: int x = a / b; sollte das gleiche Ergebnis liefern, egal, ob a und b nun Integer- oder FP-Werte sind. Und bei Integer-Division wird nun mal immer abgerundet: 11 ist in 98 nur 8 mal enthalten, nicht 9 mal. hp -- _ | Peter J. Holzer | We have failed our own creation and given |_|_) | Sysadmin WSR | birth something truly awful. We're just too | | | hjp@hjp.at | busy cooing over the pram to notice. __/ | http://www.hjp.at/ | -- http://www.internetisshit.org -------------- 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/20031023/be2c5676/attachment.bin From parasew at sonance.net Thu Oct 23 12:55:59 2003 From: parasew at sonance.net (matthias tarasiewicz) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] [Fwd: [Templates] ANNOUNCE: Bricolage 1.7.0] Message-ID: <3F98162F.3000707@sonance.net> ya.. ?h juhuu! -------------- next part -------------- An embedded message was scrubbed... From: David Wheeler Subject: [Templates] ANNOUNCE: Bricolage 1.7.0 Date: Wed, 22 Oct 2003 16:55:38 -0700 Size: 9849 Url: http://mail.pm.org/pipermail/vienna-pm/attachments/20031023/65a5f6a0/Bricolage1.7.eml From domm at zsi.at Fri Oct 24 01:19:52 2003 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl In-Reply-To: <20031023162923.GD32690@teal.hjp.at> References: <20031023144040.GA477@cps-pbg4.local.> <20031023151832.GD18806@zsi.at> <20031023162923.GD32690@teal.hjp.at> Message-ID: <20031024061952.GA25620@zsi.at> Hi! On Thu, Oct 23, 2003 at 06:29:23PM +0200, Peter J. Holzer wrote: > Mathematisch ist der Perl- bzw. C-Operator % eh nur vage mit den "Ganzen > Zahlen modulo n" verwandt. Es gibt in C ?brigens auch eine Funktion > fmod: > > .. > sollte das gleiche Ergebnis liefern, egal, ob a und b nun Integer- > oder FP-Werte sind. Und bei Integer-Division wird nun mal immer > abgerundet: 11 ist in 98 nur 8 mal enthalten, nicht 9 mal. Danke fuer die interessante Background-Info! -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From alfie at ist.org Fri Oct 24 03:01:36 2003 From: alfie at ist.org (Gerfried Fuchs) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl In-Reply-To: <20031023162923.GD32690@teal.hjp.at> References: <20031023144040.GA477@cps-pbg4.local.> <20031023151832.GD18806@zsi.at> <20031023162923.GD32690@teal.hjp.at> Message-ID: <2003-10-24_10.01.30@alfie.ist.org> * "Peter J. Holzer" [2003-10-23 18:29]: > User-Agent: Mutt/1.4.1i Da Du mutt verwendest, gehe ich davon aus, dass Du off-list Mails willst, sonst h?ttest Du mutt mitgeteilt, dass Du's nicht willst ("subscribe vienna-pm"). :-) > On 2003-10-23 17:18:32 +0200, Thomas Klausner wrote: >> Der Grund fuer den integer context von modulo ist wohl der, das Runden von >> floating point numbers irgendwie schwierig ist (wegen der Prezision und so..) > > So schwierig ist es (wenn man auf ganze Stellen runden will) eigentlich > nicht: Ist das n?chste Bit 0 wird abgerundet, ist das n?chste 1 wird > aufgerundet, au?er die folgenden sind alle 0, dann wird zur n?chsten > geraden Zahl gerundet. Aeh, Momenterl. Das geht doch nicht, weil floatpoints nicht so gespeichert sind, soweit ich weiss. Es gibt da keinen getrennten Speicher f?r den Vorkomma-Teil und den Nachkomma-Teil, sondern nur 1.0101010001 + offset (bin?r gesehen). Oder irre ich da? Zumindest hatte ich das mal so gelernt bzw. beigebracht bekommen. Oder ist hier Perl anders[tm]? Bis dann, Alfie -- Er: "Ich glaub, SuSE will mich verarschen..." Ich: "Warum nimmst auch SuSE?" Er: "... weil die CDs 'rumg'legen sind." -- 2001-03-13 -------------- 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/20031024/9b18fa70/attachment.bin From boehm at isis.wu-wien.ac.at Fri Oct 24 02:57:51 2003 From: boehm at isis.wu-wien.ac.at (Walter Boehm) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl Message-ID: <200310240757.h9O7vpG02545@hilbert.uza2.wu-wien.ac.at> Nachdem ich schon mehrmals ueberraschende Erlebnisse mit sprintf() gehabt habe, verwende ich zum Runden in kritischen Faellen, wo es wirklich darauf ankommt, dass die verbleibenden Stellen korrekt sind: use Number::Format sprintf wird zum Runden zwar auch im Perl Cook Book empfohlen, aber ich glaube, das Verhalten von sprintf haengt davon ab, wie die gleichnamige c-Funktion implementiert ist. W. Boehm --------------------------------------------------------------------------------- Inst. f. Statistik Nordbergstrasse 2 1091 Wien From wolfgang.laun at alcatel.at Fri Oct 24 05:25:23 2003 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl Message-ID: <75A46BF1A9D8D311863A00508B6259A405F180FF@ATTMSX4> Sch?nen Tag! > -----Original Message----- > From: Christian Schoeller [mailto:c_p_s@gmx.net] > Sent: Thursday, October 23, 2003 4:41 PM > To: vienna-pm@mail.pm.org > Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl > > > Bei der Lektuere von "Einfuherung in Perl" fiel mir auf, dass die > Programmiersprache meiner Wahl kein mathematisches > Rundungsverhalten anwendet, sondern falls noetig immer auf den > kleineren ganzzahligen Wert reduziert: (Statt "mathematisch" sage ich hier lieber "kaufm?nnisch", wenn die Regel angewendet werden soll, dass bei einem Betrag genau zwischen zwei Rundingszielen das betragsm??ig gr??ere genommen werden soll.) CPU's/FPU's bieten oft mehrere M?glichkeiten, was bei einer Reduktion der Genauigkeit geschehen soll. Z.B. Intel, wo das ?ber ein FPU-Register selektiert wird: - Runden zur n?chstliegenden "geraden" (s.u.) Maschinenzahl - Aufrunden zur n?chsten h?heren Maschinenzahl ("ceiling") - Abrunden zur n?chsten niedrigeren Maschinenzahl ("floor") - Abschneiden zur n?chsten Maschinenzahl in Richtung 0 Das Runden einer Zahl, die genau zwischen 2 Maschinenzahlen liegt, wird dabei nicht "kaum?nnisch" gemacht, sondern zu der Zahl, deren geringstwertiges Bit 0 ist (z.B. 2.5 => 2, 3.5 => 4). Subtiles Motiv: statistisch soll keine Richtung bevorzugt werden. In Programmiersprachen wird bei einer Konversion Real zu Integer oft Abschneiden verwendet (wenn nicht sowieso zwingend explizite Funktionen wie round() oder trunc() zu verwenden sind). Perl verh?lt sich hier wie C. Wenn kaufm?nnisch sauber gerundet (und, ganz allgemein, gerechnet) werden soll, so ist die Idee, Reals und sprintf zu verwenden, ?berhaupt zum Scheitern verurteilt. Z.B.: $ perl -e 'printf "%.2f\n", 3.335;' 3.33 Schuld ist nicht Perl oder printf, sondern die Tatsache, dass 3.335 als Real nicht genau dargestellt werden kann; die n?chstliegende Maschinenzahl ist 3.334999999...964... (Nicht umsonst gibt es in COBOL oder Ada die Festkommazahlen...) > > Absatz "Modulo-Operator": > # Beide Werte werden vorher auf ihren ganzzahligen Wert reduziert. > > Find' ich irgendwie merkwuerdig. Gibt es dafuer einen bestimmten > Grund, den zu durschauen mir noch nicht moeglich war? Wenn % (?hnlich wie in C; genau wie in C nur bei use integer) einmal als Operator auf ganzzahligen Werten *definiert* ist, muss eben zu Integer konvertiert werden. Selbstverst?ndlich h?tte auch eine Definition von % mit Real-Operanden (analog fmod()) etwas f?r sich gehabt. Das eine oder andere "merkw?rdig" zu finden, ist m.E. eher eine Frage der "Vorkenntnisse". lg Wolfgang > > Danke fuer Aufklaerung, > Christian > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@mail.pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From Nagy at ubavie.gv.at Fri Oct 24 05:30:54 2003 From: Nagy at ubavie.gv.at (Nagy Wilhelm) Date: Mon Aug 2 21:39:14 2004 Subject: WG: [Vienna-pm] [OT] Rundungsverhalten von Perl Message-ID: <6D5BF24847A0A44AB725899D3CE6CB6901CEAE73@pcmail4.ubavie.gv.at> > Hallo Ihr, > > um die spannenden rundungsdinger in perl auch noch zu beleuchten: > > Ich erstelle unter anderem kaufmaennische applikationen mit perl und ist > runden IMMER ein thema ;-))) > > Um das probleme wie-wann wird gerunden in den griff zu bekommen habe ich > folgenden (ich gestehe aus meinen IBM370-assembler/Macro11/COBOL > vergangenheit) stammenden trick angewendet > > ------------- 8< -------------- > use strict; > # ### jezza machen wir mal eine krumme zahl > # > my $fA = 5/3; # ich habe mich fuer die 5/3 variante entschieden ;-))) > print "was daraus wurde: $fA\n"; > > # ### und jetzt ein COBOL Trick ;-)) > # > $fA += .5; > print "als ganze Zahl: ".int($fA); > > print "\n"; > > __END__ > > ------------- 8< -------------- > > > und begruede dies wie folgt: > > * durch die addition von irgendeiner zahl kann ich das rundungverhalten > beinflussen. > Es gibt faelle wo zB. .3 oder irgendeine andere von kaufmaennischen > rundungsverhalten abweichendes Verfahren angewendet werden muss. (kommt > zugegebener massen eher selten, aber doch vor). > > * Ich bin mir ziemlich sicher ;-) wass geanau passiert oder kann es > jedenfalls nachvollziehen. > > * Ich kann noch nachjustieren wenn mal nicht so klappt wie angenommen. > > * Durch die umwandlung in (virtuelles)integer werden/sollten alle FP > probleme geklaert sein/werden. > > * Ich kann auch zB. leicheter auf 1000-er Runden: > > $fA = 1565.43; > print '~'.int(($fA + 500) / 1000)."-Tausend"; > > Liebe gruesse aus der welt des kommerz... > > \^/ili > > > > > > > -----Urspr?ngliche Nachricht----- > Von: Peter J. Holzer [SMTP:hjp-vienna-pm-list@hjp.at] > Gesendet am: Donnerstag, 23. Oktober 2003 18:29 > An: vienna-pm@mail.pm.org > Betreff: Re: [Vienna-pm] [OT] Rundungsverhalten von Perl > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@mail.pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm << Nachricht: Unbenannte > Anlage >> From bernd at firmix.at Fri Oct 24 05:57:38 2003 From: bernd at firmix.at (Bernd Petrovitsch) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] [OT] Rundungsverhalten von Perl In-Reply-To: <75A46BF1A9D8D311863A00508B6259A405F180FF@ATTMSX4> References: <75A46BF1A9D8D311863A00508B6259A405F180FF@ATTMSX4> Message-ID: <1066993058.4805.9.camel@tara.firmix.at> On Fre, 2003-10-24 at 12:25, LAUN Wolfgang wrote: > CPU's/FPU's bieten oft mehrere M?glichkeiten, was bei einer Reduktion > der Genauigkeit geschehen soll. Z.B. Intel, wo das ?ber ein FPU-Register > selektiert wird: > - Runden zur n?chstliegenden "geraden" (s.u.) Maschinenzahl > - Aufrunden zur n?chsten h?heren Maschinenzahl ("ceiling") > - Abrunden zur n?chsten niedrigeren Maschinenzahl ("floor") > - Abschneiden zur n?chsten Maschinenzahl in Richtung 0 Und damit das ganze offiziell erscheint oder jemand Schlips-kompatible Argumente braucht: es gibt IEEE-754. Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From spaceman at foo.at Fri Oct 24 06:51:40 2003 From: spaceman at foo.at (Stefan Weiss) Date: Mon Aug 2 21:39:14 2004 Subject: WG: [Vienna-pm] [OT] Rundungsverhalten von Perl In-Reply-To: <6D5BF24847A0A44AB725899D3CE6CB6901CEAE73@pcmail4.ubavie.gv.at> References: <6D5BF24847A0A44AB725899D3CE6CB6901CEAE73@pcmail4.ubavie.gv.at> Message-ID: <200310241351.28813.spaceman@foo.at> On Friday, 24 October 2003 12:30, Nagy Wilhelm wrote: > > my $fA = 5/3; # ich habe mich fuer die 5/3 variante entschieden ;-))) > > print "was daraus wurde: $fA\n"; > > > > # ### und jetzt ein COBOL Trick ;-)) > > # > > $fA += .5; > > print "als ganze Zahl: ".int($fA); Das w?rd ich dann doch lieber in der COBOL-?ra lassen. Nimm Number::Format, dann kannst du auch negative Zahlen runden: use Number::Format qw(round); my $fA = -8/9; print "ohne runden : $fA\n"; print "mit int() : " , int($fA) , "\n"; print "mit int(+.5) : " , int($fA + .5) , "\n"; print "mit round() : " , round($fA, 0) , "\n"; cheers, stefan From mjy at geizhals.at Mon Oct 27 05:40:46 2003 From: mjy at geizhals.at (Marinos J. Yannikos | Geizhals.at) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] uff... Perl-Monger wanted! Message-ID: <02ee01c39c7f$297d6810$0200a8c0@jonespc> Hi, nachdem unser Job-Inserat nach einiger Zeit von vienna.pm.org verschwunden ist und es relativ dringend ist, wage ich es noch einmal, hier zu posten (Beschwerden/Flames bitte per Mail an mich): Wir (geizhals.at) suchen zum sofortigen Eintritt einen erfahrenen (mod_)perl-Programmierer. Wenige Details kann man unter http://www.geizhals.at/?jobs nachlesen. Der ideale Kandidat ist jemand, der in k?rzester Zeit korrekte und effiziente L?sungen implementieren kann und kein Problem mit eher grauslichen Altlasten hat bzw. sich nicht zu lange mit Code-Strukturierung/-Versch?nerung aufh?lt. Schnelllebige Branche, schnelllebiger Code ... Wer Probleme mit der Vorgangsweise hat, m?ge mich davon ?berzeugen, da? es anders besser geht, oder sich den Stre? ersparen und sich nicht bewerben. ;-) Au?erdem legen wir Wert auf Aufgeschlossenheit (kein "MySQL ist das Allerbeste, was anderes r?hr' ich nicht an" u.dgl.). Wer schon gut besuchte Websites ?ber einen l?ngeren Zeitraum hinweg weiterentwickelt hat, geizhals.at mag und Perl noch immer f?r die beste "glue-Sprache" h?lt (Java/JSP mag ja tolle Teill?sungen bieten - siehe Jakarta Projekt - aber die Sprache ist einfach "too verbose" ...), ist nat?rlich besonders herzlich eingeladen, sich zu bewerben. T?tigkeiten: Weiterentwicklung von geizhals.at, internen Redaktionssystemen, Crawler, evtl. auch andere interne Projekte ... Gelegentlich auch leichte sysadmin-tasks, Projektkoordination mit mir und den "juniors". Ort: Wien (1020; Bezirk bleibt vorauss. trotz bevorstehendem Umzug gleich; eigener Parkplatz bei Bedarf vorauss. auch m?glich). Vollzeit, Fr?haufsteher kein Mu? (nur, wenn er mich nie sehen will). Freelancer k?nnen wir leider keine nehmen (nein, wirklich nicht). Bezahlung relativ gut (trotz der Domain). Kontakt: jobs@geizhals.at (siehe URL oben) MfG, -mjy -- DI. Marinos Yannikos, CEO Preisvergleich Internet Services AG Franzensbr?ckenstra?e 8/2/16, A-1020 Wien Tel./Fax: (+431) 5811609-52/-55 From marcel at noug.at Mon Oct 27 05:51:47 2003 From: marcel at noug.at (=?ISO-8859-1?Q?Marcel_Gr=FCnauer?=) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] uff... Perl-Monger wanted! In-Reply-To: <02ee01c39c7f$297d6810$0200a8c0@jonespc> Message-ID: On Montag, Oktober 27, 2003, at 12:40 Uhr, Marinos J. Yannikos | Geizhals.at wrote: > nachdem unser Job-Inserat nach einiger Zeit von vienna.pm.org > verschwunden > ist und es relativ dringend ist, wage ich es noch einmal, hier zu > posten > (Beschwerden/Flames bitte per Mail an mich): Ah - das war nicht boesartig gemeint. Es ist nur so, dass einem die Leute ueblicherweise nicht mitteilen, wenn der Job vergeben ist, da bin ich nach geraumer Zeit davon ausgegangen, dass das nicht mehr aktuell ist. Lg, Marcel -- http://www.noug.at From BaierO at spardat.at Fri Oct 31 07:08:28 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] kleine Frage Message-ID: <1FCFCFC1F0830E4D93860866CACC07B60399BF58@m0114.s-mxs.net> Hi, bei mir (und sicher auch einigen anderen) kommt oft der Bedarf auf, einen File- oder Script-Output einzulesen, das Newline wegzuschmeissen und einen Teil abzuschneiden bzw. zu ersetzen. Schon ein paar Mal habe ich mir die Frage gestellt, ob das nicht vielleicht in einem Schritt geht. (my $count = ) =~ s#Matches: ##; chomp $count; funktioniert. chomp (my $count = ); $count =~ s#Matches: ##; funkt auch. chomp ((my $count = ) =~ s#Matches: ##); haut nicht hin; aber sollte es nicht so irgendwie gehen? lg Oliver From wolfgang.laun at alcatel.at Fri Oct 31 07:12:56 2003 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] kleine Frage Message-ID: s#Matches:.*##s wird auch gleich das \n am Ende los. Wolfgang > -----Original Message----- > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > Sent: Friday, October 31, 2003 2:08 PM > To: Vienna. Pm (E-Mail) > Subject: [Vienna-pm] kleine Frage > > > Hi, > > bei mir (und sicher auch einigen anderen) kommt oft der > Bedarf auf, einen File- oder Script-Output einzulesen, > das Newline wegzuschmeissen und einen Teil abzuschneiden > bzw. zu ersetzen. > > Schon ein paar Mal habe ich mir die Frage gestellt, ob > das nicht vielleicht in einem Schritt geht. > > > (my $count = ) =~ s#Matches: ##; > chomp $count; > > funktioniert. > > > chomp (my $count = ); > $count =~ s#Matches: ##; > > funkt auch. > > > chomp ((my $count = ) =~ s#Matches: ##); > > haut nicht hin; aber sollte es nicht so irgendwie gehen? > > lg > Oliver > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@mail.pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From BaierO at spardat.at Fri Oct 31 07:20:50 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:14 2004 Subject: AW: [Vienna-pm] kleine Frage Message-ID: <1FCFCFC1F0830E4D93860866CACC07B60399BF59@m0114.s-mxs.net> jaja, nur ist der Ausdruck meist nicht so simpel. s#Max#Moritz#g in Verbindung mit chomp waer nicht so einfach... lg Oliver > -----Urspr?ngliche Nachricht----- > Von: LAUN Wolfgang [mailto:wolfgang.laun@alcatel.at] > Gesendet: Freitag, 31. Oktober 2003 14:13 > An: Baier Oliver MAX SD; Vienna. Pm (E-Mail) > Betreff: RE: [Vienna-pm] kleine Frage > > > s#Matches:.*##s > > wird auch gleich das \n am Ende los. > > Wolfgang > > > -----Original Message----- > > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > > Sent: Friday, October 31, 2003 2:08 PM > > To: Vienna. Pm (E-Mail) > > Subject: [Vienna-pm] kleine Frage > > > > > > Hi, > > > > bei mir (und sicher auch einigen anderen) kommt oft der > > Bedarf auf, einen File- oder Script-Output einzulesen, > > das Newline wegzuschmeissen und einen Teil abzuschneiden > > bzw. zu ersetzen. > > > > Schon ein paar Mal habe ich mir die Frage gestellt, ob > > das nicht vielleicht in einem Schritt geht. > > > > > > (my $count = ) =~ s#Matches: ##; > > chomp $count; > > > > funktioniert. > > > > > > chomp (my $count = ); > > $count =~ s#Matches: ##; > > > > funkt auch. > > > > > > chomp ((my $count = ) =~ s#Matches: ##); > > > > haut nicht hin; aber sollte es nicht so irgendwie gehen? > > > > lg > > Oliver > > _______________________________________________ > > Vienna-pm mailing list > > Vienna-pm@mail.pm.org > > http://mail.pm.org/mailman/listinfo/vienna-pm > > > From wolfgang.laun at alcatel.at Fri Oct 31 07:20:56 2003 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] kleine Frage Message-ID: Da habe ich nur einen Teil ("abschneiden") gelesen. Wenn es darum geht, einen Teil aus dem Inneren der Zeile zu entfernen/?ndern, w?rde auch das gehen: s#Max(.*)\n#Moritz$1# mfg Wolfgang > -----Original Message----- > From: LAUN Wolfgang > Sent: Friday, October 31, 2003 2:13 PM > To: 'Baier Oliver MAX SD'; Vienna. Pm (E-Mail) > Subject: RE: [Vienna-pm] kleine Frage > > > s#Matches:.*##s > > wird auch gleich das \n am Ende los. > > Wolfgang > > > -----Original Message----- > > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > > Sent: Friday, October 31, 2003 2:08 PM > > To: Vienna. Pm (E-Mail) > > Subject: [Vienna-pm] kleine Frage > > > > > > Hi, > > > > bei mir (und sicher auch einigen anderen) kommt oft der > > Bedarf auf, einen File- oder Script-Output einzulesen, > > das Newline wegzuschmeissen und einen Teil abzuschneiden > > bzw. zu ersetzen. > > > > Schon ein paar Mal habe ich mir die Frage gestellt, ob > > das nicht vielleicht in einem Schritt geht. > > > > > > (my $count = ) =~ s#Matches: ##; > > chomp $count; > > > > funktioniert. > > > > > > chomp (my $count = ); > > $count =~ s#Matches: ##; > > > > funkt auch. > > > > > > chomp ((my $count = ) =~ s#Matches: ##); > > > > haut nicht hin; aber sollte es nicht so irgendwie gehen? > > > > lg > > Oliver > > _______________________________________________ > > Vienna-pm mailing list > > Vienna-pm@mail.pm.org > > http://mail.pm.org/mailman/listinfo/vienna-pm > > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@mail.pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From domm at zsi.at Fri Oct 31 07:21:31 2003 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] kleine Frage In-Reply-To: <1FCFCFC1F0830E4D93860866CACC07B60399BF58@m0114.s-mxs.net> References: <1FCFCFC1F0830E4D93860866CACC07B60399BF58@m0114.s-mxs.net> Message-ID: <20031031132131.GO32116@zsi.at> Hi! On Fri, Oct 31, 2003 at 02:08:28PM +0100, Baier Oliver MAX SD wrote: > bei mir (und sicher auch einigen anderen) kommt oft der > Bedarf auf, einen File- oder Script-Output einzulesen, > das Newline wegzuschmeissen und einen Teil abzuschneiden > bzw. zu ersetzen. Keine Ahnung, ob das fuer dich passt (haegt ja wohl sehr von den Daten ab..) $/="something"; # input record seperator $string="foo bar something"; chomp $string; print $string; # schreibt: 'foo bar '; oder wenns zB um eine Liste geht: foreach (map {chomp;s#Matches: ##} ) { print; } -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From BaierO at spardat.at Fri Oct 31 07:35:16 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:14 2004 Subject: AW: [Vienna-pm] kleine Frage Message-ID: <1FCFCFC1F0830E4D93860866CACC07B6021603C6@m0114.s-mxs.net> Hi Wolfgang, abgesehen davon, dass s/// & chomp schneller geht als ein s/// mit Backreferences, koennte ich das bei globalen Ersetzungen nicht anwenden. lg Oliver > -----Urspr?ngliche Nachricht----- > Von: LAUN Wolfgang [mailto:wolfgang.laun@alcatel.at] > Gesendet: Freitag, 31. Oktober 2003 14:21 > An: LAUN Wolfgang; Baier Oliver MAX SD; Vienna. Pm (E-Mail) > Betreff: RE: [Vienna-pm] kleine Frage > > > Da habe ich nur einen Teil ("abschneiden") gelesen. > > Wenn es darum geht, einen Teil aus dem Inneren der Zeile zu > entfernen/?ndern, w?rde auch das gehen: > > s#Max(.*)\n#Moritz$1# > > mfg > Wolfgang > > > > > -----Original Message----- > > From: LAUN Wolfgang > > Sent: Friday, October 31, 2003 2:13 PM > > To: 'Baier Oliver MAX SD'; Vienna. Pm (E-Mail) > > Subject: RE: [Vienna-pm] kleine Frage > > > > > > s#Matches:.*##s > > > > wird auch gleich das \n am Ende los. > > > > Wolfgang > > > > > -----Original Message----- > > > From: Baier Oliver MAX SD [mailto:BaierO@spardat.at] > > > Sent: Friday, October 31, 2003 2:08 PM > > > To: Vienna. Pm (E-Mail) > > > Subject: [Vienna-pm] kleine Frage > > > > > > > > > Hi, > > > > > > bei mir (und sicher auch einigen anderen) kommt oft der > > > Bedarf auf, einen File- oder Script-Output einzulesen, > > > das Newline wegzuschmeissen und einen Teil abzuschneiden > > > bzw. zu ersetzen. > > > > > > Schon ein paar Mal habe ich mir die Frage gestellt, ob > > > das nicht vielleicht in einem Schritt geht. > > > > > > > > > (my $count = ) =~ s#Matches: ##; > > > chomp $count; > > > > > > funktioniert. > > > > > > > > > chomp (my $count = ); > > > $count =~ s#Matches: ##; > > > > > > funkt auch. > > > > > > > > > chomp ((my $count = ) =~ s#Matches: ##); > > > > > > haut nicht hin; aber sollte es nicht so irgendwie gehen? > > > > > > lg > > > Oliver > > > _______________________________________________ > > > Vienna-pm mailing list > > > Vienna-pm@mail.pm.org > > > http://mail.pm.org/mailman/listinfo/vienna-pm > > > > > _______________________________________________ > > Vienna-pm mailing list > > Vienna-pm@mail.pm.org > > http://mail.pm.org/mailman/listinfo/vienna-pm > > > From BaierO at spardat.at Fri Oct 31 09:39:52 2003 From: BaierO at spardat.at (Baier Oliver MAX SD) Date: Mon Aug 2 21:39:14 2004 Subject: AW: [Vienna-pm] kleine Frage Message-ID: <1FCFCFC1F0830E4D93860866CACC07B60399BF5A@m0114.s-mxs.net> Stimmt, meine Angaben waren ungenau, aber ich wollte es halt allgemein wissen, sofern das geht ;-). (=> Wolfgang: Deswegen auch der einfache Beispielsausdruck s/wegdamit//) Ich weiss nicht, ob's nur bei mir so wirkt, aber grep statt map scheint besser zu funktionieren, weil's grep mir den Wert zurueckliefert und map nur die Anzahl. Danke jedenfalls Oliver > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@mail.pm.org > [mailto:vienna-pm-bounces@mail.pm.org]Im Auftrag von Thomas Klausner > Gesendet: Freitag, 31. Oktober 2003 14:22 > An: Vienna. Pm (E-Mail) > Betreff: Re: [Vienna-pm] kleine Frage > > > Hi! > > On Fri, Oct 31, 2003 at 02:08:28PM +0100, Baier Oliver MAX SD wrote: > > > bei mir (und sicher auch einigen anderen) kommt oft der > > Bedarf auf, einen File- oder Script-Output einzulesen, > > das Newline wegzuschmeissen und einen Teil abzuschneiden > > bzw. zu ersetzen. > > Keine Ahnung, ob das fuer dich passt (haegt ja wohl sehr von > den Daten ab..) > > $/="something"; # input record seperator > $string="foo bar something"; > chomp $string; > print $string; # schreibt: 'foo bar '; > > > oder wenns zB um eine Liste geht: > > foreach (map {chomp;s#Matches: ##} ) { > print; > } > > > > -- > #!/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 > From domm at zsi.at Fri Oct 31 09:35:57 2003 From: domm at zsi.at (Thomas Klausner) Date: Mon Aug 2 21:39:14 2004 Subject: [Vienna-pm] kleine Frage In-Reply-To: <1FCFCFC1F0830E4D93860866CACC07B60399BF5A@m0114.s-mxs.net> References: <1FCFCFC1F0830E4D93860866CACC07B60399BF5A@m0114.s-mxs.net> Message-ID: <20031031153557.GR32116@zsi.at> Hi! On Fri, Oct 31, 2003 at 04:39:52PM +0100, Baier Oliver MAX SD wrote: > Ich weiss nicht, ob's nur bei mir so wirkt, aber grep statt > map scheint besser zu funktionieren, weil's grep mir den > Wert zurueckliefert und map nur die Anzahl. 1. map gibt immer eine Liste zurueck. Wenn du map aber in Scalarem Kontext aufrufst my $foo=map {} @list; dann macht Perl was es immer macht, wenn Liste in Scalarem Kontext aufgerufen werden: Es gibt die Anzahl der Elemente zurueck. 2. map ist eine etwas umgedrehte foreach schleife, die mit allen Elemente der Ursprungsliste irgendwas macht 3. grep geht ueber eine Liste und gibt nur die Elemente zurueck, fuer die der zwischen den { } angegeben Code true ergibt. In skalarem kontext gibt grep aber auch die Anzahl der Elemente zurueck, weswegen mich deine Beobachtung etwas wundert. Wenn du nur ein Element mappen/greppen willst: ($value)=map {} @list; (wobei ich das nicht empfehlen kann...) -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}