From kh at dartbase.com Tue Feb 1 11:27:39 2005 From: kh at dartbase.com (Karlheinz Zoechling) Date: Tue Feb 1 11:25:18 2005 Subject: [Vienna-pm] computerbox knobelei - golf? Message-ID: <20050201192507.VKBX20143.viefep18-int.chello.at@xxx-xlhpeyhmjii> hi, ich schau gelegentlich bei der orf teletext computerbox vorbei - dort gibt's eine knobelei die ich mir manchmal "goenne". die aktuelle ist finde ich recht interessant - und eignet sich IMHO vorzueglich fuer eine runde golf / obfu. ;-) hier das problem: http://teletext.orf.at/400/464_0002.htm und mein "beitrag" dazu: perl -F// -lane 'print (((join "", map { $_ * 1 } (@F = reverse split //, abs ($_ - join "", reverse @F))[0..2]) + join "", reverse map { $_ * 1 } @F[0..2]) == 1089 ? "ja" : "nein")' das ist uebrigens mein erster halbwegs ernsthafter versuch in perlgolf / obfu, also bitte nicht gleich in der luft zerreissen. ;-) also, wer will mitspielen? lg karlheinz From spaceman at foo.at Tue Feb 1 23:34:57 2005 From: spaceman at foo.at (Stefan Weiss) Date: Tue Feb 1 23:35:14 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <20050201192507.VKBX20143.viefep18-int.chello.at@xxx-xlhpeyhmjii> References: <20050201192507.VKBX20143.viefep18-int.chello.at@xxx-xlhpeyhmjii> Message-ID: <420082A1.1010302@foo.at> Moin. Weils noch zu fr?h ist, um was gscheits zu arbeiten... On 2005-02-01 20:27, Karlheinz Zoechling wrote: > perl -F// -lane 'print (((join "", map { $_ * 1 } (@F = reverse split //, abs > ($_ - join "", reverse @F))[0..2]) + join "", reverse map { $_ * 1 } @F[0..2]) > == 1089 ? "ja" : "nein")' > > das ist uebrigens mein erster halbwegs ernsthafter versuch in perlgolf / obfu, > also bitte nicht gleich in der luft zerreissen. ;-) Perlgolf ist mir neu, klingt lustig. Das Zusammensetzen der Ziffern in @F geht einfacher, wenn man $" auf "" setzt: perl -F// -lane'$"="";@x=split//,"@F"-"@{[reverse@F]}";print"@x"+"@{[reverse@x]}"==1089?"ja":"nein"' (100 chars) Oder wenn man keine Ausgabe braucht: perl -F// -lane '$"="";@x=split//,"@F"-"@{[reverse@F]}";exit int("@x"+"@{[reverse@x]}"!=1089)' (93 chars) Next! cheers, stefan From lt at toetsch.at Wed Feb 2 01:52:44 2005 From: lt at toetsch.at (Leopold Toetsch) Date: Wed Feb 2 01:50:35 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <420082A1.1010302@foo.at> References: <20050201192507.VKBX20143.viefep18-int.chello.at@xxx-xlhpeyhmjii> <420082A1.1010302@foo.at> Message-ID: <4200A2EC.6060906@toetsch.at> Stefan Weiss wrote: > Moin. > > Weils noch zu fr?h ist, um was gscheits zu arbeiten... Genau. > On 2005-02-01 20:27, Karlheinz Zoechling wrote: > >>perl -F// -lane 'print (((join "", map { $_ * 1 } (@F = reverse split //, abs >>($_ - join "", reverse @F))[0..2]) + join "", reverse map { $_ * 1 } @F[0..2]) >>== 1089 ? "ja" : "nein")' >> >>das ist uebrigens mein erster halbwegs ernsthafter versuch in perlgolf / obfu, >>also bitte nicht gleich in der luft zerreissen. ;-) Nich schlecht, etwas l?nglich halt ;) > Perlgolf ist mir neu, klingt lustig. Das Zusammensetzen der Ziffern in > @F geht einfacher, wenn man $" auf "" setzt: > > perl -F// > -lane'$"="";@x=split//,"@F"-"@{[reverse@F]}";print"@x"+"@{[reverse@x]}"==1089?"ja":"nein"' > > (100 chars) Schon ganz gut. > Next! perl -lne'sub _{/(.)(.)$/,"$2$1$`"}{$_-=_;print$_+_==1089?"ja":"nein"} (72 char) leo From domm at zsi.at Wed Feb 2 02:42:44 2005 From: domm at zsi.at (Thomas Klausner) Date: Wed Feb 2 02:42:33 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <4200A2EC.6060906@toetsch.at> References: <20050201192507.VKBX20143.viefep18-int.chello.at@xxx-xlhpeyhmjii> <420082A1.1010302@foo.at> <4200A2EC.6060906@toetsch.at> Message-ID: <20050202104244.GD23497@domm2.zsi.at> Hi! On Wed, Feb 02, 2005 at 10:52:44AM +0100, Leopold Toetsch wrote: > perl -lne'sub _{/(.)(.)$/,"$2$1$`"}{$_-=_;print$_+_==1089?"ja":"nein"} Nett, regex statt ziffern-als-array Hmm, da fehlt ein ' am Ende Ausserdem: 987 ja 789 nein Entweder stimmt da was mit den Vorzeichen nicht, oder ich verstehe die Aufgabe falsch. (BTW, dieser Fehler (wenns einer ist) war schon in der ersten Version von khz) -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Wed Feb 2 02:42:44 2005 From: domm at zsi.at (Thomas Klausner) Date: Wed Feb 2 02:42:36 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <4200A2EC.6060906@toetsch.at> References: <20050201192507.VKBX20143.viefep18-int.chello.at@xxx-xlhpeyhmjii> <420082A1.1010302@foo.at> <4200A2EC.6060906@toetsch.at> Message-ID: <20050202104244.GD23497@domm2.zsi.at> Hi! On Wed, Feb 02, 2005 at 10:52:44AM +0100, Leopold Toetsch wrote: > perl -lne'sub _{/(.)(.)$/,"$2$1$`"}{$_-=_;print$_+_==1089?"ja":"nein"} Nett, regex statt ziffern-als-array Hmm, da fehlt ein ' am Ende Ausserdem: 987 ja 789 nein Entweder stimmt da was mit den Vorzeichen nicht, oder ich verstehe die Aufgabe falsch. (BTW, dieser Fehler (wenns einer ist) war schon in der ersten Version von khz) -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From kh at dartbase.com Wed Feb 2 02:49:28 2005 From: kh at dartbase.com (email) Date: Wed Feb 2 02:49:37 2005 Subject: [Vienna-pm] computerbox knobelei - golf? Message-ID: <200502021049.j12AnSu26281@dartbase.com> > 789 > nein > (BTW, dieser Fehler (wenns einer ist) war schon in der ersten Version von khz) also bei mir gibt's mit meiner version bei 789 korrekt "ja". lg kh From domm at zsi.at Wed Feb 2 02:52:20 2005 From: domm at zsi.at (Thomas Klausner) Date: Wed Feb 2 02:52:06 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <200502021049.j12AnSu26281@dartbase.com> References: <200502021049.j12AnSu26281@dartbase.com> Message-ID: <20050202105220.GF23497@domm2.zsi.at> Hi! On Wed, Feb 02, 2005 at 05:49:28AM -0500, email wrote: > > 789 > > nein > > (BTW, dieser Fehler (wenns einer ist) war schon in der ersten Version > von khz) > > also bei mir gibt's mit meiner version bei 789 korrekt "ja". stimmt, sorrry, mein Fehler. Aber Stefans version hat den Fehler. Wohl weil das 'abs' fehlt. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Wed Feb 2 02:52:20 2005 From: domm at zsi.at (Thomas Klausner) Date: Wed Feb 2 02:52:12 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <200502021049.j12AnSu26281@dartbase.com> References: <200502021049.j12AnSu26281@dartbase.com> Message-ID: <20050202105220.GF23497@domm2.zsi.at> Hi! On Wed, Feb 02, 2005 at 05:49:28AM -0500, email wrote: > > 789 > > nein > > (BTW, dieser Fehler (wenns einer ist) war schon in der ersten Version > von khz) > > also bei mir gibt's mit meiner version bei 789 korrekt "ja". stimmt, sorrry, mein Fehler. Aber Stefans version hat den Fehler. Wohl weil das 'abs' fehlt. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From wolfgang.laun at alcatel.at Wed Feb 2 02:57:07 2005 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Wed Feb 2 02:57:26 2005 Subject: [Vienna-pm] computerbox knobelei - golf? Message-ID: Weil's wieder einmal typisch ist: Die ursr?ngliche "Spezifikation" http://teletext.orf.at/400/464_0002.htm ignoriert fr?hlich den Fall, dass die Umkehrung der Ausgangszahl gr??er als diese ist. Mit kleinen Verbesserungen: perl -lne'sub _{/(.)(.)$/,"$2$1$`"}{$_-=_;s/-//;print$_+_==1089?ja:nein}' lg Wolfgang > -----Original Message----- > From: Leopold Toetsch [mailto:lt@toetsch.at] > Sent: Wednesday, February 02, 2005 10:53 AM > To: vienna-pm@mail.pm.org > Subject: Re: [Vienna-pm] computerbox knobelei - golf? > > > Stefan Weiss wrote: > > Moin. > > > > Weils noch zu fr?h ist, um was gscheits zu arbeiten... > > Genau. > > > On 2005-02-01 20:27, Karlheinz Zoechling wrote: > > > >>perl -F// -lane 'print (((join "", map { $_ * 1 } (@F = > reverse split //, abs > >>($_ - join "", reverse @F))[0..2]) + join "", reverse map { > $_ * 1 } @F[0..2]) > >>== 1089 ? "ja" : "nein")' > >> > >>das ist uebrigens mein erster halbwegs ernsthafter versuch > in perlgolf / obfu, > >>also bitte nicht gleich in der luft zerreissen. ;-) > > Nich schlecht, etwas l?nglich halt ;) > > > Perlgolf ist mir neu, klingt lustig. Das Zusammensetzen der > Ziffern in > > @F geht einfacher, wenn man $" auf "" setzt: > > > > perl -F// > > > -lane'$"="";@x=split//,"@F"-"@{[reverse@F]}";print"@x"+"@{[rev > erse@x]}"==1089?"ja":"nein"' > > > > (100 chars) > > Schon ganz gut. > > > Next! > > perl -lne'sub _{/(.)(.)$/,"$2$1$`"}{$_-=_;print$_+_==1089?"ja":"nein"} > > (72 char) > > leo > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From spaceman at foo.at Wed Feb 2 03:10:47 2005 From: spaceman at foo.at (Stefan Weiss) Date: Wed Feb 2 03:11:18 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <20050202105220.GF23497@domm2.zsi.at> References: <200502021049.j12AnSu26281@dartbase.com> <20050202105220.GF23497@domm2.zsi.at> Message-ID: <4200B537.3010309@foo.at> On 2005-02-02 11:52, Thomas Klausner wrote: >> also bei mir gibt's mit meiner version bei 789 korrekt "ja". > > stimmt, sorrry, mein Fehler. Aber Stefans version hat den Fehler. > > Wohl weil das 'abs' fehlt. Genau genommen liegt der Fehler eh schon in der Vorgabe, weil die den Fall, dass die Zahl < 500 ist, auch ignoriert - das Ergebnis w?re dann n?mlich nicht 1089, sondern -1089: Bsp mit "236": 236 - 632 = -396; -396 + -693 = -1089; Ah, ich seh grad, es ist eh schon eine Verbesserung angekommen. Ich wart dann auf die n?chste Challenge :-) cheers, stefan From wolfgang.laun at alcatel.at Wed Feb 2 03:55:36 2005 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Wed Feb 2 03:55:53 2005 Subject: [Vienna-pm] computerbox knobelei - golf? Message-ID: Und noch eine notwendige Korrektur: perl -lne'sub _{/(.)(.)$/,$2.$1.($`||0)}{$_-=_;s/-//;print$_+_==1089?ja:nein}' Zum Thema "Challenge" ein paar Anregungen: 1.) Math. Beweis f?r die Eigenschaft. M?ssen wirklich alle 3 Ziffern verschieden sein? 2.) Ein Programm, das die Eigenschaft f?r alle erlaubten n, 0 < n <= 998 pr?ft. (Welche Korrektur wird bei der Pr?fung gem. obigem Verfahren notwendig?) 3.) Wenn bei vierstelligen Zahlen Tausender und Einer vertauscht werden axyb -> bxya und dann mit dem Absolutbetrag der Differenz dieselbe Operation durchgef?hrt wird: Die Summe ist dann immer 10989. (Beweis?) perl -lne'sub _{/(..)(.)$/,$2.$1.($`||0)}{$_-=_;s/-//;print$_+_==10989?ja:nein}' 4.) Bonusaufgabe: Wie sieht das f?r n-stellige Zahlen aus? lg Wolfgang > -----Original Message----- > From: Stefan Weiss [mailto:spaceman@foo.at] > Sent: Wednesday, February 02, 2005 12:11 PM > To: vienna-pm@mail.pm.org > Subject: Re: [Vienna-pm] computerbox knobelei - golf? > > Ah, ich seh grad, es ist eh schon eine Verbesserung > angekommen. Ich wart > dann auf die n?chste Challenge :-) > > cheers, > stefan > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From domm at zsi.at Wed Feb 2 03:59:58 2005 From: domm at zsi.at (Thomas Klausner) Date: Wed Feb 2 03:59:45 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: References: Message-ID: <20050202115958.GH23497@domm2.zsi.at> Hi! On Wed, Feb 02, 2005 at 12:55:36PM +0100, LAUN Wolfgang wrote: > 4.) Bonusaufgabe: Wie sieht das f?r n-stellige Zahlen aus? Ich habe einen ganz vorzueglichen Beweis dafuer, nur leider ist am Rand meines Monitors nicht genug Platz... -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From lt at toetsch.at Wed Feb 2 03:58:08 2005 From: lt at toetsch.at (Leopold Toetsch) Date: Wed Feb 2 04:25:03 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <20050202104244.GD23497@domm2.zsi.at> References: <20050201192507.VKBX20143.viefep18-int.chello.at@xxx-xlhpeyhmjii> <420082A1.1010302@foo.at> <4200A2EC.6060906@toetsch.at> <20050202104244.GD23497@domm2.zsi.at> Message-ID: <4200C050.1080500@toetsch.at> Thomas Klausner wrote: > Hi! > > On Wed, Feb 02, 2005 at 10:52:44AM +0100, Leopold Toetsch wrote: > > >>perl -lne'sub _{/(.)(.)$/,"$2$1$`"}{$_-=_;print$_+_==1089?"ja":"nein"} Das 2. Paar {} ist nat?rlich v?llig f?r'n Hugo, also 70 chars. > Hmm, da fehlt ein ' am Ende c&p error > Ausserdem: > > 987 > ja > 789 > nein > > Entweder stimmt da was mit den Vorzeichen nicht, oder ich verstehe die > Aufgabe falsch. > > (BTW, dieser Fehler (wenns einer ist) war schon in der ersten Version von khz) Ja, ich habs nur funktional nachgestrickt. Ob's auch negative Zahlen k?nnen soll, wei? ich nicht. Im Zweifels- und Golffall nein ;) leo From lt at toetsch.at Wed Feb 2 05:08:08 2005 From: lt at toetsch.at (Leopold Toetsch) Date: Wed Feb 2 05:15:03 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: References: Message-ID: <4200D0B8.6060406@toetsch.at> LAUN Wolfgang wrote: > Und noch eine notwendige Korrektur: > > perl -lne'sub _{/(.)(.)$/,$2.$1.($`||0)}{$_-=_;s/-//;print$_+_==1089?ja:nein}' Ah ja, aber viiiel zu lang ;) perl -lne'sub _{/(.)(.)$/,$2.$1.0+$`}$_-=_,s,-,,,print$_+_==1089?"ja":"nein"' 998 ja 001 ja 100 ja 333 nein 78 chars (incl \n am Ende) leo From bernd at firmix.at Wed Feb 2 05:56:31 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Wed Feb 2 05:56:43 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <4200B537.3010309@foo.at> References: <200502021049.j12AnSu26281@dartbase.com> <20050202105220.GF23497@domm2.zsi.at> <4200B537.3010309@foo.at> Message-ID: <1107352591.13645.0.camel@tara.firmix.at> On Wed, 2005-02-02 at 12:10 +0100, Stefan Weiss wrote: [...] > Genau genommen liegt der Fehler eh schon in der Vorgabe, weil die den > Fall, dass die Zahl < 500 ist, auch ignoriert - das Ergebnis w?re dann Ja, das Wording ist schlecht: Die h?tten "Differenz" schreiben sollen - die ist nie negativ. 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 2 06:10:55 2005 From: domm at zsi.at (Thomas Klausner) Date: Wed Feb 2 06:10:53 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: <1107352591.13645.0.camel@tara.firmix.at> References: <200502021049.j12AnSu26281@dartbase.com> <20050202105220.GF23497@domm2.zsi.at> <4200B537.3010309@foo.at> <1107352591.13645.0.camel@tara.firmix.at> Message-ID: <20050202141054.GJ23497@domm2.zsi.at> Hi! On Wed, Feb 02, 2005 at 02:56:31PM +0100, Bernd Petrovitsch wrote: > On Wed, 2005-02-02 at 12:10 +0100, Stefan Weiss wrote: > [...] > > Genau genommen liegt der Fehler eh schon in der Vorgabe, weil die den > > Fall, dass die Zahl < 500 ist, auch ignoriert - das Ergebnis w?re dann > > Ja, das Wording ist schlecht: Die h?tten "Differenz" schreiben sollen - > die ist nie negativ. Andererseits haben sie ja auch schon die Aufgabe ziemlich gegolft. Viel Platz ist auf so einer Teletextseite ja nicht gerade :-) -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From Oliver.Baier at lotterien.at Wed Feb 2 07:31:40 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Wed Feb 2 07:31:50 2005 Subject: AW: [Vienna-pm] computerbox knobelei - golf? Message-ID: <204DB1982528124DAB948D996ECC859A4CECDF@EXCHCLU1.office.lottery.co.at> > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org]Im > Auftrag von LAUN Wolfgang > Gesendet: Mittwoch, 02. Februar 2005 12:56 > An: 'vienna-pm@mail.pm.org' > Betreff: RE: [Vienna-pm] computerbox knobelei - golf? > > > 1.) Math. Beweis f?r die Eigenschaft. M?ssen wirklich alle 3 Ziffern > verschieden sein? meiner Meinung nach ist die mittlere Stelle egal. es muessen sich nur die 1. und 3. Stelle um mindestens 2 unterscheiden. den mathematischen Grund kann ich allerdings nicht nennen ;-) lg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From Oliver.Baier at lotterien.at Fri Feb 4 02:49:07 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Fri Feb 4 02:49:21 2005 Subject: [Vienna-pm] "combined" filehandles Message-ID: <204DB1982528124DAB948D996ECC859A4CECE2@EXCHCLU1.office.lottery.co.at> Hallo, ich will ein Script in die Richtung verbessern, dass der parent von einem einzigen filehandle liest, in den auf der der anderen Seite mehrere children reinschreiben. Bei den gewoehnlichen fork-methoden wird immer von einem child ausgegangen, weshalb die FHs bei mehreren staendig ueberschrieben werden. Ein Versuch von mir, das gezwungenermassen dynamische Ende der communication-pipe im parent nach STDIN umzuleiten (im Gedanken, dass der parent dann laufend STDIN einliest um die Infos der child-prozesse zu erhalten) ist leider fehlgeschlagen. Da cpan-search leider nicht erreichbar ist (Bad Gateway), wollte ich mal eure Erfahrungen befragen. mfg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From domm at zsi.at Fri Feb 4 02:59:09 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri Feb 4 02:58:55 2005 Subject: [Vienna-pm] "combined" filehandles In-Reply-To: <204DB1982528124DAB948D996ECC859A4CECE2@EXCHCLU1.office.lottery.co.at> References: <204DB1982528124DAB948D996ECC859A4CECE2@EXCHCLU1.office.lottery.co.at> Message-ID: <20050204105909.GF1280@domm2.zsi.at> Hi! On Fri, Feb 04, 2005 at 11:49:07AM +0100, Baier Oliver wrote: Zu deinem Problem fallt mir auf die schnelle nix ein, aber: > Da cpan-search leider nicht erreichbar ist (Bad Gateway), wollte > ich mal eure Erfahrungen befragen. Du kannst die cpan-suche von Randy Kobes verwenden, die funktioniert zZ besser (da search.cpan.org in den letzten Wochen ja massive Probleme hatte/hat) http://cpan.uwinnipeg.ca/htdocs/faqs/cpan-search.html?request=search -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Fri Feb 4 02:59:09 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri Feb 4 02:58:56 2005 Subject: [Vienna-pm] "combined" filehandles In-Reply-To: <204DB1982528124DAB948D996ECC859A4CECE2@EXCHCLU1.office.lottery.co.at> References: <204DB1982528124DAB948D996ECC859A4CECE2@EXCHCLU1.office.lottery.co.at> Message-ID: <20050204105909.GF1280@domm2.zsi.at> Hi! On Fri, Feb 04, 2005 at 11:49:07AM +0100, Baier Oliver wrote: Zu deinem Problem fallt mir auf die schnelle nix ein, aber: > Da cpan-search leider nicht erreichbar ist (Bad Gateway), wollte > ich mal eure Erfahrungen befragen. Du kannst die cpan-suche von Randy Kobes verwenden, die funktioniert zZ besser (da search.cpan.org in den letzten Wochen ja massive Probleme hatte/hat) http://cpan.uwinnipeg.ca/htdocs/faqs/cpan-search.html?request=search -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From bernd at firmix.at Fri Feb 4 02:58:53 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Fri Feb 4 02:59:08 2005 Subject: [Vienna-pm] "combined" filehandles In-Reply-To: <204DB1982528124DAB948D996ECC859A4CECE2@EXCHCLU1.office.lottery.co.at> References: <204DB1982528124DAB948D996ECC859A4CECE2@EXCHCLU1.office.lottery.co.at> Message-ID: <1107514733.19990.2.camel@tara.firmix.at> On Fri, 2005-02-04 at 11:49 +0100, Baier Oliver wrote: > ich will ein Script in die Richtung verbessern, dass der parent > von einem einzigen filehandle liest, in den auf der der anderen > Seite mehrere children reinschreiben. > Bei den gewoehnlichen fork-methoden wird immer von einem child > ausgegangen, weshalb die FHs bei mehreren staendig ueberschrieben > werden. Ein Versuch von mir, das gezwungenermassen dynamische Ende Wie kommunizieren die Child-Prozesse bei den 1-Child-Bsp.? Mit einer unnamed pipe? Aus dem Kopf und Bauch m??te das mit mehreren Children auch funktionieren (?ber eine Pipe). MaW wie schaut der Code aus? Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From Oliver.Baier at lotterien.at Fri Feb 4 03:13:31 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Fri Feb 4 03:13:42 2005 Subject: AW: [Vienna-pm] "combined" filehandles Message-ID: <204DB1982528124DAB948D996ECC859A4CECE3@EXCHCLU1.office.lottery.co.at> > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org]Im > Auftrag von Bernd Petrovitsch > Gesendet: Freitag, 04. Februar 2005 11:59 > > Wie kommunizieren die Child-Prozesse bei den 1-Child-Bsp.? > Mit einer unnamed pipe? ja, wie beschrieben im Perl Cookbook Beispiel 16.4 oder 16.6 > Aus dem Kopf und Bauch m??te das mit mehreren Children auch > funktionieren (?ber eine Pipe). das leider nicht (zumindest bei mir) ich will ja im parent nur von einem filehandle lesen, also muesste ich vor jedem fork eine pipe mit dem selben parent-Ende erstellen. leider wird ein filehandle bei der erneuten definition mit dem selben Namen ueberschrieben. > MaW wie schaut der Code aus? der fork-Abschnitt sieht so aus: ... ... foreach my $parameter (@parameters) { $child_handle{$parameter} = "FROM_" . $parameter; pipe $child_handle{$parameter}, TO_PARENT; TO_PARENT->autoflush(1); FORK: if (my $childpid = fork) { close TO_PARENT; ... ... } elsif (defined $childpid) { close $child_handle{$parameter}; print TO_PARENT "from $parameter...\n"; ... ... } elsif ($! =~ /No more process/) { ### easy fork-error sleep 5; redo FORK; } else { warn "fork-Error at $parameter ($!)\n"; } } ... ... lg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From Oliver.Baier at lotterien.at Fri Feb 4 03:18:49 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Fri Feb 4 03:19:01 2005 Subject: WG: [Vienna-pm] "combined" filehandles Message-ID: <204DB1982528124DAB948D996ECC859A4C843C@EXCHCLU1.office.lottery.co.at> Ergaenzung: In der angefuehrten alten Version muss man jeden child-filehandle $child_handle{$parameter} extra auslesen, was eben recht unpraktikabel ist... lg Oliver -----Urspr?ngliche Nachricht----- Von: Baier Oliver Gesendet: Freitag, 04. Februar 2005 12:14 An: 'Bernd Petrovitsch' Cc: vienna-pm (E-Mail) Betreff: AW: [Vienna-pm] "combined" filehandles > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org]Im > Auftrag von Bernd Petrovitsch > Gesendet: Freitag, 04. Februar 2005 11:59 > > Wie kommunizieren die Child-Prozesse bei den 1-Child-Bsp.? > Mit einer unnamed pipe? ja, wie beschrieben im Perl Cookbook Beispiel 16.4 oder 16.6 > Aus dem Kopf und Bauch m??te das mit mehreren Children auch > funktionieren (?ber eine Pipe). das leider nicht (zumindest bei mir) ich will ja im parent nur von einem filehandle lesen, also muesste ich vor jedem fork eine pipe mit dem selben parent-Ende erstellen. leider wird ein filehandle bei der erneuten definition mit dem selben Namen ueberschrieben. > MaW wie schaut der Code aus? der fork-Abschnitt sieht so aus: ... ... foreach my $parameter (@parameters) { $child_handle{$parameter} = "FROM_" . $parameter; pipe $child_handle{$parameter}, TO_PARENT; TO_PARENT->autoflush(1); FORK: if (my $childpid = fork) { close TO_PARENT; ... ... } elsif (defined $childpid) { close $child_handle{$parameter}; print TO_PARENT "from $parameter...\n"; ... ... } elsif ($! =~ /No more process/) { ### easy fork-error sleep 5; redo FORK; } else { warn "fork-Error at $parameter ($!)\n"; } } ... ... lg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From bernd at firmix.at Fri Feb 4 03:35:36 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Fri Feb 4 03:35:51 2005 Subject: AW: [Vienna-pm] "combined" filehandles In-Reply-To: <204DB1982528124DAB948D996ECC859A4CECE3@EXCHCLU1.office.lottery.co.at> References: <204DB1982528124DAB948D996ECC859A4CECE3@EXCHCLU1.office.lottery.co.at> Message-ID: <1107516936.19991.7.camel@tara.firmix.at> On Fri, 2005-02-04 at 12:13 +0100, Baier Oliver wrote: [...] > > Wie kommunizieren die Child-Prozesse bei den 1-Child-Bsp.? > > Mit einer unnamed pipe? > > ja, wie beschrieben im Perl Cookbook Beispiel 16.4 oder 16.6 Nein, sie kommunizieren mit einer unnamed Pipe pro Child. > > Aus dem Kopf und Bauch m??te das mit mehreren Children auch > > funktionieren (?ber eine Pipe). > > das leider nicht (zumindest bei mir) > ich will ja im parent nur von einem filehandle lesen, also muesste > ich vor jedem fork eine pipe mit dem selben parent-Ende erstellen. Du m??test, aber das geht so nicht (zumindest nicht auf den Unixens dieser Welt). Es geht, wenn du *eine* Pipe erzeugst (vor dem "foreach"), dann fork()st (im "foreach") und die Filehandles auf Child-Seite geeignet schlie?t (eh so ?hnlich wie im Bsp.code). ?h, das die Ausgabe der Kindprozesse u.U. durcheinander kommen k?nnten, ist Dir eh bewu?t. > leider wird ein filehandle bei der erneuten definition mit dem selben > Namen ueberschrieben. Nat?rlich. Der pipe(2) SysCall liefert nunmal *eine* Pipe und die hat 2 Enden und demnach 2 Filedeskriptoren (in Perl: Filehandles). Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From Oliver.Baier at lotterien.at Fri Feb 4 03:54:25 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Fri Feb 4 03:54:39 2005 Subject: AW: AW: [Vienna-pm] "combined" filehandles Message-ID: <204DB1982528124DAB948D996ECC859A4CECE4@EXCHCLU1.office.lottery.co.at> > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org] > Im Auftrag von Bernd Petrovitsch > Gesendet: Freitag, 04. Februar 2005 12:36 > > Nein, sie kommunizieren mit einer unnamed Pipe pro Child. das meinte ich... sry, schlecht aussgedrueckt > Du m??test, aber das geht so nicht (zumindest nicht auf den Unixens > dieser Welt). genau, leider > Es geht, wenn du *eine* Pipe erzeugst (vor dem "foreach"), > dann fork()st > (im "foreach") und die Filehandles auf Child-Seite geeignet > schlie?t (eh > so ?hnlich wie im Bsp.code). diese Loesung klingt zwar einfach, aber leider klappt das so nicht. der erste child-prozess kommt durch und beendet bei seinem Abdanken zusaetzlich die pipe, sodass die anderen child-prozesse nur einen geschlossenen filehandle vorfinden: parent: 1360 (1) print() on closed filehandle TO_PARENT at ./test.pl line 135. print() on closed filehandle TO_PARENT at ./test.pl line 135. > ?h, das die Ausgabe der Kindprozesse u.U. durcheinander > kommen k?nnten, > ist Dir eh bewu?t. ja, aber das macht nichts, da ich die child-prozesse eh unterscheiden kann. hast du vielleicht noch eine Idee? lg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From Oliver.Baier at lotterien.at Fri Feb 4 04:00:21 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Fri Feb 4 04:00:49 2005 Subject: AW: AW: [Vienna-pm] "combined" filehandles Message-ID: <204DB1982528124DAB948D996ECC859A4C843E@EXCHCLU1.office.lottery.co.at> > -----Urspr?ngliche Nachricht----- > Von: Baier Oliver > Gesendet: Freitag, 04. Februar 2005 12:54 > > > Es geht, wenn du *eine* Pipe erzeugst (vor dem "foreach"), > > dann fork()st > > (im "foreach") und die Filehandles auf Child-Seite geeignet > > schlie?t (eh > > so ?hnlich wie im Bsp.code). > > diese Loesung klingt zwar einfach, aber leider klappt das so nicht. sorry, war mein Fehler. das klappt sehrwohl! so einfach kann eine Loesung sein... THX! lg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From wolfgang.laun at alcatel.at Fri Feb 4 05:24:09 2005 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Fri Feb 4 05:24:43 2005 Subject: [Vienna-pm] computerbox knobelei - golf? Message-ID: > -----Original Message----- > From: Baier Oliver [mailto:Oliver.Baier@lotterien.at] > Sent: Wednesday, February 02, 2005 4:32 PM > To: vienna-pm@mail.pm.org > Subject: AW: [Vienna-pm] computerbox knobelei - golf? > > > > -----Urspr?ngliche Nachricht----- > > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org]Im > > Auftrag von LAUN Wolfgang > > Gesendet: Mittwoch, 02. Februar 2005 12:56 > > An: 'vienna-pm@mail.pm.org' > > Betreff: RE: [Vienna-pm] computerbox knobelei - golf? > > > > > > 1.) Math. Beweis f?r die Eigenschaft. M?ssen wirklich alle 3 Ziffern > > verschieden sein? > > meiner Meinung nach ist die mittlere Stelle egal. > es muessen sich nur die 1. und 3. Stelle um mindestens 2 > unterscheiden. > > den mathematischen Grund kann ich allerdings nicht nennen ;-) Eine dreistellige Zahl kann mit Ziffern h, z, e als [h][z][e] = 100h + 10z + e geschrieben werden. Damit ist |100h + 10z + e - 100e - 10z - h| = 99|h - e| = [H][Z][E] Damit diese Differenz != 0 ist, muss h != e sein (und z ist, wie Oliver richtig meint, beliebig); somit sind alle Differenzen Vielfache (1- bis 9-fach) von 99, und alle haben die Eigenschaft, dass H + E = 9 und Z = 9 ist. Denn mit 0 <= x <= 9 sind die Zahlen [x][9][9-x] = 100x + 90 + (9 - x) = 99x + 99 = 99(x+1) ebenfalls Vielfache (1- bis 10-fach) von 99, und somit ist x + 1 = |h - e| und daraus folgt mit allen erlaubten Werten von x (und weil die Differenz zweier Ziffern maximal 9 sein kann): 1 <= |h - e| <= 9 Die Summe einer 99er-Vielfachen mit der umgekehrten Zahl ist [x][9][9-x] + [9-x][9][x] = 100x + 90 + 9 - x + 900 - 100x + 90 + x = 1089 lg Wolfgang > > lg > Oliver From bernd at firmix.at Fri Feb 4 06:05:24 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Fri Feb 4 06:05:36 2005 Subject: [Vienna-pm] computerbox knobelei - golf? In-Reply-To: References: Message-ID: <1107525924.20537.8.camel@tara.firmix.at> On Fri, 2005-02-04 at 14:24 +0100, LAUN Wolfgang wrote: [...] > Eine dreistellige Zahl kann mit Ziffern h, z, e als > > [h][z][e] = 100h + 10z + e > > geschrieben werden. Damit ist > > |100h + 10z + e - 100e - 10z - h| = 99|h - e| = [H][Z][E] > > Damit diese Differenz != 0 ist, muss h != e sein (und z ist, wie > Oliver richtig meint, beliebig); somit sind alle Differenzen > Vielfache (1- bis 9-fach) von 99, und alle haben die Eigenschaft, > dass H + E = 9 und Z = 9 ist. > > Denn mit 0 <= x <= 9 sind die Zahlen > > [x][9][9-x] = 100x + 90 + (9 - x) = 99x + 99 = 99(x+1) > > ebenfalls Vielfache (1- bis 10-fach) von 99, und somit ist > > x + 1 = |h - e| > > und daraus folgt mit allen erlaubten Werten von x (und weil > die Differenz zweier Ziffern maximal 9 sein kann): > > 1 <= |h - e| <= 9 > > Die Summe einer 99er-Vielfachen mit der umgekehrten Zahl ist > > [x][9][9-x] + [9-x][9][x] = > 100x + 90 + 9 - x + 900 - 100x + 90 + x = 1089 Sch?n. Bernd -- 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 Fri Feb 4 06:13:43 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Fri Feb 4 06:13:59 2005 Subject: AW: AW: [Vienna-pm] "combined" filehandles In-Reply-To: <204DB1982528124DAB948D996ECC859A4CECE4@EXCHCLU1.office.lottery.co.at> References: <204DB1982528124DAB948D996ECC859A4CECE4@EXCHCLU1.office.lottery.co.at> Message-ID: <1107526423.20533.17.camel@tara.firmix.at> On Fri, 2005-02-04 at 12:54 +0100, Baier Oliver wrote: > > -----Urspr?ngliche Nachricht----- > > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org] > > Im Auftrag von Bernd Petrovitsch > > Gesendet: Freitag, 04. Februar 2005 12:36 > > > > Nein, sie kommunizieren mit einer unnamed Pipe pro Child. > > das meinte ich... sry, schlecht aussgedrueckt > > > Du m??test, aber das geht so nicht (zumindest nicht auf den Unixens > > dieser Welt). > > genau, leider Nein, das ist schon gut so. > > Es geht, wenn du *eine* Pipe erzeugst (vor dem "foreach"), > > dann fork()st > > (im "foreach") und die Filehandles auf Child-Seite geeignet > > schlie?t (eh > > so ?hnlich wie im Bsp.code). > > diese Loesung klingt zwar einfach, aber leider klappt das so nicht. > > der erste child-prozess kommt durch > und beendet bei seinem Abdanken zusaetzlich die pipe, sodass die > anderen child-prozesse nur einen geschlossenen filehandle vorfinden: > > parent: 1360 (1) > print() on closed filehandle TO_PARENT at ./test.pl line 135. > print() on closed filehandle TO_PARENT at ./test.pl line 135. Aaaaaaalso: Auf SysCall-Level wird beim fork() der offene Filedeskriptor dupliziert (genauso wie bei dup()/dup2()). Ein close() auf einem der beiden (egal ob es explizit passiert oder implizit beim Tod des Prozesses) schlie?t auch nur einen der beiden Filedeskriptoren (der andere ist in einem anderen Proze? und von ersten Proze? nicht direkt beeinflu?bar) und das File/Pipe/Netzwerkverbindung/... bleibt letztendlich weiter offen. Ich glaub nicht, da? da perl irgendeine subtil andere Logik dr?ber pappt. D.h. du schlie?t da vermutlich zu viel oder zu fr?h oder beides. > hast du vielleicht noch eine Idee? Ja, dein Source macht irgendwas immer noch nicht richtig. Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From Oliver.Baier at lotterien.at Fri Feb 4 06:26:36 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Fri Feb 4 06:26:51 2005 Subject: AW: AW: AW: [Vienna-pm] "combined" filehandles Message-ID: <204DB1982528124DAB948D996ECC859A4CECE6@EXCHCLU1.office.lottery.co.at> > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org] > Im Auftrag von Bernd Petrovitsch > Gesendet: Freitag, 04. Februar 2005 15:14 > > Aaaaaaalso: > Auf SysCall-Level wird beim fork() der offene Filedeskriptor > dupliziert > (genauso wie bei dup()/dup2()). Ein close() auf einem der beiden (egal > ob es explizit passiert oder implizit beim Tod des Prozesses) schlie?t > auch nur einen der beiden Filedeskriptoren (der andere ist in einem > anderen Proze? und von ersten Proze? nicht direkt > beeinflu?bar) und das > File/Pipe/Netzwerkverbindung/... bleibt letztendlich weiter offen. > Ich glaub nicht, da? da perl irgendeine subtil andere Logik dr?ber > pappt. > D.h. du schlie?t da vermutlich zu viel oder zu fr?h oder beides. ich bin zwar kein System-Guru, aber ich habe mir auch gedacht, dass die pipe beim schliessen eines descriptors nicht automatisch komplett geschlossen werden kann. deshalb habe ich mein script nochmal durch- gewassert, den Fehler entdeckt und den Fehlalarm abgeschalten. Weil du grad nachfragst: Der Fehler war, dass ich "close TO_PARENT;" im parent Prozess von zuvor noch im fork-Teil hatte. Der naechste durchlaufene Parameter beim foreach hatte dann schon das Parent-Ende zu und als der Child-Prozess dann das Child-Ende zumachte, wurde die pipe geschlossen... lg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From wolfgang.laun at alcatel.at Mon Feb 7 00:04:48 2005 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Mon Feb 7 00:05:10 2005 Subject: [Vienna-pm] Matrix-Knobelei Message-ID: Anscheinend sind einige Teilnehmer kniffligen Problemen (auch) au?erhalb der t?glichen Arbeit nicht abgeneigt. Die folgende Aufgabe ist m.E. nicht uninteressant. Gegeben ist eine Matrix mit den Werten 0 und 1. Zu finden ist die gr??te Teilmatrix, die nur Nullen enth?lt. Im folgenden Beispiel sind die Nullen, die diese Teilmatrix bilden, mit 0 und die anderen mit o dargestellt: oo1ooo 1000oo o0001o o000o1 Das Programm sollte als Ergebnis die Position der Teilmatrix (1,1; 4,4) und die "Fl?che" (9) ausgeben. Gesucht ist nat?rlich eine m?glichst effiziente L?sung ;-) lg Wolfgang From pilsl at goldfisch.at Mon Feb 14 02:28:04 2005 From: pilsl at goldfisch.at (peter pilsl) Date: Mon Feb 14 02:30:35 2005 Subject: [Vienna-pm] Powered By Perl, weiteres In-Reply-To: <20050124202019.GB7598@domm2.zsi.at> References: <20050124202019.GB7598@domm2.zsi.at> Message-ID: <42107D34.40303@goldfisch.at> Thomas Klausner wrote: > > 2: CGI-Submit Form geht (hoffenlicht), inkl YAML-Validierung (weil es nicht > ganz so leicht ist, so ein YAML-File freihaendig hinzukriegen.. (ev mag ja > mal jemand ein kleines script basteln, das die Daten abfragt und dann ein > YAML-File draus macht)) > Also ich weiss nicht: entweder geht das Submit-Form nicht, oder es hat wirklich noch niemand submitted :) Solch eine Plattform funktioniert (=macht Sinn) nat?rlich nur, wenn m?glichst viele Leute partizipieren. Ich w?rde mich sehr freuen, wenn auch von den anderen Teilnehmern dieser Liste und vor allem auch den Diskussionspartnern im Vorfeld des Projekts deren Projekte Online gestellt w?rden ;) Sind sicher spannende Dinge dabei. lgp -- mag. peter pilsl goldfisch.at IT-management tel +43 699 1 3574035 fax +43 699 4 3574035 pilsl@goldfisch.at From domm at zsi.at Mon Feb 14 03:09:40 2005 From: domm at zsi.at (Thomas Klausner) Date: Mon Feb 14 03:08:30 2005 Subject: [Vienna-pm] Powered By Perl, weiteres In-Reply-To: <42107D34.40303@goldfisch.at> References: <20050124202019.GB7598@domm2.zsi.at> <42107D34.40303@goldfisch.at> Message-ID: <20050214110940.GJ22483@domm2.zsi.at> Hi! On Mon, Feb 14, 2005 at 11:28:04AM +0100, peter pilsl wrote: > Also ich weiss nicht: > entweder geht das Submit-Form nicht, das Form geht! (Habs grad nochmal getestet) zZ ist der cron-job so eingestellt, das alle 10 Minuten die HTML-Seiten neu erstellt werden, d.h. nach einer Eingabe sollten die Daten zu den naechsten vollen 10 Minuten am Server auftauchen (Einen Preview kriegt man sofort). > oder es hat wirklich noch niemand > submitted :) Solch eine Plattform funktioniert (=macht Sinn) nat?rlich > nur, wenn m?glichst viele Leute partizipieren. > Ich w?rde mich sehr freuen, wenn auch von den anderen Teilnehmern dieser > Liste und vor allem auch den Diskussionspartnern im Vorfeld des Projekts > deren Projekte Online gestellt w?rden ;) Sind sicher spannende Dinge > dabei. Ja! Genau! Her damit! BTW, ich werd das Ding am Dutch Perl Workshop und auf der FOSDEM in 2 Wochen vorstellen, da wuerde es mich schon freuen, wenn ein bissl was drinnen ist. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From e_horn at fh-bingen.de Tue Feb 15 05:37:56 2005 From: e_horn at fh-bingen.de (e_horn@fh-bingen.de) Date: Tue Feb 15 04:17:23 2005 Subject: [Vienna-pm] Verlinken 2er perl programme Message-ID: <1108474676.4211fb3442392@webmail.fh-bingen.de> Hallo! Vielleicht kann mir jemand weiter helfen! Kann ich innerhalb eines Perl Programmes Anker zu andren Perlprogrammen legen? Ich moechte einen link haben der nach Klick das Programm search2.pl auf ruft! Geht das mit einem a href?? .. print ""; print "database Search"; print ""; print ""; print "

Suche:$suchtext

"; print "link"; ... Gruss ------------------------------------------------- This mail sent through IMP: http://horde.org/imp/ From domm at zsi.at Tue Feb 15 04:26:27 2005 From: domm at zsi.at (Thomas Klausner) Date: Tue Feb 15 04:25:24 2005 Subject: [Vienna-pm] Verlinken 2er perl programme In-Reply-To: <1108474676.4211fb3442392@webmail.fh-bingen.de> References: <1108474676.4211fb3442392@webmail.fh-bingen.de> Message-ID: <20050215122627.GF28159@domm2.zsi.at> Hi! On Tue, Feb 15, 2005 at 02:37:56PM +0100, e_horn@fh-bingen.de wrote: > Vielleicht kann mir jemand weiter helfen! > Kann ich innerhalb eines Perl Programmes Anker zu andren Perlprogrammen legen? > Ich moechte einen link haben der nach Klick das Programm search2.pl auf ruft! > Geht das mit einem a href?? ja Oder, wenn das kein Overkill ist, schau dir mal CGI::Application an: http://search.cpan.org/~markstos/CGI-Application-3.31/lib/CGI/Application.pm > print ""; > print "database Search"; > print ""; > print ""; > print "

Suche:$suchtext

"; > print "link"; das wuerde ich aber eher so machen (wenn schon ohne Template::Toolkit o.ae.): print < database Search

Suche: $suchtext

link EOTHML -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From e_horn at fh-bingen.de Tue Feb 15 05:55:16 2005 From: e_horn at fh-bingen.de (e_horn@fh-bingen.de) Date: Tue Feb 15 04:34:41 2005 Subject: [Vienna-pm] Verlinken 2er perl programme Message-ID: <1108475716.4211ff449059b@webmail.fh-bingen.de> Kann ich mit dem EOHTML auch Funktionen aufrufen wie ich es sonst so mache? Das mit dem Link klappt noch nicht ganz :-) print ""; print ""; print ""; print ""; print "

Suche:$suchtext

"; print ""; print processXML($nucleotide_doc,"nucleotide"); print processXML($protein_doc,"protein"); print processXML($cancerchromosomes_doc,"cancerchromosomes"); print processXML($unigene_doc,"unigene"); print processXML($structure_doc,"structure"); print processXML($domains_doc,"domains"); print processXML($gene_doc,"gene"); print processXML($cdd_doc,"cdd"); print ""; ------------------------------------------------- This mail sent through IMP: http://horde.org/imp/ From Oliver.Baier at lotterien.at Tue Feb 15 04:40:18 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Tue Feb 15 04:40:31 2005 Subject: AW: [Vienna-pm] Verlinken 2er perl programme Message-ID: <204DB1982528124DAB948D996ECC859A4CECF8@EXCHCLU1.office.lottery.co.at> wenn du die here-document syntax nicht verwenden willst, musst du die Anfuehrungszeichen innerhalb des Strings escapen: print ""; aber schoener lesbar und wesentlich einfacher zum tippen ist's mit < -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org]Im > Auftrag von e_horn@fh-bingen.de > Gesendet: Dienstag, 15. Februar 2005 14:55 > An: vienna-pm@mail.pm.org > Betreff: Re: [Vienna-pm] Verlinken 2er perl programme > > > Kann ich mit dem EOHTML auch Funktionen aufrufen wie ich es > sonst so mache? > Das mit dem Link klappt noch nicht ganz :-) > print ""; > print ""; > print ""; > print ""; > print "

Suche:$suchtext

"; > print ""; > print processXML($nucleotide_doc,"nucleotide"); > print processXML($protein_doc,"protein"); > print processXML($cancerchromosomes_doc,"cancerchromosomes"); > print processXML($unigene_doc,"unigene"); > print processXML($structure_doc,"structure"); > print processXML($domains_doc,"domains"); > print processXML($gene_doc,"gene"); > print processXML($cdd_doc,"cdd"); > print ""; > > > ------------------------------------------------- > This mail sent through IMP: http://horde.org/imp/ > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From domm at zsi.at Tue Feb 15 04:42:00 2005 From: domm at zsi.at (Thomas Klausner) Date: Tue Feb 15 04:40:43 2005 Subject: [Vienna-pm] Verlinken 2er perl programme Message-ID: <20050215124200.GJ28159@domm2.zsi.at> Hi! On Tue, Feb 15, 2005 at 02:55:16PM +0100, e_horn@fh-bingen.de wrote: > Kann ich mit dem EOHTML auch Funktionen aufrufen wie ich es sonst so mache? eher nicht, wuerd ich mal sagen. sog. 'here-docs' sind aber genial zum ausgeben grosser TExtbloeckt > Das mit dem Link klappt noch nicht ganz :-) > print ""; > print ""; > print ""; > print ""; > print "

Suche:$suchtext

"; > print ""; hier muesste eigentlich eine Fehlermeldung kommen so isses richtig: print ""; Und sonst: Stimmen die CGI-Pfade? Was gibts fuer Fehlermeldungen? Was sagen die Error-Logs? -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From e_horn at fh-bingen.de Tue Feb 15 06:11:28 2005 From: e_horn at fh-bingen.de (e_horn@fh-bingen.de) Date: Tue Feb 15 04:50:52 2005 Subject: [Vienna-pm] verlinken 2er perl programme Message-ID: <1108476688.42120310953b8@webmail.fh-bingen.de> so klappt es nun! Ich mache es mit den prints weil ich wiegesagt Funktionen aufrufen muss, sonst sieht er die aufrufe als Text! Danke Jungs ;-) print qq|link|; ------------------------------------------------- This mail sent through IMP: http://horde.org/imp/ From mjy at geizhals.at Tue Feb 15 06:02:43 2005 From: mjy at geizhals.at (Marinos J. Yannikos) Date: Tue Feb 15 06:02:32 2005 Subject: [Vienna-pm] Storable x86_64 - noch immer kaputt? Message-ID: <42120103.5020107@geizhals.at> Hi, man kann noch immer keine auf einem 32 bit System (hier: Debian x86, Perl 5.8.4, Storable 2.12) erzeugten "Storable"-Files auf einem 64 bit System lesen (Debian x86_64, sonst alles gleich): Byte order is not compatible at ../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/_retrieve.al) line 328, at ./testdesc.pl line 4 Das d?rfte an den nicht portablen Datentypen im Header liegen. Wei? jemand eine L?sung? (Beim Lesen 10+ x langsamere Datenformate sind leider keine) MfG, -mjy From nick at ccl4.org Tue Feb 15 07:52:50 2005 From: nick at ccl4.org (Nicholas Clark) Date: Tue Feb 15 07:53:06 2005 Subject: [Vienna-pm] Storable x86_64 - noch immer kaputt? In-Reply-To: <42120103.5020107@geizhals.at> References: <42120103.5020107@geizhals.at> Message-ID: <20050215155249.GM13998@plum.flirble.org> On Tue, Feb 15, 2005 at 03:02:43PM +0100, Marinos J. Yannikos wrote: > Hi, > > man kann noch immer keine auf einem 32 bit System (hier: Debian x86, > Perl 5.8.4, Storable 2.12) erzeugten "Storable"-Files auf einem 64 bit > System lesen (Debian x86_64, sonst alles gleich): > > Byte order is not compatible at ../../lib/Storable.pm (autosplit into > ../../lib/auto/Storable/_retrieve.al) line 328, at ./testdesc.pl line > 4 > > Das d?rfte an den nicht portablen Datentypen im Header liegen. Wei? Genau. > jemand eine L?sung? (Beim Lesen 10+ x langsamere Datenformate sind > leider keine) Wenn man beider x86_64 und x86 nutzen (zum beispiel) mu? man nstore nicht store nutzen. (Damit gibt es nur portablen Datentypen darin) Ich glaube da? sie alle Files auf x86 lesen mussen, und neu might nstore (auf x86) scrhreiben. Dann konnen sie Files auf beider x86_64 und x86 nutzen. Nicholas Clark From alfie at ist.org Wed Feb 16 00:48:30 2005 From: alfie at ist.org (Gerfried Fuchs) Date: Wed Feb 16 00:48:46 2005 Subject: [Vienna-pm] Verlinken 2er perl programme In-Reply-To: <1108475716.4211ff449059b@webmail.fh-bingen.de> References: <1108475716.4211ff449059b@webmail.fh-bingen.de> Message-ID: <2005-02-16_09.48.24@alfie.ist.org> * e_horn@fh-bingen.de [2005-02-15 14:55]: > Kann ich mit dem EOHTML auch Funktionen aufrufen wie ich es sonst so mache? Nein. Aber du kannst Variabeln ausgeben: print <<"EOT"; $title ..... EOT Wenn du dir also die Ausgaben der Funktionen vorher in Variabeln speicherst, dann kannst du dir damit behelfen. MfG, Alfie -- ich habe bisher mit Windows + Word 97 gearbeitet. Jetzt m?chte ich aber gerne auf Linus umsteigen und dazu h?tte mich interessiert ob es ein Crossupdate gibt. Und zwar von Word 97 ( Windows ) auf Word 2000 ( f?r Linux ). -- GE_ST.praktikant1@DE.BOSCH.COM in news:d.c.o.u.l.m -------------- 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/20050216/b3571a9b/attachment.bin From hjp at wsr.ac.at Wed Feb 16 02:38:05 2005 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Wed Feb 16 02:38:34 2005 Subject: [Vienna-pm] Powered By Perl, weiteres In-Reply-To: <20050124202019.GB7598@domm2.zsi.at> References: <20050124202019.GB7598@domm2.zsi.at> Message-ID: <20050216103805.GC31767@wsr.ac.at> On 2005-01-24 21:20:19 +0100, Thomas Klausner wrote: > 1: Ich hab das Ding auf einen anderen Server gestellt (weil der > bisherige im internen Netz haengt, und deshalb durch irgedeinen Proxy > muss, der aber Seiten ewig cached): > > http://poweredbyperl.stage.zsi.at/ > > (redirect vom alten ist eh auch eingerichtet) > > 2: CGI-Submit Form geht (hoffenlicht), Ja, geht - meine Submission hat er geschluckt. Ich hoffe, ich habe demn?chst noch mehr. > inkl YAML-Validierung (weil es nicht ganz so leicht ist, so ein > YAML-File freihaendig hinzukriegen.. An meinem hatte er nichts auszusetzen - wobei ich gerade sehe, dass in der Zeit seit ich das geschrieben habe (da war gerade mein Webserver nicht erreichbar, daher konnte ich nicht submitten und dann habe ich drauf vergessen) das Felder url und modules zum Projekt dazugekommen sind . Die muss ich noch eintragen. hp -- _ | Peter J. Holzer | If the code is old but the problem is new |_|_) | Sysadmin WSR / LUGA | then the code probably isn't the problem. | | | hjp@wsr.ac.at | __/ | http://www.hjp.at/ | -- Tim Bunce on dbi-users, 2004-11-05 -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 388 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050216/bbe0d25f/attachment.bin From domm at zsi.at Wed Feb 16 02:49:43 2005 From: domm at zsi.at (Thomas Klausner) Date: Wed Feb 16 02:48:20 2005 Subject: [Vienna-pm] Powered By Perl, weiteres In-Reply-To: <20050216103805.GC31767@wsr.ac.at> References: <20050124202019.GB7598@domm2.zsi.at> <20050216103805.GC31767@wsr.ac.at> Message-ID: <20050216104943.GD767@domm2.zsi.at> Hi! On Wed, Feb 16, 2005 at 11:38:05AM +0100, Peter J. Holzer wrote: > Ja, geht - meine Submission hat er geschluckt. Ich hoffe, ich habe > demn?chst noch mehr. Freu! > > inkl YAML-Validierung (weil es nicht ganz so leicht ist, so ein > > YAML-File freihaendig hinzukriegen.. > > An meinem hatte er nichts auszusetzen - wobei ich gerade sehe, dass in > der Zeit seit ich das geschrieben habe (da war gerade mein Webserver > nicht erreichbar, daher konnte ich nicht submitten und dann habe ich > drauf vergessen) das Felder url und modules zum Projekt dazugekommen > sind . Die muss ich noch eintragen. Einfach die URL nochmal submitten, dann wird das File nochmal abgeholt und gelesen. Den woechentlich automatischen Check hab ich glaub ich noch nicht aktivert... -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Thu Feb 17 11:44:40 2005 From: domm at zsi.at (Thomas Klausner) Date: Thu Feb 17 11:43:16 2005 Subject: [Vienna-pm] Vienna.pm website redesignt Message-ID: <20050217194440.GC8682@domm2.zsi.at> Hi! Ich hab heute (in Vorbereitung auf den naechsten Perl Workshop (spaeter mehr)) die Vienna.pm Website ein wenig umgestellt und neu 'lackiert' (mit einem style, den ich eh grad rumliegen gehabt hat (uebernommen von perl.org)) http://vienna.pm.org Ausserdem hab ich eine neue Seite mit Projekte angelegt, die wir so machen, zZ openguides und powered by perl. Ach, und wenn jemand gerne seinen/ihren Namen (+/- Bild) auf der 'Wer ist Wer'-Seite sehen wuerde: her damit! -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at zsi.at Fri Feb 18 02:06:10 2005 From: domm at zsi.at (Thomas Klausner) Date: Fri Feb 18 02:04:41 2005 Subject: [Vienna-pm] Termininfo: Perlworkshop Message-ID: <20050218100610.GA12238@domm2.zsi.at> Hi! Bitte den Kalender zuecken und eintragen: 9. und 10. Juni: Oesterreichischer Perl Workshop (in Wien) Weitere Infos, Call for Papers etc kommen naechste Woche. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From pilsl at goldfisch.at Sun Feb 20 23:48:55 2005 From: pilsl at goldfisch.at (peter pilsl) Date: Sun Feb 20 23:49:17 2005 Subject: [Vienna-pm] perl-installer =?iso-8859-1?q?f=FCr_windows?= Message-ID: <42199267.1050404@goldfisch.at> Ich hab ein perlscript unter linux als mod_perl/webapplication entwickelt und der Kunde will nun stattdessen ?berraschend eine windows-standalone-easy-to-install-click-click-clack L?sung. Ich habe noch nie mit perl unter windows programmiert. Gibt es ein tool, das aus einem Perlscript und einigen Modulen (von CPAN) und dem eigentlichen perl ein klassisches Windows-Installer-Paket macht inkl. Icon am Desktop zum clicken? Vermutlich nicht so einfach ... ;) danke, peter -- mag. peter pilsl goldfisch.at IT-management tel +43 699 1 3574035 fax +43 699 4 3574035 pilsl@goldfisch.at From domm at zsi.at Mon Feb 21 02:00:04 2005 From: domm at zsi.at (Thomas Klausner) Date: Mon Feb 21 01:58:19 2005 Subject: [Vienna-pm] perl-installer f?r windows In-Reply-To: <42199267.1050404@goldfisch.at> References: <42199267.1050404@goldfisch.at> Message-ID: <20050221100004.GA21483@domm2.zsi.at> Hi! On Mon, Feb 21, 2005 at 08:48:55AM +0100, peter pilsl wrote: > Ich hab ein perlscript unter linux als mod_perl/webapplication > entwickelt und der Kunde will nun stattdessen ?berraschend eine > windows-standalone-easy-to-install-click-click-clack L?sung. mein Beileid :-) > Ich habe noch nie mit perl unter windows programmiert. Gibt es ein tool, > das aus einem Perlscript und einigen Modulen (von CPAN) und dem > eigentlichen perl ein klassisches Windows-Installer-Paket macht inkl. > Icon am Desktop zum clicken? Vermutlich nicht so einfach ... ;) Was ich weiss geht das mit dem Perl Dev Kit von ActiveState: http://www.activestate.com/Products/Perl_Dev_Kit/?_x=1 Kostet aber 145-245 $ Und ich habs noch nie verwendet & kann also nicht sage, ob's und wie's funzt. Sonst gaebe es noch PAR: http://search.cpan.org/dist/PAR/ Aber ich glaube nicht, das man damit Perl selber bundlen kann. -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From armin at xos.net Mon Feb 21 03:32:33 2005 From: armin at xos.net (Armin Obersteiner) Date: Mon Feb 21 03:32:49 2005 Subject: [Vienna-pm] perl-installer f?r windows In-Reply-To: <20050221100004.GA21483@domm2.zsi.at> References: <42199267.1050404@goldfisch.at> <20050221100004.GA21483@domm2.zsi.at> Message-ID: <20050221113233.GA31656@elch.elche> hi! > Was ich weiss geht das mit dem Perl Dev Kit von ActiveState: > http://www.activestate.com/Products/Perl_Dev_Kit/?_x=1 > Kostet aber 145-245 $ > > Sonst gaebe es noch PAR: > http://search.cpan.org/dist/PAR/ > Aber ich glaube nicht, das man damit Perl selber bundlen kann. doch. bundelt perl und alle noetigen module. kann direkt ins gui start. ist aber *kein* installer. funkt so: generiert ein exe file und beim start wird alles in ein temp verz. verpackt und von dort gestartet. das komerzielle kit kann auch obfuscaten. aber sagen wirs mal so wirklich sicher ists nicht. es gibt auch noch so ein perl2exe: (kostet auch was) http://www.indigostar.com/perl2exe.htm ich kann PAR auf jeden fall empfehlen. keines der 3 dinger ist ein installer. eventuell kann man ein MSI (oder anderer installer) paket erstellen, dass zuerst perl inst. und dann deine software... Ciao, Armin -- armin@xos.net pgp public key on request CU From areibens at cpan.org Mon Feb 21 13:55:37 2005 From: areibens at cpan.org (Alfred Reibenschuh) Date: Mon Feb 21 13:54:28 2005 Subject: [Vienna-pm] Termininfo: Perlworkshop In-Reply-To: <20050218100610.GA12238@domm2.zsi.at> References: <20050218100610.GA12238@domm2.zsi.at> Message-ID: <04mk11dqeob9vriuf461m2bcmm83jpci0j@4ax.com> hi! >Bitte den Kalender zuecken und eintragen: > >9. und 10. Juni: Oesterreichischer Perl Workshop (in Wien) > >Weitere Infos, Call for Papers etc kommen naechste Woche. wayne's interessiert: ``Using PDF::API2 ...?? (by fredo himself ;-) lg -- __ _ / _|_ __ ___ __| | ___ unix, linux, freebsd | |_| '__/ _ \/ _` |/ _ \ jpeg, png, gif, ppm | _| | | __/ (_| | (_) | apache, perl, php, mysql |_| |_| \___|\__,_|\___/ pdf, ps, abw, html, pod From rl at brabbel.net Tue Feb 22 00:43:12 2005 From: rl at brabbel.net (Roland Lammel) Date: Tue Feb 22 00:43:27 2005 Subject: =?iso-8859-1?Q?Re:_=5BVienna-pm=5D_perl-installer_f=FCr_windows?= Message-ID: <200502220843.JAA22221@atc.co.at> On Mon, 2005-02-21 at 12:32 +0100, Armin Obersteiner wrote: > hi! > > > Was ich weiss geht das mit dem Perl Dev Kit von ActiveState: > > http://www.activestate.com/Products/Perl_Dev_Kit/?_x=1 > > Kostet aber 145-245 $ > > > > Sonst gaebe es noch PAR: > > http://search.cpan.org/dist/PAR/ > > Aber ich glaube nicht, das man damit Perl selber bundlen kann. > > doch. bundelt perl und alle noetigen module. kann direkt ins gui start. > ist aber *kein* installer. funkt so: generiert ein exe file und beim > start wird alles in ein temp verz. verpackt und von dort gestartet. PAR sollte alles relevante f?rs Ausf?hren einpacken (mit den entsprechenden Optionen), allerdings muss eben dies von einem Windows-PC geschehen, wo alle ben?tigten Libraries (und PAR) bereits installiert sind (sprich Applikation voll lauff?hig). Es w?rde auch m?glich sein PARL einzupacken (ist quasi ein statisch gelinktes Perl mit PAR soweit ich weiss), mit dem dann ein PAR-file direkt ausgef?hrt werden kan > das komerzielle kit kann auch obfuscaten. aber sagen wirs mal so > wirklich sicher ists nicht. > > es gibt auch noch so ein perl2exe: (kostet auch was) > > http://www.indigostar.com/perl2exe.htm > > ich kann PAR auf jeden fall empfehlen. > > keines der 3 dinger ist ein installer. eventuell kann man ein MSI > (oder anderer installer) paket erstellen, dass zuerst perl inst. > und dann deine software... Es gibt einige Installer die frei sind, wie z.b. der Nullsoft-Installer (http://nsis.sourceforge.net/) bzw. auch der MSI-builder von mircosoft (freundlich WIX genannt: http://sourceforge.net/projects/wix/) Cheers -- Roland Lammel From gooly at gmx.at Tue Feb 22 02:20:16 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue Feb 22 02:20:26 2005 Subject: [Vienna-pm] Linux-Ram-Disk Message-ID: <200502221120.16534.gooly@gmx.at> Hallo, wei? jemand wie das gehen k?nnte? Das Ganze ist f?r ein Minimal-Linux also ohne X (Firewll und Fileserver, die st?ndig laufen sollen. Ich will haupts?chlich erreichen, dass die Zugriffe auf die Festplatte stark minimiert werden, um so die Lebensdauer der hd zu erh?hen. Es gibt zwar Ich m?chte ein Linux-RAM-Disk anlegen (wie z.B. hier: http://linide.sourceforge.net/0019.html ) aber nach dem Booten durch ein script (Damit das Ganze nahe an der original Installation bleibt!!). Dorthin m?chte ich die drei Ordner /etc, /tmp und /var kopieren (Frage: /tmp muss ich eigentlich nur erzeugen, da alles da drin sowieso neu erstellt wird - oder?), lt. du zusammen < 55 MB, es sollten also 100 MB reichen. Nun aber soll Linux auf die drei Ordner im RAM zugreifen ohne Umweg ?ber die Platte!! Wenn das einmal geht, kann man ja 1. den /tmp-clean-cron h?ufiger laufen lassen, 2. /var regelm??ig r?cksichern. 3. /etc wird ja nur f?r Systemdienste ( zB cups) gelesen und nicht gesichert! Wenn ich jetzt das System update oder etwas installiere muss ich nur einen restart machen, der sonst meist nicht notwendig w?re. Also wenn ich mit mke2fs /dev/ram0 mount /dev/ram0 /ram (Frage: k?nnte es nicht auch ein type tmpfs oder ein ramfs sein - oder besser nicht? Unterschied?) cp -r /etc /var /ram ein Ram erzeuge, dann erzeuge ich auf der HD (die ich ja entlasten will) das /dev/ram0 und /ram und l?uft dann nicht jeder Zugriff doch ?ber die HD? ABER: was muss ich jetzt tun, dass Linux statt auf /etc auf /ram/etc zugreift ohne die HD zu 'ber?hren'? Geht das ?berhaupt? Zusatzfrage, wie kann ich ?berpr?fen ob die RAM-Disk existiert, f?r mich gibt es nach mke2fs /dev/ram0 mount /dev/ram0 /ram einen Ordner /ram und drin einen Ordner /lost+found, wie aber wei? ich, dass der nicht auf der Platte liegt? Danke schon mal, Calli From domm at zsi.at Tue Feb 22 02:56:58 2005 From: domm at zsi.at (Thomas Klausner) Date: Tue Feb 22 02:55:10 2005 Subject: [Vienna-pm] Linux-Ram-Disk In-Reply-To: <200502221120.16534.gooly@gmx.at> References: <200502221120.16534.gooly@gmx.at> Message-ID: <20050222105658.GC27863@domm2.zsi.at> Hi! On Tue, Feb 22, 2005 at 11:20:16AM +0100, Carl A. Schreiber wrote: > wei? jemand wie das gehen k?nnte? Ich nicht, aber ich vermute mal, dass du auf der LUGA-Liste Hilfe finden wirst (ev hier aber auch...) http://www.luga.at/organisatorisches/howtosubscribe.html -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From hjp at wsr.ac.at Tue Feb 22 03:07:51 2005 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Tue Feb 22 03:08:04 2005 Subject: [Vienna-pm] Linux-Ram-Disk In-Reply-To: <200502221120.16534.gooly@gmx.at> References: <200502221120.16534.gooly@gmx.at> Message-ID: <20050222110751.GF30023@wsr.ac.at> [Mit perl hat das irgendwie nicht viel zu tun, das w?re auf der Luga-Mailinglist passender] On 2005-02-22 11:20:16 +0100, Carl A. Schreiber wrote: > wei? jemand wie das gehen k?nnte? > Das Ganze ist f?r ein Minimal-Linux also ohne X (Firewll und Fileserver, die > st?ndig laufen sollen. Ich will haupts?chlich erreichen, dass die Zugriffe > auf die Festplatte stark minimiert werden, um so die Lebensdauer der hd zu > erh?hen. Es gibt zwar Ist die Anzahl der Zugriffe ein sp?rbarer Faktor bei der Lebensdauer einer Platte? Und ist das wichtiger als nach einen Crash halbwegs aktuelle Logfiles zu haben? > Wenn das einmal geht, kann man ja > 1. den /tmp-clean-cron h?ufiger laufen lassen, > 2. /var regelm??ig r?cksichern. > 3. /etc wird ja nur f?r Systemdienste ( zB cups) gelesen und nicht gesichert! > > Wenn ich jetzt das System update oder etwas installiere muss ich nur einen > restart machen, der sonst meist nicht notwendig w?re. > > Also wenn ich mit > mke2fs /dev/ram0 > mount /dev/ram0 /ram > (Frage: k?nnte es nicht auch ein > type tmpfs oder ein ramfs sein > - oder besser nicht? Unterschied?) AFAIK: tmpfs und ramfs sind im Gegensatz zu ext3 dazu ausgelegt, im RAM zu liegen und nicht auf einer Harddisk. D.h. die internen Datenstrukturen sind anders. Insbesondere braucht ein tmpfs im RAM nur so viel Platz wie gerade ben?tigt wird, w?hrend eine RAM-Disk meines Wissens immer so viel Platz verbraucht, wie sie gro? ist. > cp -r /etc /var /ram > ein Ram erzeuge, dann erzeuge ich auf der HD (die ich ja entlasten will) > das /dev/ram0 und /ram und l?uft dann nicht jeder Zugriff doch ?ber die HD? Die Frage verstehe ich nicht. /ram und alles darunter liegt auf der RAM-Disk. Wenn Du darauf zugreifst, sind das Zugriffe auf die RAM-Disk und nicht auf die Hard-Disk. Nat?rlich musst Du, um auf /ram/etc/irgendwas kommen, erst mal das Root-Directory / nach dem Eintrag "ram" durchsuchen. Da / aber ziemlich sicher im Cache liegt, ergibt sich daraus kein physicher Harddisk-Zugriff. > ABER: was muss ich jetzt tun, dass Linux statt auf /etc auf /ram/etc zugreift > ohne die HD zu 'ber?hren'? Geht das ?berhaupt? mount --bind /ram/etc /etc sollte funktionieren. (Du kannst danach nicht mehr auf das /etc auf der Platte zugreifen, da Du aber eh nur eine Read-Only-Kopie haben wolltest, sollte das kein Problem sein. > Zusatzfrage, wie kann ich ?berpr?fen ob die RAM-Disk existiert, f?r mich gibt > es nach > mke2fs /dev/ram0 > mount /dev/ram0 /ram > einen Ordner /ram und drin einen Ordner /lost+found, wie aber wei? ich, dass > der nicht auf der Platte liegt? df /ram aufrufen, und schauen, ob der Mountpoint /ram ist. hp -- _ | Peter J. Holzer | If the code is old but the problem is new |_|_) | Sysadmin WSR / LUGA | then the code probably isn't the problem. | | | hjp@wsr.ac.at | __/ | http://www.hjp.at/ | -- Tim Bunce on dbi-users, 2004-11-05 -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 388 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050222/21c0775d/attachment-0001.bin From gooly at gmx.at Tue Feb 22 03:11:09 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue Feb 22 03:11:19 2005 Subject: [Vienna-pm] Linux-Ram-Disk In-Reply-To: <20050222105658.GC27863@domm2.zsi.at> References: <200502221120.16534.gooly@gmx.at> <20050222105658.GC27863@domm2.zsi.at> Message-ID: <200502221211.09380.gooly@gmx.at> Am Dienstag, 22. Februar 2005 11:56 schrieb Thomas Klausner: > Hi! > > On Tue, Feb 22, 2005 at 11:20:16AM +0100, Carl A. Schreiber wrote: > > wei? jemand wie das gehen k?nnte? > > Ich nicht, aber ich vermute mal, dass du auf der LUGA-Liste Hilfe finden > wirst (ev hier aber auch...) > > http://www.luga.at/organisatorisches/howtosubscribe.html Danke, probier ich mal. Calli From bernd at firmix.at Tue Feb 22 03:25:29 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Tue Feb 22 03:25:42 2005 Subject: OT: Re: [Vienna-pm] Linux-Ram-Disk In-Reply-To: <200502221120.16534.gooly@gmx.at> References: <200502221120.16534.gooly@gmx.at> Message-ID: <1109071529.26619.71.camel@tara.firmix.at> On Tue, 2005-02-22 at 11:20 +0100, Carl A. Schreiber wrote: [...] > Das Ganze ist f?r ein Minimal-Linux also ohne X (Firewll und Fileserver, die > st?ndig laufen sollen. Ich will haupts?chlich erreichen, dass die Zugriffe > auf die Festplatte stark minimiert werden, um so die Lebensdauer der hd zu > erh?hen. Es gibt zwar Erh?ht das tats?chlich die Lebensdauer? Davon hab ich noch nie geh?rt. > aber nach dem Booten durch ein script (Damit das Ganze nahe an der original > Installation bleibt!!). Dorthin m?chte ich die drei Ordner > /etc, /tmp und /var > kopieren (Frage: /tmp muss ich eigentlich nur erzeugen, da alles da drin > sowieso neu erstellt wird - oder?), lt. du zusammen < 55 MB, es sollten also Ja. > Also wenn ich mit > mke2fs /dev/ram0 > mount /dev/ram0 /ram > (Frage: k?nnte es nicht auch ein > type tmpfs oder ein ramfs sein > - oder besser nicht? Unterschied?) > cp -r /etc /var /ram > ein Ram erzeuge, dann erzeuge ich auf der HD (die ich ja entlasten will) > das /dev/ram0 und /ram und l?uft dann nicht jeder Zugriff doch ?ber die HD? Was hei?t "auf der Harddisk" und warum sollte das so sein (maW *wo* auf der Harddisk soll was passieren?). > ABER: was muss ich jetzt tun, dass Linux statt auf /etc auf /ram/etc zugreift > ohne die HD zu 'ber?hren'? Geht das ?berhaupt? a) einen SymLink anstatt /etc machen b) Mit `mount --bind' dr?ber mounten. Du hast ein kleines Problem bei der Sache: Beim Booten von der Disk brauchst du /etc auf der Disk (zumindest ein paar relevante Files udn Dirtectories), nachher willst du ein anderes im RAM haben (auch wenn es identen Content haben soll) und trotzdem das auf er Disk weiterhin irgendwie lesen und schreiben k?nnen. Ohne den Link gelesen zu haben: Es scheint mir einfacher, ?ber eine geeignete initrd ein Rootfilesystem im RAM zu haben und die Filesysteme irgendwo zu mounten - entweder passend, wenn es geht oder geeignete SymLinks oder `mount --bind`s zu machen. Ja, das ist ist mbMn mehr Arbeit und du wirst mit einer intrd umgehen lernen (m?ssen). > Zusatzfrage, wie kann ich ?berpr?fen ob die RAM-Disk existiert, f?r mich gibt > es nach > mke2fs /dev/ram0 > mount /dev/ram0 /ram > einen Ordner /ram und drin einen Ordner /lost+found, wie aber wei? ich, dass > der nicht auf der Platte liegt? 1) Du schaust im Source nach, wie das Device /dev/ram0 implementiert ist und ?berzeugts die selber. 2) Etwas empirischer und einfacher: Du machst es. Dann schaltest du die HD ab (softwarem??ig!). Dann machst du alles m?gliche (lesen/schreiben/sync/...) und die Disk sollte dann nicht anspringen. Springt die Disk dann doch an, dann wird es m?hsam, weil auich andere Programme auf die Disk schreiben k?nnten. 3) Ganz einfach ohne Aufwand: Du glaubst es einfach. Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From gooly at gmx.at Tue Feb 22 03:26:38 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue Feb 22 03:26:47 2005 Subject: [Vienna-pm] Linux-Ram-Disk In-Reply-To: <20050222110751.GF30023@wsr.ac.at> References: <200502221120.16534.gooly@gmx.at> <20050222110751.GF30023@wsr.ac.at> Message-ID: <200502221226.38516.gooly@gmx.at> Danke Peter, [ ..] > > Ist die Anzahl der Zugriffe ein sp?rbarer Faktor bei der Lebensdauer > einer Platte? Und ist das wichtiger als nach einen Crash halbwegs > aktuelle Logfiles zu haben? Schon, da Linux die Platte nicht so richtig lange schlafen l?sst, IDE-Platten sind nicht geeignet 'durchzulaufen' (SCSI schon) aber Linux bringt sie doch praktisch dazu: Eintr?ge in var/log messages, warn, cron, ntp und so weiter > [ .. ] > > Die Frage verstehe ich nicht. /ram und alles darunter liegt auf der > RAM-Disk. Wenn Du darauf zugreifst, sind das Zugriffe auf die RAM-Disk > und nicht auf die Hard-Disk. Nat?rlich musst Du, um auf > /ram/etc/irgendwas kommen, erst mal das Root-Directory / nach dem > Eintrag "ram" durchsuchen. Da / aber ziemlich sicher im Cache liegt, das ist der Punkt, da war ich mir nicht sicher.. > ergibt sich daraus kein physicher Harddisk-Zugriff. gut! > > > ABER: was muss ich jetzt tun, dass Linux statt auf /etc auf /ram/etc > > zugreift ohne die HD zu 'ber?hren'? Geht das ?berhaupt? > > mount --bind /ram/etc /etc Danke > > sollte funktionieren. (Du kannst danach nicht mehr auf das /etc auf der > Platte zugreifen, da Du aber eh nur eine Read-Only-Kopie haben wolltest, > sollte das kein Problem sein. Naja ich muss nur den PC restarten aber das script nicht. Wenn die PC 24 Stunden laufen kann man das ja durchaus h?ndisch starten. Oder ein zweites script schreiben, dass alles r?ckg?ngig macht! > > > Zusatzfrage, wie kann ich ?berpr?fen ob die RAM-Disk existiert, f?r mich > > gibt es nach > > mke2fs /dev/ram0 > > mount /dev/ram0 /ram > > einen Ordner /ram und drin einen Ordner /lost+found, wie aber wei? ich, > > dass der nicht auf der Platte liegt? > > df /ram > > aufrufen, und schauen, ob der Mountpoint /ram ist. > > hp Danke nochmal, das isses! Bis dann, Calli From hjp at wsr.ac.at Tue Feb 22 03:47:34 2005 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Tue Feb 22 03:47:48 2005 Subject: [Vienna-pm] Linux-Ram-Disk In-Reply-To: <200502221226.38516.gooly@gmx.at> References: <200502221120.16534.gooly@gmx.at> <20050222110751.GF30023@wsr.ac.at> <200502221226.38516.gooly@gmx.at> Message-ID: <20050222114734.GG30023@wsr.ac.at> On 2005-02-22 12:26:38 +0100, Carl A. Schreiber wrote: > > Ist die Anzahl der Zugriffe ein sp?rbarer Faktor bei der Lebensdauer > > einer Platte? Und ist das wichtiger als nach einen Crash halbwegs > > aktuelle Logfiles zu haben? > Schon, da Linux die Platte nicht so richtig lange schlafen l?sst, IDE-Platten > sind nicht geeignet 'durchzulaufen' (SCSI schon) aber Linux bringt sie doch > praktisch dazu: Eintr?ge in var/log messages, warn, cron, ntp und so weiter Aber "Zugreifen" und "Laufen lassen" ist nicht das gleiche. Du hast von der Anzahl der Zugriffe geschrieben, und da glaube ich nicht, dass es einen wesentlichen Unterschied macht, ob Du 1 Zugriff jede Sekunde hast oder 10 alle 5 Minuten. Wenn Du nat?rlich die Zugriffe soweit "batchen" kannst, dass Du die Platte dazwischen schlafen legen kannst, dann ist das etwas anderes. In dem Fall hast Du zwei Faktoren, die zum Verschlei? beitragen: Die Anzahl der Start/Stop-Zyklen und die Betriebsdauer. Die Anzahl der Zugriffe ist dabei IMHO komplett uninteressant. hp -- _ | Peter J. Holzer | If the code is old but the problem is new |_|_) | Sysadmin WSR / LUGA | then the code probably isn't the problem. | | | hjp@wsr.ac.at | __/ | http://www.hjp.at/ | -- Tim Bunce on dbi-users, 2004-11-05 -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 388 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050222/bd20378b/attachment.bin From gooly at gmx.at Tue Feb 22 03:54:01 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue Feb 22 03:54:12 2005 Subject: [Vienna-pm] Linux-Ram-Disk In-Reply-To: <20050222110751.GF30023@wsr.ac.at> References: <200502221120.16534.gooly@gmx.at> <20050222110751.GF30023@wsr.ac.at> Message-ID: <200502221254.01230.gooly@gmx.at> Hallo, jetzt hab ich doch noch eine Frage dazu (auch wenn etwas OT): wie erhalte ich eine RAM-Disk im ramfs file system type? Zwar kann ich so etwas mit mount -t ramfs .. mounten, aber vorher muss ich es ja erzeugen, es gibt aber nur mke2fs => ext2/3 mkfs => ext2/3, msdos, bfs, minix, ... .. > AFAIK: tmpfs und ramfs sind im Gegensatz zu ext3 dazu ausgelegt, im RAM > zu liegen und nicht auf einer Harddisk. D.h. die internen > Datenstrukturen sind anders. Insbesondere braucht ein tmpfs im RAM nur > so viel Platz wie gerade ben?tigt wird, w?hrend eine RAM-Disk meines > Wissens immer so viel Platz verbraucht, wie sie gro? ist. aber wie machen, wenn nicht - ?hmm nicht mal stehlen geht. Danke, Calli From gooly at gmx.at Tue Feb 22 04:04:34 2005 From: gooly at gmx.at (Carl A. Schreiber) Date: Tue Feb 22 04:04:45 2005 Subject: [Vienna-pm] Linux-Ram-Disk In-Reply-To: <20050222114734.GG30023@wsr.ac.at> References: <200502221120.16534.gooly@gmx.at> <200502221226.38516.gooly@gmx.at> <20050222114734.GG30023@wsr.ac.at> Message-ID: <200502221304.34673.gooly@gmx.at> [ .. ] > Aber "Zugreifen" und "Laufen lassen" ist nicht das gleiche. Du hast recht, ich hab mich ungenau ausgedr?ckt. Die Firewall soll nur FlashCards haben: MTBF > 1.000.000 > 100 Jahre, und Zugriffe > 100.000 > 100 Jahre bei 2 Zugriffen pro Tag Der File- (bzw Daten-) Server aber mit HD aber nur mit meinen Perl-Programmen auf der HD (in /home), die l?uft also nur wenn ich von dort die Daten brauch, oder geschreiben wird, sonst wie die Firewall Linux von CF einmal beim starten zu lesen. > Du hast von > der Anzahl der Zugriffe geschrieben, und da glaube ich nicht, dass es > einen wesentlichen Unterschied macht, ob Du 1 Zugriff jede Sekunde hast > oder 10 alle 5 Minuten. > Wenn Du nat?rlich die Zugriffe soweit "batchen" > kannst, dass Du die Platte dazwischen schlafen legen kannst, dann ist > das etwas anderes. In dem Fall hast Du zwei Faktoren, die zum Verschlei? > beitragen: Die Anzahl der Start/Stop-Zyklen und die Betriebsdauer. Die > Anzahl der Zugriffe ist dabei IMHO komplett uninteressant. > > hp Ich glaub jetzt ist klar, dass es doch eine Rolle spielt. Danke jedenfalls, Calli From bernd at firmix.at Tue Feb 22 04:39:56 2005 From: bernd at firmix.at (Bernd Petrovitsch) Date: Tue Feb 22 04:40:09 2005 Subject: [Vienna-pm] Linux-Ram-Disk In-Reply-To: <200502221304.34673.gooly@gmx.at> References: <200502221120.16534.gooly@gmx.at> <200502221226.38516.gooly@gmx.at> <20050222114734.GG30023@wsr.ac.at> <200502221304.34673.gooly@gmx.at> Message-ID: <1109075996.26619.88.camel@tara.firmix.at> On Tue, 2005-02-22 at 13:04 +0100, Carl A. Schreiber wrote: [ .. ] > > Aber "Zugreifen" und "Laufen lassen" ist nicht das gleiche. > Du hast recht, ich hab mich ungenau ausgedr?ckt. > Die Firewall soll nur FlashCards haben: Ah. Ein FlashCard ist keine Harddisk (auch wenn sie ein IDE-Interface hat). BTW gibt f?r mount die noatime Option, die du verwenden kannst. F?r die Lebenszeit von FlashCards ist mWn reine Lese Zugriffe nicht relevant bei mit 'noatime' gemounteten Filesystemen. [...] > Ich glaub jetzt ist klar, dass es doch eine Rolle spielt. Ja. Bernd -- Firmix Software GmbH http://www.firmix.at/ mobil: +43 664 4416156 fax: +43 1 7890849-55 Embedded Linux Development and Services From e_horn at fh-bingen.de Wed Feb 23 04:16:57 2005 From: e_horn at fh-bingen.de (e_horn@fh-bingen.de) Date: Wed Feb 23 04:17:10 2005 Subject: [Vienna-pm] Formularparameter benutzen Message-ID: <1109161017.421c743917bc1@webmail.fh-bingen.de>
Interface

Eingabe:

Suche:
Kann mir jemand sagen wie ich hier weiter komme. Start soll in meinem CGI-Script verwendbar sein also der Wert 5! Wie kann ich ihn ins CGI rein bekommen? Suchtext bekomme ich so my $eingabe=$cgi->param("Suchtext"); aber wieso kappt das selbe nicht mit start??my $start=$cgi->param("Start"); jemand eine Idee? Gruss ---------------------------------------------------------------- This message was sent using IMP, the Internet Messaging Program. From wolfgang.laun at alcatel.at Thu Feb 24 23:25:40 2005 From: wolfgang.laun at alcatel.at (LAUN Wolfgang) Date: Thu Feb 24 23:26:14 2005 Subject: [Vienna-pm] Formularparameter benutzen Message-ID: Die HTML-Struktur ist nicht korrekt. Das erste steht vor . Vermutlich ignoriert der CGI-Parser das mit dem Start-Feld deswegen. (Dieses Feld muss ja gar nicht im Table oder in einem eigenen
stehen.) Gruss Wolfgang > -----Original Message----- > From: e_horn@fh-bingen.de [mailto:e_horn@fh-bingen.de] > Sent: Wednesday, February 23, 2005 1:17 PM > To: vienna-pm@pm.org > Subject: [Vienna-pm] Formularparameter benutzen > > > > > >
> Interface >
> > >

Eingabe:

>
> > > > type="hidden" value="5"> > > > > >
Suche: >
> > > > > Kann mir jemand sagen wie ich hier weiter komme. > Start soll in meinem CGI-Script verwendbar sein also der Wert 5! > Wie kann ich ihn ins CGI rein bekommen? > Suchtext bekomme ich so my $eingabe=$cgi->param("Suchtext"); > aber wieso kappt das selbe nicht mit start??my > $start=$cgi->param("Start"); > jemand eine Idee? > Gruss > > ---------------------------------------------------------------- > This message was sent using IMP, the Internet Messaging Program. > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From hjp at wsr.ac.at Fri Feb 25 00:27:48 2005 From: hjp at wsr.ac.at (Peter J. Holzer) Date: Fri Feb 25 00:28:02 2005 Subject: [Vienna-pm] Formularparameter benutzen In-Reply-To: References: Message-ID: <20050225082748.GA24887@wsr.ac.at> On 2005-02-25 08:25:40 +0100, LAUN Wolfgang wrote: > Die HTML-Struktur ist nicht korrekt. Das erste 		steht vor . Au?erdem gibt es kein Element
, das hei?t . > Vermutlich ignoriert der CGI-Parser das mit dem Start-Feld > deswegen. Durchaus m?glich, allerdings sind die meisten Browser sehr tolerant, was kaputtes HTML angeht. Mit dem Mozilla funktioniert es ?brigens. Ich tippe eher darauf, dass sich im Perl-Code irgendwo ein Fehler versteckt, aber den hat e_horn uns ja vorenthalten (Da das hier eine Perl-Mailinglist ist und keine HTML-Mailinglist, finde ich es etwas seltsam, nur ein HTML-File zu posten, aber nicht einmal ein Perl-Fragment, das den Fehler demonstriert. Hier ?brigens das CGI-Script, das ich zum Testen verwendet habe: #!/usr/bin/perl use warnings; use strict; use CGI; my $q = CGI->new; print "Content-Type: text/plain; charset=iso-8859-1\r\n"; print "\r\n"; print "Start: ", $q->param('Start'), "\n"; print "Suchtext: ", $q->param('Suchtext'), "\n"; hp -- _ | Peter J. Holzer | If the code is old but the problem is new |_|_) | Sysadmin WSR / LUGA | then the code probably isn't the problem. | | | hjp@wsr.ac.at | __/ | http://www.hjp.at/ | -- Tim Bunce on dbi-users, 2004-11-05 -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 388 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20050225/ad01ee21/attachment.bin From Oliver.Baier at lotterien.at Mon Feb 28 05:00:13 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Mon Feb 28 05:00:31 2005 Subject: [Vienna-pm] regex beim scriptaufruf als argument uebergeben Message-ID: <204DB1982528124DAB948D996ECC859A4CED0A@EXCHCLU1.office.lottery.co.at> Hi, ich will fuer ein Anpassungs-Script eine regex als parameter uebergeben und habe dabei Probleme mit der Evaluierung der Shell (bei "!" schreit die bash und bei "\!" steht dann auch "\!" im @ARGV). Ich denke mir, dass viele das Problem schon einmal hatten und ich nur durch Zufall erst jetzt darauf stosse. Es muesste eigentlich so eine Art "Vorevaluierung" geben, weiss aber leider nicht wie die aussieht oder wonach ich suchen soll. Bin fuer jeden Tip dankbar. lg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From pilsl at goldfisch.at Mon Feb 28 05:12:46 2005 From: pilsl at goldfisch.at (peter pilsl) Date: Mon Feb 28 05:13:42 2005 Subject: [Vienna-pm] regex beim scriptaufruf als argument uebergeben In-Reply-To: <204DB1982528124DAB948D996ECC859A4CED0A@EXCHCLU1.office.lottery.co.at> References: <204DB1982528124DAB948D996ECC859A4CED0A@EXCHCLU1.office.lottery.co.at> Message-ID: <422318CE.10501@goldfisch.at> Baier Oliver wrote: > Hi, > > ich will fuer ein Anpassungs-Script eine regex als parameter uebergeben > und habe dabei Probleme mit der Evaluierung der Shell (bei "!" schreit > die bash und bei "\!" steht dann auch "\!" im @ARGV). > perl -e 'print $ARGV[0],"\n"' '!$[abc]^\/\~()' will heissen: du musst single-quotes nehmen, weil sonst die shell schon was damit tut. lgp -- mag. peter pilsl goldfisch.at IT-management tel +43 699 1 3574035 fax +43 699 4 3574035 pilsl@goldfisch.at From Oliver.Baier at lotterien.at Mon Feb 28 05:23:18 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Mon Feb 28 05:23:28 2005 Subject: AW: [Vienna-pm] regex beim scriptaufruf als argument uebergeben Message-ID: <204DB1982528124DAB948D996ECC859A4CED0B@EXCHCLU1.office.lottery.co.at> > -----Urspr?ngliche Nachricht----- > Von: peter pilsl [mailto:pilsl@goldfisch.at] > Gesendet: Montag, 28. Februar 2005 14:13 > > will heissen: du musst single-quotes nehmen, weil sonst die > shell schon was damit tut. hab vielleicht doch ein schlechtes Beispiel angefuehrt... single quotes hab ich auch als erstes probiert, weil mir die Evaluierung der shell soweit bekannt ist, aber folgendes Hauptproblem blieb bestehen: "\n" fuehrt zu keinem Newline im Textfile. Auch "\r" (unter unix eigentlich nicht notwendig) aendert da nix. lg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From Oliver.Baier at lotterien.at Mon Feb 28 10:03:58 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Mon Feb 28 10:04:14 2005 Subject: AW: [Vienna-pm] regex beim scriptaufruf als argument uebergeben Message-ID: <204DB1982528124DAB948D996ECC859A4CED0C@EXCHCLU1.office.lottery.co.at> > -----Urspr?ngliche Nachricht----- > Von: LAUN Wolfgang [mailto:wolfgang.laun@alcatel.at] > Gesendet: Montag, 28. Februar 2005 17:13 > An: Baier Oliver > Betreff: RE: [Vienna-pm] regex beim scriptaufruf als argument > uebergeben > > ... > Ich habe mit einem Parameter der > Form 'xyz\n' (oder so ?hnlich) so oder so keine Probleme > und sogar "xyz\n" funktioniert... > > Bitte um ausf?hrlichere Angaben: Wie sehen die linke > und die rechte Seite von =~ aus und welche Patterns > (als Command line argument) matchen welchen Input nicht? In meiner Verwunderung bei Entdecken meines Problems hab ich mich einfach zu schlecht ausgedrueckt; also nochmal besser: Mein Script soll bestimmte Dateien bearbeiten und es kann durchaus moeglich sein, dass in mehreren Textfiles geschrieben wurde # irgendwas davor # eine Zeile! eine andere Zeile # irgendwas danach und ich es korrigieren will in # irgendwas davor # eine Zeile! # eine andere Zeile # irgendwas danach Da der zu bearbeitende Text logischerweise nicht immer gleich falsch ist, will ich die Ersetzung als regex mitgeben. Usage ist Scriptaufruf ; in diesem Fall: $ ./replace.pl '! eine' '!\n eine' Dass es in Wirklichkeit noch andere Parameter, wie Maindir, File-regex &co gibt, ist hier unwichtig. Im Prog sieht das ganze ungefaehr so aus: my ($old,$new) = @ARGV; ... ... while () { if (s#$old#$new#g) { ... ... Auf meinem Testsystem jedenfalls (GNU bash, version 2.05.0(1)-release unter sparc-sun-solaris2.9) sieht das file dann so aus # irgendwas davor # eine Zeile!\n eine andere Zeile # irgendwas danach Im Seach-Teil kann ich "\n" allerdings schon matchen, nur im replace-Teil macht er aus mir unbekannten Gruenden ein /\\n/ draus. lg Oliver ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc. From domm at zsi.at Mon Feb 28 11:21:06 2005 From: domm at zsi.at (Thomas Klausner) Date: Mon Feb 28 11:18:49 2005 Subject: [Vienna-pm] regex beim scriptaufruf als argument uebergeben In-Reply-To: <204DB1982528124DAB948D996ECC859A4CED0C@EXCHCLU1.office.lottery.co.at> References: <204DB1982528124DAB948D996ECC859A4CED0C@EXCHCLU1.office.lottery.co.at> Message-ID: <20050228192106.GA16757@domm2.zsi.at> Hi! On Mon, Feb 28, 2005 at 07:03:58PM +0100, Baier Oliver wrote: > $ ./replace.pl '! eine' '!\n eine' > .. > my ($old,$new) = @ARGV; nicht gerade elegant, und vielleicht gibts eine bessere Loesung, aber so scheints zu gehen: $new=eval '"'.$new.'"'; Andererseits gehts so auch: ~$ perl foo.pl '! eine' '! > eine' (also wenn der \n nicht als Escape sondern tatsaechlich eingegeben wird. Anscheinend werden die $ARGV als single quoted strings interpretiert... -- #!/usr/bin/perl http://domm.zsi.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From Oliver.Baier at lotterien.at Mon Feb 28 23:40:44 2005 From: Oliver.Baier at lotterien.at (Baier Oliver) Date: Mon Feb 28 23:40:57 2005 Subject: AW: [Vienna-pm] regex beim scriptaufruf als argument uebergeben Message-ID: <204DB1982528124DAB948D996ECC859A4CED0D@EXCHCLU1.office.lottery.co.at> Hi, danke fuer das eval-Konstrukt! Es funktioniert wirklich gut und so unschoen ist es auch nicht. Immerhin erkennt man beim lesen dann auch gleich, was das Problem ist. :-) Oliver > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces@pm.org [mailto:vienna-pm-bounces@pm.org] > Im Auftrag von Thomas Klausner > Gesendet: Montag, 28. Februar 2005 20:21 > > nicht gerade elegant, und vielleicht gibts eine bessere > Loesung, aber so scheints zu gehen: > > $new=eval '"'.$new.'"'; > > > Andererseits gehts so auch: > > ~$ perl foo.pl '! eine' '! > > eine' > > (also wenn der \n nicht als Escape sondern tatsaechlich > eingegeben wird. > > Anscheinend werden die $ARGV als single quoted strings > interpretiert... > > > -- > #!/usr/bin/perl http://domm.zsi.at > for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} > _______________________________________________ > Vienna-pm mailing list > Vienna-pm@pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > ===================================================== Die ?bermittelten Informationen sind nur f?r die Organisation/Person bestimmt, an die sie adressiert sind und k?nnen pers?nliches, vertrauliches oder rechtlich gesch?tztes Material enthalten. Andere Personen als der beabsichtigte Empf?nger dieser E-Mail sind nicht dazu befugt, diese Informationen abzurufen, weiterzuleiten, zu reproduzieren oder auf sonstige andere Weise zu verwenden. F?r den Fall, dass Sie diese Nachricht irrt?mlicherweise erhalten haben, wenden Sie sich bitte an den Absender und l?schen Sie diese. HINWEIS: E-Mail-Verkehr ist nicht sicher und es kann nicht garantiert werden, dass Informationen vollst?ndig, unverf?lscht, etc. beim Empf?nger ankommen. ===================================================== The transmitted information is only meant for the addressed organization/person and may contain personal, confidential or legally protected material. Other persons than the intended addressee are not allowed to retrieve, forward, reproduce or use this information in any manner. If you received this message by mistake, please consult the sender and erase it. NOTICE: E-Mail-traffic may not be safe and it can not be assured that the received information is complete, accurate, etc.