From kh at dartbase.com Fri Feb 1 02:37:24 2008 From: kh at dartbase.com (Karlheinz) Date: Fri, 01 Feb 2008 11:37:24 +0100 Subject: [Vienna-pm] Einladung: TechSocialMeeting am 4.2., 19:00 In-Reply-To: <20080131192852.GL5417@d610> References: <20080131192852.GL5417@d610> Message-ID: <47A2F664.4050007@dartbase.com> /anmeld lg kh Thomas Klausner wrote: > Einladung zum 1. TechSocialMeet von Vienna.pm im neuen Jahr! > > Wie gehabt treffen wir uns zuerst zu einem Tech-Teil im NIG (Neues > InstitutsGeb?de der Uni Wien, Universit?tsstrasse 7, 1010 Wien), Raum > D116, Gang D um 19:00. > > Der Social-Teil passiert anschliessend (je nach Dauer des Tech-Teils ab > 20:30 - 21:00) in der Stiegl Ambulanz im alten AKH. Damit ich diesmal > einen Tisch reservieren kann, bitte ich um eine kurze Anmeldung per Mail > an die Liste. > > Programm: > * domm zeigt das neue Feature 'custom-sources' von CPANPLUS her > * domm zeigt App::TimeTracker her, ein kleines Toolchen zum Erfassen von > Stundenlisten etc. Siehe auch > http://search.cpan.org/dist/App-TimeTracker/ > * Winter Of Code Besprechung? > * Austrian Perl Workshop 2008? > > Weitere Freiwillig-Meldungen sind natuerlich absolut willkommen, damit > ich nicht immer den armen Alleinunterhalter spielen muss... > > Bis dann! > > PS: Der sehr vage angekuendigte Talk zum Thema Exception Handling ("die > Perl, die!") ist sich nicht ausgegangen. Ich werd den wohl am > uebernaechsten Meeting halten (3. Maerz). Da aber sicher, weil ich den > Talk auch beim Dutch Perl Workshop halten werde/muss :-) > From dada at perl.it Fri Feb 1 04:18:47 2008 From: dada at perl.it (Aldo Calpini) Date: Fri, 01 Feb 2008 13:18:47 +0100 Subject: [Vienna-pm] Einladung: TechSocialMeeting am 4.2., 19:00 In-Reply-To: <20080131192852.GL5417@d610> References: <20080131192852.GL5417@d610> Message-ID: <47A30E27.4080304@perl.it> Thomas Klausner wrote: > Der Social-Teil passiert anschliessend (je nach Dauer des Tech-Teils > ab 20:30 - 21:00) in der Stiegl Ambulanz im alten AKH. Damit ich > diesmal einen Tisch reservieren kann, bitte ich um eine kurze > Anmeldung per Mail an die Liste. > ich melde mich an! cheers, Aldo From michael.kroell at uibk.ac.at Fri Feb 1 04:55:35 2008 From: michael.kroell at uibk.ac.at (=?ISO-8859-1?Q?Michael_Kr=F6ll?=) Date: Fri, 01 Feb 2008 13:55:35 +0100 Subject: [Vienna-pm] Einladung: TechSocialMeeting am 4.2., 19:00 In-Reply-To: <20080131192852.GL5417@d610> References: <20080131192852.GL5417@d610> Message-ID: <47A316C7.8010906@uibk.ac.at> Thomas Klausner wrote: > Der Social-Teil passiert anschliessend (je nach Dauer des Tech-Teils ab > 20:30 - 21:00) in der Stiegl Ambulanz im alten AKH. Damit ich diesmal > einen Tisch reservieren kann, bitte ich um eine kurze Anmeldung per Mail > an die Liste. anmeld -- 063A F25E B064 A98F A479 1690 78CD D023 5E2A 6688 http://zis.uibk.ac.at/.m/uibk.ac.at_pgp_pubkey.asc From elcondor at wennja.warum.net Fri Feb 1 05:43:14 2008 From: elcondor at wennja.warum.net (Martin Schipany) Date: Fri, 01 Feb 2008 14:43:14 +0100 Subject: [Vienna-pm] Einladung: TechSocialMeeting am 4.2., 19:00 In-Reply-To: <20080131192852.GL5417@d610> References: <20080131192852.GL5417@d610> Message-ID: <47A321F2.8020202@wennja.warum.net> Thomas Klausner schrieb: > Damit ich diesmal > einen Tisch reservieren kann, bitte ich um eine kurze Anmeldung per Mail > an die Liste. meinereiner + noch 2 exkollegen von dir ;) Elco From hjp-vienna-pm-list at hjp.at Fri Feb 1 05:52:37 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Fri, 1 Feb 2008 14:52:37 +0100 Subject: [Vienna-pm] Einladung: TechSocialMeeting am 4.2., 19:00 In-Reply-To: <20080131192852.GL5417@d610> References: <20080131192852.GL5417@d610> Message-ID: <20080201135237.GE27721@hjp.at> On 2008-01-31 20:28:52 +0100, Thomas Klausner wrote: > > Einladung zum 1. TechSocialMeet von Vienna.pm im neuen Jahr! > > Wie gehabt treffen wir uns zuerst zu einem Tech-Teil im NIG (Neues > InstitutsGeb?de der Uni Wien, Universit?tsstrasse 7, 1010 Wien), Raum > D116, Gang D um 19:00. anmeld. hp -------------- 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/20080201/a85105a9/attachment.bin From lt at toetsch.at Fri Feb 1 05:56:48 2008 From: lt at toetsch.at (Leopold Toetsch) Date: Fri, 1 Feb 2008 14:56:48 +0100 Subject: [Vienna-pm] Einladung: TechSocialMeeting am 4.2., 19:00 In-Reply-To: <20080131192852.GL5417@d610> References: <20080131192852.GL5417@d610> Message-ID: <200802011456.48349.lt@toetsch.at> Am Donnerstag, 31. Januar 2008 20:28 schrieb Thomas Klausner: > bitte ich um eine kurze Anmeldung per Mail > an die Liste. $self.sich_anmeldet leo From domm at cpan.org Tue Feb 5 13:06:23 2008 From: domm at cpan.org (Thomas Klausner) Date: Tue, 5 Feb 2008 22:06:23 +0100 Subject: [Vienna-pm] Vereinsmailingliste Message-ID: <20080205210623.GQ23370@d610.chello.at> Hi! Seit (mehr oder weniger) jetzt gibt es eine Mailingliste fuer Vienna.pm Vereinsmitglieder: http://lists.useperl.at/listinfo/verein Ich hab einige Leute darauf beireits subskribiert, bin mir aber sicher, dass ich nicht alle Vereinesmitglieder erwischt hab. Wer also noch nicht auf dieser Liste ist, aber Vereinsmitglied, moege sich doch bitte subskriben. Wer kein Vereinsmitglied ist, kann das sehr einfach werden, indem er/sie 10 Euro Jahresmitgliedsbeitrag auf das Vereinskonto ueberweist (mit einer sinnvollen Buchungszeile, bittedanke!): http://vienna.pm.org/verein.html PS: Wie gestern am TechMeet schon erwaehnt kann die Vienna.pm Infrastruktur (svn, mailinglisten, RT, shell access) von allen Mitgliedern fuer diverseste projekte benutzt werden. Wer Interesse an dem einen oder anderem Tool hat, bitte melden (hm, RT ist noch nicht ganz soweit, also vorlaeufig hier melden...)! -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From rangerer at verisign.com Wed Feb 6 08:57:48 2008 From: rangerer at verisign.com (Angerer, Roland) Date: Wed, 6 Feb 2008 17:57:48 +0100 Subject: [Vienna-pm] Module::Build und Anpassbarkeit Message-ID: <8D1E8F57BFF3CD4D8587EC7A6DDBE972018D35DA@BER2WNEXMB01.vcorp.ad.vrsn.com> Hi, Ich will in meinem Build.PL noch in ein paar Dateien spezielle Schl?sselw?rter ersetzen bevor diese installiert werden. Dabei handelt es sich z.B. um Konfigurationen, die abh?ngig vom Rechner auf dem Build aufgerufen wird unterschiedlich ersetzt werden sollen. Derzeit habe ich das wie folgt gel?st und wundere mich, ob es das nicht alles viel sch?ner schon gibt ... my $class = Module::Build->subclass(code => <<'EOC'); ## extending default ./Build action to modify files from build_customize sub ACTION_build { my ($self) = shift; $self->SUPER::ACTION_build(@_); my $files = $self->{'properties'}{'build_customize'}; return unless keys %$files; local $/ = undef; foreach my $file (keys %$files) { my ($filename, $mode, $fh, $content, $changes); $filename = File::Spec->catfile($self->blib(), $file); $mode = (stat $filename)[2] & 07777; # read file mode to reset after write open $fh, '<', $filename or die "unable to read file $filename: $!"; $content = <$fh>; close $fh; foreach my $keyword (keys %{$files->{$file}}) { my ($replacement) = $files->{$file}{$keyword}{$ENV{'HOST'}}; next unless $replacement; $content =~ s/$keyword/$replacement/; $changes++; } chmod 0600, $filename; # set file to be writeable by user open $fh, '>', $filename or die "unable to write file $filename: $!"; print $fh $content; close $fh; chmod $mode, $filename; # set old permissions again print "Customizing $filename ($changes changes)\n"; } } EOC my $builder = $class->new( ... build_customize => { 'lib/Apache/MMPDownload.pm' => { '## CONFIG \(.*?\) ##' => { 'HostA' => 'xxx', 'HostB' => 'yyy', }, }, }, ... ); "Unsch?n" dabei ist mal (aus meiner Sicht) - diese Ersetzung wird bei jedem Aufruf von ./Build (egal mit welchen Parametern) gemacht - Pfade zu den Dateien m?ssen sich an blib/ halten (also z.B. bin/ = script/) lg, Roland ------------------------------------------------------- Roland Angerer Software Engineer Mobile Application Services rangerer at verisign.com Direct: +43 (662) 45 00 03 Fax: +43 (662) 45 00 03-55 Mobile: +43 (664) 808 41 515 VeriSign? Jakob-Haringer Strasse 3 A-5020 Salzburg -------------- next part -------------- A non-text attachment was scrubbed... Name: smime.p7s Type: application/x-pkcs7-signature Size: 4782 bytes Desc: not available Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20080206/1c74da26/attachment.bin From oliver.baier at lotterien.at Mon Feb 18 08:05:39 2008 From: oliver.baier at lotterien.at (Baier Oliver) Date: Mon, 18 Feb 2008 17:05:39 +0100 Subject: [Vienna-pm] find in several directories Message-ID: <11FC899FAE8B8748AB9E591B1454774402CCF25A@EXCHCLU01.office.lottery.co.at> Hi, bei einem aktuellen Proggi hab ich erstmals den Bedarf bestimmte Dateien in durch eine regex ausgedr?ckten Verzeichnissen zu finden. File::Find kann das nicht (oder nur mit dem Trick, den regex-dir-part zum Filenamen hinzuzuziehen, was ich allerdings aufgrund der daf?r notwendigen regex-Erkennung lieber vermeiden will). Kennt wer ein Modul, dem ich als dir zB. '/content/nemat/parts/\d+/tid\d*' und als file 'id\d+_\d+_(\d+)\.xml' ?bergeben kann und es alle passenden files in allen dem Muster entsprechenden Verzeichnissen findet? lg Oliver From schubiger at gmail.com Mon Feb 18 08:14:50 2008 From: schubiger at gmail.com (Steven Schubiger) Date: Mon, 18 Feb 2008 17:14:50 +0100 Subject: [Vienna-pm] find in several directories In-Reply-To: <11FC899FAE8B8748AB9E591B1454774402CCF25A@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B1454774402CCF25A@EXCHCLU01.office.lottery.co.at> Message-ID: <20080218161450.GD2768@refcnt.homeunix.org> Baier Oliver wrote: > Kennt wer ein Modul, dem ich als dir zB. '/content/nemat/parts/\d+/tid\d*' > und als file 'id\d+_\d+_(\d+)\.xml' ?bergeben kann und es alle passenden > files in allen dem Muster entsprechenden Verzeichnissen findet? Evtl. koenntest du File::Find::Rule ( http://search.cpan.org/dist/File-Find-Rule/ ) interessant finden. Obs denn das gaenzlich kann, weiss ich nicht so genau, aber zumindest Matching fuer filenames ist integriert (auf den ersten Blick). Steven Schubiger From oliver.baier at lotterien.at Mon Feb 18 08:30:52 2008 From: oliver.baier at lotterien.at (Baier Oliver) Date: Mon, 18 Feb 2008 17:30:52 +0100 Subject: [Vienna-pm] find in several directories In-Reply-To: <20080218161450.GD2768@refcnt.homeunix.org> References: <11FC899FAE8B8748AB9E591B1454774402CCF25A@EXCHCLU01.office.lottery.co.at> <20080218161450.GD2768@refcnt.homeunix.org> Message-ID: <11FC899FAE8B8748AB9E591B1454774402CCF25D@EXCHCLU01.office.lottery.co.at> Hi Steven, > -----Urspr?ngliche Nachricht----- > Von: Steven Schubiger [mailto:schubiger at gmail.com] > Gesendet: Montag, 18. Februar 2008 17:15 > Betreff: Re: [Vienna-pm] find in several directories > > Evtl. koenntest du File::Find::Rule ( > http://search.cpan.org/dist/File-Find-Rule/ ) > interessant finden. Obs denn das gaenzlich kann, weiss ich > nicht so genau, aber das habe ich mir schon angesehen (nicht ausprobiert), aber nachdem es sich hierbei um einen Wrapper f?r File::Find handelt, bei dem man zumindest laut CPAN @directories und nicht @patterns angeben muss, bin ich davon ausgegangen, dass es es nicht kann. > zumindest Matching fuer filenames ist integriert (auf den > ersten Blick). das schon, aber die standard regexen kann File::Find auch. Werd mir mal File::Find::Rule downloaden und testen. thx Oliver > > Steven Schubiger > From oliver.baier at lotterien.at Mon Feb 18 08:50:55 2008 From: oliver.baier at lotterien.at (Baier Oliver) Date: Mon, 18 Feb 2008 17:50:55 +0100 Subject: [Vienna-pm] WG: find in several directories Message-ID: <11FC899FAE8B8748AB9E591B1454774402CCF260@EXCHCLU01.office.lottery.co.at> Hi again, klappt leider nicht... Der Rule-Wrapper kann zwar auch qr//, aber nur bei files. fyi Oliver -----Urspr?ngliche Nachricht----- Von: Baier Oliver Gesendet: Montag, 18. Februar 2008 17:31 An: 'Steven Schubiger' Cc: vienna-pm at pm.org Betreff: AW: [Vienna-pm] find in several directories Hi Steven, > -----Urspr?ngliche Nachricht----- > Von: Steven Schubiger [mailto:schubiger at gmail.com] > Gesendet: Montag, 18. Februar 2008 17:15 > Betreff: Re: [Vienna-pm] find in several directories > > Evtl. koenntest du File::Find::Rule ( > http://search.cpan.org/dist/File-Find-Rule/ ) > interessant finden. Obs denn das gaenzlich kann, weiss ich > nicht so genau, aber das habe ich mir schon angesehen (nicht ausprobiert), aber nachdem es sich hierbei um einen Wrapper f?r File::Find handelt, bei dem man zumindest laut CPAN @directories und nicht @patterns angeben muss, bin ich davon ausgegangen, dass es es nicht kann. > zumindest Matching fuer filenames ist integriert (auf den > ersten Blick). das schon, aber die standard regexen kann File::Find auch. Werd mir mal File::Find::Rule downloaden und testen. thx Oliver > > Steven Schubiger > From gr at univie.ac.at Mon Feb 18 09:09:05 2008 From: gr at univie.ac.at (=?ISO-8859-1?Q?Marcel_Gr=FCnauer?=) Date: Mon, 18 Feb 2008 18:09:05 +0100 Subject: [Vienna-pm] WG: find in several directories In-Reply-To: <11FC899FAE8B8748AB9E591B1454774402CCF260@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B1454774402CCF260@EXCHCLU01.office.lottery.co.at> Message-ID: On Feb 18, 2008, at 5:50 PM, Baier Oliver wrote: > Hi again, > > klappt leider nicht... > > Der Rule-Wrapper kann zwar auch qr//, aber nur bei files. Was ist mit einem einfachen (ungetesteter Code): use File::Find; find(sub { return unless -f && $File::Find::name =~ m!/content/nemat/parts/ \d+/tid\d*/id\d+_\d+_(\d+)\.xml!; ... }); Marcel From oliver.baier at lotterien.at Mon Feb 18 10:19:30 2008 From: oliver.baier at lotterien.at (Baier Oliver) Date: Mon, 18 Feb 2008 19:19:30 +0100 Subject: [Vienna-pm] WG: find in several directories In-Reply-To: References: <11FC899FAE8B8748AB9E591B1454774402CCF260@EXCHCLU01.office.lottery.co.at> Message-ID: <11FC899FAE8B8748AB9E591B1454774402CCF269@EXCHCLU01.office.lottery.co.at> Hallo Marcel, Josef hat mir vor einer Minute eine gleichwertige L?sung geschickt. Mein Problem dabei ist, dass ich File::Find bei dieser Variante das Toplevel-Verzeichnis zur Suche ?bergeben m?sste, was bei Millionen von Dateien dann aber schnell recht m?hsam wird. Ich stelle mir vor, dass es irgendwo ein Pendant zu 'ls' gibt. Die Perl-regexen in der Schnittstelle kann man auch zu [0-9] & Co umwandeln lassen. lg Oliver @Josef: Die Klammern sind anschliessend ein Kriterium f?r die Verarbeitung. > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces+oliver.baier=lotterien.at at pm.org > [mailto:vienna-pm-bounces+oliver.baier=lotterien.at at pm.org] > Im Auftrag von Marcel Gr?nauer > Gesendet: Montag, 18. Februar 2008 18:09 > An: vienna-pm > Betreff: Re: [Vienna-pm] WG: find in several directories > > On Feb 18, 2008, at 5:50 PM, Baier Oliver wrote: > > > Hi again, > > > > klappt leider nicht... > > > > Der Rule-Wrapper kann zwar auch qr//, aber nur bei files. > > Was ist mit einem einfachen (ungetesteter Code): > > use File::Find; > > find(sub { > return unless -f && $File::Find::name =~ m!/content/nemat/parts/ > \d+/tid\d*/id\d+_\d+_(\d+)\.xml!; > ... > }); > > Marcel > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From e9427749 at stud4.tuwien.ac.at Mon Feb 18 10:35:24 2008 From: e9427749 at stud4.tuwien.ac.at (Josef) Date: Mon, 18 Feb 2008 19:35:24 +0100 Subject: [Vienna-pm] WG: find in several directories In-Reply-To: <11FC899FAE8B8748AB9E591B1454774402CCF269@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B1454774402CCF260@EXCHCLU01.office.lottery.co.at> <11FC899FAE8B8748AB9E591B1454774402CCF269@EXCHCLU01.office.lottery.co.at> Message-ID: <47B9CFEC.8090802@stud4.tuwien.ac.at> Hi, alle! H?tte eh an alle gehen sollen, ... Baier Oliver schrieb: > Hallo Marcel, > > Josef hat mir vor einer Minute eine gleichwertige L?sung geschickt. > > Mein Problem dabei ist, dass ich File::Find bei dieser Variante > das Toplevel-Verzeichnis zur Suche ?bergeben m?sste, was bei > Millionen von Dateien dann aber schnell recht m?hsam wird. > > Ich stelle mir vor, dass es irgendwo ein Pendant zu 'ls' gibt. > Die Perl-regexen in der Schnittstelle kann man auch zu [0-9] & Co > umwandeln lassen. glob() und File::Glob und von vorhin etwas abge?ndert, my $dirRE =qr'/content/nemat/parts/\d+/tid\d*'; my $fileRE=gr'id\d+_\d+_(\d+)\.xml'; my $startdir='/'; # v- ungetestet use File::Find qw(find); use Path::Class qw(dir); my @result; find sub { push @result,$File::Find::name if -f $_ && /^$fileRE$/ && $File::Find::dir=~/^$dirRE[\\/]?$/ }, dir($startdir)->absolute; # sollte reichen print map "$_\n", @result; > @Josef: Die Klammern sind anschliessend ein Kriterium f?r die Verarbeitung. achso. pfiateng, Jo "schon zulange auf" sef From hjp-vienna-pm-list at hjp.at Tue Feb 19 02:13:14 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Tue, 19 Feb 2008 11:13:14 +0100 Subject: [Vienna-pm] WG: find in several directories In-Reply-To: <11FC899FAE8B8748AB9E591B1454774402CCF269@EXCHCLU01.office.lottery.co.at> References: <11FC899FAE8B8748AB9E591B1454774402CCF260@EXCHCLU01.office.lottery.co.at> <11FC899FAE8B8748AB9E591B1454774402CCF269@EXCHCLU01.office.lottery.co.at> Message-ID: <20080219101314.GC20763@hjp.at> On 2008-02-18 19:19:30 +0100, Baier Oliver wrote: > Josef hat mir vor einer Minute eine gleichwertige L?sung geschickt. > > Mein Problem dabei ist, dass ich File::Find bei dieser Variante > das Toplevel-Verzeichnis zur Suche ?bergeben m?sste, was bei > Millionen von Dateien dann aber schnell recht m?hsam wird. Das ist aber in der allgemeinen Form Deines Problems (finde alle Directories, deren Pfad eine Regex R1 matcht, und darin alle Files, deren Name eine Reges R2 matcht) unvermeidlich. Deine Regex qr{/content/nemat/parts/\d+/tid\d*} matcht ?brigens auch "/tmp/foo/content/nemat/parts/7/tid/bar/gazonk", d.h., Du musst das ganze Filesystem durchsuchen. Ich nehme an, die Regexes sollten links und rechts verankert sein, was es erlaubt, in /content/nemat/parts/ mit der Suche anzufangen und nur zwei Levels ber?cksichtigen zu m?ssen. Aber das erfordert bereits eine inhaltliche Analyse der Regex, und das ist bei Perl-Regex halt schwierig. Im konkreten Fall w?rde ich das wegen der bekannten Anzahl Levels von Hand l?sen: level1('/content/nemat/parts/'); sub level1 { my ($d) = @_; opendir(my $dh, $d) or return; for (grep { /^\d+$/ } readdir($dh)) { level2("$d/$_"); } } sub level2 { my ($d) = @_; opendir(my $dh, $d) or return; for (grep { /^tid\d*$/ } readdir($dh)) { level3("$d/$_"); } } sub level3 { my ($d) = @_; opendir(my $dh, $d) or return; for (grep { /^id\d+_\d+_(\d+)\.xml$/ } readdir($dh)) { do_something_with_file("$d/$_"); } } (man kann auch die drei Loops ineinanderschachteln, aber kurze Subs finde ich ?bersichtlicher). > Ich stelle mir vor, dass es irgendwo ein Pendant zu 'ls' gibt. ls sucht auch nur rekursiv durch. Falls Du das Pendent zum Shell Globbing meinst, das gibt es auch in Perl und hei?t glob. > Die Perl-regexen in der Schnittstelle kann man auch zu [0-9] & Co > umwandeln lassen. Wenn Du mit "[0-9] & Co" Globs meinst, hast Du das Problem wesentlich vereinfacht, weil die sehr viel einfacher als Regex sind. hp -- _ | Peter J. Holzer | It took a genius to create [TeX], |_|_) | Sysadmin WSR | and it takes a genius to maintain it. | | | hjp at hjp.at | That's not engineering, that's art. __/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex -------------- 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/20080219/4b09979a/attachment.bin From e9427749 at stud4.tuwien.ac.at Tue Feb 19 10:42:24 2008 From: e9427749 at stud4.tuwien.ac.at (Josef) Date: Tue, 19 Feb 2008 19:42:24 +0100 Subject: [Vienna-pm] find in several directories In-Reply-To: <20080219101314.GC20763@hjp.at> References: <11FC899FAE8B8748AB9E591B1454774402CCF260@EXCHCLU01.office.lottery.co.at> <11FC899FAE8B8748AB9E591B1454774402CCF269@EXCHCLU01.office.lottery.co.at> <20080219101314.GC20763@hjp.at> Message-ID: <47BB2310.5050906@stud4.tuwien.ac.at> Hi, allerseits! Peter J. Holzer schrieb: > On 2008-02-18 19:19:30 +0100, Baier Oliver wrote: >> Josef hat mir vor einer Minute eine gleichwertige L?sung geschickt. >> >> Mein Problem dabei ist, dass ich File::Find bei dieser Variante >> das Toplevel-Verzeichnis zur Suche ?bergeben m?sste, was bei >> Millionen von Dateien dann aber schnell recht m?hsam wird. > > Das ist aber in der allgemeinen Form Deines Problems (finde alle > Directories, deren Pfad eine Regex R1 matcht, und darin alle Files, > deren Name eine Reges R2 matcht) unvermeidlich. [...] > d.h., Du musst das > ganze Filesystem durchsuchen. > [...] Aber das erfordert bereits eine inhaltliche Analyse der Regex, > und das ist bei Perl-Regex halt schwierig. Nun ja ich ging mal davon aus, dass er es ihm reicht wenn er ein oder mehrere Startverzeichnisse angeben kann, also ungef?hr wei? wo er suchen soll und das es seinen Anspr?chen damit gen?gt. Aber um auf das von Dir aufgebrachte allgemeinere Problem einzugehen. Noch ne L?sung mit File::Find::find's preprocess?Option. Nochmal leicht abge?ndert: my $chkdirRE =qr'^/content(?:/nemat(?:/parts(/\d+(?:/tid\d*/?)?)?)?)?$'; # ^- test um festzustellen ob tiefer in das Verz. gegangen werden soll. my $dirRE =qr'^/content/nemat/parts/\d+/tid\d*/?$'; my $fileRE =gr'^id\d+_\d+_(\d+)\.xml$'; my @startdirs=('/'); # v- ungetestet (nach wie vor) use File::Find qw(find); use Path::Class qw(dir); my @result; find { preprocess => sub { grep { !-d $_ || dir($_)->absolute=~/$chkdirRE/? } @_ }, wanted => sub { push @result,$File::Find::name if -f $_ && /$fileRE/ && $File::Find::dir=~/$dirRE/? } }, map { dir($_)->absolute } @startdirs; print map "$_\n", @result; ad 1) Oder in der Art $_=~$chkdirpartRE[$level] ... ad 2) Unter bestimmten Umst?nden kann auf diese Zeile verzichtet werden... Und schon saust File::Find nicht mehr durch unn?tige Verzeichnisse. In diesen Fall ist auch Path::Class::Iterator interessant. Geht damit aber nachdem selben Schema. >> Ich stelle mir vor, dass es irgendwo ein Pendant zu 'ls' gibt. > ls sucht auch nur rekursiv durch. Falls Du das Pendent zum Shell > Globbing meinst, das gibt es auch in Perl und hei?t glob. Diesen diesbez?glich wichtig Hinweis, lass ich mal so stehen. pfiateng, Josef From oliver.baier at lotterien.at Wed Feb 20 01:26:10 2008 From: oliver.baier at lotterien.at (Baier Oliver) Date: Wed, 20 Feb 2008 10:26:10 +0100 Subject: [Vienna-pm] WG: find in several directories In-Reply-To: <20080219101314.GC20763@hjp.at> References: <11FC899FAE8B8748AB9E591B1454774402CCF260@EXCHCLU01.office.lottery.co.at><11FC899FAE8B8748AB9E591B1454774402CCF269@EXCHCLU01.office.lottery.co.at> <20080219101314.GC20763@hjp.at> Message-ID: <11FC899FAE8B8748AB9E591B1454774402CCF2AE@EXCHCLU01.office.lottery.co.at> Hi, (war gestern unterwegs - deshalb erst jetzt die AW) > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces+oliver.baier=lotterien.at at pm.org > [mailto:vienna-pm-bounces+oliver.baier=lotterien.at at pm.org] > Im Auftrag von Peter J. Holzer > Gesendet: Dienstag, 19. Februar 2008 11:13 > An: vienna-pm at pm.org > Betreff: Re: [Vienna-pm] WG: find in several directories > > Das ist aber in der allgemeinen Form Deines Problems (finde alle > Directories, deren Pfad eine Regex R1 matcht, und darin alle Files, > deren Name eine Reges R2 matcht) unvermeidlich. Deine Regex > qr{/content/nemat/parts/\d+/tid\d*} matcht ?brigens auch > "/tmp/foo/content/nemat/parts/7/tid/bar/gazonk", Wenn man nur die regex betrachtet, hast du Recht. Im Proggi selbst werden aber alle ?bergebenen Pattern mit ^ und $ versehen - damit spare ich mir einfach den Aufwand daf?r zu sorgen, dass die Anchors bei allen ?bergebenen Pattern schon vorhanden sein m?ssen. > Im konkreten Fall w?rde ich das wegen der bekannten Anzahl Levels von > Hand l?sen: > > level1('/content/nemat/parts/'); > > sub level1 { > my ($d) = @_; > opendir(my $dh, $d) or return; > for (grep { /^\d+$/ } readdir($dh)) { > level2("$d/$_"); > } > } > > ... > > (man kann auch die drei Loops ineinanderschachteln, aber kurze Subs > finde ich ?bersichtlicher). Die Idee ist ein guter Ansatz. Da ich aber weder eine bekannte Anzahl von Levels noch eine gleich tief verzweigte Struktur habe, muss diese rekursive sub allerdings noch etwas ausgebaut werden. Genau um mir diesen Aufwand zu ersparen habe ich auf ein bestehendes Modul gehofft. ( Neben '/content/nemat/parts/\d+/tid\d*' kann z.B. auch '/content/export/trace\d+/\d+\.txt' ?bergeben werden.) > > Ich stelle mir vor, dass es irgendwo ein Pendant zu 'ls' gibt. > > ls sucht auch nur rekursiv durch. Falls Du das Pendent zum Shell > Globbing meinst, das gibt es auch in Perl und hei?t glob. > > > Die Perl-regexen in der Schnittstelle kann man auch zu [0-9] & Co > > umwandeln lassen. > > Wenn Du mit "[0-9] & Co" Globs meinst, hast Du das Problem wesentlich > vereinfacht, weil die sehr viel einfacher als Regex sind. jop; leider ist die Komplexit?t auch der Grund, warum ich zuerst regexes wollte... da hat man einfach alle Optionen offen. Nachdem's nix fertiges gibt, werd ich mir noch kurz den Kopf dar?ber zerbrechen, ob sich die rekursiven sub lohnt oder ich doch auf Wildcards umsteigen muss. Vielen Dank, Oliver > hp > > -- > _ | Peter J. Holzer | It took a genius to create [TeX], > |_|_) | Sysadmin WSR | and it takes a genius to maintain it. > | | | hjp at hjp.at | That's not engineering, that's art. > __/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex > From oliver.baier at lotterien.at Wed Feb 20 01:42:50 2008 From: oliver.baier at lotterien.at (Baier Oliver) Date: Wed, 20 Feb 2008 10:42:50 +0100 Subject: [Vienna-pm] find in several directories In-Reply-To: <47BB2310.5050906@stud4.tuwien.ac.at> References: <11FC899FAE8B8748AB9E591B1454774402CCF260@EXCHCLU01.office.lottery.co.at> <11FC899FAE8B8748AB9E591B1454774402CCF269@EXCHCLU01.office.lottery.co.at><20080219101314.GC20763@hjp.at> <47BB2310.5050906@stud4.tuwien.ac.at> Message-ID: <11FC899FAE8B8748AB9E591B1454774402CCF2B1@EXCHCLU01.office.lottery.co.at> Hallo Josef, --- snip --- Whereas File::Spec provides functions for some common path manipulations, Path::Class provides an object-oriented model of the world of path specifications and their underlying semantics. --- snip --- Danke f?r diesen Input! H?rt sich echt gut an. ?ber File::Spec bin ich bei der Suche schon gestolpert, aber File::Path habe ich ?bersehn. Werd das gleich mal antesten. thx, Oliver > -----Urspr?ngliche Nachricht----- > Von: vienna-pm-bounces+oliver.baier=lotterien.at at pm.org > [mailto:vienna-pm-bounces+oliver.baier=lotterien.at at pm.org] > Im Auftrag von Josef > Gesendet: Dienstag, 19. Februar 2008 19:42 > An: vienna-pm at pm.org > Betreff: Re: [Vienna-pm] find in several directories > > Hi, allerseits! > > Peter J. Holzer schrieb: > > On 2008-02-18 19:19:30 +0100, Baier Oliver wrote: > >> Josef hat mir vor einer Minute eine gleichwertige L?sung geschickt. > >> > >> Mein Problem dabei ist, dass ich File::Find bei dieser Variante > >> das Toplevel-Verzeichnis zur Suche ?bergeben m?sste, was bei > >> Millionen von Dateien dann aber schnell recht m?hsam wird. > > > > Das ist aber in der allgemeinen Form Deines Problems (finde alle > > Directories, deren Pfad eine Regex R1 matcht, und darin alle Files, > > deren Name eine Reges R2 matcht) unvermeidlich. [...] > > d.h., Du musst das > > ganze Filesystem durchsuchen. > > [...] Aber das erfordert bereits eine inhaltliche Analyse der Regex, > > und das ist bei Perl-Regex halt schwierig. > > Nun ja ich ging mal davon aus, dass er es ihm reicht wenn er > ein oder mehrere Startverzeichnisse angeben kann, also ungef?hr > wei? wo er suchen soll und das es seinen Anspr?chen damit gen?gt. > > Aber um auf das von Dir aufgebrachte allgemeinere Problem > einzugehen. > Noch ne L?sung mit File::Find::find's preprocess?Option. > > Nochmal leicht abge?ndert: > my $chkdirRE > =qr'^/content(?:/nemat(?:/parts(/\d+(?:/tid\d*/?)?)?)?)?$'; > # ^- test um festzustellen ob tiefer in das Verz. gegangen > werden soll. > my $dirRE =qr'^/content/nemat/parts/\d+/tid\d*/?$'; > my $fileRE =gr'^id\d+_\d+_(\d+)\.xml$'; > my @startdirs=('/'); > # v- ungetestet (nach wie vor) > use File::Find qw(find); > use Path::Class qw(dir); > my @result; > find { preprocess => sub { grep { !-d $_ || > > dir($_)->absolute=~/$chkdirRE/? } @_ > }, > wanted => sub { push @result,$File::Find::name > if -f $_ && /$fileRE/ && > $File::Find::dir=~/$dirRE/? > } > }, map { dir($_)->absolute } @startdirs; > > print map "$_\n", @result; > > ad 1) Oder in der Art $_=~$chkdirpartRE[$level] ... > ad 2) Unter bestimmten Umst?nden kann auf diese Zeile verzichtet > werden... > > Und schon saust File::Find nicht mehr durch unn?tige Verzeichnisse. > In diesen Fall ist auch Path::Class::Iterator interessant. > Geht damit aber nachdem selben Schema. > > > >> Ich stelle mir vor, dass es irgendwo ein Pendant zu 'ls' gibt. > > ls sucht auch nur rekursiv durch. Falls Du das Pendent zum Shell > > Globbing meinst, das gibt es auch in Perl und hei?t glob. > > Diesen diesbez?glich wichtig Hinweis, lass ich mal so stehen. > > pfiateng, > Josef > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > From gg at urxn.at Mon Feb 25 03:04:55 2008 From: gg at urxn.at (Gerhard Gonter) Date: Mon, 25 Feb 2008 12:04:55 +0100 Subject: [Vienna-pm] Vienna.pm Meeting Maerz? Message-ID: <47C2A0D7.5070407@urxn.at> Entsprechend der Wiederholungsregel [1] fuer die Vienna.pm TechSocialMeetings habe ich fuer den MO 2008-03-03 von 19:00 bis 21:00 Uhr den Besprechungsraum des ZID der Uni Wien reserviert. Falls sich diesbezueglich eine Aenderung ergibt, bitte ich um Mitteilung. mfg, GG [1] http://vienna.pm.org/treffen.html From domm at cpan.org Mon Feb 25 03:12:57 2008 From: domm at cpan.org (Thomas Klausner) Date: Mon, 25 Feb 2008 12:12:57 +0100 Subject: [Vienna-pm] Vienna.pm Meeting Maerz? In-Reply-To: <47C2A0D7.5070407@urxn.at> References: <47C2A0D7.5070407@urxn.at> Message-ID: <20080225111257.GF5290@d610.Dijkmat> Hi! On Mon, Feb 25, 2008 at 12:04:55PM +0100, Gerhard Gonter wrote: > Entsprechend der Wiederholungsregel [1] fuer die Vienna.pm > TechSocialMeetings habe ich fuer den > > MO 2008-03-03 von 19:00 bis 21:00 Uhr > > den Besprechungsraum des ZID der Uni Wien reserviert. > > Falls sich diesbezueglich eine Aenderung ergibt, bitte ich > um Mitteilung. Nein, das passt! Danke fuers Mitdenken! Ich wollt eh grad eine Einladung/Erinnerung schreiben. Bisher weiss ich von 2 Vortragsplaenen, d.h. wir haben auch ein Programm (ich verifiziere das noch schnell, dann poste ich's). Schoene Gruesse aus Holland! -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at cpan.org Mon Feb 25 04:41:08 2008 From: domm at cpan.org (Thomas Klausner) Date: Mon, 25 Feb 2008 13:41:08 +0100 Subject: [Vienna-pm] Postfix help, bittesehr... Message-ID: <20080225124108.GQ5290@d610.Dijkmat> Hi! Kennt sich irgendjemand von euch ein bissl mit Postfix aus? Wie (Vienna.pm) haben da naemlich ein kleines Problem: Auf unserem netten kleinen Server laeuft seit neuestem Mailman, und wir wuerden gerne die Vereinsmitglieder-Liste starten. Aber postfix streikt: Feb 25 13:15:28 vienna postfix/smtpd[452]: NOQUEUE: reject: RCPT from statler.bestheads.com[83.65.255.36]: 554 5.7.1 : Relay access denied; from= to= proto=ESMTP helo= Interessanterweise wurde das mail an verein at lists.useperl.at geschickt. Wenn also jemand mit ein bissl postfix-wissen sich das mal anschauen mag: bitte melden!! Danke! -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From rl at brabbel.net Mon Feb 25 04:46:06 2008 From: rl at brabbel.net (Roland Lammel) Date: Mon, 25 Feb 2008 13:46:06 +0100 Subject: [Vienna-pm] Postfix help, bittesehr... In-Reply-To: <20080225124108.GQ5290@d610.Dijkmat> References: <20080225124108.GQ5290@d610.Dijkmat> Message-ID: <9b51ffb30802250446n154adbc1k3e91b64e92fca0c2@mail.gmail.com> Kann ich mir ansehen. Wir wollen die Spammerscheunentore so wenig wie m?glich ?ffnen ;-) LG +rl 2008/2/25 Thomas Klausner : > Hi! > > Kennt sich irgendjemand von euch ein bissl mit Postfix aus? > > Wie (Vienna.pm) haben da naemlich ein kleines Problem: Auf unserem > netten kleinen Server laeuft seit neuestem Mailman, und wir wuerden > gerne die Vereinsmitglieder-Liste starten. > > Aber postfix streikt: > > Feb 25 13:15:28 vienna postfix/smtpd[452]: NOQUEUE: reject: RCPT from > statler.bestheads.com[83.65.255.36]: 554 5.7.1 : > Relay access denied; from= to= > proto=ESMTP helo= > > Interessanterweise wurde das mail an verein at lists.useperl.at geschickt. > > Wenn also jemand mit ein bissl postfix-wissen sich das mal anschauen > mag: bitte melden!! > > Danke! > > -- > #!/usr/bin/perl http://domm.plix.at > for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > -- Roland Lammel "Enjoy your job, make lots of money, work within the law. Choose any two." -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/vienna-pm/attachments/20080225/7a1e8541/attachment.html From domm at cpan.org Mon Feb 25 04:51:09 2008 From: domm at cpan.org (Thomas Klausner) Date: Mon, 25 Feb 2008 13:51:09 +0100 Subject: [Vienna-pm] Postfix help, bittesehr... In-Reply-To: <9b51ffb30802250446n154adbc1k3e91b64e92fca0c2@mail.gmail.com> References: <20080225124108.GQ5290@d610.Dijkmat> <9b51ffb30802250446n154adbc1k3e91b64e92fca0c2@mail.gmail.com> Message-ID: <20080225125108.GT5290@d610.Dijkmat> Hi! On Mon, Feb 25, 2008 at 01:46:06PM +0100, Roland Lammel wrote: > Kann ich mir ansehen.i Das waere cool. Wann haettest du denn Zeit, wenn ich gleich so frech nachfragen darf :-) -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From hjp-vienna-pm-list at hjp.at Mon Feb 25 04:53:10 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Mon, 25 Feb 2008 13:53:10 +0100 Subject: [Vienna-pm] Postfix help, bittesehr... In-Reply-To: <9b51ffb30802250446n154adbc1k3e91b64e92fca0c2@mail.gmail.com> References: <20080225124108.GQ5290@d610.Dijkmat> <9b51ffb30802250446n154adbc1k3e91b64e92fca0c2@mail.gmail.com> Message-ID: <20080225125310.GA12435@hjp.at> On 2008-02-25 13:46:06 +0100, Roland Lammel wrote: > 2008/2/25 Thomas Klausner : > > Kennt sich irgendjemand von euch ein bissl mit Postfix aus? > > > > Wie (Vienna.pm) haben da naemlich ein kleines Problem: Auf unserem > > netten kleinen Server laeuft seit neuestem Mailman, und wir wuerden > > gerne die Vereinsmitglieder-Liste starten. > > > > Aber postfix streikt: [...] > > Wenn also jemand mit ein bissl postfix-wissen sich das mal anschauen > > mag: bitte melden!! > > Kann ich mir ansehen. Wir wollen die Spammerscheunentore so wenig wie > m?glich ?ffnen ;-) Ok, du warst schneller. JFTR: Ich kenne mich auch ein bissl mit Postfix aus. hp -- _ | Peter J. Holzer | It took a genius to create [TeX], |_|_) | Sysadmin WSR | and it takes a genius to maintain it. | | | hjp at hjp.at | That's not engineering, that's art. __/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex -------------- 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/20080225/d32a7152/attachment.bin From rl at brabbel.net Mon Feb 25 08:16:49 2008 From: rl at brabbel.net (Roland Lammel) Date: Mon, 25 Feb 2008 17:16:49 +0100 Subject: [Vienna-pm] Postfix help, bittesehr... In-Reply-To: <20080225125108.GT5290@d610.Dijkmat> References: <20080225124108.GQ5290@d610.Dijkmat> <9b51ffb30802250446n154adbc1k3e91b64e92fca0c2@mail.gmail.com> <20080225125108.GT5290@d610.Dijkmat> Message-ID: <9b51ffb30802250816x54a831a0na3d2902549c7a03d@mail.gmail.com> Frech sein darfst immer... Heute oder morgen abend werd ich mal draufschaun, warum er ned relayen mag. Und wenn ich den Mailman ned versteh, dann steht eh der Peter schon auf der Matte und machts wieder gut ;-) Cheers +rl 2008/2/25 Thomas Klausner : > Hi! > > On Mon, Feb 25, 2008 at 01:46:06PM +0100, Roland Lammel wrote: > > Kann ich mir ansehen.i > > Das waere cool. Wann haettest du denn Zeit, wenn ich gleich so frech > nachfragen darf :-) > > -- > #!/usr/bin/perl http://domm.plix.at > for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm > -- Roland Lammel "Enjoy your job, make lots of money, work within the law. Choose any two." -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/vienna-pm/attachments/20080225/836b77a7/attachment.html From kh at dartbase.com Mon Feb 25 08:42:15 2008 From: kh at dartbase.com (Karlheinz) Date: Mon, 25 Feb 2008 17:42:15 +0100 Subject: [Vienna-pm] Talk beim naechsten Vienna.pm Meeting In-Reply-To: <20080225114351.GI5290@d610.Dijkmat> References: <20080225114351.GI5290@d610.Dijkmat> Message-ID: <47C2EFE7.2000109@dartbase.com> Thomas Klausner wrote: > Hi! > > Du hast glaub ich IRC mal einen Vortrag fuer das naechste TechMeet > vorgeschlagen? [..] > Wenn ja, kannst du den Vorschlag bitte per mail an mich oder Vienna.pm > schicken? gern, hier aus dem irc log: <@gargamel> frage <@gargamel> ich doktor ein einem kleinen modul rum, das fuer die command line gedacht is und sich wie perl -a verhalten soll, allerdings fuer CSV files <@gargamel> interessiert das vielleicht wen fuern "tech talk" beim naechsten social meet? [..] <@gargamel> plan ist: <@gargamel> perl -MBLA -ne '@f # holds CSV values' some.csv [..] <@gargamel> this also works (although it's a PITA to input ; and ") <@gargamel> depending on your shell ... <@gargamel> the original plan was/is to misuse the importer syntax for csv-config :) <@gargamel> i didn't check if something like this already exists, i was interested in the problem and techniques <@gargamel> and because i have a liking for perl -e oneliners :) also, wenn's jemand interessiert, kann ich's am montag gern herzeigen - es ist zwar im moment noch nicht so wie ich es gerne haette, aber durchaus funktionstuechtig und verwendbar. ;-) lg kh From hjp-vienna-pm-list at hjp.at Mon Feb 25 08:45:36 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Mon, 25 Feb 2008 17:45:36 +0100 Subject: [Vienna-pm] Postfix help, bittesehr... In-Reply-To: <9b51ffb30802250816x54a831a0na3d2902549c7a03d@mail.gmail.com> References: <20080225124108.GQ5290@d610.Dijkmat> <9b51ffb30802250446n154adbc1k3e91b64e92fca0c2@mail.gmail.com> <20080225125108.GT5290@d610.Dijkmat> <9b51ffb30802250816x54a831a0na3d2902549c7a03d@mail.gmail.com> Message-ID: <20080225164536.GD12435@hjp.at> On 2008-02-25 17:16:49 +0100, Roland Lammel wrote: > Frech sein darfst immer... > > Heute oder morgen abend werd ich mal draufschaun, warum er ned relayen mag. > Und wenn ich den Mailman ned versteh, dann steht eh der Peter schon auf der > Matte und machts wieder gut ;-) Den Mailman muss ich auch erst verstehen lernen (bei der LUGA haben wir seit kurzem auch einen), aber immerhin habe ich letztes Monat Python::Serialise::Pickle soweit upgedatet, dass es Mailman-Config-Files lesen kann ;-). Beim Postfix kenne ich mich besser aus (wobei ich allerdings dazu tendiere, die "schwierigen" Sachen mittels qpsmtpd zu erledigen, und dem postfix nur den Rest erledigen zu lassen). hp -- _ | Peter J. Holzer | It took a genius to create [TeX], |_|_) | Sysadmin WSR | and it takes a genius to maintain it. | | | hjp at hjp.at | That's not engineering, that's art. __/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex -------------- 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/20080225/097f18c7/attachment.bin From mjy at geizhals.at Mon Feb 25 09:41:24 2008 From: mjy at geizhals.at (Marinos Yannikos) Date: Mon, 25 Feb 2008 18:41:24 +0100 Subject: [Vienna-pm] no strict Perl-Job Message-ID: <47C2FDC4.7030607@geizhals.at> Nein, kein Job f?r schlampige Programmierer (wie mich). Da wir ein Perl-lastiges Unternehmen sind und mir bewu?t ist, da? in der Perl-Community nicht nur "Anwendungsprogrammierer" vertreten sind, sondern auch diverse andere Berufsgruppen mit Perl-Bezug, erlaube ich mir, darauf hinzuweisen, da? wir (leider noch immer) einen Systemadministrator(*) suchen: http://forum.geizhals.at/t543275.html Aktive Mitglieder der Perl-Community sind nat?rlich besonders willkommen. Dar?ber hinaus freuen wir uns auch immer auf Initiativbewerbungen von Leuten, die den ganzen Tag nur Perl programmieren, Kaffee trinken und vienna-pm lesen m?chten (Perl-Softwareentwickler). MfG, -mjy (*) nur ganz wenig Windows-Kontakt... -- Dipl.-Ing. Marinos Yannikos, CEO Preisvergleich Internet Services AG Obere Donaustrasse 63, A-1020 Wien Tel./Fax: (+431) 5811609-52/-55 Handelsgericht Wien - FN 197241K - Firmensitz Wien From prozessor13 at gmx.net Wed Feb 27 03:01:25 2008 From: prozessor13 at gmx.net (max demmelbauer) Date: Wed, 27 Feb 2008 12:01:25 +0100 Subject: [Vienna-pm] date::parse und dates vor 1959 Message-ID: hallo. ich bin jetzt auf einen komischen bug in Date::Parse gestossen: alle datum vor 1959 koennen nicht geparst werden ( print str2time("1958-01-01 23:59:59") ), obwohl date::parse time::local verwendet, und time::local keine probleme damit hat. nach langem hinundher bin ich jetzt draufgekommen, das Date::Parse ein two-digit- year Time::Local uebergibt (also 58 fuer das jahr 1958), und time::local das als jahr 2058 interpretiert! in der Time::Local doku hab ich dann das gefunden: ? Years in the range 0..99 are interpreted as shorthand for years in the rolling "current century," defined as 50 years on either side of the current year. Thus, today, in 1999, 0 would refer to 2000, and 45 to 2045, but 55 would refer to 1955. Twenty years from now, 55 would instead refer to 2055. This is messy, but matches the way people currently think about two digit dates. Whenever possible, use an absolute four digit year instead. also der fix fuer dieses problem ist einfach, bei date::parse in der zeile 274 timelocal($ss,$mm,$hh,$day,$month,1900+$year); anstatt timelocal($ss,$mm,$hh,$day,$month,$year); aber ich versteh nicht, dass das so schwammig programmiert ist! oder verwendet das modul niemand ausser mir? soll ich jetzt auf den live- servern Date/Parse.pm patchen, oder besser ein anderes modul verwenden (wenn ja welches verwendets ihr?) lg. max. From domm at cpan.org Wed Feb 27 03:07:29 2008 From: domm at cpan.org (Thomas Klausner) Date: Wed, 27 Feb 2008 12:07:29 +0100 Subject: [Vienna-pm] date::parse und dates vor 1959 In-Reply-To: References: Message-ID: <20080227110729.GK18203@d610.Dijkmat> Hi! On Wed, Feb 27, 2008 at 12:01:25PM +0100, max demmelbauer wrote: > (wenn ja welches verwendets ihr?) Ich verwende ueberall DateTime. -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From mjy at geizhals.at Wed Feb 27 03:12:00 2008 From: mjy at geizhals.at (Marinos Yannikos) Date: Wed, 27 Feb 2008 12:12:00 +0100 Subject: [Vienna-pm] date::parse und dates vor 1959 In-Reply-To: References: Message-ID: <47C54580.6040008@geizhals.at> max demmelbauer schrieb: > alle datum vor 1959 koennen nicht geparst werden ( print > str2time("1958-01-01 23:59:59") ), Ich vermute mal, da? negative "Unix time"-Werte nicht oft verwendet / beachtet werden ... Dein Workaround d?rfte dann f?r Zeitpunkte vom 24.11.1833 bis 2038 funktionieren. MfG, -mjy From mjy at geizhals.at Wed Feb 27 03:18:24 2008 From: mjy at geizhals.at (Marinos Yannikos) Date: Wed, 27 Feb 2008 12:18:24 +0100 Subject: [Vienna-pm] date::parse und dates vor 1959 In-Reply-To: <47C54580.6040008@geizhals.at> References: <47C54580.6040008@geizhals.at> Message-ID: <47C54700.6050704@geizhals.at> Marinos Yannikos schrieb: > max demmelbauer schrieb: >> alle datum vor 1959 koennen nicht geparst werden ( print >> str2time("1958-01-01 23:59:59") ), > > Ich vermute mal, da? negative "Unix time"-Werte nicht oft verwendet / > beachtet werden ... Dein Workaround d?rfte dann f?r Zeitpunkte vom > 24.11.1833 bis 2038 funktionieren. *hust*, 1901 bis 2038. ;-) ?brigens: # perl -MDateTime -e 'print DateTime->new(year => 1900)->epoch()' -2208988800 Hat mich dann doch ?berrascht. MfG, -mjy From prozessor13 at gmx.net Wed Feb 27 03:43:52 2008 From: prozessor13 at gmx.net (max demmelbauer) Date: Wed, 27 Feb 2008 12:43:52 +0100 Subject: [Vienna-pm] date::parse und dates vor 1959 In-Reply-To: <47C54700.6050704@geizhals.at> References: <47C54580.6040008@geizhals.at> <47C54700.6050704@geizhals.at> Message-ID: <06FE9042-DA92-4181-AFFF-667AED9092EB@gmx.net> ja. ich werd auch auf DateTime umsteigen und zum parsen dann DateTime::Format::HTTP verwenden. schade ich verwende Date::Parse jetzt schon viele jahre, und hab es sehr gemocht (war immer sehr performant, und sehr einfach zu verwenden). thx. On Feb 27, 2008, at 12:18 PM, Marinos Yannikos wrote: > Marinos Yannikos schrieb: >> max demmelbauer schrieb: >>> alle datum vor 1959 koennen nicht geparst werden ( print >>> str2time("1958-01-01 23:59:59") ), >> Ich vermute mal, da? negative "Unix time"-Werte nicht oft >> verwendet / beachtet werden ... Dein Workaround d?rfte dann f?r >> Zeitpunkte vom 24.11.1833 bis 2038 funktionieren. > > *hust*, 1901 bis 2038. ;-) > > ?brigens: > # perl -MDateTime -e 'print DateTime->new(year => 1900)->epoch()' > -2208988800 > > Hat mich dann doch ?berrascht. > > MfG, > -mjy > From hjp-vienna-pm-list at hjp.at Wed Feb 27 05:22:38 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Wed, 27 Feb 2008 14:22:38 +0100 Subject: [Vienna-pm] date::parse und dates vor 1959 In-Reply-To: <06FE9042-DA92-4181-AFFF-667AED9092EB@gmx.net> References: <47C54580.6040008@geizhals.at> <47C54700.6050704@geizhals.at> <06FE9042-DA92-4181-AFFF-667AED9092EB@gmx.net> Message-ID: <20080227132238.GA1420@hjp.at> On 2008-02-27 12:43:52 +0100, max demmelbauer wrote: > ja. ich werd auch auf DateTime umsteigen und zum parsen dann > DateTime::Format::HTTP verwenden. schade ich verwende Date::Parse > jetzt schon viele jahre, und hab es sehr gemocht (war immer sehr > performant, und sehr einfach zu verwenden). Was spricht dagegen, den (offenbar recht trivialen) Bug zu fixen? (Au?er der manchmal recht, ?h, phlegmatischen Weise, mit der manche Maintainer auf Bug-Reports reagieren). hp -- _ | Peter J. Holzer | It took a genius to create [TeX], |_|_) | Sysadmin WSR | and it takes a genius to maintain it. | | | hjp at hjp.at | That's not engineering, that's art. __/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex -------------- 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/20080227/e76e87de/attachment.bin From hjp-vienna-pm-list at hjp.at Wed Feb 27 05:29:24 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Wed, 27 Feb 2008 14:29:24 +0100 Subject: [Vienna-pm] Insecure dependency in socket Message-ID: <20080227132924.GB1420@hjp.at> Weil wir gerade bei seltsamen Bugs sind ... Ich verwende Cache::Memcached, und seit heute crasht mein Script mit der Meldung Insecure dependency in socket while running with -T switch at /usr/lib/perl5/site_perl/5.8.8/Cache/Memcached.pm line 261. wobei Zeile 261 ziemlich unschuldig dreinschaut: socket($sock, PF_INET, SOCK_STREAM, $proto); ($sock ist undef, und $proto das Ergebnis von getprotobyname('tcp')). Und es crasht auch nur im Debugger, und nur, wenn ich *nicht* im Einzelschrittmodus ('n' oder 's') ?ber den fraglichen Code dr?bergehe. Sonst gehts. hp -- _ | Peter J. Holzer | It took a genius to create [TeX], |_|_) | Sysadmin WSR | and it takes a genius to maintain it. | | | hjp at hjp.at | That's not engineering, that's art. __/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex -------------- 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/20080227/5bfb4fde/attachment.bin From gr at univie.ac.at Wed Feb 27 05:46:57 2008 From: gr at univie.ac.at (=?ISO-8859-1?Q?Marcel_Gr=FCnauer?=) Date: Wed, 27 Feb 2008 14:46:57 +0100 Subject: [Vienna-pm] Insecure dependency in socket In-Reply-To: <20080227132924.GB1420@hjp.at> References: <20080227132924.GB1420@hjp.at> Message-ID: On Feb 27, 2008, at 2:29 PM, Peter J. Holzer wrote: > Weil wir gerade bei seltsamen Bugs sind ... > > Ich verwende Cache::Memcached, und seit heute crasht mein Script mit > der > Meldung > > > Insecure dependency in socket while running with -T switch at > /usr/lib/perl5/site_perl/5.8.8/Cache/Memcached.pm line 261. Hast Du was in PERL5OPT bzw. PERL5LIB drinstehen? Das verursacht bei mir n?mlichen Fehler, wenn ich dann mit der CPAN-Shell versuche, diverse Module zu installieren. Keine Ahnung, woran's liegt. Marcel From domm at cpan.org Wed Feb 27 05:57:29 2008 From: domm at cpan.org (Thomas Klausner) Date: Wed, 27 Feb 2008 14:57:29 +0100 Subject: [Vienna-pm] Insecure dependency in socket In-Reply-To: <20080227132924.GB1420@hjp.at> References: <20080227132924.GB1420@hjp.at> Message-ID: <20080227135729.GS18203@d610.Dijkmat> Hi! On Wed, Feb 27, 2008 at 02:29:24PM +0100, Peter J. Holzer wrote: > Insecure dependency in socket while running with -T switch at > /usr/lib/perl5/site_perl/5.8.8/Cache/Memcached.pm line 261. Die Fehlermeldung kommt (glaub ich) wenn man taint mode verwendet (-T) und mit ENV rumgespielt hat. Oder es liegt an socket, aber dann hab ich keine ahnung, was es sein koennte. -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From rgiersig at cpan.org Wed Feb 27 06:44:18 2008 From: rgiersig at cpan.org (Roland Giersig) Date: Wed, 27 Feb 2008 15:44:18 +0100 Subject: [Vienna-pm] Insecure dependency in socket In-Reply-To: <20080227132924.GB1420@hjp.at> References: <20080227132924.GB1420@hjp.at> Message-ID: <47C57742.9070307@cpan.org> Was genau heisst "seit heute"? Was ist neu gegen?ber gestern? Neue Perl-Version? Neue Modul-Version? Oder einfach zum ersten Mal den Debugger angeworfen? Ich denke mal, -T und Debugger vertragen sich einfach nicht. Zum Debuggen kann man wohl auf das -T verzichten. LG, Roland PS: "If this hurts, don't do that!" ;-) Peter J. Holzer wrote: > Weil wir gerade bei seltsamen Bugs sind ... > > Ich verwende Cache::Memcached, und seit heute crasht mein Script mit der > Meldung > > > Insecure dependency in socket while running with -T switch at > /usr/lib/perl5/site_perl/5.8.8/Cache/Memcached.pm line 261. > > wobei Zeile 261 ziemlich unschuldig dreinschaut: > > socket($sock, PF_INET, SOCK_STREAM, $proto); > > ($sock ist undef, und $proto das Ergebnis von getprotobyname('tcp')). > > Und es crasht auch nur im Debugger, und nur, wenn ich *nicht* im > Einzelschrittmodus ('n' oder 's') ?ber den fraglichen Code dr?bergehe. > > Sonst gehts. > > hp > > > > > ------------------------------------------------------------------------ > > _______________________________________________ > Vienna-pm mailing list > Vienna-pm at pm.org > http://mail.pm.org/mailman/listinfo/vienna-pm From prozessor13 at gmx.net Wed Feb 27 07:58:01 2008 From: prozessor13 at gmx.net (max demmelbauer) Date: Wed, 27 Feb 2008 16:58:01 +0100 Subject: [Vienna-pm] date::parse und dates vor 1959 In-Reply-To: <20080227132238.GA1420@hjp.at> References: <47C54580.6040008@geizhals.at> <47C54700.6050704@geizhals.at> <06FE9042-DA92-4181-AFFF-667AED9092EB@gmx.net> <20080227132238.GA1420@hjp.at> Message-ID: On Feb 27, 2008, at 2:22 PM, Peter J. Holzer wrote: > On 2008-02-27 12:43:52 +0100, max demmelbauer wrote: >> ja. ich werd auch auf DateTime umsteigen und zum parsen dann >> DateTime::Format::HTTP verwenden. schade ich verwende Date::Parse >> jetzt schon viele jahre, und hab es sehr gemocht (war immer sehr >> performant, und sehr einfach zu verwenden). > > Was spricht dagegen, den (offenbar recht trivialen) Bug zu fixen? > (Au?er der manchmal recht, ?h, phlegmatischen Weise, mit der manche > Maintainer auf Bug-Reports reagieren). > also ich wuerd ja dem author schreiben, aber der letzte release von dem modul ist glaub ich 2003/2004. weiters darf ich den hack dann dann nie vergessen, wenn ich die software auf einen neuen rechner uebertrage (und das ist schon ein paarmal passiert). lg. ps: realistischerweise werd ich eh nicht so schnell auf DateTime umstellen, aber ich nehms mir halt mal vor ;) From hjp-vienna-pm-list at hjp.at Wed Feb 27 14:50:41 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Wed, 27 Feb 2008 23:50:41 +0100 Subject: [Vienna-pm] Insecure dependency in socket In-Reply-To: References: <20080227132924.GB1420@hjp.at> Message-ID: <20080227225041.GB28098@hjp.at> On 2008-02-27 14:46:57 +0100, Marcel Gr?nauer wrote: > On Feb 27, 2008, at 2:29 PM, Peter J. Holzer wrote: > > > Weil wir gerade bei seltsamen Bugs sind ... > > > > Ich verwende Cache::Memcached, und seit heute crasht mein Script mit > > der Meldung > > > > > > Insecure dependency in socket while running with -T switch at > > /usr/lib/perl5/site_perl/5.8.8/Cache/Memcached.pm line 261. > > Hast Du was in PERL5OPT bzw. PERL5LIB drinstehen? Nein. Allerdings verwende ich -I blib/lib beim debuggen. Das k?nnte ?hnliche Auswirkungen haben. > Das verursacht bei mir n?mlichen Fehler, wenn ich dann mit der > CPAN-Shell versuche, diverse Module zu installieren. Strange. Die CPAN-Shell verwendet ja gar nicht -T. hp -- _ | Peter J. Holzer | It took a genius to create [TeX], |_|_) | Sysadmin WSR | and it takes a genius to maintain it. | | | hjp at hjp.at | That's not engineering, that's art. __/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex -------------- 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/20080227/3b0b71b3/attachment.bin From hjp-vienna-pm-list at hjp.at Wed Feb 27 15:08:03 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Thu, 28 Feb 2008 00:08:03 +0100 Subject: [Vienna-pm] Insecure dependency in socket In-Reply-To: <20080227135729.GS18203@d610.Dijkmat> References: <20080227132924.GB1420@hjp.at> <20080227135729.GS18203@d610.Dijkmat> Message-ID: <20080227230803.GC28098@hjp.at> On 2008-02-27 14:57:29 +0100, Thomas Klausner wrote: > Hi! > > On Wed, Feb 27, 2008 at 02:29:24PM +0100, Peter J. Holzer wrote: > > > Insecure dependency in socket while running with -T switch at > > /usr/lib/perl5/site_perl/5.8.8/Cache/Memcached.pm line 261. > > Die Fehlermeldung kommt (glaub ich) wenn man taint mode verwendet (-T) Habe ich (offensichtlich). > und mit ENV rumgespielt hat. Habe ich nicht, und sollte f?r socket() egal sein. Das verwendet ja nirgends das Environment. ?berhaupt ist mir nicht klar, was bei socket() ein taint-check ?berhaupt bringt. Aber gut - better safe than sorry. Wirklich verwirrend finde ich ja eigentlich, dass der taint-check nur im Debugger zuschl?gt, und auch nur dann, wenn man die fragliche Stelle mit "c" durchl?uft. Single-stepping funktioniert ja (weshalb das auch eher in die Kategorie "kurios" als "kritisch" f?llt - der Workaround ist offensichtlich). hp PS: Aus dem Code in taint.c bzw. pp_sys.c werde ich nicht schlau. -- _ | Peter J. Holzer | It took a genius to create [TeX], |_|_) | Sysadmin WSR | and it takes a genius to maintain it. | | | hjp at hjp.at | That's not engineering, that's art. __/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex -------------- 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/20080228/c9d10fd2/attachment.bin From hjp-vienna-pm-list at hjp.at Wed Feb 27 15:17:48 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Thu, 28 Feb 2008 00:17:48 +0100 Subject: [Vienna-pm] Insecure dependency in socket In-Reply-To: <47C57742.9070307@cpan.org> References: <20080227132924.GB1420@hjp.at> <47C57742.9070307@cpan.org> Message-ID: <20080227231748.GD28098@hjp.at> On 2008-02-27 15:44:18 +0100, Roland Giersig wrote: > Was genau heisst "seit heute"? Was ist neu gegen?ber gestern? Die Funktion, die die Funktion aufruft, die die Funktion aufruft, die socket aufruft, ist neu (oder so). Aber socket wird mit exakt den gleichen Parametern aufgerufen, weil die n?mlich hardcoded sind. > Neue Perl-Version? > Neue Modul-Version? Weder noch. > Oder einfach zum ersten Mal den Debugger angeworfen? Auch nicht. Das Ding ist seit einem guten Jahr in Entwicklung, und seit ungef?hr der H?lfte davon verwendet es auch memcached. D.h., die Zeile, die er da anmeckert, ist wahrscheinlich schon hunderte Male im Debugger ausgef?hrt worden. > Ich denke mal, -T und Debugger vertragen sich einfach nicht. W?re mir sonst noch nie aufgefallen. > Zum Debuggen kann man wohl auf das -T verzichten. Dazu muss man aber das -T explizit rausl?schen. Sonst kann kann man es n?mlich nicht mal im Debugger starten: % perl -d ./scripts/dal Loading DB routines from perl5db.pl version 1.28 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. "-T" is on the #! line, it must also be used on the command line at ./scripts/dal line 1. at ./scripts/dal line 1 Debugged program terminated. Use q to quit or R to restart, hp -- _ | Peter J. Holzer | It took a genius to create [TeX], |_|_) | Sysadmin WSR | and it takes a genius to maintain it. | | | hjp at hjp.at | That's not engineering, that's art. __/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex -------------- 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/20080228/9ff50a76/attachment.bin From domm at cpan.org Fri Feb 29 01:16:24 2008 From: domm at cpan.org (Thomas Klausner) Date: Fri, 29 Feb 2008 10:16:24 +0100 Subject: [Vienna-pm] Einladung TechSocialMeet am 3.3. 2008 Message-ID: <20080229091623.GI16369@d610.overmeer.net> Hi! Am 3.3, 19:00, findet das naechste Vienna.pm TechSocialMeet statt. Programm (im NIG): - karlheinz: command line tool, das sich wie perl -a verhalten soll, allerdings fuer CSV files - domm: Acme::ReturnValue - ?? danach wie immer Stigl Ambulanz. Mehr info: http://vienna.pm.org/treffen.html -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From ulrike.krabo at obvsg.at Fri Feb 29 04:57:19 2008 From: ulrike.krabo at obvsg.at (Ulrike Krabo) Date: Fri, 29 Feb 2008 13:57:19 +0100 Subject: [Vienna-pm] Einladung TechSocialMeet am 3.3. 2008 In-Reply-To: <20080229091623.GI16369@d610.overmeer.net> References: <20080229091623.GI16369@d610.overmeer.net> Message-ID: <47C8012F.3050207@obvsg.at> f?r mich ist der Montags-Termin bekanntlich immer recht schlecht. Lohnt es sich auch nach 21 Uhr noch dazuzukommen oder seids ihr da schon wieder am Gehen? LG, Ulli Thomas Klausner schrieb: > Hi! > > Am 3.3, 19:00, findet das naechste Vienna.pm TechSocialMeet statt. > > Programm (im NIG): > - karlheinz: command line tool, das sich wie perl -a verhalten soll, > allerdings fuer CSV files > - domm: Acme::ReturnValue > - ?? > > danach wie immer Stigl Ambulanz. > > Mehr info: > http://vienna.pm.org/treffen.html > > From jozef at kutej.net Fri Feb 29 07:19:26 2008 From: jozef at kutej.net (Jozef Kutej) Date: Fri, 29 Feb 2008 16:19:26 +0100 Subject: [Vienna-pm] Einladung TechSocialMeet am 3.3. 2008 In-Reply-To: <20080229091623.GI16369@d610.overmeer.net> References: <20080229091623.GI16369@d610.overmeer.net> Message-ID: <47C8227E.3080609@kutej.net> Thomas Klausner wrote: > Hi! > > Am 3.3, 19:00, findet das naechste Vienna.pm TechSocialMeet statt. > > Programm (im NIG): > - karlheinz: command line tool, das sich wie perl -a verhalten soll, > allerdings fuer CSV files > - domm: Acme::ReturnValue > - ?? What about "Having fun with LVM" presentation? Logical Volume Management is not really a Perl topic but it's quite good to know it for a Linux installations and it's not that difficult. ~15min Jozef. From domm at cpan.org Fri Feb 29 07:22:59 2008 From: domm at cpan.org (Thomas Klausner) Date: Fri, 29 Feb 2008 16:22:59 +0100 Subject: [Vienna-pm] Einladung TechSocialMeet am 3.3. 2008 In-Reply-To: <47C8227E.3080609@kutej.net> References: <20080229091623.GI16369@d610.overmeer.net> <47C8227E.3080609@kutej.net> Message-ID: <20080229152255.GC27447@d610.perlworkshop.nl> Hi! On Fri, Feb 29, 2008 at 04:19:26PM +0100, Jozef Kutej wrote: > What about "Having fun with LVM" presentation? Logical Volume Management > is not really a Perl topic but it's quite good to know it for a Linux > installations and it's not that difficult. ~15min Yes of course! I always wanted to see how this works (especially as koki 'forced' me to use it on my new machine :-) -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From jozef at kutej.net Fri Feb 29 07:29:59 2008 From: jozef at kutej.net (Jozef Kutej) Date: Fri, 29 Feb 2008 16:29:59 +0100 Subject: [Vienna-pm] Einladung TechSocialMeet am 3.3. 2008 In-Reply-To: <20080229152255.GC27447@d610.perlworkshop.nl> References: <20080229091623.GI16369@d610.overmeer.net> <47C8227E.3080609@kutej.net> <20080229152255.GC27447@d610.perlworkshop.nl> Message-ID: <47C824F7.7000505@kutej.net> Thomas Klausner wrote: > Yes of course! > > I always wanted to see how this works (especially as koki 'forced' me to > use it on my new machine :-) :) ok, let's have it. Have a nice weekend everyone! Jozef. From domm at cpan.org Fri Feb 29 08:29:39 2008 From: domm at cpan.org (Thomas Klausner) Date: Fri, 29 Feb 2008 17:29:39 +0100 Subject: [Vienna-pm] Einladung TechSocialMeet am 3.3. 2008 In-Reply-To: <47C824F7.7000505@kutej.net> References: <20080229091623.GI16369@d610.overmeer.net> <47C8227E.3080609@kutej.net> <20080229152255.GC27447@d610.perlworkshop.nl> <47C824F7.7000505@kutej.net> Message-ID: <20080229162938.GB28829@d610.perlworkshop.nl> Hi! On Fri, Feb 29, 2008 at 04:29:59PM +0100, Jozef Kutej wrote: > ok, let's have it. I'll added it to the website -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}