From gr at univie.ac.at Mon Jun 2 01:04:42 2008 From: gr at univie.ac.at (=?ISO-8859-1?Q?Marcel_Gr=FCnauer?=) Date: Mon, 2 Jun 2008 10:04:42 +0200 Subject: [Vienna-pm] Einladung TechSocialMeet 2.6. In-Reply-To: <20080521065153.GH2373@d610.chello.at> References: <20080521065153.GH2373@d610.chello.at> Message-ID: <24745020-5580-4CA9-827C-B92E0755D3E4@univie.ac.at> Bisserl sp?t, die Anmeldung, aber ich h?tte einen kurzen Talk ?ber "Perl in Japan". Marcel From gr at univie.ac.at Mon Jun 2 13:37:24 2008 From: gr at univie.ac.at (=?ISO-8859-1?Q?Marcel_Gr=FCnauer?=) Date: Mon, 2 Jun 2008 22:37:24 +0200 Subject: [Vienna-pm] Perl in Japan Message-ID: Hi, hier sind die Slides zu meinem Talk "Perl in Japan": http://www.slideshare.net/hanekomu/perl-in-japan Siehe auch den Blog-Eintrag auf http://hanekomu.at/blog Also, schauen wir, ob wir ?ber Blogs, Twitter und IRC effektiver kommunizieren und zusammenarbeiten k?nnen. Jozef hat da schon eine m?gliche Zusammenarbeit zwischen Bratislava und Wien angesprochen - immerhin lebt ja auch Jonathan Worthington nunmehr in Bratislava. Daher geb ich einmal meine Kontaktm?glichkeiten an: Blog: http://hanekomu.at/blog Twitter: http://twitter.com/hanekomu IRC: hanekomu auf irc.perl.org und freenode Und Deine Kontaktdaten? > [X] Blog: > [X] Twitter: > [X] IRC: Marcel -- "hanekomu" on Twitter, Jaiku, IRC and AIM Blog: http://hanekomu.at/blog/ CPAN: http://search.cpan.org/~marcel/ From domm at cpan.org Mon Jun 2 23:36:28 2008 From: domm at cpan.org (Thomas Klausner) Date: Tue, 3 Jun 2008 08:36:28 +0200 Subject: [Vienna-pm] Perl in Japan In-Reply-To: References: Message-ID: <20080603063628.GA2514@d610.chello.at> Hi! On Mon, Jun 02, 2008 at 10:37:24PM +0200, Marcel Gr?nauer wrote: > hier sind die Slides zu meinem Talk "Perl in Japan": http://www.slideshare.net/hanekomu/perl-in-japan Hab ich auf vienna.pm.org verlinkt > Siehe auch den Blog-Eintrag auf http://hanekomu.at/blog ebenfalls! ?brigens ist nat?rliche jede_r eingeladen, sich ein commit bit f?rs svn (bzw gleich einen ganzen Shell Account fuer unseren Server) abzuholen & die Website selber upzudaten. Dringend notwendig w?re zB eine ?berarbeitung der Members-Seite... > Also, schauen wir, ob wir ?ber Blogs, Twitter und IRC effektiver > kommunizieren und zusammenarbeiten k?nnen. Jozef hat da schon eine > m?gliche Zusammenarbeit zwischen Bratislava und Wien angesprochen - > immerhin lebt ja auch Jonathan Worthington nunmehr in Bratislava. Bez Blog: Wer nicht wie Marcel (hanekomu (was ist dir eingentlich lieber?)) einen eigenen blog betreiben will, kann sich sehr leicht einen account auf use.perl holen (http://use.perl.org - ist zwar technologisch leicht angestaubt, aber besser als nix..) > Und Deine Kontaktdaten? [X] Blog: http://use.perl.org/~domm/journal [ ] Twitter: [X] IRC: domm Aber das steht auch alles (und ein bissl mehr) auf http://vienna.pm.org/wer.html -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From gr at univie.ac.at Tue Jun 3 01:19:10 2008 From: gr at univie.ac.at (=?ISO-8859-1?Q?Marcel_Gr=FCnauer?=) Date: Tue, 3 Jun 2008 10:19:10 +0200 Subject: [Vienna-pm] Perl in Japan In-Reply-To: <20080603063628.GA2514@d610.chello.at> References: <20080603063628.GA2514@d610.chello.at> Message-ID: <4C19883C-0EC3-4677-A521-9F9BA5D11A33@univie.ac.at> Hi, On Jun 3, 2008, at 8:36 AM, Thomas Klausner wrote: > Hab ich auf vienna.pm.org verlinkt Danke! > Bez Blog: Wer nicht wie Marcel (hanekomu (was ist dir eingentlich > lieber?)) einen eigenen blog betreiben will Beides ist ok; hanekomu ist vielleicht eindeutiger. Marcel From wilhelm.nagy at bfw.gv.at Tue Jun 3 04:34:45 2008 From: wilhelm.nagy at bfw.gv.at (nagy) Date: Tue, 3 Jun 2008 13:34:45 +0200 Subject: [Vienna-pm] =?iso-8859-1?q?Kasspr=FCfung?= Message-ID: Hallo Roland, Michael, es war wegen da pruefung .... k?nnts euch wegen termin melden 1h vor der GV scheint mir ausreichtend? LG \^/ili -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/vienna-pm/attachments/20080603/3adadf9b/attachment.html From michael.kroell at uibk.ac.at Tue Jun 3 04:41:43 2008 From: michael.kroell at uibk.ac.at (=?ISO-8859-1?Q?Michael_Kr=F6ll?=) Date: Tue, 03 Jun 2008 13:41:43 +0200 Subject: [Vienna-pm] =?iso-8859-1?q?Kasspr=FCfung?= In-Reply-To: References: Message-ID: <48452DF7.3080300@uibk.ac.at> nagy wrote: > Hallo Roland, Michael, > > es war wegen da pruefung .... > > k?nnts euch wegen termin melden > > 1h vor der GV scheint mir ausreichtend? Ja, sollte trotz YAPC-Zeugs ausreichen. Ich bin dann n?chsten Montag ab 18:00 dort. lg, michael -- 063A F25E B064 A98F A479 1690 78CD D023 5E2A 6688 http://zis.uibk.ac.at/.m/uibk.ac.at_pgp_pubkey.asc From rl at brabbel.net Wed Jun 4 00:33:47 2008 From: rl at brabbel.net (Roland Lammel) Date: Wed, 4 Jun 2008 09:33:47 +0200 Subject: [Vienna-pm] =?iso-8859-1?q?Kasspr=FCfung?= In-Reply-To: <48452DF7.3080300@uibk.ac.at> References: <48452DF7.3080300@uibk.ac.at> Message-ID: <9b51ffb30806040033v7bfe9acdw3ac1c19aef777ac5@mail.gmail.com> Ich bin noch nicht zur Abrechnung gekommen. Im Worstcase gibts nur die Online Abrechnung und ihr m?sst auf "The Schwartz" vertrauen, dass auch wirklich alle Rechnungen als Papier vorhanden sind (die hab ich auch mit, sind aber dann vielleciht ned alle durchnummeriert. Stunde vorher passt f?r mich. +rl On Tue, Jun 3, 2008 at 1:41 PM, Michael Kr?ll wrote: > nagy wrote: > > Hallo Roland, Michael, > > > > es war wegen da pruefung .... > > > > k?nnts euch wegen termin melden > > > > 1h vor der GV scheint mir ausreichtend? > > Ja, sollte trotz YAPC-Zeugs ausreichen. Ich bin dann n?chsten Montag ab > 18:00 dort. > > lg, > michael > > -- > 063A F25E B064 A98F A479 1690 78CD D023 5E2A 6688 > http://zis.uibk.ac.at/.m/uibk.ac.at_pgp_pubkey.asc > _______________________________________________ > 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/20080604/f3325d42/attachment.html From gooly at gmx.at Fri Jun 13 06:50:15 2008 From: gooly at gmx.at (Calli) Date: Fri, 13 Jun 2008 15:50:15 +0200 Subject: [Vienna-pm] =?iso-8859-15?q?symlink=3A_Ung=FCltiger_Dateidescript?= =?iso-8859-15?q?or?= Message-ID: <200806131550.15758.gooly@gmx.at> Hallo, um ein Menge von Files zu bearbeiten will ich erstmal symlinks in versch. Ordner legen, quasi thematisch entfriemelt. Das wird aber erstmal verweigert: je l?nger, bei desto mehr. Fehler ist immer ein "Ung?ltiger Dateideskriptor". Da sonst das zip-Fil ok ist, mach ich einfach (naja nicht so sch?n, aber geht): ... if ( $! =~ /Ung.+?ateideskriptor/ ) { my $nF = (( $oF =~ /.+\/(.+)/ ) ? "/tmp/$1" : "/tmp/$oF"); system('mv','-T', $oF, $nF ); system('mv','-T', $nF, $oF ); machSymlink( $dir, $oF ); # es ist daf?r gesorgt, dass die Schleife nicht endlos w?hrt! } Mit dem mc kan ich ohne Meckern Symlinks machen. Was is'n der Grund f?r diesen Fehler: Ung. Dateideskr.. Kann man den auch anders beheben? (zugegeben, system('mv','-T', $oF, $oF ); hab ich noch nicht probiert, die Idee kam mir erst jetzt.) LG, Calli From daxim at cpan.org Fri Jun 13 16:07:07 2008 From: daxim at cpan.org (Lars =?utf-8?b?RMmq4bSH4bSE4bSL4bSP4bShIOi/quaLieaWrw==?=) Date: Sat, 14 Jun 2008 01:07:07 +0200 Subject: [Vienna-pm] =?utf-8?q?symlink=3A_Ung=C3=BCltiger_Dateidescriptor?= In-Reply-To: <200806131550.15758.gooly@gmx.at> References: <200806131550.15758.gooly@gmx.at> Message-ID: <200806140107.08275.daxim@cpan.org> Hallo Calli, du redest ganz sch?n wirr. Keine Angabe ?ber Betriebssystem und Perlversion, kein Quellcode zum nachvollziehen. Wie soll man sich ein klares Bild ?ber das Problem verschaffen? Ich habe soeben mit dem Programm unten erfolgreich knapp 70000 Dateien einsortiert. Das ist mit Perl 5.10 auf Linux 2.6. Was mich stutzig macht: "Ung?ltiger Dateideskriptor" == EBADF, aber das ist in man 2 symlink gar nicht aufgef?hrt. ?berpr?fst du R?ckgabewerte auf die korrekte Art? #!/usr/bin/env perl use utf8; use 5.010; use strict; use warnings FATAL => 'all'; use File::HomeDir qw(); use File::Next qw(); use File::Path qw(mkpath); use IPC::System::Simple qw(capture); use Path::Class qw(dir file); use Readonly qw(Readonly); Readonly my $home => File::HomeDir->my_home; Readonly my $next => File::Next::files({follow_symlinks => 0}, $home); my $counter = 0; while (defined (my $filename = $next->())) { next if -l $filename; next unless -f _ and -r _; chomp(my $type = capture(qw(file -b -i), $filename)); $type =~ s{[;,] .* \z}{}msx; my $target_dir = dir($home, 'calli_test', split m|/|, $type); mkpath $target_dir, {verbose => 0} unless -e $target_dir; unless (symlink $filename, file($target_dir, $counter)) { say "$filename: $!"; }; $counter++; }; -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 194 bytes Desc: This is a digitally signed message part. Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20080614/0da89e07/attachment.bin From gooly at gmx.at Sat Jun 14 01:07:11 2008 From: gooly at gmx.at (Calli) Date: Sat, 14 Jun 2008 10:07:11 +0200 Subject: [Vienna-pm] =?utf-8?q?symlink=3A_Ung=C3=BCltiger_Dateidescriptor?= In-Reply-To: <200806140107.08275.daxim@cpan.org> References: <200806131550.15758.gooly@gmx.at> <200806140107.08275.daxim@cpan.org> Message-ID: <200806141007.11525.gooly@gmx.at> Am Samstag, 14. Juni 2008 schrieb Lars D?????? ???: > Hallo Calli, > > du redest ganz sch?n wirr. Keine Angabe ?ber Betriebssystem und > Perlversion, kein Quellcode zum nachvollziehen. Dachte nicht, dass das so eine gro?e Rolle spielt bei einer Perl-Standard-Funktion. SuSE 9.3, Kern 2.6.11.4-21.17-smp Perl 5.8.6-5.3 > Wie soll man sich ein > klares Bild ?ber das Problem verschaffen? Das ist der etwas ge?nderte Funktionsaufruf (ich hatte Funktionen): $tstSL='/ir/gend/wo/tst'; # das dir gibt's und ist 'ganz offen' (777) # ?ndere Pfad f?r $_[1] nicht Namen, f?r mit/ohne Pfad foreach my $oF ( liesFiles('ir/gend/wo/files') ) { # f?r Files mit und ohne Pfad symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : "/$_[1]") ); next if ( $? || $! =~ /exist/ ); # kein Fehler, wenn File exists. # hier nun, in etwa was schon geschreiben .. if ( $! =~ /Ung.+?ateideskriptor/ ) { ? ? ? my $nF = (( $oF =~ /.+\/(.+)/ ) ? "/tmp/$1" : "/tmp/$oF"); ? ? ? system('mv','-T', $oF, $nF ); ? ? ? system('mv','-T', $nF, $oF ); symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : "/$_[1]") ); ? next if ( $? || $! =~ /exist/ ); # File exists ist hier keinFehler die "hmm: $oF =>$!\n"; ? ? } } > > Ich habe soeben mit dem Programm unten erfolgreich knapp 70000 > Dateien einsortiert. Das ist mit Perl 5.10 auf Linux 2.6. > > Was mich stutzig macht: "Ung?ltiger Dateideskriptor" == EBADF, aber > das ist in man 2 symlink gar nicht aufgef?hrt. ?berpr?fst du > R?ckgabewerte auf die korrekte Art? Siehe oben mit $? und $! > > #!/usr/bin/env perl > use utf8; > use 5.010; > use strict; > use warnings FATAL => 'all'; > use File::HomeDir qw(); > use File::Next qw(); > use File::Path qw(mkpath); > use IPC::System::Simple qw(capture); > use Path::Class qw(dir file); > use Readonly qw(Readonly); > > Readonly my $home => File::HomeDir->my_home; > Readonly my $next => File::Next::files({follow_symlinks => 0}, > $home); my $counter = 0; > while (defined (my $filename = $next->())) { > next if -l $filename; > next unless -f _ and -r _; > chomp(my $type = capture(qw(file -b -i), $filename)); > $type =~ s{[;,] .* \z}{}msx; > my $target_dir = dir($home, 'calli_test', split m|/|, $type); > mkpath $target_dir, {verbose => 0} unless -e $target_dir; > unless (symlink $filename, file($target_dir, $counter)) { > say "$filename: $!"; > }; > $counter++; > }; From hjp-vienna-pm-list at hjp.at Sat Jun 14 11:18:23 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Sat, 14 Jun 2008 20:18:23 +0200 Subject: [Vienna-pm] =?iso-8859-1?q?symlink=3A_Ung=FCltiger_Dateidescripto?= =?iso-8859-1?q?r?= In-Reply-To: <200806141007.11525.gooly@gmx.at> References: <200806131550.15758.gooly@gmx.at> <200806140107.08275.daxim@cpan.org> <200806141007.11525.gooly@gmx.at> Message-ID: <20080614181823.GC1242@hjp.at> On 2008-06-14 10:07:11 +0200, Calli wrote: > Am Samstag, 14. Juni 2008 schrieb Lars D?????? ???: > > du redest ganz sch?n wirr. Keine Angabe ?ber Betriebssystem und > > Perlversion, kein Quellcode zum nachvollziehen. > Dachte nicht, dass das so eine gro?e Rolle spielt bei einer > Perl-Standard-Funktion. Es ist vor allem eine Unix-Standardfunktion. Keine Ahnung, ob die unter Windows ?berhaupt zur Verf?gung steht. > SuSE 9.3, Kern 2.6.11.4-21.17-smp > Perl 5.8.6-5.3 > > Wie soll man sich ein > > klares Bild ?ber das Problem verschaffen? > Das ist der etwas ge?nderte Funktionsaufruf (ich hatte Funktionen): > > $tstSL='/ir/gend/wo/tst'; # das dir gibt's und ist 'ganz offen' (777) > # ?ndere Pfad f?r $_[1] nicht Namen, f?r mit/ohne Pfad > foreach my $oF ( liesFiles('ir/gend/wo/files') ) { > # f?r Files mit und ohne Pfad > symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : "/$_[1]") ); > next if ( $? || $! =~ /exist/ ); # kein Fehler, wenn File exists. [...] > > Was mich stutzig macht: "Ung?ltiger Dateideskriptor" == EBADF, aber > > das ist in man 2 symlink gar nicht aufgef?hrt. ?berpr?fst du > > R?ckgabewerte auf die korrekte Art? > Siehe oben mit $? und $! perldoc perlvar: $? The status returned by the last pipe close, backtick ("``") command, successful call to wait() or waitpid(), or from the system() operator. perldoc -f symlink: symlink OLDFILE,NEWFILE Creates a new filename symbolically linked to the old filename. Returns 1 for success, 0 otherwise. 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/20080614/ac19331e/attachment.bin From gooly at gmx.at Sat Jun 14 14:15:13 2008 From: gooly at gmx.at (Calli) Date: Sat, 14 Jun 2008 23:15:13 +0200 Subject: [Vienna-pm] =?utf-8?q?symlink=3A_Ung=C3=BCltiger_Dateidescriptor?= In-Reply-To: <20080614181823.GC1242@hjp.at> References: <200806131550.15758.gooly@gmx.at> <200806141007.11525.gooly@gmx.at> <20080614181823.GC1242@hjp.at> Message-ID: <200806142315.13794.gooly@gmx.at> Am Samstag, 14. Juni 2008 schrieb Peter J. Holzer: > On 2008-06-14 10:07:11 +0200, Calli wrote: > > Am Samstag, 14. Juni 2008 schrieb Lars D?????? ???: > > > du redest ganz sch?n wirr. Keine Angabe ?ber Betriebssystem und > > > Perlversion, kein Quellcode zum nachvollziehen. > > > > Dachte nicht, dass das so eine gro?e Rolle spielt bei einer > > Perl-Standard-Funktion. > > Es ist vor allem eine Unix-Standardfunktion. Keine Ahnung, ob die > unter Windows ?berhaupt zur Verf?gung steht. > > > SuSE 9.3, Kern 2.6.11.4-21.17-smp > > Perl 5.8.6-5.3 > > > > > Wie soll man sich ein > > > klares Bild ?ber das Problem verschaffen? > > > > Das ist der etwas ge?nderte Funktionsaufruf (ich hatte Funktionen): > > > > $tstSL='/ir/gend/wo/tst'; # das dir gibt's und ist 'ganz offen' > > (777) # ?ndere Pfad f?r $_[1] nicht Namen, f?r mit/ohne Pfad > > foreach my $oF ( liesFiles('ir/gend/wo/files') ) { > > # f?r Files mit und ohne Pfad > > symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : "/$_[1]") > > ); next if ( $? || $! =~ /exist/ ); # kein Fehler, wenn File > > exists. > > [...] > > > > Was mich stutzig macht: "Ung?ltiger Dateideskriptor" == EBADF, > > > aber das ist in man 2 symlink gar nicht aufgef?hrt. ?berpr?fst du > > > R?ckgabewerte auf die korrekte Art? > > > > Siehe oben mit $? und $! > > perldoc perlvar: > > $? The status returned by the last pipe close, backtick > ("``") command, successful call to wait() or waitpid(), or from the > system() operator. > > > perldoc -f symlink: > > symlink OLDFILE,NEWFILE > Creates a new filename symbolically linked to the old > filename. Returns 1 for success, 0 otherwise. > > hp und ?? das (inkl man symlink) hab ich ja alles auch aufgerufen und 'f?hle mich' ratlos zur?ckgelassen: da wird ein Fehler gefunden, den 'gibt's-nicht'. Ich hab mir auch mal die Ausgabe von stat und lstat der Files angesehen, ohne dass die 'was bemeckert h?tten. Calli From hjp-vienna-pm-list at hjp.at Sat Jun 14 15:05:52 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Sun, 15 Jun 2008 00:05:52 +0200 Subject: [Vienna-pm] =?iso-8859-1?q?symlink=3A_Ung=FCltiger_Dateidescripto?= =?iso-8859-1?q?r?= In-Reply-To: <200806142315.13794.gooly@gmx.at> References: <200806131550.15758.gooly@gmx.at> <200806141007.11525.gooly@gmx.at> <20080614181823.GC1242@hjp.at> <200806142315.13794.gooly@gmx.at> Message-ID: <20080614220552.GA6707@hjp.at> On 2008-06-14 23:15:13 +0200, Calli wrote: > Am Samstag, 14. Juni 2008 schrieb Peter J. Holzer: > > On 2008-06-14 10:07:11 +0200, Calli wrote: > > > Am Samstag, 14. Juni 2008 schrieb Lars D?????? ???: > > > > Wie soll man sich ein > > > > klares Bild ?ber das Problem verschaffen? > > > > > > Das ist der etwas ge?nderte Funktionsaufruf (ich hatte Funktionen): > > > > > > $tstSL='/ir/gend/wo/tst'; # das dir gibt's und ist 'ganz offen' > > > (777) # ?ndere Pfad f?r $_[1] nicht Namen, f?r mit/ohne Pfad > > > foreach my $oF ( liesFiles('ir/gend/wo/files') ) { > > > # f?r Files mit und ohne Pfad > > > symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : "/$_[1]") > > > ); next if ( $? || $! =~ /exist/ ); # kein Fehler, wenn File > > > exists. > > > > [...] > > > > > > Was mich stutzig macht: "Ung?ltiger Dateideskriptor" == EBADF, > > > > aber das ist in man 2 symlink gar nicht aufgef?hrt. ?berpr?fst du > > > > R?ckgabewerte auf die korrekte Art? > > > > > > Siehe oben mit $? und $! > > > > perldoc perlvar: > > > > $? The status returned by the last pipe close, backtick > > ("``") command, successful call to wait() or waitpid(), or from the > > system() operator. > > > > > > perldoc -f symlink: > > > > symlink OLDFILE,NEWFILE > > Creates a new filename symbolically linked to the old > > filename. Returns 1 for success, 0 otherwise. > > > und ?? > das (inkl man symlink) hab ich ja alles auch aufgerufen und 'f?hle mich' > ratlos zur?ckgelassen: Ich hatte gehofft, Du w?rdest den Fehler sehen, wenn man Dir die zwei relevanten S?tze aus der Doku auf dem Silbertablett pr?sentiert. Aber offenbar kannst Du diese beiden S?tze nicht mit Deinem Code in Zusammenhang bringen. Also Schritt f?r Schritt: > > > symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : "/$_[1]") 1) Wie stellst Du fest, ob symlink funktioniert hat? Gar nicht, denn in der Doku steht: > > Returns 1 for success, 0 otherwise. Aber den Returnwert von symlink ignorierst Du. Richtig m?sste das ungef?hr so lauten: unless (symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : "/$_[1]"))) { # Fehlerbehandlung } > > > ); next if ( $? || $! =~ /exist/ ); # kein Fehler, wenn File 2) Was bedeutet ?$??? > > $? The status returned by the last pipe close, backtick > > ("``") command, successful call to wait() or waitpid(), or from the > > system() operator. Wieso interessiert Dich der "status returned by the last pipe close, ..." an der Stelle? Du willst wissen, ob symlink funktioniert hat, das ist weder ein pipe close, noch ein backtick command, noch ruft es wait, waitpid oder system auf. Also ist die Abfrage von $? an dieser Stelle bestenfalls wirkungslos, schlimmstenfalls fragst Du etwas vollkommen anderes ab als Du erwartest. Also weg damit. > da wird ein Fehler gefunden, den 'gibt's-nicht'. Sowas ist immer ein guter Hinweis darauf, dass mit der Logik der Fehlerbehandlung was nicht stimmt. 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/20080615/f267a06b/attachment.bin From domm at cpan.org Wed Jun 18 08:02:37 2008 From: domm at cpan.org (Thomas Klausner) Date: Wed, 18 Jun 2008 17:02:37 +0200 Subject: [Vienna-pm] Fwd: Erinnerung Perl 5.10 Vortrag - domm Message-ID: <20080618150236.GA3929@d610.chello.at> ----- Forwarded message from maximilian attems ----- From: maximilian attems Subject: Erinnerung Perl 5.10 Vortrag - domm Date: Wed, 18 Jun 2008 16:55:58 +0200 To: debienna at rerun.lefant.net hallo ihr lieben leut, hier noch mal die damalige ankuendigung zur erinnerung :) freuen uns auf euer kommen! Vortragsank?ndigung: Thomas Klausner (aka domm) - Perl 5.10 Intro + Neue Features 19.06.2008 - 20h00 - (Einlass ab 19h) Museumsquartier - MQ Electric Avenue - Quintessenz Die kommende Debian Ausgabe Lenny spielt auf mit der neuerste Perl release: $ cat /etc/debian_version lenny/sid $ perl -v This is perl, v5.10.0 built for x86_64-linux-gnu-thread-multi Ein guter Moment die neuen Funktionen und Verbesserungen aus erster Hand zu erfahren. domm leitet nicht nur aktiv der Wiener Perl Community Vienna.pm, sondern ist auch CPANTS Maintainer. Kwalitee Metrik beeinflusst massgeblich CPAN. happy hacking -- maks ----- End forwarded message ----- -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From gooly at gmx.at Thu Jun 19 10:27:52 2008 From: gooly at gmx.at (Calli) Date: Thu, 19 Jun 2008 19:27:52 +0200 Subject: [Vienna-pm] =?utf-8?q?symlink=3A_Ung=C3=BCltiger_Dateidescriptor?= In-Reply-To: <20080614220552.GA6707@hjp.at> References: <200806131550.15758.gooly@gmx.at> <200806142315.13794.gooly@gmx.at> <20080614220552.GA6707@hjp.at> Message-ID: <200806191927.52487.gooly@gmx.at> Am Sonntag, 15. Juni 2008 schrieb Peter J. Holzer: > On 2008-06-14 23:15:13 +0200, Calli wrote: > > Am Samstag, 14. Juni 2008 schrieb Peter J. Holzer: > > > On 2008-06-14 10:07:11 +0200, Calli wrote: > > > > Am Samstag, 14. Juni 2008 schrieb Lars D?????? ???: > > > > > Wie soll man sich ein > > > > > klares Bild ?ber das Problem verschaffen? > > > > > > > > Das ist der etwas ge?nderte Funktionsaufruf (ich hatte > > > > Funktionen): > > > > > > > > $tstSL='/ir/gend/wo/tst'; # das dir gibt's und ist 'ganz > > > > offen' (777) # ?ndere Pfad f?r $_[1] nicht Namen, f?r mit/ohne > > > > Pfad foreach my $oF ( liesFiles('ir/gend/wo/files') ) { > > > > # f?r Files mit und ohne Pfad > > > > symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : > > > > "/$_[1]") ); next if ( $? || $! =~ /exist/ ); # kein Fehler, > > > > wenn File exists. > > > > > > [...] > > > > > > > > Was mich stutzig macht: "Ung?ltiger Dateideskriptor" == > > > > > EBADF, aber das ist in man 2 symlink gar nicht aufgef?hrt. > > > > > ?berpr?fst du R?ckgabewerte auf die korrekte Art? > > > > > > > > Siehe oben mit $? und $! > > > > > > perldoc perlvar: > > > > > > $? The status returned by the last pipe close, > > > backtick ("``") command, successful call to wait() or waitpid(), > > > or from the system() operator. > > > > > > > > > perldoc -f symlink: > > > > > > symlink OLDFILE,NEWFILE > > > Creates a new filename symbolically linked to the > > > old filename. Returns 1 for success, 0 otherwise. > > > > und ?? > > das (inkl man symlink) hab ich ja alles auch aufgerufen und 'f?hle > > mich' ratlos zur?ckgelassen: > > Ich hatte gehofft, Du w?rdest den Fehler sehen, wenn man Dir die zwei > relevanten S?tze aus der Doku auf dem Silbertablett pr?sentiert. Aber > offenbar kannst Du diese beiden S?tze nicht mit Deinem Code in > > Zusammenhang bringen. Also Schritt f?r Schritt: > > > > symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : > > > > "/$_[1]") > > 1) Wie stellst Du fest, ob symlink funktioniert hat? Gar nicht, denn > in > > der Doku steht: > > > Returns 1 for success, 0 otherwise. > > Aber den Returnwert von symlink ignorierst Du. Richtig m?sste das > ungef?hr so lauten: > > unless (symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : > "/$_[1]"))) { # Fehlerbehandlung > } ahh, ok! Ich kam vom einen system('..') aufruf, den ich dann ?nderte und .. > > > > ); next if ( $? || $! =~ /exist/ ); # kein Fehler, wenn File > > 2) Was bedeutet ?$??? > > > $? The status returned by the last pipe close, > > > backtick ("``") command, successful call to wait() or waitpid(), > > > or from the system() operator. > > Wieso interessiert Dich der "status returned by the last pipe close, > ..." an der Stelle? Du willst wissen, ob symlink funktioniert hat, > das ist weder ein pipe close, noch ein backtick command, noch ruft es > wait, waitpid oder system auf. Also ist die Abfrage von $? an dieser > Stelle bestenfalls wirkungslos, schlimmstenfalls fragst Du etwas > vollkommen anderes ab als Du erwartest. Also weg damit. die doku von symlink ist sehr sparsam, nicht auszuschlie?en, dass symlink intern ?hnlich einem System-Aufruf (system('symlink', ..) realisiert ist, ausserdem hab ich mir eine Art Fehlerschrotschu? gemacht: print "... ?:$?; !:$!; err:".($? & 127),"<\n"; > > da wird ein Fehler gefunden, den 'gibt's-nicht'. > > Sowas ist immer ein guter Hinweis darauf, dass mit der Logik der > Fehlerbehandlung was nicht stimmt. ?hm, wirklich? Tats?chlich scheint symlink sehr wohl $! zu setzen (obwohl nix zu stehen scheint, weder bei Perl noch in man). Da w?ren wir wieder bei meiner Frage, denn symlink setzt $! auf (sowas wie) "File existiert", wenn da schon ein Symlink ist. Also hat es vorher $! gesetzt auf "Ung?ltiger Dateideskriptor" Calli From max at stro.at Fri Jun 20 01:10:18 2008 From: max at stro.at (maximilian attems) Date: Fri, 20 Jun 2008 10:10:18 +0200 Subject: [Vienna-pm] Erinnerung Perl 5.10 Vortrag - domm In-Reply-To: <20080618145557.GB29697@stro.at> References: <20080618145557.GB29697@stro.at> Message-ID: <20080620081018.GB27466@stro.at> halloo, danke domm fuer deinen sehr interesssnaten feinen vortrag! fuer alle die es versaeumt haben, die wichtigste zeile: use 5.010; folien zum gestrigen vortrag sind online (gespickt mit neuen features + DBIx::Class beispiele): http://domm.plix.at/talks/2008_vienna_perl_5_10_debienna/ link zur Wiener Perl Community http://vienna.pm.org/ happy hacking -- maks From daxim at cpan.org Fri Jun 20 12:27:25 2008 From: daxim at cpan.org (Lars =?utf-8?b?RMmq4bSH4bSE4bSL4bSP4bShIOi/quaLieaWrw==?=) Date: Fri, 20 Jun 2008 21:27:25 +0200 Subject: [Vienna-pm] =?iso-8859-1?q?Notizen_zum_Gespr=E4ch_nach_dem_gestri?= =?iso-8859-1?q?gen_Vortrag?= In-Reply-To: <20080620081018.GB27466@stro.at> References: <20080618145557.GB29697@stro.at> <20080620081018.GB27466@stro.at> Message-ID: <200806202127.35510.daxim@cpan.org> =head1 openSUSE 11 ist grade raus gekommen Das Mediawiki hat leider schlappgemacht, aber wenigstens die Downloadseite ist statisch. Es gibt traditionelle Installationsmedien, eine Live-CD, von der installiert werden kann, und ein kleines Bootimage f?r Installation ?bers Netz; alles verf?gbar ?ber HTTP/Metalink und Bittorrent. Was ist neu: Der Installationsprozess wurde ?berarbeitet, nach Qt4 portiert und stellt weniger Fragen. RPMs sind nun mit LZMA kompromiert, die Basisinstallation ist in Schemaabbildern zusammengefasst. Im Idealfall hat man mit 7 Klicks in weniger als 20 Minuten das System installiert. Paketverwaltung: Das grafische Frontend hat Icons f?r Paketgruppen und Schemas. Das Backend Zypper findet L?sungen genauso gut wie smart (also besser als yum und apt), aber verbraucht dabei trotzdem schlimmstenfalls nur die halbe Zeit und immer wesentlich weniger Speicher als alles andere. Eyecandy: Nebst Compiz Fusion wird AIGLX standardm??ig aktiviert (wo verf?gbar). Es gibt einen vereinfachten Konfigurator neben ccsm. Software: KDE 3.5.9 und 4.0.4, perl-5.10. =head1 threads Q: Why did the chicken cross the road? A: the side. to To other get Vorm Ausprobieren die Distros threads, threads-shared, Thread-Queue, Thread-Semaphore von upgraden. Wenn man in die Changelogs schaut, tut sich da in letzter Zeit viel. =head2 triviales Beispiel threads-test.pl use 5.010; use strict; use warnings FATAL => 'all'; use threads; use Math::Big::Factors qw(factors_wheel); $| = 1; my @t; my $runs = shift || 4; for (0..$runs) { $t[$_] = threads->create(sub { say "start $_"; say join ',', factors_wheel(1234567890); # int(rand(10000) ** 2) sleep rand 2; say "end $_"; }); }; $_->join for @t; In htop lassen sich Userland-Threads anzeigen. Da sieht man sch?n, dass die Threads gleichm??ig auf die CPUs/Cores verteilt werden. Ohne sleep() gibt's ordentlich Last. =head2 Auswertung threads-visualise.pl use 5.010; use strict; use warnings FATAL => 'all'; my @s; my $max_r = 0; while (<>) { if (/^start (\d+)/) { $s[$1] = 'R'; } elsif (/^end (\d+)/) { $s[$1] = 'x'; }; my $line = join q(), map {$_ // '*'} @s; my $count_r = $line =~ tr/R//; $max_r = $count_r if $count_r > $max_r; my $count_x = $line =~ tr/x//; say "R: $count_r x: $count_x $line"; }; say "max R: $max_r"; Aufruf: perl threads-test.pl 100 | perl threads-visualise.pl Selbst auf dicker Hardware krieg ich mit Linux nicht mehr als 20 Threads gleichzeitig. =head2 triviales Beispiel mit Queues =head2 Widefinder Einfache Auswertung eines Webserverlogfiles auf Hardware mit vielen CPUs. Am besten skalierende L?sung ist in Perl und von Sean O'Rourke. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 194 bytes Desc: This is a digitally signed message part. Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20080620/7ad7d49d/attachment.bin From hjp-vienna-pm-list at hjp.at Sat Jun 21 02:49:17 2008 From: hjp-vienna-pm-list at hjp.at (Peter J. Holzer) Date: Sat, 21 Jun 2008 11:49:17 +0200 Subject: [Vienna-pm] =?iso-8859-1?q?symlink=3A_Ung=FCltiger_Dateidescripto?= =?iso-8859-1?q?r?= In-Reply-To: <200806191927.52487.gooly@gmx.at> References: <200806131550.15758.gooly@gmx.at> <200806142315.13794.gooly@gmx.at> <20080614220552.GA6707@hjp.at> <200806191927.52487.gooly@gmx.at> Message-ID: <20080621094917.GA19670@hjp.at> On 2008-06-19 19:27:52 +0200, Calli wrote: > Am Sonntag, 15. Juni 2008 schrieb Peter J. Holzer: > > On 2008-06-14 23:15:13 +0200, Calli wrote: > > > Am Samstag, 14. Juni 2008 schrieb Peter J. Holzer: > > > > On 2008-06-14 10:07:11 +0200, Calli wrote: > > > > > Am Samstag, 14. Juni 2008 schrieb Lars D?????? ???: > > > > > > Wie soll man sich ein > > > > > > klares Bild ?ber das Problem verschaffen? > > > > > > > > > > Das ist der etwas ge?nderte Funktionsaufruf (ich hatte > > > > > Funktionen): > > > > > > > > > > $tstSL='/ir/gend/wo/tst'; # das dir gibt's und ist 'ganz > > > > > offen' (777) # ?ndere Pfad f?r $_[1] nicht Namen, f?r mit/ohne > > > > > Pfad foreach my $oF ( liesFiles('ir/gend/wo/files') ) { > > > > > # f?r Files mit und ohne Pfad > > > > > symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : > > > > > "/$_[1]") ); next if ( $? || $! =~ /exist/ ); # kein Fehler, > > > > > wenn File exists. > > > > > > > > [...] > > > > > > > > > > Was mich stutzig macht: "Ung?ltiger Dateideskriptor" == > > > > > > EBADF, aber das ist in man 2 symlink gar nicht aufgef?hrt. > > > > > > ?berpr?fst du R?ckgabewerte auf die korrekte Art? > > > > > > > > > > Siehe oben mit $? und $! > > > > > > > > perldoc perlvar: > > > > > > > > $? The status returned by the last pipe close, > > > > backtick ("``") command, successful call to wait() or waitpid(), > > > > or from the system() operator. > > > > > > > > > > > > perldoc -f symlink: > > > > > > > > symlink OLDFILE,NEWFILE > > > > Creates a new filename symbolically linked to the > > > > old filename. Returns 1 for success, 0 otherwise. > > > > > > und ?? > > > das (inkl man symlink) hab ich ja alles auch aufgerufen und 'f?hle > > > mich' ratlos zur?ckgelassen: > > > > Ich hatte gehofft, Du w?rdest den Fehler sehen, wenn man Dir die zwei > > relevanten S?tze aus der Doku auf dem Silbertablett pr?sentiert. Aber > > offenbar kannst Du diese beiden S?tze nicht mit Deinem Code in > > > > Zusammenhang bringen. Also Schritt f?r Schritt: > > > > > symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : > > > > > "/$_[1]") > > > > 1) Wie stellst Du fest, ob symlink funktioniert hat? Gar nicht, denn > > in > > > > der Doku steht: > > > > Returns 1 for success, 0 otherwise. > > > > Aber den Returnwert von symlink ignorierst Du. Richtig m?sste das > > ungef?hr so lauten: > > > > unless (symlink($oF,$tstSL.(($oF =~ /.+\/(.+)/ ) ? "/$1" : > > "/$_[1]"))) { # Fehlerbehandlung > > } > ahh, ok! Ich kam vom einen system('..') aufruf, system() ist das schwarze Schaf unter den Perl-Funktionen. Bei fast allen hei?t ein wahrer Return-Wert, dass es funktioniert hat, bei system hei?t ein wahrer Return-Wert, dass es nicht funktioniert hat. Das ist zwar verst?ndlich, aber trotzdem inkonsistent. Aber ich finde es interessant, dass Du ausgerechnet aus der Ausnahme auf die Allgemeinheit schlie?t. > die doku von symlink ist sehr sparsam, Da sp?rt man deutlich die Unix-Herkunft von perl. Perl-Funktionen, die ein direktes Abbild von Unix Systemcalls oder Libraryfunktionen sind, sind recht sp?rlich dokumentiert, weil die Dokumentation ja schon beim System dabei ist (man 2 symlink in dem Fall). Au?erdem sind diese Funktionen u.U. systemabh?ngig, so dass man sowieso die lokale Manpage lesen sollte. > nicht auszuschlie?en, dass symlink intern ?hnlich einem System-Aufruf > (system('symlink', ..) realisiert ist, Unter Unix ist das auszuschlie?en. Symlink ist ein Systemcall. Auf anderen Systemen funktioniert die Funktion wahrscheinlich gar nicht. > ausserdem hab ich mir eine Art Fehlerschrotschu? > gemacht: > print "... ?:$?; !:$!; err:".($? & 127),"<\n"; Und damit alles getroffen, nur nicht das, was Du wolltest. Das Scharfsch?tzengewehr w?re der Schrotflinte vorzuziehen gewesen. Du hast es in Deinem Waffenschrank, Du musst es nur ben?tzen: > > > > Returns 1 for success, 0 otherwise. Warum weigerst Du Dich so beharrlich, die dokumentierte Methode zu verwenden und versteifst Dich darauf Methoden zu verwenden, die dokumentierterweise nicht funktionieren k?nnen? > > > da wird ein Fehler gefunden, den 'gibt's-nicht'. > > > > Sowas ist immer ein guter Hinweis darauf, dass mit der Logik der > > Fehlerbehandlung was nicht stimmt. > ?hm, wirklich? Ja. Wenn ein "unm?gliches" Ergebnis herauskommt, ist das meiner Erfahrung nach ein sehr guter Indikator daf?r, dass man was falsch gemacht hat. Ich habe zwar schon im Lauf der Jahrzehnte den einen oder anderen Bug in Libraries oder Doku gefunden, aber viel h?ufiger habe ich Bugs in meinem eigenen Code gefunden. > Tats?chlich scheint symlink sehr wohl $! zu setzen Ja, aber *dann, wenn ein Fehler aufgetreten ist*. Also: if (symlink($x, $y)) { # alles ok. $! enth?lt irgendeinen Wert, wahrscheinlich den, den # es schon vor dem Aufruf von symlink gehabt hat, aber darauf # sollte man sich nicht verlassen. } else { # Es ist ein Fehler aufgetreten. $! enth?lt die Fehlerursache. } Alle Unix-Systemcalls und viele C-Funktionen verhalten sich so. errno (das C-?quivalent von $!) wird gesetzt, wenn ein Fehler aufgetreten ist. ?blicherweise ist das in "man 2 intro" beschrieben (als Man-Pages noch Teil von gedruckten B?chern waren, war "intro" jeweils der Anfang jedes Kapitels - diejenigen von uns, die alt genug sind, noch gedruckte Manuals zu kennen, haben also den unfairen Vorteil, von der Existenz dieser Seite zu wissen). In der Perl-Doku ist das in perldoc perlvar, Abschnitt ?ber "$!" beschrieben: | in other words, if a system or library call fails, | it sets this variable. This means that the value of $! is | meaningful only immediately after a failure: | | if (open(FH, $filename)) { | # Here $! is meaningless. | ... | } else { | # ONLY here is $! meaningful. | ... | # Already here $! might be meaningless. | } | # Since here we might have either success or failure, | # here $! is meaningless. | | In the above meaningless stands for anything: zero, non-zero, | "undef". A successful system or library call does not set the | variable to zero. > (obwohl nix zu stehen scheint, weder bei Perl noch in man). man 2 symlink (auf Debian Linux): | RETURN VALUE | On success, zero is returned. On error, -1 is returned, and errno is | set appropriately. | | ERRORS [Liste von errno-Werten] Steht IMHO ziemlich eindeutig da. > Da w?ren wir wieder bei meiner Frage, denn symlink setzt $! auf (sowas > wie) "File existiert", wenn da schon ein Symlink ist. Also hat es > vorher $! gesetzt auf "Ung?ltiger Dateideskriptor" Nein, das ist ein Fehlschluss. *Irgendwas* hat $! auf "Ung?ltiger Dateideskriptor". Wie kommst Du auf die Idee, dass das symlink gewesen sein soll? hp -- _ | Peter J. Holzer | Openmoko has already embedded |_|_) | Sysadmin WSR | voting system. | | | hjp at hjp.at | Named "If you want it -- write it" __/ | http://www.hjp.at/ | -- Ilja O. on community at lists.openmoko.org -------------- 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/20080621/b2ab7a6d/attachment.bin From domm at cpan.org Tue Jun 24 13:21:31 2008 From: domm at cpan.org (Thomas Klausner) Date: Tue, 24 Jun 2008 22:21:31 +0200 Subject: [Vienna-pm] Meeting am 7.7 ? Message-ID: <20080624202130.GA6314@d610.chello.at> Hi! Am 7.7. waere wieder Termin fuer ein Meeting. Ich bin noch nicht 100%ig sicher, ob ich kann (hab in der Woche Kinderdienst weil Barbara auf einer Konferenz ist) - aber das waere ja kein Grund, kein Treffen zu machen. Der Raum im NIG ist auf jeden Fall reserviert, es braeuchte also noch Vorschlaege fuer Vortraege und fuer's Nachher... Also bitte vorschlagen! -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From domm at cpan.org Wed Jun 25 23:00:36 2008 From: domm at cpan.org (Thomas Klausner) Date: Thu, 26 Jun 2008 08:00:36 +0200 Subject: [Vienna-pm] Fwd: Win a free OSCON registration Message-ID: <20080626060036.GB20373@d610.chello.at> ----- Forwarded message from Jos? Castro ----- From: Jos? Castro Subject: [pm_groups] Win a free OSCON registration Date: Wed, 25 Jun 2008 22:36:29 +0100 To: PM Groups brian d foy has just posted about a free entry he has for OSCON and the pseudo-rules he's thinking of using to hand out that code: http://use.perl.org/article.pl?sid=08/06/25/1952240 It seems the odds are more in favor of unknown people, which probably means if you pass the message to your local group, somebody there might have a chance. In any case, the rules seem fun. I can already imagine an unknown guy holding a copy of TPR *and* a copy of Learning Perl in front of a famous landmark, doing a video to convince brian to pick him :-) Have fun, :-) jac -- Jos? Castro TPF Community Relations Leader -- Request pm.org Technical Support via support at pm.org pm_groups mailing list pm_groups at pm.org http://mail.pm.org/mailman/listinfo/pm_groups ----- End forwarded message ----- -- #!/usr/bin/perl http://domm.plix.at for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/} From daxim at cpan.org Thu Jun 26 14:19:59 2008 From: daxim at cpan.org (Lars =?utf-8?b?RMmq4bSH4bSE4bSL4bSP4bShIOi/quaLieaWrw==?=) Date: Thu, 26 Jun 2008 23:19:59 +0200 Subject: [Vienna-pm] Meeting am 7.7 ? In-Reply-To: <20080624202130.GA6314@d610.chello.at> References: <20080624202130.GA6314@d610.chello.at> Message-ID: <200806262320.07465.daxim@cpan.org> Dann mach ich Vortrag ? la surpris. Hinterher http://www.tacobar.at/ w?r mir nicht unangenehm. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 197 bytes Desc: This is a digitally signed message part. Url : http://mail.pm.org/pipermail/vienna-pm/attachments/20080626/33b9097a/attachment.bin