From p.guehring at poboxes.com Fri May 11 01:40:49 2001 From: p.guehring at poboxes.com (Philipp =?iso-8859-1?q?G=FChring?=) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] Konfigurationsdateien lesen Message-ID: <01051108404905.00811@linux1> * * * vienna-pm-list * * * -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hallo! Im Perl Kochbuch steht auf Seite 314 unter Konfigurationsdateien einlesen folgendes Beispiel: do "$ENV{HOME}/.progrc"; Ich w?rde gerne folgendes machen: main.pl: - ----- do "header.pl"; print "$head\n"; do "footer.pl"; - ---- Und in diesen beiden Dateien jeweils Variablen definieren, ... header.pl: - ----- my $head="..."; - ----- Aber das geht nicht. Was mache ich falsch, wie geh?rts richtig, oder warum geht das so nicht? Perl Module daf?r zu machen hat nicht viel Sinn, da sie nicht f?r andere Dinge verwendbar sind. (oder sehe ich da etwas falsch?) Gr??e, - -- ~ Philipp G?hring p.guehring@futureware.at ~ http://www.futureware.at/ ICQ UIN: 6588261 ~ "Hat du Abk?rzungen, mut du Futureware Translator nehmen!" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.4 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE6+p6vlqQ+F+0wB3oRAqGDAJ9YZGb7HSQcWWe8giTpWiWHwTRfJACgl+J/ DQVbSXbLQG8Lh/7gDmRVW0k= =0TLx -----END PGP SIGNATURE----- ### You are subscribed to vienna-pm-list as Philipp =?iso-8859-1?q?G=FChring?= http://www.fff.at/fff/vienna.pm/ From domm at zsi.at Fri May 11 04:16:01 2001 From: domm at zsi.at (Thomas Klausner) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] Konfigurationsdateien lesen Message-ID: <3AFBC9F1.2769.183F2C@localhost> * * * vienna-pm-list * * * Hi! > header.pl: > - ----- > my $head="..."; > - ----- > > Aber das geht nicht. Lass das my weg, dann gehts. > Perl Module daf?r zu machen hat nicht viel Sinn, da sie nicht f?r andere > Dinge verwendbar sind. (oder sehe ich da etwas falsch?) Ich wuerde schon ein perl-module machen, damit du nicht mit global values arbeiten musst. zB: header.pm: package My::Stuff; my $head="..."; und dann in main.pl: use lib ('/path/to/lib') use My::Stuff; print $My::Stuff::head; Aber: There Is More Than One Way To Do It ! ------- End of forwarded message ------- -- D_omm O_xyderkes http://domm.zsi.at M_echanen M_asteuei ### You are subscribed to vienna-pm-list as "Thomas Klausner" http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Sat May 12 00:37:33 2001 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] konfigurationsdateien lesen Message-ID: <200105120537.f4C5bXU26815@flo.inode.at> * * * vienna-pm-list * * * > Lass das my weg, dann gehts. Ja, und nimm "use strict;" dazu ..... ;-) > header.pm: > package My::Stuff; > > my $head="..."; > > > und dann in main.pl: > > use lib ('/path/to/lib') > use My::Stuff; > > print $My::Stuff::head; > > Aber: > There Is More Than One Way To Do It ! Variante 3: ----------- Varibalen in Modul definieren und zum Export bereitstellen. --------------------------------- # ./My/Stuff.pm package My::Stuff; use strict; # NICHT VERGESSEN !!!! use vars qw($VERSION @EXPORT_OK @ISA $head); # wegen strict $VERSION = 0.00_01; # nur als $My::Stuff::VERSION ansprechbar use Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw($head); $head = "..."; # muss fuer Export global sein, kein my -------------------------------- und dann ... ----------------------------- # main.pl use strict; # NICHT VERGESSEN !!!!! use lib '.'; # ... und ins Unterverzeichnis My/ stellen use My::Stuff qw($head); print "$head\n"; -------------------------------- Statt lib '.' besser das Modul in ein Verzeichnis aus der @INC-Variable installieren. Am einfachsten durch Erstellen eines Makefile.PL Roland ### You are subscribed to vienna-pm-list as Roland Bauer http://www.fff.at/fff/vienna.pm/ From p.guehring at poboxes.com Tue May 15 01:28:41 2001 From: p.guehring at poboxes.com (Philipp =?iso-8859-1?q?G=FChring?=) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] SSL Programmierung Message-ID: <01051508284116.00705@linux1> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hallo! Ich br?uchte eine HTTPS POST Funktion, die eigene Zertifikate akzeptiert. Ich habs mal durch patchen von Net::SSL (SSLeay.pm) probiert, aber der Erfolg will sich nicht so recht einstellen: Argument "server" isn't numeric in subroutine entry at /usr/lib/perl5/site_perl/5.6.0/i586-linux/Net/SSLeay.pm line 355. Argument "/etc/passwd" isn't numeric in subroutine entry at /usr/lib/perl5/site_perl/5.6.0/i586-linux/Net/SSLeay.pm line 355. Use of uninitialized value in numeric eq (==) at blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/https_cat.al) line 1321. Use of uninitialized value in numeric eq (==) at blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/https_cat.al) line 1321. Use of uninitialized value in subroutine entry at blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/set_server_cert_and_key.al) line 1400. Use of uninitialized value in concatenation (.) at blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/set_server_cert_and_key.al) line 1401. Can't call method "content" without a package or object reference at ssl.pl line 115. Sch?ne Gr??e, - -- ~ Philipp G?hring p.guehring@futureware.at ~ http://www.futureware.at/ ICQ UIN: 6588261 ~ "Hat du Abk?rzungen, mut du Futureware Translator nehmen!" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.4 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE7AMyZlqQ+F+0wB3oRAlaWAJ9DB4LX8/mJ9Br/eLcqJXFi15CTAwCfbjbi Zak55NIEJP0fief6khzgo+g= =xi0m -----END PGP SIGNATURE----- -------------- next part -------------- 1303c1303 < my ($dest_serv, $port, $out_message) = @_; --- > my ($dest_serv, $port, $out_message, $cert_file, $key_file) = @_; 1324a1325,1326 > set_server_cert_and_key ($ctx, $cert_file, $key_file) if ($cert_key || $key_file); > 1430c1432 < my ($site, $port, $path, $method, $headers, $content, $mime_type) = @_; --- > my ($site, $port, $path, $method, $headers, $content, $mime_type, $cert_file, $key_file) = @_; 1444c1446 < ($http, $errs) = https_cat($site, $port, $req); --- > ($http, $errs) = https_cat($site, $port, $req, $cert_file, $key_file); 1458,1459c1460,1461 < my ($site, $port, $path, $headers, $content, $mime) = @_; < return do_https($site, $port, $path, 'GET', $headers, $content, $mime); --- > my ($site, $port, $path, $headers, $content, $mime, $cert_file, $key_file) = @_; > return do_https($site, $port, $path, 'GET', $headers, $content, $mime, $cert_file, $key_file); 1463,1464c1465,1466 < my ($site, $port, $path, $headers, $post_str, $mime) = @_; < return do_https($site, $port, $path, 'POST', $headers, $post_str, $mime); --- > my ($site, $port, $path, $headers, $post_str, $mime, $cert_file, $key_file) = @_; > return do_https($site, $port, $path, 'POST', $headers, $post_str, $mime, $cert_file, $key_file); From roland.bauer at fff.at Fri May 18 09:44:39 2001 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] perl jobs page and list Message-ID: <200105181444.f4IEidN18869@flo.inode.at> * * * vienna-pm-list * * * WEITERLEITUNG ... Date: Tue, 1 May 2001 18:15:40 -0400 From: Uri Guttman Subject: perl jobs page and list pm group leaders: please forward this to your local pm groups. as some of you may know there have been a perl jobs announce and wanted lists hosted on pm.org. those lists have been merged and moved to the perl.org site. there are now these two lists: jobs@perl.org which is moderated and is only for posting of both job openings and situations wanted. jobs-discuss@perl.org which is not moderated and is meant to discuss the perl jobs list and web site as well and any other perl job related topics. go to jobs.perl.org for information on how to subscribe and the posting guidelines. if your pm group has a home page you might want to link to this page. the page and list are for perl jobs worldwide. telecommuting, relocation and other options are common so don't think you have to be in a particular goegraphic location to participate. also agencies and HR types are welcome too. spread the word about this page and list to any of those you know who deal with the perl job market. thanx, uri -- Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11 Class and Registration info: http://www.sysarch.com/perl/OOP_class.html ### You are subscribed to vienna-pm-list as Roland Bauer http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Fri May 18 09:38:59 2001 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] austrian holidays for Date::Calc Message-ID: <200105181438.f4IEcxg18651@flo.inode.at> * * * vienna-pm-list * * * WEITERGELEITET ... Date: Tue, 10 Apr 2001 13:37:13 +0200 From: Steffen Beyer Subject: Can you help verify austrian holidays for Date::Calc? Dear Austrian Perl Mongers, I am currently working on the next release (version 5.0) of my module "Date::Calc", which will be able to perform date calculations which take holidays into consideration. Therefore, I would like to provide calendar profiles for as many countries as possible, including Austria. I'm not sure if I implemented the Austrian holidays in the correct way, or if anything is still missing. Can you provide any insights, corrections or additions? Any help is most welcome! Can you please also forward this message to your Perl Monger mailing lists, as well as any acquaintances or friends who might be able to help? Many thanks in advance! Here are the Austrian holidays I have so far: $Profiles->{'AT'} = # Österreich { "Neujahr" => "01.01.", "Dreikönigstag" => "06.01.", "Karfreitag" => "#-2", # regional unterschiedlich "Ostersonntag" => "+0", "Ostermontag" => "+1", "Staatsfeiertag" => "01.05.", "Christi Himmelfahrt" => "+39", "Pfingstsonntag" => "+49", "Pfingstmontag" => "+50", "Fronleichnam" => "+60", "Mariä Himmelfahrt" => "15.08.", "Nationalfeiertag" => "26.10.", "Allerheiligen" => "01.11.", "Mariä Empfängnis" => "08.12.", "Christtag" => "25.12.", "Stephanitag" => "26.12." }; Please also check whether a day is an official holiday, or just a commemorative day (nobody gets a day off), or a school holiday (only schools close). Again, many thanks in advance for your precious help! Best regards, -- Steffen Beyer http://www.engelschall.com/u/sb/whoami/ (Who am I) http://www.engelschall.com/u/sb/gallery/ (Fotos Brasil, USA, ...) http://www.engelschall.com/u/sb/download/ (Free Perl and C Software) ### You are subscribed to vienna-pm-list as Roland Bauer http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Fri May 18 09:51:04 2001 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] treffen -- letzte 2 maiwochen Message-ID: <200105181451.f4IEp4c19145@flo.inode.at> * * * vienna-pm-list * * * > On Saturday, April 28, 2001, at 07:44 PM, jule p riede wrote: > >> Hat wer wieder mal sich irgendwo auf ein schwätzchen zu treffen? > Ich faende es auch gut; bin aber bis 15. Mai nicht in Wien. D.h. in den > letzten zwei Maiwochen waer's gut fuer mich (und diesmal bin ich > bestimmt da, versprochen...) > Marcel Ok, wir befinden uns "in den letzten zwei Maiwochen" :-) Wann und wo? Ich wuerde gern einmal einen Computer mit Internetanschluss in der Naehe haben, damit man bei Bedarf was ausprobieren kann. Waere zB nett, wenn man Script-Schnipsel austauschen koennte. Roland ### You are subscribed to vienna-pm-list as Roland Bauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Fri May 18 10:20:29 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] treffen -- letzte 2 maiwochen In-Reply-To: <200105181451.f4IEp4c19145@flo.inode.at> Message-ID: * * * vienna-pm-list * * * >> Ich faende es auch gut; bin aber bis 15. Mai nicht in Wien. D.h. in den >> letzten zwei Maiwochen waer's gut fuer mich (und diesmal bin ich >> bestimmt da, versprochen...) >> Marcel > > Ok, wir befinden uns "in den letzten zwei Maiwochen" :-) /me schaut auf `date` Ach ja! > Wann und wo? Ich wuerde gern einmal einen Computer mit > Internetanschluss in der Naehe haben, damit man bei Bedarf > was ausprobieren kann. Wie waer's mit der schoenen Wiener Kaffeehaus-Tradition? Oder ein akademischer Ort vielleicht, bei dem's evtl. auch Computer mit Internetzugang gibt. Computer kann ich ja mitnehmen; Internetzugang leider (noch) nicht. Zeitmaessig bin ich *sehr* flexibel (i.e. bin erst wieder im September auf Jobsuche). Daher richte ich mich da ganz nach Dir bzw. Euch. Naechster Dienstag, Mittwoch oder Donnerstag vielleicht? > Waere zB nett, wenn man Script-Schnipsel austauschen koennte. Yup. Marcel -- my int ($x, $y, $z, $n); $x**$n + $y**$n = $z**$n is insoluble if $n > 2; I have discovered a truly remarkable proof which this signature is too short to contain. (20 Aug 2001: Pierre de Fermat's 400th birthday) ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Fri May 18 10:26:16 2001 From: roland.bauer at fff.at (Roland Bauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] treffen -- letzte 2 maiwochen Message-ID: <200105181526.f4IFQGv20507@flo.inode.at> * * * vienna-pm-list * * * > Naechster Dienstag, Mittwoch oder Donnerstag vielleicht? Naechste Woche: Donnerstag ... ist Feiertag Dienstag ... ginge bei mir nicht Mittwoch ... waere fuer mich gut Roland ### You are subscribed to vienna-pm-list as Roland Bauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Fri May 18 10:52:22 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] treffen -- letzte 2 maiwochen In-Reply-To: <200105181526.f4IFQGv20507@flo.inode.at> Message-ID: * * * vienna-pm-list * * * On Friday, May 18, 2001, at 05:26 PM, Roland Bauer wrote: >> Naechster Dienstag, Mittwoch oder Donnerstag vielleicht? > > Naechste Woche: > > Donnerstag ... ist Feiertag ist er? Hm. > Mittwoch ... waere fuer mich gut Na, dann probieren wir's doch Mittwoch. Zusagen, Terminwuensche, Anregungen ? Meldet euch. Marcel -- $ perl -we time Useless use of time in void context at -e line 1. ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Fri May 18 11:08:25 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] treffen -- letzte 2 maiwochen In-Reply-To: Message-ID: * * * vienna-pm-list * * * On 18-May-2001 Marcel Grunauer wrote: >> Mittwoch ... waere fuer mich gut > > Na, dann probieren wir's doch Mittwoch. ACK. mittwoch klingt gut. mihi -- Real men don't read instructions Tim Taylor PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Fri May 18 15:12:39 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] [ANNOUNCE] Attribute::TieClasses 0.01 Message-ID: <20010518201148.SNZR29087.viemta05@localhost> * * * vienna-pm-list * * * NAME Attribute::TieClasses - attribute wrappers for CPAN Tie classes SYNOPSIS use Attribute::TieClasses; my $k : Timeout(EXPIRES => '+2s'); # loads in Tie::Scalar::Timeout and tie()s $k with those options DESCRIPTION Damian Conway's wonderful `Attribute::Handlers' module provides an easy way to use attributes for `tie()'ing variables. In effect, the code in the synopsis is simply use Attribute::Handlers autotie => { Timeout => 'Tie::Scalar::Timeout' }; Still, going one step further, it might be useful to have centrally defined attributes corresponding to commonly used Tie classes found on CPAN. Simply `use()'ing this module doesn't bring in all those potential Tie classes; they are only loaded when an attribute is actually used. The following attributes are defined: Attribute name(s) Variable ref Class the variable is tied to ================= ============ ============================= Alias HASH Tie::AliasHash Aliased HASH Tie::AliasHash Cache HASH Tie::Cache CharArray ARRAY Tie::CharArray Counter SCALAR Tie::Counter Cycle SCALAR Tie::Cycle DBI HASH Tie::DBI Decay SCALAR Tie::Scalar::Decay Defaults HASH Tie::HashDefaults Dict HASH Tie::TieDict Dir HASH Tie::Dir DirHandle HASH Tie::DirHandle Discovery HASH Tie::Discovery Dx HASH Tie::DxHash Encrypted HASH Tie::EncryptedHash FileLRU HASH Tie::FileLRUCache Fixed HASH Tie::SubstrHash FlipFlop SCALAR Tie::FlipFlop IPAddrKeyed HASH Tie::NetAddr::IP Insensitive HASH Tie::CPHash Ix HASH Tie::IxHash LDAP HASH Tie::LDAP LRU HASH Tie::Cache::LRU ListKeyed HASH Tie::ListKeyedHash Math HASH Tie::Math Mmap ARRAY Tie::MmapArray NumRange SCALAR Tie::NumRange NumRangeWrap SCALAR Tie::NumRangeWrap (in Tie::NumRange) Offset ARRAY Tie::OffsetArray Ordered HASH Tie::LLHash PackedInt ARRAY Tie::IntegerArray PerFH SCALAR Tie::PerFH Persistent HASH Tie::Persistent RDBM HASH Tie::RDBM Range HASH Tie::RangeHash RangeKeyed HASH Tie::RangeHash Rank HASH Tie::Hash::Rank Ranked HASH Tie::Hash::Rank Ref HASH Tie::RefHash Regexp HASH Tie::RegexpHash RegexpKeyed HASH Tie::RegexpHash Secure HASH Tie::SecureHash Sentient HASH Tie::SentientHash Shadow HASH Tie::ShadowHash Shadowed HASH Tie::ShadowHash Sort HASH Tie::SortHash Sorted HASH Tie::SortHash Strict HASH Tie::StrictHash Substr HASH Tie::SubstrHash TextDir HASH Tie::TextDir Timeout SCALAR Tie::Scalar::Timeout Toggle SCALAR Tie::Toggle Transact HASH Tie::TransactHash TwoLevel HASH Tie::TwoLevelHash Vec ARRAY Tie::VecArray Vector ARRAY Tie::VecArray WarnGlobal SCALAR Tie::WarnGlobal::Scalar I haven't had occasion to test all of these attributes; they were taken from the module descriptions on CPAN. For some modules where the name didn't ideally translate into an attribute name (e.g., `Tie::NetAddr::IP'), I have taken some artistic liberty to create an attribute name. Some tie classes require the use of the return value from `tie()' and are as such not directly usable by this mechanism, AFAIK. No censoring has been done as far as possible; there are several attributes that accomplish more or less the same thing. TIMTOWTDI. If you want any attribute added or renamed or find any mistakes or omissions, please contact me at . EXAMPLES # Tie::Scalar::Timeout my $m : Timeout(NUM_USES => 3, VALUE => 456, POLICY => 777); print "$m\n" for 1..5; # Tie::Hash::Rank my %scores : Ranked; %scores = ( Adams => 78, Davies => 35, Edwards => 84, Thomas => 47 ); print "$_: $scores{$_}\n" for qw(Adams Davies Edwards Thomas); # Tie::FlipFlop; my $ff : FlipFlop(qw/Red Green/); print "$ff\n" for 1..5; BUGS None known so far. If you find any bugs or oddities, please do inform the author. AUTHOR Marcel Grünauer, COPYRIGHT Copyright 2001 Marcel Grünauer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO perl(1), Attribute::Handlers(3pm). Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Fri May 18 15:15:19 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] [ANNOUNCE] Attribute::Abstract 0.01 Message-ID: <20010518201443.SOCK29087.viemta05@localhost> * * * vienna-pm-list * * * NAME Attribute::Abstract - implementing abstract methods with attributes SYNOPSIS package SomeObj; use Attribute::Abstract; sub new { ... } sub write : Abstract; DESCRIPTION Declaring a subroutine to be abstract using this attribute causes a call to it to die with a suitable exception. Subclasses are expected to implement the abstract method. Using the attribute makes it visually distinctive that a method is abstract, as opposed to declaring it without any attribute or method body, or providing a method body that might make it look as though it was implemented after all. BUGS None known so far. If you find any bugs or oddities, please do inform the author. AUTHOR Marcel Grünauer, COPYRIGHT Copyright 2001 Marcel Grünauer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO perl(1). Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Fri May 18 15:27:28 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] [ANNOUNCE] Attribute::Memoize 0.01 Message-ID: <20010518202638.SORD29087.viemta05@localhost> * * * vienna-pm-list * * * NAME Attribute::Memoize - Attribute interface to Memoize.pm SYNOPSIS use Attribute::Memoize; sub fib :Memoize { my $n = shift; return $n if $n < 2; fib($n-1) + fib($n-2); } $|++; print fib($_),"\n" for 1..50; DESCRIPTION This module makes it slightly easier (and modern) to memoize a function by providing an attribute, `:Memoize' that makes it unnecessary for you to explicitly call `Memoize::memoize()'. Options can be passed via the attribute per usual (see the `Attribute::Handlers' manpage for details, and the `Memoize' manpage for information on memoizing options): sub f :Memoize(NORMALIZER => 'main::normalize_f') { ... } However, since the call to `memoize()' is now done in a different package, it is necessary to include the package name in any function names passed as options to the attribute, as shown above. TODO test.pl BUGS None known so far. If you find any bugs or oddities, please do inform the author. AUTHOR Marcel Grünauer, COPYRIGHT Copyright 2001 Marcel Grünauer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO perl(1), Attribute::Handlers(3pm). Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Sat May 19 06:43:09 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] [ANNOUNCE] Devel::SearchINC 0.02 Message-ID: <20010519114216.FZTN2375.viemta04@localhost> * * * vienna-pm-list * * * NAME Devel::SearchINC - loading Perl modules from their development dirs SYNOPSIS use Devel::SearchINC '/my/dev/dir'; use My::Brand::New::Module; DESCRIPTION When developing a new module, I always start with h2xs -XA -n My::Module This creates a directory with a useful skeleton for the module's distribution. The directory structure is such, however, that you have to install the module first (with `make install') before you can use it in another program or module. For example, bringing in a module like so: use My::Module; requires the module to be somewhere in a path listed in `@INC', and the relative path is expected to be `My/Module.pm'. However, `h2xs' creates a structure where the module ends up in `My/Module/Module.pm'. This module tries to compensate for that. The idea is that you `use()' it right at the beginning of your program so it can modify `@INC' to look for modules in relative paths of the special structure mentioned above, starting with directories specified along with the `use()' statement (i.e. the arguments passed to this module's `import()'). This is useful because with this module you can test your programs using your newly developed modules without having to install them just so you can use them. This is especially advantageous when you consider working on many new modules at the same time. TODO Test on different platforms and Perl versions. BUGS None known so far. If you find any bugs or oddities, please do inform the author. AUTHOR Marcel Grünauer, COPYRIGHT Copyright 2001 Marcel Grünauer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO perl(1). Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Sat May 19 06:45:53 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] [ANNOUNCE] DBIx::Lookup::Field 0.01 Message-ID: <20010519114457.FZVP2375.viemta04@localhost> * * * vienna-pm-list * * * NAME DBIx::Lookup::Field - Create a lookup hash from a database table SYNOPSIS use DBI; use DBIx::Lookup::Field qw/dbi_lookup_field/; $dbh = DBI->connect(...); my $inst_id = dbi_lookup_field( DBH => $dbh, TABLE => 'institution' KEY => 'name', VALUE => 'id', ); print "Inst_A has id ", $inst_id->{Inst_A}; DESCRIPTION This module provides a way to construct a hash from a database table. This is useful for the situation where you have to perform many lookups of a field by using a key from the same table. If, for example, a table has an id field and a name field and you often have to look up the name by its id, it might be wasteful to issue many separate SQL queries. Having the two fields as a hash speeds up processing, although at the expense of memory. EXPORTS dbi_lookup_field() This function creates a hash from two fields in a database table on a DBI connection. One field acts as the hash key, the other acts as the hash value. It expects a parameter hash and returns a reference to the lookup hash. The following parameters are accepted. Parameters can be required or optional. If a required parameter isn't given, an exception is raised (i.e., it dies). DBH The database handle through which to access the table from which to create the lookup. Required. TABLE The name of the table that contains the key and value fields. Required. KEY The field name of the field that is to act as the hash key. Required. VALUE The field name of the field that is to act as the hash value. Required. WHERE A SQL 'WHERE' clause with which to restrict the 'SELECT' statement that is used to create the hash. Optional. BUGS None known at this time. If you find any oddities or bugs, please do report them to the author. AUTHOR Marcel Grünauer COPYRIGHT Copyright 2001 Marcel Grünauer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO DBI(3pm). Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Sat May 19 07:02:02 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:43 2004 Subject: [vienna.pm] [ANNOUNCE] GraphViz::DBI 0.01 Message-ID: <20010519120109.GALI2375.viemta04@localhost> * * * vienna-pm-list * * * NAME GraphViz::DBI - graph database tables and relations SYNOPSIS use GraphViz::DBI; print GraphViz::DBI->new($dbh)->graph_tables->as_png; DESCRIPTION This module constructs a graph for a database showing tables and connecting them if they are related. While or after constructing the object, pass an open database handle, then call `graph_tables' to determine database metadata and construct a GraphViz graph from the table and field information. METHODS The following methods are defined by this class; all other method calls are passed to the underlying GraphViz object: new( [$dbh] ) Constructs the object; also creates a GraphViz object. The constructor accepts an optional open database handle. set_dbh($dbh) Sets the database handle. get_dbh() Returns the database handle. is_table($table) Checks the database metadata whether the argument is a valid table name. is_foreign_key($table, $field) Determines whether the field belonging to the table is a foreign key into some other table. If so, it is expected to return the name of that table. If not, it is expected to return a false value. For example, if there is a table called "product" and another table contains a field called "product_id", then to indicate that this field is a foreign key into the product table, the method returns "product". This is the logic implemented in this class. You can override this method in a subclass to suit your needs. graph_tables() This method goes through all tables and fields and calls appropriate methods to determine which tables and which dependencies exist, then hand the results over to GraphViz. It returns the GraphViz object. TODO * Test with various database drivers to see whether they support the metadata interface. * Provide the possibility to name edges to specify the type of relationship ('has-a', 'is-a', etc.). BUGS None known so far. If you find any bugs or oddities, please do inform the author. AUTHOR Marcel Grünauer COPYRIGHT Copyright 2001 Marcel Grünauer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO perl(1), GraphViz(3pm). Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Sat May 19 07:02:25 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] [ANNOUNCE] GraphViz::ISA 0.01 Message-ID: <20010519120132.GALR2375.viemta04@localhost> * * * vienna-pm-list * * * NAME GraphViz::DBI - graph database tables and relations SYNOPSIS use GraphViz::DBI; print GraphViz::DBI->new($dbh)->graph_tables->as_png; DESCRIPTION This module constructs a graph for a database showing tables and connecting them if they are related. While or after constructing the object, pass an open database handle, then call `graph_tables' to determine database metadata and construct a GraphViz graph from the table and field information. METHODS The following methods are defined by this class; all other method calls are passed to the underlying GraphViz object: new( [$dbh] ) Constructs the object; also creates a GraphViz object. The constructor accepts an optional open database handle. set_dbh($dbh) Sets the database handle. get_dbh() Returns the database handle. is_table($table) Checks the database metadata whether the argument is a valid table name. is_foreign_key($table, $field) Determines whether the field belonging to the table is a foreign key into some other table. If so, it is expected to return the name of that table. If not, it is expected to return a false value. For example, if there is a table called "product" and another table contains a field called "product_id", then to indicate that this field is a foreign key into the product table, the method returns "product". This is the logic implemented in this class. You can override this method in a subclass to suit your needs. graph_tables() This method goes through all tables and fields and calls appropriate methods to determine which tables and which dependencies exist, then hand the results over to GraphViz. It returns the GraphViz object. TODO * Test with various database drivers to see whether they support the metadata interface. * Provide the possibility to name edges to specify the type of relationship ('has-a', 'is-a', etc.). BUGS None known so far. If you find any bugs or oddities, please do inform the author. AUTHOR Marcel Grünauer COPYRIGHT Copyright 2001 Marcel Grünauer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO perl(1), GraphViz(3pm). Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From toni at soth.at Sun May 20 14:43:39 2001 From: toni at soth.at (Toni Andjelkovic) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] SSL Programmierung Message-ID: <20010520214339.O45415@titan.soth.at> * * * vienna-pm-list * * * Philipp G?hring wrote on Tue, May 15 2001 (08:28:41 +0200): > Ich br?uchte eine HTTPS POST Funktion, die eigene Zertifikate akzeptiert. Ich > habs mal durch patchen von Net::SSL (SSLeay.pm) probiert, aber der Erfolg > will sich nicht so recht einstellen: sowas habe ich auch mal gebraucht, aber alles was es auf CPAN zum thema SSL/HTTPS gab hat mich nicht sonderlich begeistert, gr?sstenteils war es schusterei-code, der zudem noch schlecht oder gar nicht gewartet wird. vor allem hab ich mich ge?rgert dass der namespace Net:SSL bereits von Crypt::SSLeay "verwendet" wird :) deswegen wollte ich das rad unbedingt zum zweiten mal erfinden und hab ein SSL- und HTTPS-modul geschrieben, das ich nun aktualisiert habe. alles liegt unter http://soth.at/perl/ vielleicht hilft es dir. kommentare, patches, erg?nzungen/korrekturen der doku sind nat?rlich willkommen. speziel beim SSL-teil gibt es noch einiges zu tun. wenn's sinn macht, bringe ich's bei CPAN ein, mal sehen. es ist halt leider eine insel-l?sung. das ding braucht OpenSSL (eh kloa). ich hab's nur auf FreeBSD 4 mit OpenSSL 0.9.6 getestet, aber es sollte im prinzip ?berall gehen. cu, -- Toni Andjelkovic ### You are subscribed to vienna-pm-list as Toni Andjelkovic http://www.fff.at/fff/vienna.pm/ From svozil at pop.tuwien.ac.at Sun May 20 15:11:16 2001 From: svozil at pop.tuwien.ac.at (Karl Svozil) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] SSL Programmierung In-Reply-To: <20010520214339.O45415@titan.soth.at> Message-ID: <4.2.0.58.20010520220617.00c565e0@pop.tuwien.ac.at> * * * vienna-pm-list * * * Das Projekt finde ich TOLL! Danke! Nur eine Kleinigkeit: kann von meinem Kleinweich IE 5.5 Browser die doc-Seite nicht ?ffnen, wenn ich den doc-Link anklicke (weiss auch nicht warum; vielleicht wegen der "::"). Bitte explizite verweisen, zB http://soth.at/perl/Net::HTTPS.html hG, Karl Svozil ### You are subscribed to vienna-pm-list as Karl Svozil http://www.fff.at/fff/vienna.pm/ From toni at soth.at Sun May 20 15:31:04 2001 From: toni at soth.at (Toni Andjelkovic) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] SSL Programmierung In-Reply-To: <4.2.0.58.20010520220617.00c565e0@pop.tuwien.ac.at>; from svozil@pop.tuwien.ac.at on Sun, May 20, 2001 at 10:11:16PM +0200 References: <20010520214339.O45415@titan.soth.at> <4.2.0.58.20010520220617.00c565e0@pop.tuwien.ac.at> Message-ID: <20010520223104.R45415@titan.soth.at> * * * vienna-pm-list * * * Karl Svozil wrote on Sun, May 20 2001 (22:11:16 +0200): > Nur eine Kleinigkeit: kann von meinem Kleinweich IE 5.5 Browser die > doc-Seite nicht ?ffnen, wenn ich den doc-Link anklicke (weiss auch nicht > warum; vielleicht wegen der "::"). Bitte explizite verweisen, zB > http://soth.at/perl/Net::HTTPS.html :) ich hab die doppelpunkte durch einen strich ersetzt. cu, -- Toni Andjelkovic ### You are subscribed to vienna-pm-list as Toni Andjelkovic http://www.fff.at/fff/vienna.pm/ From p.guehring at poboxes.com Sun May 20 17:44:05 2001 From: p.guehring at poboxes.com (Philipp =?iso-8859-1?q?G=FChring?=) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] Soundex auf Deutsch Message-ID: <01052100440505.02002@linux1> * * * vienna-pm-list * * * -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hallo! Wie siehts mit Text::Soundex f?r Deutsch aus? Ich hab was von einem Soundex f?r Deutsch geh?rt, den jemand in SQL gebaut hat, das Ding bekomme ich irgendwann die n?chsten Tage. Gibts bereits Soundex in Perl auf Deutsch? Gr??e, - -- ~ Philipp G?hring p.guehring@futureware.at ~ http://www.futureware.at/ ICQ UIN: 6588261 ~ "Hat du Abk?rzungen, mut du Futureware Translator nehmen!" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.4 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE7CEi2lqQ+F+0wB3oRAqi5AJ0d8+kUJPs5gwDOadxhaRFagKox/wCgmJ02 DuyZJgE3pYYFRgTQlMac06U= =fQDO -----END PGP SIGNATURE----- ### You are subscribed to vienna-pm-list as Philipp =?iso-8859-1?q?G=FChring?= http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Mon May 21 01:36:41 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- letzte 2 maiwochen In-Reply-To: <200105181526.f4IFQGv20507@flo.inode.at> Message-ID: * * * vienna-pm-list * * * On Friday, May 18, 2001, at 05:26 PM, Roland Bauer wrote: > Mittwoch ... waere fuer mich gut Wann und wo sollen wir uns nun treffen? Mittwoch den 23. Mai ab 19 Uhr vielleicht? Habt ihr Vorschlaege, wo es sein soll? Vielleicht im Cafe Prueckl (U3 Stubentor), oder ein anderes Kaffeehaus? Oder das Centimeter beim Spittelberg? Oder ein anderes Lokal? Wir sollten das bis heute abend entschieden haben; Mittwoch ist ja schon uebermorgen. Marcel -- my int ($x, $y, $z, $n); $x**$n + $y**$n = $z**$n is insoluble if $n > 2; I have discovered a truly remarkable proof which this signature is too short to contain. (20 Aug 2001: Pierre de Fermat's 400th birthday) ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Mon May 21 01:55:22 2001 From: roland.bauer at fff.at (roland.bauer@fff.at) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. Message-ID: <200105210655.f4L6tMk18084@p133.inode.at> * * * vienna-pm-list * * * > Mittwoch den 23. Mai ab 19 Uhr vielleicht? Bin dafuer, wenn kein Alernativvorschlag kommt. > Vielleicht im Cafe Prueckl (U3 Stubentor) Bin dafuer, wenn kein Alernativvorschlag kommt. > Oder das Centimeter beim Spittelberg? Eher dagegen, weil laut und ueberfuellt. > Wir sollten das bis heute abend entschieden haben; Vorlaeufige Entscheidung: - Mittwoch den 23. Mai ab 19 Uhr - Cafe Prueckl (U3 Stubentor) Ich wuerde kommen. Roland ### You are subscribed to vienna-pm-list as http://www.fff.at/fff/vienna.pm/ From Thomas.Klinger at nokia.com Mon May 21 03:25:38 2001 From: Thomas.Klinger at nokia.com (Thomas.Klinger@nokia.com) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- letzte 2 maiwochen Message-ID: <2F55F6A993E2D211805F0008C7894E5601389F98@eieis01nok> * * * vienna-pm-list * * * > Habt ihr Vorschlaege, wo es sein soll? > > Vielleicht im Cafe Prueckl (U3 Stubentor), oder ein anderes > Kaffeehaus? > Oder das Centimeter beim Spittelberg? Oder ein anderes Lokal? > Hallo... Bin neu hier in der Liste. Ich selber werde keine Zeit haben f?r das Treffen, obwohl es mich mal interessieren w?rde, aber daf?r kann ich Euch ein Lokal vorschlagen. Und zwar Cafe Einstein beim Rathausplatz. Gutes Papperl, angenehme Atmosph?re, Internetcafe im Haus. Hab bis dato eigentlich nur gute Erfahrungen damit gemacht. Vorreservierung notwendig. Gru?, Tom ### You are subscribed to vienna-pm-list as Thomas.Klinger@nokia.com http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Mon May 21 03:42:02 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- letzte 2 maiwochen In-Reply-To: <2F55F6A993E2D211805F0008C7894E5601389F98@eieis01nok> Message-ID: * * * vienna-pm-list * * * On Monday, May 21, 2001, at 10:25 AM, Thomas.Klinger@nokia.com wrote: > Ich selber werde keine Zeit haben f?r das Treffen, obwohl es mich mal > interessieren w?rde, aber daf?r kann ich Euch ein Lokal vorschlagen. > Und zwar Cafe Einstein beim Rathausplatz. Gutes Papperl, angenehme > Atmosph?re, Internetcafe im Haus. > Hab bis dato eigentlich nur gute Erfahrungen damit gemacht. > Vorreservierung > notwendig. Auch eine Idee. Wenn wir allerdings vorreservieren sollten (evtl. auch im Prueckl, oder wo immer es stattfinden wird), sollten wir eine Idee haben, wieviele wir sein werden. Ich nehme mal an, fuer kleinere Gruppen wird's immer irgendwo Platz geben (ich kann auch schon etwas frueher dort sein und Ausschau nach einem guten Platz halten); falls der Andrang allerdings (unerwartet und doch freudig) gross sein sollte, sollten wir das besser jetzt besprechen. Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Mon May 21 05:41:19 2001 From: hjp at wsr.ac.at (Peter J . Holzer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- letzte 2 maiwochen In-Reply-To: ; from Marcel Grunauer on Mon, May 21, 2001 at 10:42:02AM +0200 References: <2F55F6A993E2D211805F0008C7894E5601389F98@eieis01nok> Message-ID: <20010521124119.A26749@wsr.ac.at> On 2001-05-21 10:42:02 +0200, Marcel Grunauer wrote: > * * * vienna-pm-list * * * > > > On Monday, May 21, 2001, at 10:25 AM, Thomas.Klinger@nokia.com wrote: > > Und zwar Cafe Einstein beim Rathausplatz. Gutes Papperl, angenehme > > Atmosph?re, Internetcafe im Haus. > > Auch eine Idee. > > Wenn wir allerdings vorreservieren sollten (evtl. auch im Prueckl, > oder wo immer es stattfinden wird), sollten wir eine Idee haben, > wieviele wir sein werden. [...] > falls der Andrang allerdings (unerwartet und doch freudig) gross sein > sollte, sollten wir das besser jetzt besprechen. Ich melde mich mal als "Andrang" :-) Mittwoch geht bei mir. Ob Internetcafe so sinnvoll ist, wei? ich nicht. Die Rechner dort sind doch eim wesentlichen eher "Surfstations", oder? hp -- _ | Peter J. Holzer | It's nice to fix problems by accident. |_|_) | Sysadmin WSR / LUGA | -- Theo de Raadt | | | hjp@wsr.ac.at | __/ | http://www.hjp.at/ | on bugtraq 2001-03-19 -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20010521/cb94aee3/attachment.bin From mihi at gmx.at Mon May 21 12:28:04 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. In-Reply-To: <200105210655.f4L6tMk18084@p133.inode.at> Message-ID: * * * vienna-pm-list * * * On 21-May-2001 roland.bauer@fff.at wrote: > Vorlaeufige Entscheidung: > - Mittwoch den 23. Mai ab 19 Uhr > - Cafe Prueckl (U3 Stubentor) > > Ich wuerde kommen. komme auch (evtl. später oder nach formalin stinkend) gruss mihi -- Programmers don't read documentation Alan Cox PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From jule at e-werk.at Mon May 21 14:07:02 2001 From: jule at e-werk.at (jule p riede) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. References: Message-ID: <3B096756.30104@e-werk.at> * * * vienna-pm-list * * * >> Ich wuerde kommen. ich schliesse mich an und hoffe, mein babysitter hat zeit - und ich bringe noch jemanden mit, von wegen tischreservierung :) regards jule. ### You are subscribed to vienna-pm-list as jule p riede http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Mon May 21 15:55:11 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. In-Reply-To: <200105210655.f4L6tMk18084@p133.inode.at> Message-ID: * * * vienna-pm-list * * * On 21-May-2001 roland.bauer@fff.at wrote: > Vorlaeufige Entscheidung: > - Mittwoch den 23. Mai ab 19 Uhr > - Cafe Prueckl (U3 Stubentor) noch ne frage strom, computer hubs etc. mitbringen? könnten ja ne perlan-party machen *g* gruss mihi -- "Opportunity is missed by most people because it is dressed in overalls and looks like work." -- Thomas A. Edison PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Tue May 22 02:13:01 2001 From: hjp at wsr.ac.at (Peter J . Holzer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. In-Reply-To: ; from Michael Bauer on Mon, May 21, 2001 at 10:55:11PM +0200 References: <200105210655.f4L6tMk18084@p133.inode.at> Message-ID: <20010522091301.A9306@wsr.ac.at> On 2001-05-21 22:55:11 +0200, Michael Bauer wrote: > * * * vienna-pm-list * * * > > > > On 21-May-2001 roland.bauer@fff.at wrote: > > Vorlaeufige Entscheidung: > > - Mittwoch den 23. Mai ab 19 Uhr > > - Cafe Prueckl (U3 Stubentor) > > noch ne frage strom, computer hubs etc. mitbringen? k?nnten ja ne > perlan-party machen *g* ^^^^^^ Irgendwie klingt das wie ein Waschmittel oder ein Kunststoff :-) Ja, w?re eine M?glichkeit. Laptop und Kabel habe ich, 9-Port-Hub (8 TP und 1 BNC) k?nnte ich auftreiben. hp -- _ | Peter J. Holzer | It's nice to fix problems by accident. |_|_) | Sysadmin WSR / LUGA | -- Theo de Raadt | | | hjp@wsr.ac.at | __/ | http://www.hjp.at/ | on bugtraq 2001-03-19 -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20010522/84fa79d7/attachment.bin From mihi at gmx.at Tue May 22 13:38:37 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. In-Reply-To: <20010522091301.A9306@wsr.ac.at> Message-ID: * * * vienna-pm-list * * * -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 On 22-May-2001 Peter J . Holzer wrote: >> noch ne frage strom, computer hubs etc. mitbringen? k?nnten ja ne >> perlan-party machen *g* > ^^^^^^ Irgendwie klingt das wie ein Waschmittel oder ein Kunststoff > :-) *g* perl+lan. ftp server (austausch von code fetzen) wär nett. werd mich drum kümmern. mehr brauchen wir ja nich. > Ja, wäre eine Möglichkeit. Laptop und Kabel habe ich, 9-Port-Hub (8 TP > und 1 BNC) könnte ich auftreiben. o.k. werd 2x 3fach steckdose mitbringen, meinen lap und ein kabel. noch mehr leute? gruss mihi - -- while !asleep {sheep ++}; PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.5 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE7CrIrGdqlrldJwxERAhEKAKCHYsUuDZQBnkmFj6jqgds72hGoLACffoyU 3KP5FwPTlzPWMvIAXPwQOd0= =2A08 -----END PGP SIGNATURE----- ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From jule at e-werk.at Tue May 22 15:27:42 2001 From: jule at e-werk.at (jule p riede) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. References: <200105210655.f4L6tMk18084@p133.inode.at> <20010522091301.A9306@wsr.ac.at> Message-ID: <3B0ACBBE.8040905@e-werk.at> * * * vienna-pm-list * * * Peter J . Holzer wrote: > Ja, w?re eine M?glichkeit. Laptop und Kabel habe ich, 9-Port-Hub (8 TP > und 1 BNC) k?nnte ich auftreiben. dito, das ganze nochmal kann ich mitbringen. meint ihr das ernst? ich will keine elektronik durch die gegend schleppen, wenn das ein scherz war :) regards. jule ### You are subscribed to vienna-pm-list as jule p riede http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Tue May 22 15:24:23 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. In-Reply-To: <3B0ACBBE.8040905@e-werk.at> Message-ID: * * * vienna-pm-list * * * -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 On 22-May-2001 jule p riede wrote: > dito, das ganze nochmal kann ich mitbringen. meint ihr das ernst? ich > will keine elektronik durch die gegend schleppen, wenn das ein scherz war :) naja wenn wir drei lappys haben wirds langsam was. hab schon nen ftp gebastelt für morgen. so zum codeschnipsel tauschen. was soll denn noch rauf. perl-5.6.1 hab ich schon. gruss mihi - -- Good programmers know what to write, Great programmers know what to rewrite Eric S. Raymond PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.5 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE7Csr0GdqlrldJwxERAmqrAJ4lSKjEo4GvvaxrBtL6pJx5OT9CWQCeIhzY aSDH+HxUpI6SOM01zONCdzk= =o8po -----END PGP SIGNATURE----- ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Tue May 22 15:26:27 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. In-Reply-To: <3B0ACBBE.8040905@e-werk.at> Message-ID: * * * vienna-pm-list * * * On Tuesday, May 22, 2001, at 10:27 PM, jule p riede wrote: > Peter J . Holzer wrote: > >> Ja, w?re eine M?glichkeit. Laptop und Kabel habe ich, 9-Port-Hub (8 TP >> und 1 BNC) k?nnte ich auftreiben. > > dito, das ganze nochmal kann ich mitbringen. meint ihr das ernst? ich > will keine elektronik durch die gegend schleppen, wenn das ein scherz > war :) Ack; im Prueckl ein Netzwerk aufbauen? Werden die uns eine Steckdose zur Verfuegung stellen? Wie dem auch sei; ich nehm mal den laptop mit; ist ja nicht schwer (und laeuft ohne Steckdose). Und vielleicht bekomme ich ja morgen sogar eine Airport-Karte; falls also noch jemand wireless networking hat... :) Marcel -- my int ($x, $y, $z, $n); $x**$n + $y**$n = $z**$n is insoluble if $n > 2; I have discovered a truly remarkable proof which this signature is too short to contain. (20 Aug 2001: Pierre de Fermat's 400th birthday) ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Tue May 22 15:28:52 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] treffen -- Mittwoch, 23. 05. In-Reply-To: Message-ID: * * * vienna-pm-list * * * On 22-May-2001 Marcel Grunauer wrote: > Ack; im Prueckl ein Netzwerk aufbauen? Werden die uns eine Steckdose > zur Verfuegung stellen? > > Wie dem auch sei; ich nehm mal den laptop mit; ist ja nicht schwer > (und laeuft ohne Steckdose). Und vielleicht bekomme ich ja morgen > sogar eine Airport-Karte; falls also noch jemand wireless networking > hat... :) naja soviel strom saugen wir nich... sonst ziehn wir weiter bis wir an ein beisel mit public-strom kommen *g* gruss -- Wer Rechtschreibfehler findet kann sie behalten PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From p.guehring at poboxes.com Wed May 23 05:30:53 2001 From: p.guehring at poboxes.com (Philipp =?iso-8859-1?q?G=FChring?=) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] Alternativvorschlag Treffen, Einladung Message-ID: <0105231230530D.01053@linux1> * * * vienna-pm-list * * * -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hallo allerseits! Ich m?chte euch hiermit recht herzlich heute abend zu uns in die Firma einladen. Wir stellen Netzwerk Connectivity zur Verf?gung, f?r Speis und Trank sorgen wir auch. (Zur Sicherheit eigene Patchkabel mitnehmen) Geplant h?tten wir f?r ca. 5 Leute (die sich ja bis jetzt schon angemeldet haben) Bitte um kurze EMail, wer wann kommt. Wo findet das ganze statt? Firma INTRASYS Viktorgasse 21 1. Stock, (Robert Ohorn / Intrasys) anl?uten. 4. Bezirk. Wien (N?he S?dbahnhof, S?dtirolerplatz) U-Bahn: U1 S?dtirolerplatz Telefon: 01 504 14 44 0 F?r Notf?lle: 0664 9953 109 erreichbar Sch?ne Gr??e, - -- ~ Philipp G?hring p.guehring@futureware.at ~ http://www.futureware.at/ ICQ UIN: 6588261 ~ "Hat du Abk?rzungen, mut du Futureware Translator nehmen!" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.4 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE7C5FdlqQ+F+0wB3oRAnAJAJ9CdYzdCIPL7LapsLQPm/Uh9uB5gACfWv9Z q3xWf5/wW7H70bLcLBn2F+4= =lPAD -----END PGP SIGNATURE----- ### You are subscribed to vienna-pm-list as Philipp =?iso-8859-1?q?G=FChring?= http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Wed May 23 05:59:26 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] Alternativvorschlag Treffen, Einladung In-Reply-To: <0105231230530D.01053@linux1> Message-ID: * * * vienna-pm-list * * * -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 > Hallo allerseits! > > Ich möchte euch hiermit recht herzlich heute abend zu uns in die Firma > einladen. Wir stellen Netzwerk Connectivity zur Verfügung, für Speis und > Trank sorgen wir auch. (Zur Sicherheit eigene Patchkabel mitnehmen) > Geplant hätten wir für ca. 5 Leute (die sich ja bis jetzt schon angemeldet > haben) klingt gut. wir müssen nur alle erreichen. wir könnten auch bis c.a. 20 uhr im prueckl warten und dann losziehen für die, dies nicht mitbekommen. > Bitte um kurze EMail, wer wann kommt. 19 uhr geht? mihi - -- :wq PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.5 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE7C5gFGdqlrldJwxERAjfCAKDwkSI7Z9cOcjSUdxLZS8M8ASplnQCfQ/q8 ROORs2WaA2Ub97U8SnOe/Mw= =SuCs -----END PGP SIGNATURE----- ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Wed May 23 06:08:58 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] Alternativvorschlag Treffen, Einladung In-Reply-To: <0105231230530D.01053@linux1> Message-ID: * * * vienna-pm-list * * * Hi Philipp! > Ich m?chte euch hiermit recht herzlich heute abend zu uns in die Firma > einladen. Wir stellen Netzwerk Connectivity zur Verf?gung, f?r Speis und > Trank sorgen wir auch. (Zur Sicherheit eigene Patchkabel mitnehmen) > Geplant h?tten wir f?r ca. 5 Leute (die sich ja bis jetzt schon > angemeldet > haben) > Bitte um kurze EMail, wer wann kommt. Klingt gut; vielen Dank - es kommt allerdings etwas knapp; nun weiss ich nicht, wieviele Leute noch zwischen jetzt und 7 Uhr (oder frueher, da ja auch Anfahrtszeit da ist) das noch lesen werden. Ich hab das Prueckl auch auf anderen Listen angekuendigt; da wuerden sicher einige zu Euch und einige ins Prueckl kommen. Michael's Vorschlag, naemlich Treffpunkt Prueckl, dann Intrasys klingt gut. Was denkst Du darueber, Philipp? Marcel -- $ perl -we time Useless use of time in void context at -e line 1. ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Wed May 23 08:35:43 2001 From: roland.bauer at fff.at (roland.bauer@fff.at) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] alternativvorschlag treffen, einladung Message-ID: <200105231335.f4NDZhk11991@p133.inode.at> * * * vienna-pm-list * * * > Michael's Vorschlag, naemlich Treffpunkt Prueckl, dann Intrasys klingt > gut. Finde ich gut! Roland ### You are subscribed to vienna-pm-list as http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Wed May 23 11:08:34 2001 From: hjp at wsr.ac.at (Peter J . Holzer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] alternativvorschlag treffen, einladung In-Reply-To: <200105231335.f4NDZhk11991@p133.inode.at>; from roland.bauer@fff.at on Wed, May 23, 2001 at 03:35:43PM +0200 References: <200105231335.f4NDZhk11991@p133.inode.at> Message-ID: <20010523180834.M9306@wsr.ac.at> On 2001-05-23 15:35:43 +0200, roland.bauer@fff.at wrote: > > Michael's Vorschlag, naemlich Treffpunkt Prueckl, dann Intrasys klingt > > gut. > > Finde ich gut! Ich auch (falls das noch wer liest). Ich bin um ca. 19:00 im Prueckel (sic!). hp -- _ | Peter J. Holzer | It's nice to fix problems by accident. |_|_) | Sysadmin WSR / LUGA | -- Theo de Raadt | | | hjp@wsr.ac.at | __/ | http://www.hjp.at/ | on bugtraq 2001-03-19 -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 367 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20010523/629a284e/attachment.bin From mihi at gmx.at Wed May 23 17:32:41 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] Reminder script Message-ID: * * * vienna-pm-list * * * hallo leute Hab heut nacht noch mal nen scratch für ein reminder script gemacht. Naja vieleicht ist das ja brauchbar. das mit dem Datum hab ich nich hinbekommen. gruss mihi -----snip----- #!/usr/bin/perl $local="Hopfenstange"; $adresse="hmmm weis ich nich"; @recipients=("vienna-pm-list\@happyfunball.pm.org","mihi\@nacl.dhs.org"); $from="\"vienna.pm-reminder \""; foreach my $tmp (@recipients) { open (HND, "| sendmail -F $from $tmp") or die; print HND "Subject: [ANNOUNCE] vienna.pm treffen\n"; print HND "Hallo leute, \n wir treffen uns am nächsten dienstag um 19 uhr"; print HND "im $local, $adresse. kommt zahlreich! \n"; print HND "euer reminder.\n.\n"; close (HND); }; -----snip----- -- one ring to rule them all, one ring to find them one rint to bring them all, and in the darkness bind them PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From lipo.ml at gmx.at Wed May 23 18:29:36 2001 From: lipo.ml at gmx.at (Roland E. Lipovits) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] Re: Reminder script References: Message-ID: <9ehh50$e05$1@phoenix.lipo.at0.net> * * * vienna-pm-list * * * Michael Bauer wrote: > >$local="Hopfenstange"; >$adresse="hmmm weis ich nich"; $adresse="Kaiserstraße 12, 1070 Wien"; mfg Lipo -- Roland E. Lipovits Vienna, Austria ### You are subscribed to vienna-pm-list as lipo.ml@gmx.at (Roland E. Lipovits) http://www.fff.at/fff/vienna.pm/ From mihi at gmx.at Thu May 24 15:12:50 2001 From: mihi at gmx.at (Michael Bauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] Re: Reminder script In-Reply-To: <9ehh50$e05$1@phoenix.lipo.at0.net> Message-ID: * * * vienna-pm-list * * * On 23-May-2001 Roland E. Lipovits wrote: > $adresse="Kaiserstraße 12, 1070 Wien"; o.k. mit der info hab ich das script nochmal überarbeitet. ----snip---- #!/usr/bin/perl $perl = my $bitch; # ;) $local="Hopfenstange"; $adresse="Kaiserstraße 12, 1070 Wien"; @recipients=("mihi\@localhost","mihi\@nacl.dhs.org"); $zeit="19"; $link="http://www.unet.univie.ac.at/~a9900470/perlmap.jpg"; $from="\"vienna.pm-reminder \""; foreach my $tmp (@recipients) { open (HND, "| sendmail -F $from $tmp") or die; print HND "Subject: [ANNOUNCE] vienna.pm treffen\n"; print HND "Hallo leute, \n wir treffen uns am nächsten dienstag um $zeit uhr"; print HND " im $local, $adresse. kommt zahlreich! \n"; print HND "euer reminder.\n"; print HND "\n Anreise: $link\n.\n"; close (HND); }; ----snip---- gruss mihi -- Real men don't read instructions Tim Taylor PGP/GPG key @ http://unet.univie.ac.at/~a9900470/mihi.asc ### You are subscribed to vienna-pm-list as Michael Bauer http://www.fff.at/fff/vienna.pm/ From p.guehring at poboxes.com Thu May 24 15:17:25 2001 From: p.guehring at poboxes.com (Philipp G?hring) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] Fwd: Re: ReiserFS Bug beim =?koi8-r?q?anh=E4ngen=20an=20kleine=20Dateien?= Message-ID: <01052422172505.00706@linux1> * * * vienna-pm-list * * * ---------- Weitergeleitete Nachricht ---------- Subject: Re: ReiserFS Bug beim anh?ngen an kleine Dateien Date: Thu, 24 May 2001 11:02:14 -0700 From: Hans Reiser To: p.guehring@futureware.at I strongly suspect this is a perl coding bug of some sort, can you post it to the mailing list (reiserfs-list)? I haven't worked with perl for a while, so I am not current on its buffering issues, etc. Hans Philipp G?hring wrote: > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > Am Donnerstag, 24. Mai 2001 19:20 schrieben Sie: > > Can you resend in english? > > Sure. > > Hi! > > I created a batchjob, which converts a database. I have about 200.000 > records with about 10 kilobyte per record. > > It?s just one singular batch-job, so concurrent accesses or heavy load > cannot be the problem. > > I am reading the records out of Cobol tables, and concatenate them with > Perl into files. > > At first, I tried to do it the following way: > > open (OUT,">>sta/$pkz") or die; > convert and write a part of the record > clouse OUT; > > open (OUT,">>sta/$pkz") or die; > convert and write a part of the record > clouse OUT; > > open (OUT,">>sta/$pkz") or die; > convert and write a part of the record > clouse OUT; > > ... > > I do this about 10 times, so the whole file sums up to about 10 Kilobyte. > > The problem is that about one to ten percent of the files get corrupted. > The first records are good. When for example the third records should be > added to the file, a part of the file gets overwritten with Zeros (0x00), > and the record gets added. > > I am thinking that it is a bug in ReiserFS, which happens when the file > gets opened for attaching. As far as I know, ReiserFS puts several small > files into one block, if they fit into it. I think for the first few > records, the files are together in one block. But when they have to grow > and get their own blocks, something goes wrong. > > I rewrote the code: > > my @save; > open (OUT," and close OUT; > open (OUT,">sta/$pkz") or die; > print OUT @save; > #Now write out the part of the record that gets added > close OUT; > > So the file is opened for read, read in, closed again; opened for > overwriting, being written again, then the part to be attached gets > written, and then it gets closed again. > (Concatenating by hand) > > Which seems to be a working workaround for the problem. > > The only problem is the memory consumption and the performance problem the > workaround generates. > > I am using ReiserFS from Kernel 2.2 and Kernel 2.4 which I got from the > SuSE 7.1 (Intel architecture) > > I tried it on completely different machines (IDE vs. SCSI, Pentium 100 vs. > Pentium 4/800, ...) > > The problem seems to be easily reconstructable. > > I hope this helps to find and remove the bug. > > Many greetings, > - -- > ~ Philipp G?hring p.guehring@futureware.at > ~ http://www.futureware.at/ ICQ UIN: 6588261 > ~ "Hat du Abk?rzungen, mut du Futureware Translator nehmen!" > > -----BEGIN PGP SIGNATURE----- > Version: GnuPG v1.0.4 (GNU/Linux) > Comment: For info see http://www.gnupg.org > > iD8DBQE7DUnllqQ+F+0wB3oRAtuVAKCQbvYytKuZ06uXk9jIYoK79qEQ8ACfc+Ei > wss53L5onKtuB4/1d89Oaks= > =uRC1 > -----END PGP SIGNATURE----- ------------------------------------------------------- -- ~ Philipp G?hring p.guehring@futureware.at ~ http://www.futureware.at/ ICQ UIN: 6588261 ~ "Hat du Abk?rzungen, mut du Futureware Translator nehmen!" ### You are subscribed to vienna-pm-list as Philipp G?hring http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Fri May 25 02:47:41 2001 From: roland.bauer at fff.at (roland.bauer@fff.at) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] fwd: re: reiserfs bug beim =?koi8-r?q?anh=e4ngen=20an=20kleine=20dateien?= Message-ID: <200105250747.f4P7lfk01581@p133.inode.at> * * * vienna-pm-list * * * > > I am using ReiserFS from Kernel 2.2 and Kernel 2.4 which I got from the > > SuSE 7.1 (Intel architecture) [...] > > The problem seems to be easily reconstructable. Am Mittwoch wolltest Du das auch auf einem anderen FS probieren. Hast Du? - Oder hast Du drauf spekuliert, dass der Herr Reiser bei sich einen Fehler findet ... ;-) Roland ### You are subscribed to vienna-pm-list as http://www.fff.at/fff/vienna.pm/ From Markus.Hornyik at telekom.at Tue May 29 13:36:33 2001 From: Markus.Hornyik at telekom.at (Hornyik Markus) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] genau ein whitespace ersetzen ???? Message-ID: * * * vienna-pm-list * * * Hilfe, peinliche Frage, wie kann ich genau ein Leerzeichen ersetzen ? Mehrere sollen ignoriert werden ?! Dank im voraus, Markus ### You are subscribed to vienna-pm-list as Hornyik Markus http://www.fff.at/fff/vienna.pm/ From domm at zsi.at Tue May 29 15:52:56 2001 From: domm at zsi.at (Thomas Klausner) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] genau ein whitespace ersetzen ???? In-Reply-To: Message-ID: <3B142848.29797.3D3E21@localhost> * * * vienna-pm-list * * * Hi! > wie kann ich genau ein Leerzeichen ersetzen ? > Mehrere sollen ignoriert werden ?! Du meinst, wenn ein Leerzeichen vorkommt, soll dieses ersetzt werden, wenn mehre vorkommen soll gar nix passieren? s/(\S)( +)(\S)/(length($2)==1?$1.'X'.$3:$1.$2.$3)/eg; Ersetzt eine einzelnen Space zwischen zwei Nicht-Spaces durch ein "X", mehrere Spaces bleiben bestehen. Anders geht es glaub ich nur mit zero-width negative lookaheads und lookbehinds, aber ich lasse mich gerne eines bessern belehren! -- D_omm O_xyderkes http://domm.zsi.at M_echanen M_asteuei ### You are subscribed to vienna-pm-list as "Thomas Klausner" http://www.fff.at/fff/vienna.pm/ From domm at zsi.at Tue May 29 15:53:08 2001 From: domm at zsi.at (Thomas Klausner) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] genau ein whitespace ersetzen ???? In-Reply-To: Message-ID: <3B142854.23168.3D6BD0@localhost> * * * vienna-pm-list * * * Hi! > wie kann ich genau ein Leerzeichen ersetzen ? > Mehrere sollen ignoriert werden ?! Du meinst, wenn ein Leerzeichen vorkommt, soll dieses ersetzt werden, wenn mehre vorkommen soll gar nix passieren? s/(\S)( +)(\S)/(length($2)==1?$1.'X'.$3:$1.$2.$3)/eg; Ersetzt eine einzelnen Space zwischen zwei Nicht-Spaces durch ein "X", mehrere Spaces bleiben bestehen. Anders geht es glaub ich nur mit zero-width negative lookaheads und lookbehinds, aber ich lasse mich gerne eines bessern belehren! -- D_omm O_xyderkes http://domm.zsi.at M_echanen M_asteuei ### You are subscribed to vienna-pm-list as "Thomas Klausner" http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Tue May 29 04:38:51 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] genau ein whitespace ersetzen ???? In-Reply-To: Message-ID: <20010529213833.MMEL18107.viemta05@localhost> * * * vienna-pm-list * * * On Tuesday, May 29, 2001, at 08:36 PM, Hornyik Markus wrote: > wie kann ich genau ein Leerzeichen ersetzen ? > Mehrere sollen ignoriert werden ?! Die Frage kann man auf mehrere Arten interpretieren: Wenn Du das erste Leerzeichen in einem String ersetzen willst, etwa durch ein 'x', nimm $str =~ s/ /x/; Willst Du alle Spaces ersetzen, solange sie nur einzeln auftreten, d.h. nicht mehr als eins nacheinander, nimm $str =~ s/ (?! )/x/g; Dokumentation zu regular expressions gibts mit perldoc perlre Meinst Du nicht nur spaces, sondern whitespace im Allgemeinen, ersetze ' ' durch '\s' (siehe perlre). Marcel -- $ perl -we time Useless use of time in void context at -e line 1. ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Tue May 29 18:09:22 2001 From: roland.bauer at fff.at (roland.bauer@fff.at) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] genau ein whitespace ersetzen ???? Message-ID: <200105292309.f4TN9M129956@p133.inode.at> * * * vienna-pm-list * * * > Willst Du alle Spaces ersetzen, solange sie nur einzeln > auftreten, d.h. nicht mehr als eins nacheinander, nimm > > $str =~ s/ (?! )/x/g; Ich hab's ausprobiert: use strict; my $str; # Ersetzt jedes Blank, das nicht # von einem anderen gefolgt wird. # Das trifft aber auch auf das # letzte Blank von mehreren zu. $str = 'a c'; $str =~ s/ (?! )/x/g; print "$str\n"; # ----> 'a xc' # Ersetzt nur Blanks, wo vorher und # nachher kein Blank steht. $str = 'a c'; $str =~ s/([^ ]) (?! )/$1x/g; print "$str\n"; # Variante 2 $str = 'a c'; $str =~ s/([^ ]) ([^ ])/$1x$2/g; print "$str\n"; # Variante 3 $str = 'a c'; $str =~ s/(?:[^ ]) (?:[^ ])/x/g; print "$str\n"; # Variante 4 $str = 'a c'; $str =~ s/(?:[^ ]) (?! )/x/g; print "$str\n"; Die Varianten entstehen dadurch, dass man sich aussuchen kann, wo man den Schreibaufwand haben will ... s/([^ ]) (?! )/$1x/g; s/(?:[^ ]) (?! )/x/g; Oder, gemaess der length-Idee: $str = 'a c'; $str =~ s/ +/$& eq ' '?'x':$&/eg; print "$str\n"; Schoene Gruesse Roland ### You are subscribed to vienna-pm-list as http://www.fff.at/fff/vienna.pm/ From roland.bauer at fff.at Tue May 29 18:28:55 2001 From: roland.bauer at fff.at (roland.bauer@fff.at) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] 1 blank ersetzen Message-ID: <200105292328.f4TNSt130774@p133.inode.at> * * * vienna-pm-list * * * > # Variante 2 > $str = 'a c'; > $str =~ s/([^ ]) ([^ ])/$1x$2/g; > print "$str\n"; Genauere Ueberlegungen ergeben, das das zB fuer ein einzelnes Blank am Beginn auch nicht funktioniert. So ginge es: $str = ' c'; $str =~ s/(^|[^ ]) ([^ ])/$1x$2/g; print "$str\n"; Ich glaube langsam, die length-Idee ist der robusteste Ansatz. Vermutlich weil er bloss die Anforderung in Perl formuliert: "Wenn mehrere Spaces hintereinander ..." Aber was war genau gwuenscht? "wie kann ich genau ein Leerzeichen ersetzen ? Mehrere sollen ignoriert werden ?!" Das koennte auch heissen: - 1 Leerzeichen wird zu x - mehrere werden geloescht Das ginge dann zB so: $str = 'a c'; $str =~ s/ {2,}//g; $str =~ s/ /x/g; print "$str\n"; Naemlich zweistufig: - zuerst die mehrfachen loeschen - die uebriggebliebenen einzelnen substituieren Roland ### You are subscribed to vienna-pm-list as http://www.fff.at/fff/vienna.pm/ From hjp at wsr.ac.at Wed May 30 02:04:51 2001 From: hjp at wsr.ac.at (Peter J . Holzer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] genau ein whitespace ersetzen ???? In-Reply-To: <20010529213833.MMEL18107.viemta05@localhost>; from Marcel Grunauer on Tue, May 29, 2001 at 11:38:51AM +0200 References: <20010529213833.MMEL18107.viemta05@localhost> Message-ID: <20010530090451.K21655@wsr.ac.at> On 2001-05-29 11:38:51 +0200, Marcel Grunauer wrote: > Willst Du alle Spaces ersetzen, solange sie nur einzeln > auftreten, d.h. nicht mehr als eins nacheinander, nimm > > $str =~ s/ (?! )/x/g; Nicht ganz. Das ersetzt auch das jeweils letzte Blank von mehreren. Man br?uchte noch ein negative lookbehind, um zu checken, ob davor auch kein Blank kommt: $str =~ s/(? __/ | http://www.hjp.at/ | on bugtraq 2001-03-19 -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 371 bytes Desc: not available Url : http://mail.pm.org/archives/vienna-pm/attachments/20010530/efd0c1f4/attachment.bin From marcel at codewerk.com Wed May 30 15:51:58 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] [ANNOUNCE] Attribute::Util 0.02 Message-ID: <20010530205202.NMLD7937.viemta04@localhost> * * * vienna-pm-list * * * NAME Attribute::Util - A selection of general-utility attributes SYNOPSIS use Attribute::Util; # Alias sub color : Alias(colour) { return 'red' } # Abstract package MyObj; sub new { ... } sub somesub: Abstract; package MyObj::Better; use base 'MyObj'; sub somesub { return "I'm implemented!" } # Memoize sub fib :Memoize { my $n = shift; return $n if $n < 2; fib($n-1) + fib($n-2); } $|++; print fib($_),"\n" for 1..50; # SigHandler sub myalrm : SigHandler(ALRM, VTALRM) { ... } sub mywarn : SigHandler(__WARN__) { ... } DESCRIPTION This module provides four universally accessible attributes of general interest: Memoize This attribute makes it slightly easier (and modern) to memoize a function by providing an attribute, `:Memoize' that makes it unnecessary for you to explicitly call `Memoize::memoize()'. Options can be passed via the attribute per usual (see the `Attribute::Handlers' manpage for details, and the `Memoize' manpage for information on memoizing options): sub f :Memoize(NORMALIZER => 'main::normalize_f') { ... } However, since the call to `memoize()' is now done in a different package, it is necessary to include the package name in any function names passed as options to the attribute, as shown above. Abstract Declaring a subroutine to be abstract using this attribute causes a call to it to die with a suitable exception. Subclasses are expected to implement the abstract method. Using the attribute makes it visually distinctive that a method is abstract, as opposed to declaring it without any attribute or method body, or providing a method body that might make it look as though it was implemented after all. Alias If you need a variable or subroutine to be known by another name, use this attribute. Internally, the attribute's handler assigns typeglobs to each other. As such, the `Alias' attribute provides a layer of abstraction. If the underlying mechanism changes in a future version of Perl (say, one that might not have the concept of typeglobs anymore :), a new version of this module will take care of that, but your `Alias' declarations are going to stay the same. Note that assigning typeglobs means that you can't specify a synonym for one element of the glob and use the same synonym for a different target name in a different slot. I.e., sub color :Alias(colour) { ... } my $farbe :Alias(colour); doesn't make sense, since the sub declaration aliases the whole `colour' glob to `color', but then the scalar declaration aliases the whole `colour' glob to `farbe', so the first alias is lost. SigHandler When used on a subroutine, this attribute declares that subroutine to be a signal handler for the signal(s) given as options for this attribute. It thereby frees you from the implementation details of defining sig handlers and keeps the handler definitions where they belong, namely with the handler subroutine. BUGS None known so far. If you find any bugs or oddities, please do inform the author. AUTHOR Marcel Grunauer, COPYRIGHT Copyright 2001 Marcel Grunauer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO perl(1), Attribute::Handlers(3pm), Memoize(3pm). Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/ From marcel at codewerk.com Wed May 30 16:27:11 2001 From: marcel at codewerk.com (Marcel Grunauer) Date: Thu Aug 5 00:23:44 2004 Subject: [vienna.pm] [ANNOUNCE] Attribute::Overload 0.02 Message-ID: <20010530212721.NOPZ7937.viemta04@localhost> * * * vienna-pm-list * * * NAME Attribute::Overload - Attribute that makes overloading easier SYNOPSIS use Attribute::Overload; sub add : Overload(+) { ... } DESCRIPTION The `Overload' attribute, when used on a subroutine, declares that subroutine as handler in the current package for the operation(s) indicated by the attribute options. Thus it frees you from the implementation details of how to declare overloads and keeps the definitions where they belong, with the operation handlers. For details of which operations can be overloaded and what the overloading function gets passed see the `overload' manpage. Note that you can't overload constants this way, since this has to happen during BEGIN time, but attributes are only evaluated at CHECK time (at least as far as `Attribute::Handlers' is concerned). BUGS None known so far. If you find any bugs or oddities, please do inform the author. AUTHOR Marcel Grunauer, COPYRIGHT Copyright 2001 Marcel Grunauer. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO perl(1), overload(3pm), Attribute::Handlers(3pm). Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka "embrace and extend" aka "mark and sweep" ### You are subscribed to vienna-pm-list as Marcel Grunauer http://www.fff.at/fff/vienna.pm/