From reyjiurj at yahoo.com Tue May 14 06:11:23 2002 From: reyjiurj at yahoo.com (reyjiurj@yahoo.com) Date: Wed Aug 4 00:08:02 2004 Subject: No subject Message-ID: An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20020514/0e66f744/attachment.htm From pdarley at kinesis-cem.com Wed May 1 12:12:59 2002 From: pdarley at kinesis-cem.com (Peter Darley) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Hash Sorting Message-ID: Friends, Thanks to everyone for their help with my problem yesterday! Thanks, Peter Darley - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From kahn at cpan.org Wed May 1 16:00:42 2002 From: kahn at cpan.org (Jeremy Kahn) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Lingua::EN::Haiku Message-ID: SPUGsters (and Damian) Some of you may remember my talk in April where I presented my attempt at "refactoring" (yes, we're buzzword-compliant) out the haiku-generation feature from Coy.pm. For those who missed my talk, and for those in other time-zones (Damian!), or for those who are interested in taking a look at the gruesome damage I did to a subset of the Coy.pm code, the following page references these (and some other discussion of computer haikus): http://students.washington.edu/~jgk/haiku/index.html Damian (or anybody else!), I'd be happy to chat with you off-list about where I was going with this, and if it makes sense to put this up on CPAN. Code forks (and that might be what this is) are tricky and potentially wasteful, and I'd rather be sure we agree on what this is good for (maybe not much!). And, of course, if anybody wants to send me patches, improvements, or suggestions, I'd love that. Happy Haiku Hacking! --jeremy, who really should get back to work ----------- Errors have occurred. We won't tell you where or why. Lazy programmers. ^^^^ -- this is the Bad kind of Lazy. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From humbaba9 at yahoo.com Thu May 2 12:23:32 2002 From: humbaba9 at yahoo.com (Meryll Larkin) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: perl2exe perl-cgi file size problem Message-ID: <20020502172332.91620.qmail@web12803.mail.yahoo.com> 5/2/02 Hi SPUGsters, I have a 14.5K perl-cgi script that generates a Web page. I want to put it on an IIS Server (stuck with that for the moment) which is housing my domain. This server has a mock cgi-bin that will run perl2exe files. When I compile with perl2exe, the file bloats to 1016K. When I realized it was compiling all of CGI.pm (standard) into the exe, I stripped down the script to use the minimim amount of CGI that I could. The script is now only using param from CGI, and all the rest is Perl (including 3 function calls to time)(mostly Perl printing complex HTML). More than 300K is from CGIpm (still, even 700K is an enormous Web file). So, before I embark on a project more time consuming than writing the original script, (wading through CGI.pm to see if I could steal or adapt the param method and embed it into my script) I wanted to ask: Does anyone have any recommendations (other than getting off the IIS - that's for later this year) for me to try with my Perl script and perl2exe? Thanks, Meryll Larkin __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From ryan.bark at pobox.com Thu May 2 13:48:18 2002 From: ryan.bark at pobox.com (Ryan Bark) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: perl2exe perl-cgi file size problem In-Reply-To: <20020502172332.91620.qmail@web12803.mail.yahoo.com> Message-ID: <004e01c1f209$edd60c20$f718fa43@DEVBOX> Have you tried CGI::Minimal? -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of Meryll Larkin Sent: Thursday, May 02, 2002 10:24 AM To: SPUG List Subject: SPUG: perl2exe perl-cgi file size problem 5/2/02 Hi SPUGsters, I have a 14.5K perl-cgi script that generates a Web page. I want to put it on an IIS Server (stuck with that for the moment) which is housing my domain. This server has a mock cgi-bin that will run perl2exe files. When I compile with perl2exe, the file bloats to 1016K. When I realized it was compiling all of CGI.pm (standard) into the exe, I stripped down the script to use the minimim amount of CGI that I could. The script is now only using param from CGI, and all the rest is Perl (including 3 function calls to time)(mostly Perl printing complex HTML). More than 300K is from CGIpm (still, even 700K is an enormous Web file). So, before I embark on a project more time consuming than writing the original script, (wading through CGI.pm to see if I could steal or adapt the param method and embed it into my script) I wanted to ask: Does anyone have any recommendations (other than getting off the IIS - that's for later this year) for me to try with my Perl script and perl2exe? Thanks, Meryll Larkin __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From daryn at marinated.org Thu May 2 13:48:43 2002 From: daryn at marinated.org (Daryn Nakhuda) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: perl2exe perl-cgi file size problem In-Reply-To: <20020502172332.91620.qmail@web12803.mail.yahoo.com> Message-ID: out of curiosity, why do you want the file smaller? It sounds like you're saying 700k is a large web file, by which I'm guessing you mean to download.. keep in mind that the filesize of the perl script isn't what the user downloads, they just get the output of your script, which is the same as it was from the 14k version. There's other reasons for smaller files I could think of, like your disk quota, or possibly memory usage, and I don't have an answer for those, but just wanted to make sure you're worried for the right reasons :) -daryn On Thu, 2 May 2002, Meryll Larkin wrote: > 5/2/02 > > Hi SPUGsters, > > I have a 14.5K perl-cgi script that generates a Web > page. I want to put it on an IIS Server (stuck with > that for the moment) which is housing my domain. This > server has a mock cgi-bin that will run perl2exe > files. > > When I compile with perl2exe, the file bloats to > 1016K. When I realized it was compiling all of CGI.pm > (standard) into the exe, I stripped down the script to > use the minimim amount of CGI that I could. The > script is now only using param from CGI, and all the > rest is Perl (including 3 function calls to > time)(mostly Perl printing complex HTML). More than > 300K is from CGIpm (still, even 700K is an enormous > Web file). > > So, before I embark on a project more time consuming > than writing the original script, (wading through > CGI.pm to see if I could steal or adapt the param > method and embed it into my script) I wanted to ask: > > Does anyone have any recommendations (other than > getting off the IIS - that's for later this year) for > me to try with my Perl script and perl2exe? > > Thanks, > Meryll Larkin > > > > > __________________________________________________ > Do You Yahoo!? > Yahoo! Health - your guide to health and wellness > http://health.yahoo.com > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org > -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Ryan.Parr at wwireless.com Thu May 2 13:53:51 2002 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: perl2exe perl-cgi file size problem Message-ID: <6D6F0541E2B1D411A75B0002A513016D028004CE@wacorpml03.wwireless.com> If you're going to be doing Perl for IIS then you really can't go wrong with using ActiveState's Perl Dev Kit. The PerlApp component will probably be able to allow you to do what you're looking for. -- Ryan Parr Common sense is the collection of prejudices acquired by age eighteen. -- Albert Einstein -----Original Message----- From: Meryll Larkin [mailto:humbaba9@yahoo.com] Sent: Thursday, May 02, 2002 10:24 AM To: SPUG List Subject: SPUG: perl2exe perl-cgi file size problem 5/2/02 Hi SPUGsters, I have a 14.5K perl-cgi script that generates a Web page. I want to put it on an IIS Server (stuck with that for the moment) which is housing my domain. This server has a mock cgi-bin that will run perl2exe files. When I compile with perl2exe, the file bloats to 1016K. When I realized it was compiling all of CGI.pm (standard) into the exe, I stripped down the script to use the minimim amount of CGI that I could. The script is now only using param from CGI, and all the rest is Perl (including 3 function calls to time)(mostly Perl printing complex HTML). More than 300K is from CGIpm (still, even 700K is an enormous Web file). So, before I embark on a project more time consuming than writing the original script, (wading through CGI.pm to see if I could steal or adapt the param method and embed it into my script) I wanted to ask: Does anyone have any recommendations (other than getting off the IIS - that's for later this year) for me to try with my Perl script and perl2exe? Thanks, Meryll Larkin __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From kenslinux at shaw.ca Thu May 2 14:12:30 2002 From: kenslinux at shaw.ca (Ken Clarke) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem References: <20020502172332.91620.qmail@web12803.mail.yahoo.com> Message-ID: <00c301c1f20d$4ebd25c0$94c54618@gv.shawcable.net> ----- Original Message ----- From: "Meryll Larkin" To: "SPUG List" Sent: May 2, 2002 10:23 AM Subject: SPUG: perl2exe perl-cgi file size problem >The script is now only using param from CGI, and all the >rest is Perl... If you're just reading text form input (IE not uploading from a multipart/form-data enctype form) and your form(s) don't include multi-select menues or multiple check boxes with the same name parameter, use this and and replace $q -> param('formfieldname') with $q -> {'formfieldname'} unless($q = &GetFormData) { # handle errors } ######### # PURPOSE Reads input from a HTML form # RETURNS A pointer to the data hash or 0 (the integer zero) if there's a problem sub GetFormData { local $in; %in = (); local($name, $value) ; if ($ENV{'REQUEST_METHOD'} eq 'GET') { $in= $ENV{'QUERY_STRING'}; } else { length($ENV{'CONTENT_LENGTH'}) || return 0; # Read entire string of CGI vars into $in read(STDIN, $in, $ENV{'CONTENT_LENGTH'}) ; } length($in) || return 0; # no form data received foreach (split('&', $in)) { # Resolve and unencode name/value pairs into %in s/\+/ /g ; ($name, $value)= split('=', $_, 2) ; $name=~ s/%(..)/chr(hex($1))/ge ; $value=~ s/%(..)/chr(hex($1))/ge ; $in{$name}.= $value ; # modify this if you want to support multiples } foreach $key (keys %in) { # strip empty form fields delete $in{$key} if ($in{$key} eq ""); } return \%in; } >> Ken Clarke >> Contract Web Programmer / E-commerce Technologist >> www.perlprogrammer.net :: www.modperldev.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Marc.M.Adkins at Doorways.org Thu May 2 15:14:10 2002 From: Marc.M.Adkins at Doorways.org (Marc M. Adkins) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: perl2exe perl-cgi file size problem In-Reply-To: <20020502172332.91620.qmail@web12803.mail.yahoo.com> Message-ID: The parameter code is pretty simple. You might be well off stealing it from CGI.pm. I've done this myself (and might still have the code somewhere if you want me to look for it). Another option might be CGI::Lite, which is available on CPAN. It is a stripped-down version that is supposed to be smaller, load faster, etc. I have not personally used it. If you feel brave, you might look into FastCGI (http://www.fastcgi.com/). Then you would be running an .exe which would call your perl script, which would run continuously as a stand-alone process. So you would need to be able to run a process with your page generator in it. An extra benefit is faster performance, as you aren't starting your script from scratch each time. FCGI is designed to work "like" CGI, with minimal changes to your existing script, other than putting the page handling code into a top-level loop. I've used FastCGI a bunch on Windows and Linux, though only with Apache. In addition to the cgifcgi.exe mechanism, there's an ISAPI plug-in. Marc M. Adkins > -----Original Message----- > From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of > Meryll Larkin > Sent: Thursday, May 02, 2002 10:24 AM > To: SPUG List > Subject: SPUG: perl2exe perl-cgi file size problem > > > 5/2/02 > > Hi SPUGsters, > > I have a 14.5K perl-cgi script that generates a Web > page. I want to put it on an IIS Server (stuck with > that for the moment) which is housing my domain. This > server has a mock cgi-bin that will run perl2exe > files. > > When I compile with perl2exe, the file bloats to > 1016K. When I realized it was compiling all of CGI.pm > (standard) into the exe, I stripped down the script to > use the minimim amount of CGI that I could. The > script is now only using param from CGI, and all the > rest is Perl (including 3 function calls to > time)(mostly Perl printing complex HTML). More than > 300K is from CGIpm (still, even 700K is an enormous > Web file). > > So, before I embark on a project more time consuming > than writing the original script, (wading through > CGI.pm to see if I could steal or adapt the param > method and embed it into my script) I wanted to ask: > > Does anyone have any recommendations (other than > getting off the IIS - that's for later this year) for > me to try with my Perl script and perl2exe? > > Thanks, > Meryll Larkin > > > > > __________________________________________________ > Do You Yahoo!? > Yahoo! Health - your guide to health and wellness > http://health.yahoo.com > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From cmeyer at helvella.org Thu May 2 15:21:24 2002 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem In-Reply-To: <00c301c1f20d$4ebd25c0$94c54618@gv.shawcable.net>; from kenslinux@shaw.ca on Thu, May 02, 2002 at 12:12:30PM -0700 References: <20020502172332.91620.qmail@web12803.mail.yahoo.com> <00c301c1f20d$4ebd25c0$94c54618@gv.shawcable.net> Message-ID: <20020502132124.B5050@hobart.helvella.org> On Thu, May 02, 2002 at 12:12:30PM -0700, Ken Clarke wrote: > > ----- Original Message ----- > From: "Meryll Larkin" > To: "SPUG List" > Sent: May 2, 2002 10:23 AM > Subject: SPUG: perl2exe perl-cgi file size problem > > > >The script is now only using param from CGI, and all the > >rest is Perl... > > If you're just reading text form input (IE not uploading from a > multipart/form-data enctype form) and your form(s) don't include > multi-select menues or multiple check boxes with the same name parameter, > use this and and replace $q -> param('formfieldname') with $q -> > {'formfieldname'} Modern browsers use ';' instead of '&' to separate parameters in the URL. The [deleted] code sample would not handle that, so it may well fail to just read text from a simple form input. I'd strongly suggest using CGI.pm instead of any hand-rolled solution. CGI.pm is incredibly robust, and correctly handles *all* properly formatted HTTP/1.0 or HTTP/1.1 requests, and runs correctly on platforms with odd line endings, etc. If you absolutely feel that CGI.pm is too bloated, then try CGI::Lite. If you don't wish to take my word on it, read what Merlyn (Randal Schwartz), Ovid, and Japhy have to say about it: Merlyn on why to use CGI.pm: http://www.perlmonks.org/index.pl?node_id=28499 Ovid on problems with alternatives to CGI.pm: http://www.perlmonks.org/index.pl?node_id=28499 Japhy on the difficulties of parsing a CGI query: http://www.crusoe.net/~jeffp/articles/ideas/CGI/3.html Have fun, and keep using CGI.pm, -C. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From davidinnes at chicagoscience.com Thu May 2 15:36:08 2002 From: davidinnes at chicagoscience.com (David Innes (CSG)) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: perl2exe perl-cgi file size problem In-Reply-To: <20020502172332.91620.qmail@web12803.mail.yahoo.com> Message-ID: Hmm. First of all why use perl2exe at all? The 'mock cgi-bin' folder under IIS is typically pretty mundane. It's just a regular IIS folder with permission to execute a particular interpreter against files with the right extension. Unless your server admins have done something really weird with IIS you should be able to run straight scripts against the regular perl.exe interpreter. Second of all why use perl.exe and CGI-Bin at all? Your script will certainly run dozens if not scores of times faster if you use PerlIS instead. PerlIS is an ISAPI dll that comes for free with the standard ActiveState Perl distribution. In the very unlikely event that's still not fast enough ActiveState has some commercial-but-still-pretty-cheap solutions but I've never felt a need to explore them. -- David Innes -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of Meryll Larkin Sent: Thursday, May 02, 2002 10:24 AM To: SPUG List Subject: SPUG: perl2exe perl-cgi file size problem 5/2/02 Hi SPUGsters, I have a 14.5K perl-cgi script that generates a Web page. I want to put it on an IIS Server (stuck with that for the moment) which is housing my domain. This server has a mock cgi-bin that will run perl2exe files. When I compile with perl2exe, the file bloats to 1016K. When I realized it was compiling all of CGI.pm (standard) into the exe, I stripped down the script to use the minimim amount of CGI that I could. The script is now only using param from CGI, and all the rest is Perl (including 3 function calls to time)(mostly Perl printing complex HTML). More than 300K is from CGIpm (still, even 700K is an enormous Web file). So, before I embark on a project more time consuming than writing the original script, (wading through CGI.pm to see if I could steal or adapt the param method and embed it into my script) I wanted to ask: Does anyone have any recommendations (other than getting off the IIS - that's for later this year) for me to try with my Perl script and perl2exe? Thanks, Meryll Larkin __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From asimjalis at yahoo.com Thu May 2 15:48:48 2002 From: asimjalis at yahoo.com (Asim Jalis) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: perl2exe perl-cgi file size problem In-Reply-To: <004e01c1f209$edd60c20$f718fa43@DEVBOX> Message-ID: <20020502204848.80657.qmail@web14204.mail.yahoo.com> The file is 1016K because perl2exe combines the interpreter and your Perl code into a single file. Rewriting CGI.pm or using a smaller module won't change the size of the executable substantially. Your comment > (still, even 700K is an enormous Web file). is a little confusing. As someone else pointed out the script is not downloaded over the internet. Asim Meryll Larkin > Hi SPUGsters, I have a 14.5K perl-cgi script > that generates a Web page. I want to put it on > an IIS Server (stuck with that for the moment) > which is housing my domain. This server has a > mock cgi-bin that will run perl2exe files. > > When I compile with perl2exe, the file bloats to > 1016K. When I realized it was compiling all of > CGI.pm (standard) into the exe, I stripped down > the script to use the minimim amount of CGI that > I could. The script is now only using param > from CGI, and all the rest is Perl (including 3 > function calls to time)(mostly Perl printing > complex HTML). More than 300K is from CGIpm > (still, even 700K is an enormous Web file). > > So, before I embark on a project more time > consuming than writing the original script, > (wading through CGI.pm to see if I could steal > or adapt the param method and embed it into my > script) I wanted to ask: > > Does anyone have any recommendations (other than > getting off the IIS - that's for later this > year) for me to try with my Perl script and > perl2exe? __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From kenslinux at shaw.ca Thu May 2 15:51:01 2002 From: kenslinux at shaw.ca (Ken Clarke) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem References: <20020502172332.91620.qmail@web12803.mail.yahoo.com> <00c301c1f20d$4ebd25c0$94c54618@gv.shawcable.net> <20020502132124.B5050@hobart.helvella.org> Message-ID: <00ed01c1f21b$1216afc0$94c54618@gv.shawcable.net> ----- Original Message ----- From: "Colin Meyer" To: "Ken Clarke" Cc: Sent: May 2, 2002 1:21 PM Subject: Re: SPUG: Re: perl2exe perl-cgi file size problem ... > Modern browsers use ';' instead of '&' to separate parameters in the URL. > The [deleted] code sample would not handle that, so it may well fail to > just read text from a simple form input. > > I'd strongly suggest using CGI.pm instead of any hand-rolled solution. ... Thanks for pointing this out. Not having to keep current on the HTTP specs makes a strong case for your argument. Then it's just a matter of ensuring that a given host is using an up-to-date CGI module. Unfortunately, this can be a real pain with some providers. >> Ken Clarke >> Contract Web Programmer / E-commerce Technologist >> www.perlprogrammer.net :: www.modperldev.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From davidinnes at chicagoscience.com Thu May 2 16:01:03 2002 From: davidinnes at chicagoscience.com (David Innes (CSG)) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Perl and Active Server Pages In-Reply-To: Message-ID: Speaking of Windows and Perl, does anyone else out there play with Perl and ASP in a Win32 environment? -- David Innes - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From humbaba9 at yahoo.com Thu May 2 17:01:52 2002 From: humbaba9 at yahoo.com (Meryll Larkin) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem In-Reply-To: <20020502132124.B5050@hobart.helvella.org> Message-ID: <20020502220152.50548.qmail@web12804.mail.yahoo.com> 5/2/02 Thanks Everyone, I'm going to put this away and look at it later next week, with fresh eyes. Here's the sticky piece of my script: my $selectedYear = param('year') || $year; my $selected Month = param('month') || $months[$monIndex]; I did install both CGI::Lite, and CGI::Minimal and was puzzled as to why neither seemed to be able to handle that code. Or maybe there is more to this than I know? They ARE installed in my path. I have 2 reasons for wanting a smaller file size: 1. I have a large site already and don't want to be paying for more ram or make any changes right now because I'm planning to ditch IIS soon. 2. I *assumed* (perhaps wrongly) that the reason the script was hanging on the Web and not downloading completely was due to the size of the file. Now, I'm not so sure. It downloads the background and hangs. I also tried Ken's code and wasn't able to get that to work - although that is really more what I was looking for. I'm not using a form at all. I'm just passing the parameters tagged onto the url like so: http://www.mydomain.com/cgi-bin/script.exe?month=May&year=June; I've hard coded the ? = and &, so parsing is not a problem. The code works beautifully as a .cgi on my localhost (Windows 2000). So, I need to test and see if I have use of the Apache Environmental variables on the IIS server. This may be one of those things that will just have to wait until I'm ready to take the plunge and get my Linux Apache server online. Thanks again, Meryll --- Colin Meyer wrote: > On Thu, May 02, 2002 at 12:12:30PM -0700, Ken Clarke > wrote: > > > > ----- Original Message ----- > > From: "Meryll Larkin" > > To: "SPUG List" > > Sent: May 2, 2002 10:23 AM > > Subject: SPUG: perl2exe perl-cgi file size problem > > > > > > >The script is now only using param from CGI, and > all the > > >rest is Perl... > > > > If you're just reading text form input (IE not > uploading from a > > multipart/form-data enctype form) and your form(s) > don't include > > multi-select menues or multiple check boxes with > the same name parameter, > > use this and and replace $q -> > param('formfieldname') with $q -> > > {'formfieldname'} > > Modern browsers use ';' instead of '&' to separate > parameters in the URL. > The [deleted] code sample would not handle that, so > it may well fail to > just read text from a simple form input. > > I'd strongly suggest using CGI.pm instead of any > hand-rolled solution. > CGI.pm is incredibly robust, and correctly handles > *all* properly > formatted HTTP/1.0 or HTTP/1.1 requests, and runs > correctly on platforms > with odd line endings, etc. If you absolutely feel > that CGI.pm is too > bloated, then try CGI::Lite. > > If you don't wish to take my word on it, read what > Merlyn (Randal > Schwartz), Ovid, and Japhy have to say about it: > > Merlyn on why to use CGI.pm: > http://www.perlmonks.org/index.pl?node_id=28499 > > Ovid on problems with alternatives to CGI.pm: > http://www.perlmonks.org/index.pl?node_id=28499 > > Japhy on the difficulties of parsing a CGI query: > http://www.crusoe.net/~jeffp/articles/ideas/CGI/3.html > > > Have fun, and keep using CGI.pm, > -C. > > - - - - - - - - - - - - - - - - - - - - - - - - - - > - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: > owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: > ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL > by your Email-address > For daily traffic, use spug-list for LIST ; for > weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: > http://seattleperl.org > __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From humbaba9 at yahoo.com Thu May 2 17:01:52 2002 From: humbaba9 at yahoo.com (Meryll Larkin) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem In-Reply-To: <20020502132124.B5050@hobart.helvella.org> Message-ID: <20020502220152.50548.qmail@web12804.mail.yahoo.com> 5/2/02 Thanks Everyone, I'm going to put this away and look at it later next week, with fresh eyes. Here's the sticky piece of my script: my $selectedYear = param('year') || $year; my $selected Month = param('month') || $months[$monIndex]; I did install both CGI::Lite, and CGI::Minimal and was puzzled as to why neither seemed to be able to handle that code. Or maybe there is more to this than I know? They ARE installed in my path. I have 2 reasons for wanting a smaller file size: 1. I have a large site already and don't want to be paying for more ram or make any changes right now because I'm planning to ditch IIS soon. 2. I *assumed* (perhaps wrongly) that the reason the script was hanging on the Web and not downloading completely was due to the size of the file. Now, I'm not so sure. It downloads the background and hangs. I also tried Ken's code and wasn't able to get that to work - although that is really more what I was looking for. I'm not using a form at all. I'm just passing the parameters tagged onto the url like so: http://www.mydomain.com/cgi-bin/script.exe?month=May&year=June; I've hard coded the ? = and &, so parsing is not a problem. The code works beautifully as a .cgi on my localhost (Windows 2000). So, I need to test and see if I have use of the Apache Environmental variables on the IIS server. This may be one of those things that will just have to wait until I'm ready to take the plunge and get my Linux Apache server online. Thanks again, Meryll --- Colin Meyer wrote: > On Thu, May 02, 2002 at 12:12:30PM -0700, Ken Clarke > wrote: > > > > ----- Original Message ----- > > From: "Meryll Larkin" > > To: "SPUG List" > > Sent: May 2, 2002 10:23 AM > > Subject: SPUG: perl2exe perl-cgi file size problem > > > > > > >The script is now only using param from CGI, and > all the > > >rest is Perl... > > > > If you're just reading text form input (IE not > uploading from a > > multipart/form-data enctype form) and your form(s) > don't include > > multi-select menues or multiple check boxes with > the same name parameter, > > use this and and replace $q -> > param('formfieldname') with $q -> > > {'formfieldname'} > > Modern browsers use ';' instead of '&' to separate > parameters in the URL. > The [deleted] code sample would not handle that, so > it may well fail to > just read text from a simple form input. > > I'd strongly suggest using CGI.pm instead of any > hand-rolled solution. > CGI.pm is incredibly robust, and correctly handles > *all* properly > formatted HTTP/1.0 or HTTP/1.1 requests, and runs > correctly on platforms > with odd line endings, etc. If you absolutely feel > that CGI.pm is too > bloated, then try CGI::Lite. > > If you don't wish to take my word on it, read what > Merlyn (Randal > Schwartz), Ovid, and Japhy have to say about it: > > Merlyn on why to use CGI.pm: > http://www.perlmonks.org/index.pl?node_id=28499 > > Ovid on problems with alternatives to CGI.pm: > http://www.perlmonks.org/index.pl?node_id=28499 > > Japhy on the difficulties of parsing a CGI query: > http://www.crusoe.net/~jeffp/articles/ideas/CGI/3.html > > > Have fun, and keep using CGI.pm, > -C. > > - - - - - - - - - - - - - - - - - - - - - - - - - - > - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: > owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: > ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL > by your Email-address > For daily traffic, use spug-list for LIST ; for > weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: > http://seattleperl.org > __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From me at donshanks.com Thu May 2 17:24:43 2002 From: me at donshanks.com (Don Shanks) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Perl and Active Server Pages In-Reply-To: Message-ID: <000001c1f228$2ec1a1e0$153d380a@telgar> Do you mean PerlScript in ASP, or Perl on ASP servers? -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of David Innes (CSG) Sent: Thursday, 02 May, 2002 14:01 To: SPUG List Subject: SPUG: Perl and Active Server Pages Speaking of Windows and Perl, does anyone else out there play with Perl and ASP in a Win32 environment? -- David Innes - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From moonbeam at catmanor.com Thu May 2 21:11:40 2002 From: moonbeam at catmanor.com (William Julien) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem Message-ID: <200205030211.g432BeY16393@catmanor.com> >... >> Modern browsers use ';' instead of '&' to separate parameters in the URL. >> The [deleted] code sample would not handle that, so it may well fail to >> just read text from a simple form input. >> >> I'd strongly suggest using CGI.pm instead of any hand-rolled solution. Per rfc, the "&" is the delimintor. The examples given on the web pages provied were handling the case where you have "&;". eg: $str =~ tr/;/&/; $str =~ tr/&//s; The only time when this is an issue is when the broser issues a post or get with a set of complex multipart mixed boundries. This is application dependant, and under the control of the server code which designed to work with multipart/mixed mime headers, and browser object parameters. No browser that I know of replaces "&" for ";" on the get or post delimitor. See... http://www.perl.org/CGI_MetaFAQ.html http://www.cis.ohio-state.edu/cgi-bin/rfc/rfc1808.html --- William Julien _,'| _.-''``-...___..--'; moonbeam@catmanor.com /, \'. _..-' , ,--...--''' vi is my shepherd; < \ .`--''' ` /| i shall not font. `-,;' ; ; ; __...--'' __...--_..' .;.' (,__....----''' (,..--'' perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' perl -e '( $ ,, $ ")=("a".."z")[0,-1]; print "sh", $ ","m\n";;";;"' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From cmeyer at helvella.org Thu May 2 22:56:55 2002 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem In-Reply-To: <200205030211.g432BeY16393@catmanor.com>; from moonbeam@catmanor.com on Thu, May 02, 2002 at 07:11:40PM -0700 References: <200205030211.g432BeY16393@catmanor.com> Message-ID: <20020502205655.A7663@hobart.helvella.org> On Thu, May 02, 2002 at 07:11:40PM -0700, William Julien wrote: > >... > >> Modern browsers use ';' instead of '&' to separate parameters in the URL. > >> The [deleted] code sample would not handle that, so it may well fail to > >> just read text from a simple form input. > >> > >> I'd strongly suggest using CGI.pm instead of any hand-rolled solution. > > Per rfc, the "&" is the delimintor. The examples given on the web pages > provied were handling the case where you have "&;". eg: One of the examples on given on one of the pages says: 'it doesn't handle the recommend ";" separator instead of "&"' (http://www.perlmonks.org/index.pl?node_id=28499) > > The only time when this is an issue is when the broser issues a post or > get with a set of complex multipart mixed boundries. This is application > dependant, and under the control of the server code which designed to > work with multipart/mixed mime headers, and browser object parameters. No > browser that I know of replaces "&" for ";" on the get or post delimitor. Perhaps I shouldn't have said browsers. However, if you attempt embedding URI's with appended query strings into xhtml documents, you will soon see the advantage of using ';' as the separator instead of '&' (which becomes '&' in any xml, including xhtml). > See... > > http://www.perl.org/CGI_MetaFAQ.html > http://www.cis.ohio-state.edu/cgi-bin/rfc/rfc1808.html Old info... see: http://www.faqs.org/rfcs/rfc2396.html (updates rfc1808) I still stand by CGI.pm, which Does the Right Thing! ;-) -C. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From moonbeam at catmanor.com Thu May 2 23:47:00 2002 From: moonbeam at catmanor.com (William Julien) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem Message-ID: <200205030447.g434l0c16455@catmanor.com> > >On Thu, May 02, 2002 at 07:11:40PM -0700, William Julien wrote: >> >... >> >> Modern browsers use ';' instead of '&' to separate parameters in the URL. >> >> The [deleted] code sample would not handle that, so it may well fail to >> >> just read text from a simple form input. >> >> >> >> I'd strongly suggest using CGI.pm instead of any hand-rolled solution. >> >> Per rfc, the "&" is the delimintor. The examples given on the web pages >> provied were handling the case where you have "&;". eg: > >One of the examples on given on one of the pages says: > > 'it doesn't handle the recommend ";" separator instead of "&"' > >(http://www.perlmonks.org/index.pl?node_id=28499) > >> >> The only time when this is an issue is when the broser issues a post or >> get with a set of complex multipart mixed boundries. This is application >> dependant, and under the control of the server code which designed to >> work with multipart/mixed mime headers, and browser object parameters. No >> browser that I know of replaces "&" for ";" on the get or post delimitor. > >Perhaps I shouldn't have said browsers. However, if you attempt embedding >URI's with appended query strings into xhtml documents, you will soon >see the advantage of using ';' as the separator instead of '&' (which >becomes '&' in any xml, including xhtml). > >> See... >> >> http://www.perl.org/CGI_MetaFAQ.html >> http://www.cis.ohio-state.edu/cgi-bin/rfc/rfc1808.html > >Old info... see: > >http://www.faqs.org/rfcs/rfc2396.html >(updates rfc1808) > >I still stand by CGI.pm, which Does the Right Thing! ;-) Thanks for the reference. I took a look at the RFC. I must admit, I have not kept up with the latest xhtml extensions. It makes sense that this "superset" of operations would make use of the ;param specification of rfc1808. A handy way to handle multipart content. So far, I have generally ignored the xhtml specifications. They provide a capability I don't really need. The rfc2396 may update rfc1808, but who cares. :-) Well, maybe by the time I retire, rfc2396 will become relevant. But it is "a good thing" (tm) that CGI.pm is prepared to support the xhtml extentions. Kudos to the CGI.pm programmers. I tend not to use CGI.pm, simply because I like to write my own code. I realise this is pendantic, but I feel it gives me more control over the result. I check all my pages with an nsgml syntax checker. Something I'm sure the CGI.pm authors have also done. But I like having greater control over its format, syntax and structure. --- William Julien _,'| _.-''``-...___..--'; moonbeam@catmanor.com /, \'. _..-' , ,--...--''' vi is my shepherd; < \ .`--''' ` /| i shall not font. `-,;' ; ; ; __...--'' __...--_..' .;.' (,__....----''' (,..--'' perl -e 'print $i=pack(c5,(41*2),sqrt(7056),(unpack(c,H)-2),oct(115),10);' perl -e '( $ ,, $ ")=("a".."z")[0,-1]; print "sh", $ ","m\n";;";;"' > >-C. > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From richard at richard-anderson.org Fri May 3 08:38:45 2002 From: richard at richard-anderson.org (Richard Anderson) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem References: <20020502220152.50548.qmail@web12804.mail.yahoo.com> Message-ID: <004101c1f2a7$da6273b0$1e88ddd1@aciwin> Sounds like you are spending a lot of time on something that is of no consequence. You say you "don't want to be paying for more ram"? Modern OS's, even Windoze, use virtual memory to run large executables - the only issue for a mere 1 MB executable is that it might run a tad more slowly than a smaller executable, but 1 MB is not all that big. Your assumption that the size of the executable is causing the behavior you see is possible but not likely - I'd suspect some buggy feature in IIS / perl2exe / Windoze. Have you tried running simpler Perl CGI scripts in the same environment? I'd guess that you can overcome this problem by diddling your code, but the size of the executable is not likely to be an issue. Cheers, Richard richard@richard-anderson.org www.richard-anderson.org www.raycosoft.com ----- Original Message ----- From: "Meryll Larkin" To: Cc: Sent: Thursday, May 02, 2002 3:01 PM Subject: Re: SPUG: Re: perl2exe perl-cgi file size problem > I have 2 reasons for wanting a smaller file size: > 1. I have a large site already and don't want to be > paying for more ram or make any changes right now > because I'm planning to ditch IIS soon. > > 2. I *assumed* (perhaps wrongly) that the reason the > script was hanging on the Web and not downloading > completely was due to the size of the file. Now, I'm > not so sure. It downloads the background and hangs. > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From richard at richard-anderson.org Fri May 3 08:38:45 2002 From: richard at richard-anderson.org (Richard Anderson) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem References: <20020502220152.50548.qmail@web12804.mail.yahoo.com> Message-ID: <004101c1f2a7$da6273b0$1e88ddd1@aciwin> Sounds like you are spending a lot of time on something that is of no consequence. You say you "don't want to be paying for more ram"? Modern OS's, even Windoze, use virtual memory to run large executables - the only issue for a mere 1 MB executable is that it might run a tad more slowly than a smaller executable, but 1 MB is not all that big. Your assumption that the size of the executable is causing the behavior you see is possible but not likely - I'd suspect some buggy feature in IIS / perl2exe / Windoze. Have you tried running simpler Perl CGI scripts in the same environment? I'd guess that you can overcome this problem by diddling your code, but the size of the executable is not likely to be an issue. Cheers, Richard richard@richard-anderson.org www.richard-anderson.org www.raycosoft.com ----- Original Message ----- From: "Meryll Larkin" To: Cc: Sent: Thursday, May 02, 2002 3:01 PM Subject: Re: SPUG: Re: perl2exe perl-cgi file size problem > I have 2 reasons for wanting a smaller file size: > 1. I have a large site already and don't want to be > paying for more ram or make any changes right now > because I'm planning to ditch IIS soon. > > 2. I *assumed* (perhaps wrongly) that the reason the > script was hanging on the Web and not downloading > completely was due to the size of the file. Now, I'm > not so sure. It downloads the background and hangs. > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Marc.M.Adkins at Doorways.org Fri May 3 12:13:59 2002 From: Marc.M.Adkins at Doorways.org (Marc M. Adkins) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Re: perl2exe perl-cgi file size problem In-Reply-To: <004101c1f2a7$da6273b0$1e88ddd1@aciwin> Message-ID: > Sounds like you are spending a lot of time on something that is of no > consequence. You say you "don't want to be paying for more ram"? Modern > OS's, even Windoze, use virtual memory to run large executables - the only > issue for a mere 1 MB executable is that it might run a tad more > slowly than > a smaller executable, but 1 MB is not all that big. I wonder, though, what happens when 100 page requests invoking the same 1 Mb executable hit at the same time. Does that same 1 Mb get loaded into memory 100 times? When most of it is in a DLL that DLL will be loaded once and shared, but I don't think that executables get loaded just once. Could be wrong though. mma - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Ryan.Parr at wwireless.com Fri May 3 12:37:12 2002 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Sub Attributes Message-ID: <6D6F0541E2B1D411A75B0002A513016D028004D6@wacorpml03.wwireless.com> Could anyone here let me in on what these attributes are and how to use them? The perlsub and attributes man pages unfortunately are not as informative as I'd require them to be. i.e. sub getTest { print STDERR "getTest() received: ",shift,"\n"; } sub doTest : getTest { print "doTest() received: ",shift,"\n"; } does not work.getTest is an invalid code reference... Ryan Parr Common sense is the collection of prejudices acquired by age eighteen. -- Albert Einstein -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20020503/fcde4529/attachment.htm From jhmark at xenops.com Fri May 3 13:02:58 2002 From: jhmark at xenops.com (Jonathan Mark) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Sub Attributes In-Reply-To: <6D6F0541E2B1D411A75B0002A513016D028004D6@wacorpml03.wwireless.com> Message-ID: > Could anyone here let me in on what these attributes are and how to use > them? The perlsub and attributes man pages unfortunately are not as > informative as I'd require them to be. What version of Perl are you using ... I read somewhere that the sub attributes first appeared in version 5.6.1. In prior versions you can accomplish the same thing using "use attributes". I have not used these before either, but your example looks correct to me. best regards, Jonathan Mark - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Ryan.Parr at wwireless.com Fri May 3 13:09:20 2002 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Sub Attributes Message-ID: <6D6F0541E2B1D411A75B0002A513016D028004D7@wacorpml03.wwireless.com> I am indeed using 5.6.1, but my example doesn't work. But even if it did, what would it do? For example, Apache::AxKit::XSP::Language::SimpleTaglib uses a prototype of: sub some_tag : attrib(id) attribOrChild(some-param) node(result) keepWhitespace; Apparently these attributes reformat the datastructures coming in and going out, but how? Ryan Parr Common sense is the collection of prejudices acquired by age eighteen. -- Albert Einstein -----Original Message----- From: Jonathan Mark [mailto:jhmark@xenops.com] Sent: Friday, May 03, 2002 11:03 AM To: Parr, Ryan Cc: SPUG List Subject: Re: SPUG: Sub Attributes > Could anyone here let me in on what these attributes are and how to > use them? The perlsub and attributes man pages unfortunately are not > as informative as I'd require them to be. What version of Perl are you using ... I read somewhere that the sub attributes first appeared in version 5.6.1. In prior versions you can accomplish the same thing using "use attributes". I have not used these before either, but your example looks correct to me. best regards, Jonathan Mark - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From shad.pantle at attws.com Fri May 3 13:12:00 2002 From: shad.pantle at attws.com (Pantle, Shad) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Code for food Message-ID: <3174EC882B43D511BEE600D0B7B1802E05951035@wa-msg07.entp.attws.com> This guy would probably have a job if he new PERL! http://nerdseyeview.tripod.com/theraincitydiaries/id23.html http://codeforfood.org/ He's outside right now doing his best to get employed. Last known location at 11:00 am today was at the REDWEST Campus of Microsoft. Well, the guy's got determination... Amoung other things. Shad - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From jhmark at xenops.com Fri May 3 13:45:57 2002 From: jhmark at xenops.com (Jonathan Mark) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Sub Attributes In-Reply-To: <6D6F0541E2B1D411A75B0002A513016D028004D7@wacorpml03.wwireless.com> Message-ID: On Fri, 3 May 2002, Parr, Ryan wrote: > I am indeed using 5.6.1, but my example doesn't work. But even if it did, > what would it do? OK, I figured it out ... a working example is appended below. It turns out that "invalid CODE attribute" means you are using an attribute which is not defined. To find whether a code attribute is defined, Perl calls MODIFY_CODE_ATTRIBUTES (and also checks for some builtin attributes). So I expect your Apache thing is defining MODIFY_CODE_ATTRIBUTES which stores the information somewhere, to be used later. This behavior is documented at this URL (with a warning saying these features are experimental and may change). http://www.perldoc.com/perl5.6.1/lib/attributes.html#Package-specific-Attribute-Handling cheers, Jonathan package foo; use strict; print "now at runtime\n"; sub MODIFY_CODE_ATTRIBUTES { my ($package_name, $sub_ref, @attrs) = @_; foreach my $attr (@attrs) { print "at compile time, sub $sub_ref has attribute $attr.\n"; } return (); } sub doTest : nerf { print "hello\n"; }; foo->doTest(); 1; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From damian at conway.org Fri May 3 15:28:01 2002 From: damian at conway.org (Damian Conway) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Sub Attributes References: <6D6F0541E2B1D411A75B0002A513016D028004D6@wacorpml03.wwireless.com> Message-ID: <3CD2F2D0.7351E02E@conway.org> > "Parr, Ryan" wrote: > > Could anyone here let me in on what these attributes are and how to use > them? The perlsub and attributes man pages unfortunately are not as > informative as I'd require them to be. Ryan, May I suggest that you look at the Attribute::Handlers and Attribute::Handlers::Prospective modules. Many people have found that they make using attributes *very* much easier. Damian - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Ryan.Parr at wwireless.com Fri May 3 16:23:29 2002 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Sub Attributes Message-ID: <6D6F0541E2B1D411A75B0002A513016D028004D8@wacorpml03.wwireless.com> Thank you all, with the code samples from Johnathon Mark and these modules from Damian, I think I'm finally starting to comprehend how sub attributes can be useful :) Ryan Parr Common sense is the collection of prejudices acquired by age eighteen. -- Albert Einstein -----Original Message----- From: Damian Conway [mailto:damian@conway.org] Sent: Friday, May 03, 2002 1:28 PM To: SPUG List Subject: Re: SPUG: Sub Attributes > "Parr, Ryan" wrote: > > Could anyone here let me in on what these attributes are and how to > use them? The perlsub and attributes man pages unfortunately are not > as informative as I'd require them to be. Ryan, May I suggest that you look at the Attribute::Handlers and Attribute::Handlers::Prospective modules. Many people have found that they make using attributes *very* much easier. Damian - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From legrady at earthlink.net Fri May 3 17:28:58 2002 From: legrady at earthlink.net (Tom Legrady) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: Using ',=' in list context? In-Reply-To: <6D6F0541E2B1D411A75B0002A513016D028004D8@wacorpml03.wwireless.com> Message-ID: I have a module, TEXT::ASED, which provides a functional interface to /// style operators. You might think it counter-productive to take soemthing short and simple and unreadable, and stretch it out into a long block of self-documenting function calls. On the other hand, if you need to manipulate a set of files which varies depending on localiation and itnernationalization, the functional approach makes it easier to separate the regional variations from the main line of code, even to place the regional components in seperate files. That way, when the localization experts modify their components, there's no risk of them damaging your code with a typo. The module works by saving up a set of directives, and then processing the directives to generate code which is run using eval(). It's essentially a recursive descent parsr. Each routine returns two values, a chunk of code which is used near the top of the eval()ed code, and a chunk which goes within the loop which processes each line of input ... ( $tmp_decl, $tmp_code ) = gen_X( $params ); $decl .= $tmp_decl; $code .= code; Is there any way to overload the way ,= operates in a list context, so I can write ... ( $decl, $code ) .= gen_X( $params ); TomDLux - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From dancerboy at strangelight.com Tue May 7 12:28:54 2002 From: dancerboy at strangelight.com (dancerboy) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: http link spiders, + open-source question Message-ID: Hi all, I've got 2 questions. The first isn't strictly Perl-related, but IME I'm likely to get better quality info from asking this list than I would from the more "appropriate" forums. And I'll justify my post with question #2, which *is* more Perl-related... QUESTION #1: Can anyone recommend a good (preferably free) tool for scanning/spidering a web site for broken links and, more importantly, *orphaned files*? My current tool for finding orphaned files does so strictly through reference-counting, but what I need is something more like mark-and-sweep. I.e. my current tools for finding "orphaned" files will only find files that aren't linked to by *any* other files on the site -- but what I need is a tool that can find all of the files that are completely inaccessible when starting from a specific page or set of pages (e.g. starting from /index.html) even if those orphaned pages form cyclical links among themselves. Does that make sense? QUESTION #2: I'm working on a CGI script which I think would be very useful to a great number of people, *particularly* people of the less technically-inclined sort who are trying to maintain small, non-commercial web sites. I intend to GPL the script and release it to the world. My question is: what's the best way to do so so that the people it's intended for can find it and use it? Of course I plan to put it up on sourceforge, but that's a pretty geek-centric site, and I doubt if many of the intended users would find it there. (And no, I have no intention of turning it into a CPAN module: as I said, it's intended for non-programmers; and really, for anyone with enough programming savvy to know how to use a CPAN module, the functionality would be trivial to create from scratch.) Any suggestions of other good places to post my script? I don't want to go spamming all the web design forums with "hey everybody, check out my new script!" (I don't think my script is *that* important ;-) but I would like for those who would find it useful to know about it and to be able to download it easily. -jason - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From pate at eylerfamily.org Tue May 7 13:56:25 2002 From: pate at eylerfamily.org (Pat Eyler) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: The Parrot is coming! Message-ID: Dan Sugalski, the leader of the Parrot project is likely to be here in Seattle in early November of this year. Since Perl, Python, and Ruby are all target languages for the Parrot VM, this might be a great chance to get together for a cross-language gathering to talk about, learn about, and maybe hack on parrot. I know that the local (and larger) Ruby community is going to be hopping at that point because of RubyConf2002. I've heard that there is also a regional Python conference being planned for that time frame. The perl folk seem to be pretty active as well. How about putting aside our language rivalry for an afternoon and/or evening to support a cause that could affect us all. thanks, -pate - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Ryan.Parr at wwireless.com Tue May 7 14:46:46 2002 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: http link spiders, + open-source question Message-ID: <6D6F0541E2B1D411A75B0002A513016D028004E8@wacorpml03.wwireless.com> Can't help with #1, but for #2 you may want to contact London.pm about http://nms-cgi.sourceforge.net, perhaps your script could be posted there. -- Ryan Parr Common sense is the collection of prejudices acquired by age eighteen. -- Albert Einstein -----Original Message----- From: dancerboy [mailto:dancerboy@strangelight.com] Sent: Tuesday, May 07, 2002 10:29 AM To: Seattle Perl Users Group Subject: SPUG: http link spiders, + open-source question Hi all, I've got 2 questions. The first isn't strictly Perl-related, but IME I'm likely to get better quality info from asking this list than I would from the more "appropriate" forums. And I'll justify my post with question #2, which *is* more Perl-related... QUESTION #1: Can anyone recommend a good (preferably free) tool for scanning/spidering a web site for broken links and, more importantly, *orphaned files*? My current tool for finding orphaned files does so strictly through reference-counting, but what I need is something more like mark-and-sweep. I.e. my current tools for finding "orphaned" files will only find files that aren't linked to by *any* other files on the site -- but what I need is a tool that can find all of the files that are completely inaccessible when starting from a specific page or set of pages (e.g. starting from /index.html) even if those orphaned pages form cyclical links among themselves. Does that make sense? QUESTION #2: I'm working on a CGI script which I think would be very useful to a great number of people, *particularly* people of the less technically-inclined sort who are trying to maintain small, non-commercial web sites. I intend to GPL the script and release it to the world. My question is: what's the best way to do so so that the people it's intended for can find it and use it? Of course I plan to put it up on sourceforge, but that's a pretty geek-centric site, and I doubt if many of the intended users would find it there. (And no, I have no intention of turning it into a CPAN module: as I said, it's intended for non-programmers; and really, for anyone with enough programming savvy to know how to use a CPAN module, the functionality would be trivial to create from scratch.) Any suggestions of other good places to post my script? I don't want to go spamming all the web design forums with "hey everybody, check out my new script!" (I don't think my script is *that* important ;-) but I w - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From humbaba9 at yahoo.com Tue May 7 18:00:15 2002 From: humbaba9 at yahoo.com (Meryll Larkin) Date: Wed Aug 4 00:08:55 2004 Subject: SPUG: http link spiders, + open-source question In-Reply-To: Message-ID: <20020507230015.86006.qmail@web12804.mail.yahoo.com> 5/6/02 Hey Jason, You can get a free trial for link testing here: http://www.seventwentyfour.com/ If you are looking for a Perl tool: I wrote a sitemap maker in the simplest and clearest Perl (yeah, go ahead and laugh at my code), that I know YOU could modify pretty easily to get it to identify orphaned files. If you'd like to do that, you're welcome to it: http://www.alwanza.com/bells/perlscripts Meryll Larkin --- dancerboy wrote: > Hi all, I've got 2 questions. The first isn't strictly Perl-related, > > but IME I'm likely to get better quality info from asking this list > than I would from the more "appropriate" forums. And I'll justify my > > post with question #2, which *is* more Perl-related... > > QUESTION #1: > > Can anyone recommend a good (preferably free) tool for > scanning/spidering a web site for broken links and, more importantly, > > *orphaned files*? My current tool for finding orphaned files does so > > strictly through reference-counting, but what I need is something > more like mark-and-sweep. I.e. my current tools for finding > "orphaned" files will only find files that aren't linked to by *any* > other files on the site -- but what I need is a tool that can find > all of the files that are completely inaccessible when starting from > a specific page or set of pages (e.g. starting from /index.html) even > > if those orphaned pages form cyclical links among themselves. Does > that make sense? > > > QUESTION #2: > > I'm working on a CGI script which I think would be very useful to a > great number of people, *particularly* people of the less > technically-inclined sort who are trying to maintain small, > non-commercial web sites. I intend to GPL the script and release it > to the world. My question is: what's the best way to do so so that > the people it's intended for can find it and use it? Of course I > plan to put it up on sourceforge, but that's a pretty geek-centric > site, and I doubt if many of the intended users would find it there. > (And no, I have no intention of turning it into a CPAN module: as I > said, it's intended for non-programmers; and really, for anyone with > enough programming savvy to know how to use a CPAN module, the > functionality would be trivial to create from scratch.) Any > suggestions of other good places to post my script? I don't want to > go spamming all the web design forums with "hey everybody, check out > my new script!" (I don't think my script is *that* important ;-) but > I would like for those who would find it useful to know about it and > to be able to download it easily. > > -jason > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your > Email-address > For daily traffic, use spug-list for LIST ; for weekly, > spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: > http://seattleperl.org > __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Marc.M.Adkins at Doorways.org Tue May 7 18:34:55 2002 From: Marc.M.Adkins at Doorways.org (Marc M. Adkins) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: http link spiders, + open-source question In-Reply-To: <6D6F0541E2B1D411A75B0002A513016D028004E8@wacorpml03.wwireless.com> Message-ID: > My question is: what's the best way to do so so that > the people it's intended for can find it and use it? A friend of mine who does web pages but doesn't program himself says that he acquires Perl/CGI scripts for use from these venues: www.zdnet.com http://www.search.com/search?channel=1&tag=st.se.fd.zd_se.sch&q=script+libra ry (this is a link page for various on-line scripts). http://www.worldwidemart.com/scripts/ You may be able to find a good home for your script via one of these sites. Marc M. Adkins - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From asimjalis at yahoo.com Tue May 7 19:34:38 2002 From: asimjalis at yahoo.com (Asim Jalis) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Extreme Programming Meeting Thursday: Refactoring and Design Patterns Message-ID: <20020508003438.25912.qmail@web14207.mail.yahoo.com> For this month's meeting next Thursday (May 9, 6.30 pm, Lante's conference room) Alan Shalloway will talk about how to use Refactoring and Design Patterns. Directions on how to get to the meeting are at the bottom of the message. REFACTORING, DESIGN PATTERNS AND EXTREME PROGRAMMING Alan Shalloway will talk about how to properly use refactoring to improve the design of your code and to evolve design patterns in your software. Alan is the author of "Design Patterns Explained: A New Perspective on Object-Oriented Design" and a senior consultant at Net Objectives. Alan has worked as a software developer in many industries and provides consulting and coaching in software best practices. He has a Masters in Computer Science from MIT. HOW TO GET TO THE MEETING DATE AND SCHEDULE Thursday, May 9, 2002 (second Thursday of the month). 6.30 pm - 7.00 pm : Pizza + Networking. 7.00 pm - 9.00 pm : Fishbowl on System Metaphor LOCATION Suite 100, Lante's Main Conference Room 3180 139th Avenue SE Bellevue, WA 98005 425.564.8800 (main desk) DIRECTIONS - From 148th NE (going south) turn LEFT into Eastgate Way SE. - Then turn LEFT again into 139th Ave SE. - Drive past SE 32nd St. - 3180 will be the first building on your RIGHT. - Enter the parking entrance on your RIGHT and drive to the uncovered parking on top. - Enter the building and follow the signs to the XP meeting. To get to 148th and Eastgate Way, use this Yahoo Map link: __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Marc.M.Adkins at Doorways.org Wed May 8 01:10:21 2002 From: Marc.M.Adkins at Doorways.org (Marc M. Adkins) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Extreme Programming Meeting Thursday: Refactoring and Design Patterns In-Reply-To: <20020508003438.25912.qmail@web14207.mail.yahoo.com> Message-ID: Is this the monthly SPUG meeting or something else? Is it basically Perl folks? I'd like to meet some fellow mad scientists (anyone still coding in Perl must be _crazy_, right?)... mma > -----Original Message----- > From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of > Asim Jalis > Sent: Tuesday, May 07, 2002 5:35 PM > To: spug-list@pm.org > Subject: SPUG: Extreme Programming Meeting Thursday: Refactoring and > Design Patterns > > > For this month's meeting next Thursday (May 9, > 6.30 pm, Lante's conference room) Alan Shalloway > will talk about how to use Refactoring and Design > Patterns. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From asimjalis at yahoo.com Wed May 8 12:14:39 2002 From: asimjalis at yahoo.com (Asim Jalis) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Extreme Programming Meeting Thursday: Refactoring and Design Patterns In-Reply-To: Message-ID: <20020508171439.73811.qmail@web14206.mail.yahoo.com> Marc M. Adkins wrote: > Is this the monthly SPUG meeting or something > else? Is it basically Perl folks? I'd like to > meet some fellow mad scientists (anyone still > coding in Perl must be _crazy_, right?)... Mark, This is not the SPUG meeting. You can find information about the SPUG meeting at http://www.zipcon.net/spug/ according to which the May meeting is on 5/21. The announcement I posted earlier was about the Extreme Programming meeting. This meeting is for programmers who wear Matrix-style shades and write code while jumping off a planes, connected to their laptops with bungie cords. Spiderman was not available for the May meeting so instead we will have Alan Shalloway talk about how to refactor your code to evolutionarily find design patterns in it. The meetings are language independent. The focus is on how to produce clean flawless code and how to manage the chaos of software projects. Search Google for "Extreme Programming" to get more details. There are some books on it too. Asim __________________________________________________ Do You Yahoo!? Yahoo! Health - your guide to health and wellness http://health.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tim at consultix-inc.com Thu May 9 14:35:56 2002 From: tim at consultix-inc.com (Tim Maher) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Extreme Programming Meeting Thursday: Refactoring and Design Patterns In-Reply-To: <20020508171439.73811.qmail@web14206.mail.yahoo.com> References: <20020508171439.73811.qmail@web14206.mail.yahoo.com> Message-ID: <20020509123556.B23604@timji.consultix.wa.com> On Wed, May 08, 2002 at 10:14:39AM -0700, Asim Jalis wrote: > Marc M. Adkins wrote: > > Is this the monthly SPUG meeting or something > > else? Is it basically Perl folks? I'd like to > > meet some fellow mad scientists (anyone still > > coding in Perl must be _crazy_, right?)... > > Mark, > > This is not the SPUG meeting. You can find > information about the SPUG meeting at > http://www.zipcon.net/spug/ according to which the > May meeting is on 5/21. A small correction: The "canonical" address for SPUG is seattleperl.org these days. -Tim ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== > > The announcement I posted earlier was about the > Extreme Programming meeting. This meeting is for > programmers who wear Matrix-style shades and write > code while jumping off a planes, connected to > their laptops with bungie cords. > > Spiderman was not available for the May meeting > so instead we will have Alan Shalloway talk about > how to refactor your code to evolutionarily find > design patterns in it. > > The meetings are language independent. The focus > is on how to produce clean flawless code and how > to manage the chaos of software projects. Search > Google for "Extreme Programming" to get more > details. There are some books on it too. > > Asim > > __________________________________________________ > Do You Yahoo!? > Yahoo! Health - your guide to health and wellness > http://health.yahoo.com > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org -- *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *------------------------------------------------------------------------------* | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tim at consultix-inc.com Thu May 9 14:34:45 2002 From: tim at consultix-inc.com (Tim Maher) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: The Parrot is coming! In-Reply-To: References: Message-ID: <20020509123445.A23604@timji.consultix.wa.com> On Tue, May 07, 2002 at 02:56:25PM -0400, Pat Eyler wrote: > Dan Sugalski, the leader of the Parrot project is likely to be here in > Seattle in early November of this year. Since Perl, Python, and Ruby are > all target languages for the Parrot VM, this might be a great chance to > get together for a cross-language gathering to talk about, learn about, > and maybe hack on parrot. Dan and I have already been in touch, and he'll be making a presentation to the SPUG group at some point (TBD) in November. Advocates of languages other than Perl would, of course, also be welcome! 8-} I'll let you know once we've decided on the details. -Tim ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== > > I know that the local (and larger) Ruby community is going to be hopping > at that point because of RubyConf2002. I've heard that there is also a > regional Python conference being planned for that time frame. The perl > folk seem to be pretty active as well. How about putting aside our > language rivalry for an afternoon and/or evening to support a cause that > could affect us all. > > thanks, > -pate > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org -- *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *------------------------------------------------------------------------------* | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From mkorb at versuslaw.com Fri May 10 09:02:10 2002 From: mkorb at versuslaw.com (Martin Korb) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: API access Message-ID: <001f01c1f82b$475f88d0$7201a8c0@versuslaw.com> I have a search Engine whose api I can access through a com object using C or vb. Is there a way to do this also with Perl? Here is the specifics how to access the api through C or vb. The Server object provides access to all of the other objects that the Search engine creates. To use the Search engine, first create a Server object, then use the NewIndexJob, NewSearchJob, and NewOptions methods to access the indexing and searching capabilities of the engine. Thanks Martin -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20020510/085c462d/attachment.htm From Marc.M.Adkins at Doorways.org Fri May 10 13:35:55 2002 From: Marc.M.Adkins at Doorways.org (Marc M. Adkins) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: API access In-Reply-To: <001f01c1f82b$475f88d0$7201a8c0@versuslaw.com> Message-ID: I've had really good luck using OLE to control objects under Windows. Use the ActiveState Win32::OLE Type Library Browser (look in the documentation tree under ActivePerl Components / Windows Specifics / Browser) to see if your API appears and check out the Win32::OLE module. The other option would be to create an .xs module to connect via C. This is more work and you have to learn how to do it first. Works OK, though, and I created my first one in less than a day from knowing nothing. Marc M. Adkins -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of Martin Korb Sent: Friday, May 10, 2002 7:02 AM To: spug-list@pm.org Subject: SPUG: API access I have a search Engine whose api I can access through a com object using C or vb. Is there a way to do this also with Perl? Here is the specifics how to access the api through C or vb. The Server object provides access to all of the other objects that the Search engine creates. To use the Search engine, first create a Server object, then use the NewIndexJob, NewSearchJob, and NewOptions methods to access the indexing and searching capabilities of the engine. Thanks Martin -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20020510/79401e66/attachment.htm From cmeyer at helvella.org Fri May 10 13:47:02 2002 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: API access In-Reply-To: <001f01c1f82b$475f88d0$7201a8c0@versuslaw.com>; from mkorb@versuslaw.com on Fri, May 10, 2002 at 07:02:10AM -0700 References: <001f01c1f82b$475f88d0$7201a8c0@versuslaw.com> Message-ID: <20020510114702.A21427@hobart.helvella.org> Hi Martin, On Fri, May 10, 2002 at 07:02:10AM -0700, Martin Korb wrote: > I have a search Engine whose api I can access through a com object > using C or vb. Is there a way to do this also with Perl? Here is the > specifics how to access the api through C or vb. The Server object > provides access to all of the other objects that the Search engine > creates. To use the Search engine, first create a Server object, then > use the NewIndexJob, NewSearchJob, and NewOptions methods to access > the indexing and searching capabilities of the engine. Thanks Martin The easiest way may be to use the C library from within Perl. You can use Inline::C to create a Perl wrapper to the C lib. There are examples of how to do this in the docs that ship with Inline::C. (I'm assuming that you have a C .so or .dll type library used for access.) Have fun, -C. > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From sean.dwyer at attws.com Mon May 13 11:21:42 2002 From: sean.dwyer at attws.com (Dwyer, Sean) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Question on fork() and pipe() Message-ID: <23F6FCBAA611D511A74A00508BCFBE4003A30E72@WA-MSG06> All, I have run into a bind on a control structure I am working with. Although I have a work around, I would rather use the pipe() solution so I can pass more complex data back to the parent process. The test code is below. Here is what is happening. The test sequence should spawn 5 children and as they die off replace them to maintain a running count of 5 until the whole list (in this case a simple counter totaling at 20) is complete. Without the pipe() for communication between the children and the parent it acts just as it is supposed to. When I add the pipe in the processes serializes. My workaround is to use the exit status to give partial information back to the parent. But .. using the pipe allows me to pass more data back to the parent for later processes. If I use exit status then I will need to send the additional output to flat file so the parent can pick is up later and I would rather not do that. I have noted that from the OS (HPUX 11.00) side that the parent goes into a sleep state waiting on the pipe. Is there a way to leave the pipe open so that the children can talk back to the parent and still parallelise? If so what am I missing and how do I do it. Thanks in advance for any help. Sean Dwyer Data Base Administrator Customer Operations Support National Data Center Operations AT&T Wireless Services, Inc. Bothell, Washington Desk-425.288.7313 Cell-206.601.5465 #!/usr/local/perl5/bin/perl -w use POSIX ":sys_wait_h"; use IO::Handle; use strict; $| = 1; my ($exit_val, $signal_num, $dumped_core); $SIG{CHLD} = \&child_track; my $DEBUG = 0; my $counter = 0; my $child = 0; print "\n## The parent process is: $$ \n"; ## ## I have set a for loop here to take the place of the array ## that I really process in order to limit my number of iterations ## for (my $i = 1; $i <= 20; $i++) { $counter++; # increase the counter because we are about to fork a child print "COUNTER: $counter \n"; &fork_child(); #fork the child passing in a vaiable while ($counter >= 5) { sleep 1; #sleep the processes so that we don't spin up the CPU while ((my $child = waitpid(-1, -2)) > 0){1;} #wait on 1, any 1 child #to exit } } waitpid(-1, 0); # wait on all children to exit before ending. sub fork_child { FORK: { pipe(READER, WRITER); WRITER->autoflush(1); if (my $pid = fork()) { # parent here close WRITER; chomp(my $line = ); print "There Parent pid $$ just read this: '$line'\n"; close READER; next if $child == 1; # Do not fork a child from a child } elsif (defined $pid) { # $pid is zero here if defined # child here $child = 1; sleep int(rand 10); #this is where the real work would go #randomize the sleep so the children don't #all exit at once. close READER; print WRITER "Child pid $$ is sending this"; close WRITER; exit 100; } elsif ($! =~ /No more process/) { # EAGAIN, supposedly recoverable # fork error sleep 5; redo FORK; } else { # weird fork error die "Can't fork: $!\n"; } } } sub child_track { my $pid = waitpid(-1, 0); if ($pid == -1){return;} #no children have exited elsif (WIFEXITED($?)) { $exit_val = $? >> 8; $signal_num = $? & 127; $dumped_core = $? & 128; # print "\$pid = $pid\n"; # print "\$signal_num = $signal_num\n"; # print "\$exit_val = $exit_val\n"; # print "\$dumped_core = $dumped_core\n"; print "Process exited\n"; $counter --; #decrease the counter so that you can spawn another processes return; } else {print "False alarm on $pid";} #any other values are considered false $SIG{CHLD} = \&child_track; #re-install the handler } - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Daniel.Pommert at verizonwireless.com Mon May 13 12:26:32 2002 From: Daniel.Pommert at verizonwireless.com (Pommert, Daniel) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Question on fork() and pipe() Message-ID: <9B30436F511ED5118EDF0002A55C31800119D926@cairvexmb03.irvn.ca.vzwcorp.com> Sean, It appears that you are reusing the file handles READER and WRITER in your main process. When you do that new pipe() command, it should close the previous READER and WRITER handles. This will close the pipe, sending an error or eof to the child, (perhaps) causing it to terminate. This would explain your "serialization" behaviour. I have done something very similar to this using Unix Datagrams. As long as your processes don't need to be run on a separate machine, they are completely reliable (with one exception that you have to check for) and let you have one loop waiting for messages and all of your children processes sending that loop their messages. All of the children's sockets are mapped into the file system address space, so they can be stored textually -- you don't have to keep open sockets. I created a OO library that I used quite successfully a couple of years ago that I could send to you out-of-band if you would like it. Others on this list have had good luck using shared memory communications. I know HP-UP Perl supports this. I'm sure the Perl Cookbook can give you examples of its use. -- Daniel Pommert Verizon Wireless 425-603-8612 -----Original Message----- From: Dwyer, Sean [mailto:sean.dwyer@attws.com] Sent: Monday, May 13, 2002 9:22 AM To: 'spug-list@pm.org' Subject: SPUG: Question on fork() and pipe() All, I have run into a bind on a control structure I am working with. Although I have a work around, I would rather use the pipe() solution so I can pass more complex data back to the parent process. The test code is below. Here is what is happening. The test sequence should spawn 5 children and as they die off replace them to maintain a running count of 5 until the whole list (in this case a simple counter totaling at 20) is complete. Without the pipe() for communication between the children and the parent it acts just as it is supposed to. When I add the pipe in the processes serializes. My workaround is to use the exit status to give partial information back to the parent. But .. using the pipe allows me to pass more data back to the parent for later processes. If I use exit status then I will need to send the additional output to flat file so the parent can pick is up later and I would rather not do that. I have noted that from the OS (HPUX 11.00) side that the parent goes into a sleep state waiting on the pipe. Is there a way to leave the pipe open so that the children can talk back to the parent and still parallelise? If so what am I missing and how do I do it. Thanks in advance for any help. Sean Dwyer Data Base Administrator Customer Operations Support National Data Center Operations AT&T Wireless Services, Inc. Bothell, Washington Desk-425.288.7313 Cell-206.601.5465 #!/usr/local/perl5/bin/perl -w use POSIX ":sys_wait_h"; use IO::Handle; use strict; $| = 1; my ($exit_val, $signal_num, $dumped_core); $SIG{CHLD} = \&child_track; my $DEBUG = 0; my $counter = 0; my $child = 0; print "\n## The parent process is: $$ \n"; ## ## I have set a for loop here to take the place of the array ## that I really process in order to limit my number of iterations ## for (my $i = 1; $i <= 20; $i++) { $counter++; # increase the counter because we are about to fork a child print "COUNTER: $counter \n"; &fork_child(); #fork the child passing in a vaiable while ($counter >= 5) { sleep 1; #sleep the processes so that we don't spin up the CPU while ((my $child = waitpid(-1, -2)) > 0){1;} #wait on 1, any 1 child #to exit } } waitpid(-1, 0); # wait on all children to exit before ending. sub fork_child { FORK: { pipe(READER, WRITER); WRITER->autoflush(1); if (my $pid = fork()) { # parent here close WRITER; chomp(my $line = ); print "There Parent pid $$ just read this: '$line'\n"; close READER; next if $child == 1; # Do not fork a child from a child } elsif (defined $pid) { # $pid is zero here if defined # child here $child = 1; sleep int(rand 10); #this is where the real work would go #randomize the sleep so the children don't #all exit at once. close READER; print WRITER "Child pid $$ is sending this"; close WRITER; exit 100; } elsif ($! =~ /No more process/) { # EAGAIN, supposedly recoverable # fork error sleep 5; redo FORK; } else { # weird fork error die "Can't fork: $!\n"; } } } sub child_track { my $pid = waitpid(-1, 0); if ($pid == -1){return;} #no children have exited elsif (WIFEXITED($?)) { $exit_val = $? >> 8; $signal_num = $? & 127; $dumped_core = $? & 128; # print "\$pid = $pid\n"; # print "\$signal_num = $signal_num\n"; # print "\$exit_val = $exit_val\n"; # print "\$dumped_core = $dumped_core\n"; print "Process exited\n"; $counter --; #decrease the counter so that you can spawn another processes return; } else {print "False alarm on $pid";} #any other values are considered false $SIG{CHLD} = \&child_track; #re-install the handler } - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Marc.M.Adkins at Doorways.org Mon May 13 12:48:14 2002 From: Marc.M.Adkins at Doorways.org (Marc M. Adkins) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Question on fork() and pipe() In-Reply-To: <23F6FCBAA611D511A74A00508BCFBE4003A30E72@WA-MSG06> Message-ID: Looks like each time you go into fork_child() you read the pipe until it closes. So you won't exit fork_child() and go on to spawn the next child until the first child dies and closes its pipe. You need to create a list of pipe read streams at the parent process level and use select() to wait on all of them at once. I'm thinking fork_child() should return a reference to the read stream to the parent process. Check out the doc on select(). Marc M. Adkins > -----Original Message----- > From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of > Dwyer, Sean > Sent: Monday, May 13, 2002 9:22 AM > To: 'spug-list@pm.org' > Subject: SPUG: Question on fork() and pipe() > > > All, > > I have run into a bind on a control structure I am working with. > Although I have a work around, I would rather use the pipe() solution so I > can pass more complex data back to the parent process. The test code is > below. Here is what is happening. The test sequence should spawn > 5 children > and as they die off replace them to maintain a running count of 5 > until the > whole list (in this case a simple counter totaling at 20) is complete. > Without the pipe() for communication between the children and the > parent it > acts just as it is supposed to. When I add the pipe in the processes > serializes. > > My workaround is to use the exit status to give partial information > back to the parent. But .. using the pipe allows me to pass more data back > to the parent for later processes. If I use exit status then I > will need to > send the additional output to flat file so the parent can pick is up later > and I would rather not do that. > > I have noted that from the OS (HPUX 11.00) side that the parent goes > into a sleep state waiting on the pipe. Is there a way to leave the pipe > open so that the children can talk back to the parent and still > parallelise? > If so what am I missing and how do I do it. Thanks in advance for > any help. > > Sean Dwyer > > Data Base Administrator > Customer Operations Support > National Data Center Operations > AT&T Wireless Services, Inc. > Bothell, Washington > Desk-425.288.7313 > Cell-206.601.5465 > > #!/usr/local/perl5/bin/perl -w > > use POSIX ":sys_wait_h"; > use IO::Handle; > use strict; > > $| = 1; > > > my ($exit_val, $signal_num, $dumped_core); > > $SIG{CHLD} = \&child_track; > > my $DEBUG = 0; > my $counter = 0; > my $child = 0; > > > print "\n## The parent process is: $$ \n"; > > ## > ## I have set a for loop here to take the place of the array > ## that I really process in order to limit my number of iterations > ## > for (my $i = 1; $i <= 20; $i++) { > $counter++; # increase the counter because we are about to fork a child > print "COUNTER: $counter \n"; > &fork_child(); #fork the child passing in a vaiable > while ($counter >= 5) { > sleep 1; #sleep the processes so that we don't spin up the CPU > while ((my $child = waitpid(-1, -2)) > 0){1;} #wait on 1, any 1 child > #to exit > } > } > > waitpid(-1, 0); # wait on all children to exit before ending. > > > sub fork_child { > FORK: { > > pipe(READER, WRITER); > WRITER->autoflush(1); > > if (my $pid = fork()) { # parent here > close WRITER; > chomp(my $line = ); > print "There Parent pid $$ just read this: '$line'\n"; > close READER; > next if $child == 1; # Do not fork a child from a child > } > elsif (defined $pid) { # $pid is zero here if defined > # child here > $child = 1; > > sleep int(rand 10); #this is where the real work would go > #randomize the sleep so the children don't > #all exit at once. > > close READER; > print WRITER "Child pid $$ is sending this"; > close WRITER; > > exit 100; > } > elsif ($! =~ /No more process/) { # EAGAIN, supposedly recoverable > # fork error > sleep 5; > redo FORK; > } > else { # weird fork error > die "Can't fork: $!\n"; > } > } > } > > sub child_track { > my $pid = waitpid(-1, 0); > if ($pid == -1){return;} #no children have exited > elsif (WIFEXITED($?)) { > $exit_val = $? >> 8; > $signal_num = $? & 127; > $dumped_core = $? & 128; > # print "\$pid = $pid\n"; > # print "\$signal_num = $signal_num\n"; > # print "\$exit_val = $exit_val\n"; > # print "\$dumped_core = $dumped_core\n"; > print "Process exited\n"; > $counter --; #decrease the counter so that you can spawn another > processes > return; > } > else {print "False alarm on $pid";} #any other values are > considered false > > $SIG{CHLD} = \&child_track; #re-install the handler > } > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From mkorb at versuslaw.com Tue May 14 10:59:18 2002 From: mkorb at versuslaw.com (Martin Korb) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: inline::java Message-ID: <002d01c1fb60$4e222fa0$7201a8c0@versuslaw.com> I am using the inline::java module to run java code embedded in perl. I am installing it on win32 machine. The problem I am having is that I have difficulties to set up and install the module on my machine. 1.inline\makefile.pl runs successfully. I opt out of building the JNI extension 2. calling nmake.exe, this returns an error: fatal error U1077: 'cd' : return code '0x1' it seems that this error occurs while processing MakeMaker.pm 3. therefore all the subsequent calls: nmake test and nmake install fail. I am not at all sure how to fix this since I am not even sure about the nature the error. Any help would be greatly appreciated. Martin -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20020514/e01c3806/attachment.htm From cmeyer at helvella.org Tue May 14 13:53:40 2002 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: inline::java In-Reply-To: <002d01c1fb60$4e222fa0$7201a8c0@versuslaw.com>; from mkorb@versuslaw.com on Tue, May 14, 2002 at 08:59:18AM -0700 References: <002d01c1fb60$4e222fa0$7201a8c0@versuslaw.com> Message-ID: <20020514115340.B27657@hobart.helvella.org> Hi Martin, On Tue, May 14, 2002 at 08:59:18AM -0700, Martin Korb wrote: > I am using the inline::java module to run java code embedded in perl. > I am installing it on win32 machine. The problem I am having is that I > have difficulties to set up and install the module on my machine. I am a big fan of Inline::C and Inline::C++, but haven't attempted using the Java version. You might have better luck on the inline mail list: List-Subscribe: http://inline.perl.org/ Have fun, -C. > > Martin - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From amcdowall at hotmail.com Wed May 15 08:29:42 2002 From: amcdowall at hotmail.com (Andre McDowall) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Error message Message-ID: Hi, I am have a problem with an “email this page to a friend” script. Some users are able to access the email form just fine, while others receive an error message telling them they do not have access to the form. The .cgi script is set-up to allow all users to access the email form by clicking on a link from an HTML page. If a user tries to access the .cgi script directly, they are given an error message from within the .cgi script. However, the users that are currently having problems entering the email form are not trying to enter the .cgi script directly; the are accessing the script like everyone else (from an HTML page), yet they are being given the error message. Any idea why the script would let some people access the page and others not? Below, is the part of the .cgi script which gives the error message. Thanks! if (!$ENV{'HTTP_REFERER'}) { print "Access denied\n"; print "\n"; print "You may not access this page.\n"; print "Your attempt has been logged.\n"; print "Your Ip address has been logged.\n\n"; print "\n"; print "\n\n"; print "\n"; exit; } _________________________________________________________________ Join the world’s largest e-mail service with MSN Hotmail. http://www.hotmail.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From amcdowall at hotmail.com Wed May 15 09:50:04 2002 From: amcdowall at hotmail.com (Andre McDowall) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Error message Message-ID: Thanks for responding to my request Don. I would like to get rid of the HTTP_REFERER. However, when I do, the script continues to send emails to the receiver and continues to do so until the sender hits stop on their browser. How can I get rid of the HTTP_REFERER and still have the script perform as intended (i.e. send only one email?) Thanks! >From: "Don Shanks" >To: "'Andre McDowall'" >Subject: RE: SPUG: Error message >Date: Wed, 15 May 2002 07:36:43 -0700 > >It's been my experience that you can never trust the HTTP_REFERER >variable, all too often a browser does not send it. You might try >analyzing what browsers are having the problem. Make a page that links >to a script printing out your env variables. Or better yet, put some >warns in and trace the IP to see that they do indeed come form one page, >then warn out the ENVs and see if the REFERER comes back. > >Just a thought. > >-Don > >-----Original Message----- >From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf >Of Andre McDowall >Sent: Wednesday, 15 May, 2002 06:30 >To: spug-list@pm.org >Subject: SPUG: Error message > > >Hi, > >I am have a problem with an "email this page to a friend" script. Some >users >are able to access the email form just fine, while others receive an >error >message telling them they do not have access to the form. The .cgi >script is >set-up to allow all users to access the email form by clicking on a link > >from an HTML page. If a user tries to access the .cgi script directly, >they >are given an error message from within the .cgi script. However, the >users >that are currently having problems entering the email form are not >trying to >enter the .cgi script directly; the are accessing the script like >everyone >else (from an HTML page), yet they are being given the error message. >Any >idea why the script would let some people access the page and others >not? >Below, is the part of the .cgi script which gives the error message. >Thanks! > >if (!$ENV{'HTTP_REFERER'}) { > >print "Access denied\n"; print >"\n"; print "You may not access this page.\n"; print "Your attempt >has been logged.\n"; print "Your Ip address has been logged.\n\n"; > >print "\n"; >print "\n\n"; >print "\n"; > >exit; > >} > >_________________________________________________________________ >Join the world's largest e-mail service with MSN Hotmail. >http://www.hotmail.com > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >- > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your >Email-address For daily traffic, use spug-list for LIST ; for weekly, >spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org _________________________________________________________________ Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From cwilkes-spug at ladro.com Wed May 15 11:36:33 2002 From: cwilkes-spug at ladro.com (Chris Wilkes) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Error message In-Reply-To: ; from amcdowall@hotmail.com on Wed, May 15, 2002 at 02:50:04PM +0000 References: Message-ID: <20020515093633.C48876@www.ladro.com> On Wed, May 15, 2002 at 02:50:04PM +0000, Andre McDowall wrote: > Thanks for responding to my request Don. I would like to get rid of the > HTTP_REFERER. However, when I do, the script continues to send emails to the > receiver and continues to do so until the sender hits stop on their browser. > How can I get rid of the HTTP_REFERER and still have the script perform as > intended (i.e. send only one email?) Thanks! This is odd, are the clients hitting refresh a bunch of times? To correct this you could write out the person's email to a file and check that before sending out an email to see if they've recently received one. Watch out for the multiple apache processes writting to this file as there might be some concurrency issues. How about putting this email request into a database and having a cron job go through this database / file every minute or so and then emailing out, carefully not sending multiple emails to the same person. Chris - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From amcdowall at hotmail.com Wed May 15 12:09:45 2002 From: amcdowall at hotmail.com (Andre McDowall) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Error message Message-ID: Hi, The below link goes to an “Email page to a friend” .cgi script. All users should have access to this script from a link on an HTML page which sits on my server. Users are not allowed to access the script directly (an option I don‘t particularly care for, but since I downloaded this script from the web I don’t have much choice). If a user tries to access the script directly they receive an error message from within the script. The problem is: some users can NOT access the script via the HTML link; they get an error message as though they are trying to access the script directly. I have verified that the page being “email to a friend” is on my server and I have verified that the users’ browser settings are correct. Does anyone have an idea of how I can remedy this? Or even better, how I can completely get rid of the HTTP_REFERER and still have the script perform as it should? Any assistance would be greatly appreciated. Thanks! Link to .cgi script: http://www.geocities.com/icelandbound/index.txt Example Link of url that takes users to email form: ../../cgi-bin/emailpage.cgi?action=refer&title=Name_Of_Page - AM _________________________________________________________________ Chat with friends online, try MSN Messenger: http://messenger.msn.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From me at donshanks.com Wed May 15 12:58:27 2002 From: me at donshanks.com (Don Shanks) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Error message In-Reply-To: <20020515093633.C48876@www.ladro.com> Message-ID: <000901c1fc3a$208b0910$bb280a0a@telgar> Another tact may be to use a unique number ( I use the UNIQUE_ID generated by Apache ) in a file touch, and pass that number to the cgi, have the cgi remove the file then send the email. If the file doesn't exist, error out. -Don -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org] On Behalf Of Chris Wilkes Sent: Wednesday, 15 May, 2002 09:37 To: spug-list@pm.org Subject: Re: SPUG: Error message On Wed, May 15, 2002 at 02:50:04PM +0000, Andre McDowall wrote: > Thanks for responding to my request Don. I would like to get rid of > the HTTP_REFERER. However, when I do, the script continues to send > emails to the receiver and continues to do so until the sender hits > stop on their browser. How can I get rid of the HTTP_REFERER and still > have the script perform as intended (i.e. send only one email?) > Thanks! This is odd, are the clients hitting refresh a bunch of times? To correct this you could write out the person's email to a file and check that before sending out an email to see if they've recently received one. Watch out for the multiple apache processes writting to this file as there might be some concurrency issues. How about putting this email request into a database and having a cron job go through this database / file every minute or so and then emailing out, carefully not sending multiple emails to the same person. Chris - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tim at consultix-inc.com Wed May 15 14:43:42 2002 From: tim at consultix-inc.com (Tim Maher) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: May Meeting: "Damianiacal Modules", Part II Message-ID: <20020515124342.A4413@timji.consultix.wa.com> SPUGsters, Please participate in this meeting, and the next, by volunteering to talk a bit about the "Damianiacal" modules that you use in your work. For my part, I'll be talking about Getopt::Declare and Lingua::EN::Inflect. Which modules do *you* want to talk about? -Tim ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== May 2002 Seattle Perl User's Group Meeting ------------------------------------------------------ Title: "Damianiacal Modules", Part II Speaker: Various SPUGsters Time: Tuesday, April 21, 2002 7-9pm Location: SAFECO bldg, Brooklyn St. and NE 45th St. Cost: Admission is free and open to the general public. Info: http://seattleperl.org/ Topics: The theme for this meeting, continuing from the previous one, will be a look at some of the many modules contributed by Damian Conway to the Perl Community (via CPAN). The idea is that SPUGsters who are using his modules will describe them to us, show us how they're using them in their work, and give us a greater appreciation for what Damian has made available and how we might increase our productivity by using his software. Alternatively, those who have merely been *thinking* about using a certain module might seize this opportunity to lead a discussion on it, to inspire them to learn more. (There's nothing like committing to teaching somebody about something to motivate you to increase your understanding of it!) Not coincidentally, the timing of these meetings will allow any questions that arise about "Damianiacal Modules" to be answered by The Damian himself, when he visits us in July. Those wishing to participate please post a short message to the list indicating what module(s) you want to cover, how you are currently using it (if so), and for which meeting you'd like your presentation scheduled. I'll serve as moderator, and get back to you with Module "Bindings". Also not coincidentally, those attending these meetings will be told how they can help continue the flow of Damianiacal Modules by contributing to "The Perl Foundation." In addition, Consultix will be raffling off some seats to Damian's corporate July classes (see www.teachmeperl.com) for those who submit checks made out to The Perl Foundation at the next SPUG meeting ($100 minimum). So please bring your checkbooks along! 8-} Here's a list of Damian's currently released modules, from which you can pick and choose when designing your presentation: Damian's CPAN Modules Acme-Bleach Attribute-Handlers Attribute-Handlers-Prospective Attribute-Types Class-Contract Class-Delegation Class-Multimethods Coy (Covered in April, by Jeremy Kahn) Filter-Simple (Covered in April, by JP Montagne) Getopt-Declare ** TO BE COVERED IN MAY, by Tim Maher Hook-LexWrap Inline-Files Lingua-EN-Inflect ** TO BE COVERED IN MAY, by Tim Maher Lingua-Romana-Perligata Parse-RecDescent Perl6-Variables Quantum-Superpositions Regexp-Common Switch Text-Autoformat Text-Balanced Text-Reform Tie-SecureHash The recommended pre-meeting diner is the Cedars restaurant, at 50th St. and Brooklyn, in the University District, near the Safeco building where the meeting will take place. The phone number is 527-5247. If you're planning to be there, please post a message to the list indicating your expected arrival time. (Tim is planning to arrive at about 5:30.) As usual, those seeking liquid input are invited to congregate at the Bigtime Brewery and Alehouse, to conduct their preparations for the 7pm meeting. See the web-site for more details. ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tim at consultix-inc.com Thu May 16 11:28:02 2002 From: tim at consultix-inc.com (SPUG-list-owner) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: May Meeting: "Damianiacal Modules", Part II Message-ID: <20020516092802.A6823@timji.consultix.wa.com> SPUGsters, As several eagle-eyed SPUGsters noticed, next week's meeting will be on May 21st (NOT April 21st; please don't come then). A corrected announcement follows below. -Tim ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== May 2002 Seattle Perl User's Group Meeting ------------------------------------------------------ Title: "Damianiacal Modules", Part II Speaker: Various SPUGsters Time: Tuesday, May 21, 2002 7-9pm Location: SAFECO bldg, Brooklyn St. and NE 45th St. Cost: Admission is free and open to the general public. Info: http://seattleperl.org/ Topics: The theme for this meeting, continuing from the previous one, will be a look at some of the many modules contributed by Damian Conway to the Perl Community (via CPAN). The idea is that SPUGsters who are using his modules will describe them to us, show us how they're using them in their work, and give us a greater appreciation for what Damian has made available and how we might increase our productivity by using his software. Alternatively, those who have merely been *thinking* about using a certain module might seize this opportunity to lead a discussion on it, to inspire them to learn more. (There's nothing like committing to teaching somebody about something to motivate you to increase your understanding of it!) Not coincidentally, the timing of these meetings will allow any questions that arise about "Damianiacal Modules" to be answered by The Damian himself, when he visits us in July. Those wishing to participate please post a short message to the list indicating what module(s) you want to cover, how you are currently using it (if so), and for which meeting you'd like your presentation scheduled. I'll serve as moderator, and get back to you with Module "Bindings". Also not coincidentally, those attending these meetings will be told how they can help continue the flow of Damianiacal Modules by contributing to "The Perl Foundation." In addition, Consultix will be raffling off some seats to Damian's corporate July classes (see www.teachmeperl.com) for those who submit checks made out to The Perl Foundation at the next SPUG meeting ($100 minimum). So please bring your checkbooks along! 8-} Here's a list of Damian's currently released modules, from which you can pick and choose when designing your presentation: Damian's CPAN Modules Acme-Bleach Attribute-Handlers Attribute-Handlers-Prospective Attribute-Types Class-Contract Class-Delegation Class-Multimethods Coy (Covered in April, by Jeremy Kahn) Filter-Simple (Covered in April, by JP Montagne) Getopt-Declare ** TO BE COVERED IN MAY, by Tim Maher Hook-LexWrap Inline-Files Lingua-EN-Inflect ** TO BE COVERED IN MAY, by Tim Maher Lingua-Romana-Perligata Parse-RecDescent Perl6-Variables Quantum-Superpositions Regexp-Common Switch Text-Autoformat Text-Balanced Text-Reform Tie-SecureHash The recommended pre-meeting diner is the Cedars restaurant, at 50th St. and Brooklyn, in the University District, near the Safeco building where the meeting will take place. The phone number is 527-5247. If you're planning to be there, please post a message to the list indicating your expected arrival time. (Tim is planning to arrive at about 5:30.) As usual, those seeking liquid input are invited to congregate at the Bigtime Brewery and Alehouse, to conduct their preparations for the 7pm meeting. See the web-site for more details. ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org ----- End forwarded message ----- -- *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* ----- End forwarded message ----- -- *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tim at consultix-inc.com Thu May 16 16:11:43 2002 From: tim at consultix-inc.com (Tim Maher) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Damian's "Adv. Perl Workshop" in July Message-ID: <20020516141143.A7417@timji.consultix.wa.com> NOTE: The following is a general announcement of registration now being open for Damian's July classes. What isn't indicated here is that we're also planning some special benefits (TBA) for SPUGsters who register by 5/31, so if you want to attend, try to do so by then! -Tim ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== Announcing: Damian Conway's "ADVANCED PERL WORKSHOP" in Seattle! As is our custom in July, Consultix is presenting the "Mad Doctor of Perl", Dr. Damian Conway, for a series of Seattle-area classes. This time he'll be offering his new "Advanced Perl Workshop", consisting of four courses: * Advanced OO Perl, 7/15-16 * Advanced Module Implementation Techniques, 7/17 * Programming in Perl 6, 7/18 * Beyond Regexes: Text Parsing with Perl Modules, 7/19 *** CRUISE/DINNER WITH "THE DAMIAN" Those who register for two or more days of classes get a free Lake Washington cruise with Damian on 7/14, featuring a special "OpenSource Fellowship Ceremony" before the House of $Bill Gates, followed by a free dinner. See http://teachmeperl.net for more information and to register. *** LOCATION Classes will be held at the La Quinta Inn, in Kirkland WA, from 8-4pm daily. Attendees are encouraged to stay there, at the special "NorthWest College Rate" of $82 per night. This part of Kirkland is about 5 miles from Downtown Seattle, and directly adjacent to Bellevue, at the intersection of Highway 520 and Bellevue Way. *** REGISTRATION FEES Tuition is $500/day for those who register and pay (or provide a P.O.) by 5/31, and $550 thereafter. Parking, continental breakfast, and detailed course notes are included. Group discounts are available. You can register for individual classes or the whole set. Those who register early are eligible to win the cruise/dinner combination in a drawing. For more details, see http://teachmeperl.net. *** ATTENDANCE IS LIMITED, and DISCOUNTS EXPIRE SOON Registration is open, attendance is limited, seats are filling up, and the EarlyBird discount ends soon, so register early to guarantee your space! +-----------------------------------------------------------+ CONSULTIX ON-LINE RESOURCES General Information: http://www.consultix-inc.com On-Site Training: http://www.consultix-inc.com/on-site.html Course Listings: UNIX/Shell, http://teachmeunix.net/unixlist.html Perl, http://teachmeperl.net/perllist.html Registration and Pricing: http://www.consultix-inc.com/reg.html Instructor Evaluations: http://www.consultix-inc.com/evals.html Course Evaluations: http://www.consultix-inc.com/course_evals.html *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.net teachmeperl.net teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From pate at eylerfamily.org Mon May 20 10:20:01 2002 From: pate at eylerfamily.org (Pat Eyler) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Seattle Ruby Brigade, May Meeting Message-ID: *********************************************************************** the Seattle Ruby Brigade presents: On May 28th, at 7:00 PM In the SSCC Library Ryan Davis and Brian Wisti in a tag-team presentation: ZenWeb: Building your web site the Ruby Way ***** also on the ticket: Ruby in the Rainforest RubyConf 2002 MArch development *********************************************************************** The Seattle Ruby Brigade meets the 4th Tuesday of every month to discuss the Ruby programming language, to work together on ruby based projects, and to socialize. Our meetings are held on the third or fourth floor of the Lemieux Library at Seattle University, and run from 7:00 PM to 9:00 PM. Laptops, projects, questions, problems, ruby-nubies, eXtreme Programmers, users of other languages, and other interested parties are welcome. To get to the library, you should look at this map: http://maps.yahoo.com/py/maps.py?BFCat=&Pyt=Tmap&newFL=Use+Address+Below&addr=10th+%26+E+Columbia&csz=Seattle%2C+WA&Country=us&Get%A0Map=Get+Map The library is the tall white building, parking is directly West of the library, or in the garage just off Broadway. Enter either from Broadway directly across from Swedish. Membership in the Seattle Ruby Brigade is free, and open to anyone interested. There are three ways to join (and participate): 1) come to our meetings as often as you care to 2) hang out with us on the #seattle.rb channel at irc.openprojects.net 3) join the seattle.rb mailing list by sending an email to: ruby-subscribe@zenspider.com For more information, please contact: Ryan Davis -or- Pat Eyler - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From pate at eylerfamily.org Mon May 20 12:14:22 2002 From: pate at eylerfamily.org (Pat Eyler) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Ruby Meeting Follow Up Message-ID: Having just posted an announcement for the May meeting of the Seattle Ruby Brigade, I've been asked to quickly explain what Ruby is and why you might be interested. Ruby is a programming with a significantly Perly feel (it's often described as a cross between Perl and Smalltalk). It is widely used in Japan, and is starting to make inroads in the US as well. You may be interested in learning more about Ruby for a variety of reasons, including: * Learning more about Ruby (and/or other languages) can make you a better programmer * Ruby currently sports some (many?) of the features planned for Perl6, seeing them in use now may give you a leg up * Ruby is influencing the design of Parrot (not as much as Perl, but ...) * Ruby seems to be gaining popularity in the XP world, there is a big confluence of ideas between the communities * Ruby hackers (like Perl hackers) are cool people and hanging out with them may be fun ;) If you'd like more information about Ruby, these links may help: www.rubygarden.org/ruby (the Ruby community wiki) www.ruby-lang.org (the english language home of ruby) www.rubycentral.com (the on-line home of the 'Programming Ruby' book by the pragmatic programmers) thanks, -pate ps. If there's a significant desire not to hear about ruby stuff in the future, I'll happily stop posting. If people want more than a monthly meeting announcement, I'd recommend joining the ruby-lang mailinglist or the seattle.rb mailing list (see the announcement and/or the above links for more information) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Marc.M.Adkins at Doorways.org Tue May 21 14:00:56 2002 From: Marc.M.Adkins at Doorways.org (Marc M. Adkins) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Pre-meeting meeting In-Reply-To: Message-ID: I'm planning on making it to one of the pre-meeting locales this time. I know, I said that last time, but something came up. Honest. Anyway, I'm asking again: is anyone coming out to play? Thanks, Marc M. Adkins - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From beckyls at u.washington.edu Tue May 21 14:10:32 2002 From: beckyls at u.washington.edu (Rebecca L. Schmidt) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: UNIX/Linux Administration Program In-Reply-To: Message-ID: Hi all, I'm writing to let you know that I've extended the application deadline for the UW UNIX/Linux Administration Intensive Certificate Program this summer. The deadline is now May 31st. I hope that more interested SPUG members will apply for this program. See program details below and let me know if you have any questions. Best regards, Rebecca Schmidt Academic Programs University of Washington Extension 5001 25th Ave NE, Seattle, WA 98105-4190 rschmidt@ese.washington.edu; beckyls@u.washington.edu (206) 221-6243 > > ---------- Forwarded message ---------- > Date: Wed, 10 Apr 2002 10:28:20 -0700 (PDT) > From: Rebecca L. Schmidt > To: spug-list@pm.org > Subject: SPUG: UNIX/Linux Administration Program > > > I think some folks on this list might be interested in this new, intensive > UW UNIX/Linux Administration Certificate Program so I'm posting the > information here. If you have any questions feel free to contact me. > > The UNIX/Linux Administration Certificate Program is for people with basic > UNIX or Linux knowledge who wish to plan, support and administer > UNIX/Linux networks. This program is especially useful for individuals > seeking career change or advancement, and preparing for LPI Linux > Certification. For more information see: > > http://www.outreach.washington.edu/extinfo/certprog/uad/uad_main.asp > > We will be holding a free information meeting on Thursday, May 2, 2002, > 6-6:45 p.m., at UW Educational Outreach, 2445 140th Ave. NE, Suite B-100 > in Bellevue. At this meeting you'll have a chance to meet the instructor > in person and learn more about the program. Please feel free to attend > and let me know if you need directions. > > Here's more information about the program: > > Classes in the hands-on, intensive eight-week format meet in UW > Extension's Bellevue computer lab on Tuesdays and Thursdays, June 11-August > 1, 2002. Applications for this program are now being accepted. The > deadline for submitting an application is 5 p.m. on May 17, 2002. You can > find application information via the URL above. > > The instructor is Phil Nesser, a recognized authority on networking, > security and data communications. He taught many classes for the UW. He > has worked with the Internet Engineering Task Force since 1994 and has > authored and contributed to numerous technical reports. A graduate of > MIT, he served as an advisor to the President's Y2K Task Force. > > If you have any questions about the program please do not hesitate to > contact me directly. My contact info is below. > > > Best regards, > > Rebecca Schmidt > Academic Programs > University of Washington Extension > 5001 25th Ave NE, Seattle, WA 98105-4190 > rschmidt@ese.washington.edu > (206) 221-6243 > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tim at consultix-inc.com Tue May 21 17:23:49 2002 From: tim at consultix-inc.com (Tim Maher) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: May Meeting: "Damianiacal Modules" Message-ID: <20020521152349.A5336@timji.consultix.wa.com> SPUGsters, Hoping to see many of you at tonight's meeting! And Please remember that we're trying to keep Damian, Larry, and Dan working on Perl through the summer, which means we need those who value their work to donate to The Perl Foundation. What's more, for every $100 you donate tonight (by a check made out to "The Perl Foundation"), you get an additional chance to win a free day of training from The Damian himself in July ($500 value; see www.teachmeperl.com for class details). So, those of you who can afford to make a (fully tax-deductible) contribution, please bring your checkbooks along! See you there, -Tim ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== May 2002 Seattle Perl User's Group Meeting ------------------------------------------------------ Title: "Damianiacal Modules", Part II Speaker: Various SPUGsters Time: Tuesday, May 21, 2002 7-9pm Location: SAFECO bldg, Brooklyn St. and NE 45th St. Cost: Admission is free and open to the general public. Info: http://seattleperl.org/ Topics: The theme for this meeting, continuing from the previous one, will be a look at some of the many modules contributed by Damian Conway to the Perl Community (via CPAN). The idea is that SPUGsters who are using his modules will describe them to us, show us how they're using them in their work, and give us a greater appreciation for what Damian has made available and how we might increase our productivity by using his software. Alternatively, those who have merely been *thinking* about using a certain module might seize this opportunity to lead a discussion on it, to inspire them to learn more. (There's nothing like committing to teaching somebody about something to motivate you to increase your understanding of it!) Not coincidentally, the timing of these meetings will allow any questions that arise about "Damianiacal Modules" to be answered by The Damian himself, when he visits us in July. Those wishing to participate please post a short message to the list indicating what module(s) you want to cover, how you are currently using it (if so), and for which meeting you'd like your presentation scheduled. I'll serve as moderator, and get back to you with Module "Bindings". Also not coincidentally, those attending these meetings will be told how they can help continue the flow of Damianiacal Modules by contributing to "The Perl Foundation." In addition, Consultix will be raffling off some seats to Damian's corporate July classes (see www.teachmeperl.com) for those who submit checks made out to The Perl Foundation at the next SPUG meeting ($100 minimum). So please bring your checkbooks along! 8-} Here's a list of Damian's currently released modules, from which you can pick and choose when designing your presentation: Damian's CPAN Modules Acme-Bleach Attribute-Handlers Attribute-Handlers-Prospective Attribute-Types Class-Contract Class-Delegation Class-Multimethods Coy (Covered in April, by Jeremy Kahn) Filter-Simple (Covered in April, by JP Montagne) Getopt-Declare ** TO BE COVERED IN MAY, by Tim Maher Hook-LexWrap Inline-Files Lingua-EN-Inflect ** TO BE COVERED IN MAY, by Tim Maher Lingua-Romana-Perligata Parse-RecDescent Perl6-Variables Quantum-Superpositions Regexp-Common Switch Text-Autoformat Text-Balanced Text-Reform Tie-SecureHash The recommended pre-meeting diner is the Cedars restaurant, at 50th St. and Brooklyn, in the University District, near the Safeco building where the meeting will take place. The phone number is 527-5247. If you're planning to be there, please post a message to the list indicating your expected arrival time. (Tim is planning to arrive at about 5:30.) As usual, those seeking liquid input are invited to congregate at the Bigtime Brewery and Alehouse, to conduct their preparations for the 7pm meeting. See the web-site for more details. ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org ----- End forwarded message ----- -- *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* ----- End forwarded message ----- -- *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org ----- End forwarded message ----- -- *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tim at consultix-inc.com Wed May 22 02:30:48 2002 From: tim at consultix-inc.com (Tim Maher) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Call for Minority-Owned Perl Businesses Message-ID: <20020522003048.B6491@timji.consultix.wa.com> SPUGsters, Any companies out there that qualify under government guidelines as "minority-owned" businesses, please contact me about a possible software development opportunity. Tim *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From cjcollier at pobox.com Wed May 22 23:06:25 2002 From: cjcollier at pobox.com (C.J. Collier) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Starwars at Cinerama with Perl Geeks Message-ID: <1022126785.3cec6ac1ec1f6@mail.colliertech.org> Hey All, There's going to be a social event at Cinerama on Saturday. A few of us NorthWest Perl Geeks have decided to see the 3:30 showing of StarWars. If you're interested in attending, please contact me off-list and I'll get you all the pertinent information. And to keep a little on topic, we have a Perl technical writer attending. Someone told me he wrote a book about a llama or something. I look forward to seeing yous there, C.J. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From cpw at catenoid.com Thu May 23 19:17:44 2002 From: cpw at catenoid.com (Chris Whip) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: validating mailbox files Message-ID: <20020524001744.GA12935@drizzle.com> Heya, folks. Does anyone know a good way to check mbox files for corruption from a Perl script? TIA, -- Chris Whip -- -- Huh! Anyone who uses a language which has a camel for its logo has no business condemning what a consenting adult does with C++ in the privacy of his own lecture theatre! -- Damian doesn't approve of Perl (or the <=> operator), circa 1995 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Dax.Menardo at reedbusiness.com.au Thu May 23 20:41:51 2002 From: Dax.Menardo at reedbusiness.com.au (Menardo, Dax (RBI - AUS)) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: HTTP Post Message-ID: <87375DD3DB18D511AF8800508BDFACDC05C4616E@reacsmail.rea.gni> Hi there, Has anybody created a post reply via HTTP in Perl CGI? Any info would be helpful..... cheers =) Dax - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tim at consultix-inc.com Thu May 23 22:56:21 2002 From: tim at consultix-inc.com (Tim Maher) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: Re: New subscriber In-Reply-To: <3CEDC084.7030104@burton.echidna.id.au> References: <3CEDC084.7030104@burton.echidna.id.au> Message-ID: <20020523205621.A14199@timji.consultix.wa.com> On Fri, May 24, 2002 at 02:24:36PM +1000, Luke Burton wrote: You joined a Seattle-based list to find job openings in Sydney? Egads, you must be pretty desperate! Only 2 of our 400+ members (one being "The Damian") hails from your "down under", so I'm afraid you're not likely to get many leads here. Unless you hail from Sydney, Idaho! (Not as implausible as it may sound; I hear they've got their own Paris and perhaps Delhi over there!) In any case, welcome to the list, and best of luck to you! 8-} -Tim ====================================================== | Tim Maher, Ph.D. tim@timmaher.org | | SPUG Founder & Leader spug@seattleperl.org | | Seattle Perl Users Group www.seattleperl.org | ====================================================== > > Hi there, > > I just thought I would introduce myself. I have been a perl user for > many years. Most recently I was working at Deutsche Bank in Sydney, > doing largish systems (30,000 lines). Mostly using the classic Perl + > CGI + SQL combination for writing frontends, but also some C++ and Java > thrown in as well. > > I can also be found on perlmonks.org as 'hagus'. > > I was especially interested in subscribing to this list because I > thought some people might be able to comment on whether Perl contract > opportunities exist in Sydney. DB just cut a bunch of staff (myself > included), so it would be cool to find some dedicated Perl work right > about now. > > Regards, > > Luke. *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE: Basic UNIX, Minimal Perl, Perl Modules; JULY: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From smorton at pobox.com Fri May 24 01:03:52 2002 From: smorton at pobox.com (Sanford Morton) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: HTTP Post In-Reply-To: <87375DD3DB18D511AF8800508BDFACDC05C4616E@reacsmail.rea.gni> Message-ID: I don't know what a POST reply is, but if you want to make a POST request of a CGI script, here's a snippet. use LWP::UserAgent; my $ua = new LWP::UserAgent; my $req = new HTTP::Request ('POST',$url_that_demands_POST_data); $req->content_type('application/x-www-form-urlencoded'); $req->content($urlencoded_form_content); my $resp = $ua->request($req); if ($resp->is_success) { &do_something_with_the_response($resp) } else { die $resp->as_string; } On Fri, 24 May 2002, Menardo, Dax (RBI - AUS) wrote: > > Has anybody created a post reply via HTTP in Perl CGI? > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From mkorb at versuslaw.com Fri May 24 09:07:31 2002 From: mkorb at versuslaw.com (Martin Korb) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: dbi::_firesafe Message-ID: <006301c2032c$585401a0$7201a8c0@versuslaw.com> I have dbi unrelated code which uses _firesafe. Dbi.pm uses _firesafe. I am totally in the dark what _firesafe actually does or where I can find some code reference. Any help is welcome. Martin -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20020524/0253ab27/attachment.htm From andrew at sweger.net Fri May 24 10:12:38 2002 From: andrew at sweger.net (Andrew Sweger) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: dbi::_firesafe In-Reply-To: <006301c2032c$585401a0$7201a8c0@versuslaw.com> Message-ID: Only a vague memory, but isn't DBI::_firesafe a namespace that DBI uses to manage your DBD's? It's an internal thing to DBI that shouldn't be exposed to DBI users. But I'm usually wrong. What's the context specifically? On Fri, 24 May 2002, Martin Korb wrote: > I have dbi unrelated code which uses _firesafe. Dbi.pm uses _firesafe. > I am totally in the dark what _firesafe actually does or where I can > find some code reference. Any help is welcome. -- Andrew B. Sweger -- The great thing about multitasking is that several things can go wrong at once. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From scioto_su at yahoo.com Fri May 24 21:22:40 2002 From: scioto_su at yahoo.com (Flynn Clarke) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: looking for Data Munging book Message-ID: <20020525022240.63092.qmail@web11502.mail.yahoo.com> Hi SPUGsters: I'm looking to buy a used copy of Data Munging with Perl by David Cross, or borrow one. I saw a section in it that has info and a script I'd like to learn more about. I looked in all the libraries I have access to, but couldn't find it. It's for work, but it's not urgent. Thanks, friends. Warm regards, Flynn Clarke __________________________________________________ Do You Yahoo!? Yahoo! - Official partner of 2002 FIFA World Cup http://fifaworldcup.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Ryan.Parr at wwireless.com Fri May 24 23:54:56 2002 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: looking for Data Munging book Message-ID: <6D6F0541E2B1D411A75B0002A513016D0280053C@wacorpml03.wwireless.com> Used on Amazon for $20: http://s1.amazon.com/exec/varzea/ts/exchange-glance/Y03Y6327677Y5409755/qid= 1022302377/sr=1-1/104-2371567-1705519 -- Ryan Parr -----Original Message----- From: Flynn Clarke [mailto:scioto_su@yahoo.com] Sent: Friday, May 24, 2002 7:23 PM To: spug-list@pm.org Subject: SPUG: looking for Data Munging book Hi SPUGsters: I'm looking to buy a used copy of Data Munging with Perl by David Cross, or borrow one. I saw a section in it that has info and a script I'd like to learn more about. I looked in all the libraries I have access to, but couldn't find it. It's for work, but it's not urgent. Thanks, friends. Warm regards, Flynn Clarke __________________________________________________ Do You Yahoo!? Yahoo! - Official partner of 2002 FIFA World Cup http://fifaworldcup.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From dragon at dreamhaven.net Thu May 30 16:59:43 2002 From: dragon at dreamhaven.net (Mikel Tidwell) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages Message-ID: Hello, I have a project where I want to write to /var/log/messages. From what I've read, this is not a recommended approach, but we already have software monitoring messages for critical messages, and I'd like to use this system already in place to flag a critical failure (not not normally logged). The example I have is when the mysql watching script finds the service hung (on a remote machine), it would write an error to /var/log/messages, and then someone would get paged about the message. This made more sense to me than duplicating the process already in place. So, how would all the gurus here recommend dealing with /var/log/messages? Do I treat it like a typical file, use a call to syslog somehow, or is this just a bad idea all together? Thanks for your continued help. :> _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ -- Mikel Tidwell President: RPGamer -- http://www.rpgamer.com/ MSNM: FireMyst Personal Home Page -- http://dragon.rpgamer.com/ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From mathin at mathin.com Thu May 30 17:56:43 2002 From: mathin at mathin.com (Dan Ebert) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages In-Reply-To: References: Message-ID: <1022799403.16924.3.camel@algernon.lan.enic.cc> I haven't done that, exactly, but have messed with a script I wanted to use syslog to log errors, etc. There is a module Net::Syslog which might be useful. You may need to look-at/play-with your /etc/syslog.conf file to get it to do what you want. Dan. On Thu, 2002-05-30 at 14:59, Mikel Tidwell wrote: > Hello, > > I have a project where I want to write to /var/log/messages. From what > I've read, this is not a recommended approach, but we already have software > monitoring messages for critical messages, and I'd like to use this system > already in place to flag a critical failure (not not normally logged). > > The example I have is when the mysql watching script finds the service hung > (on a remote machine), it would write an error to /var/log/messages, and > then someone would get paged about the message. This made more sense to me > than duplicating the process already in place. > > So, how would all the gurus here recommend dealing with /var/log/messages? > Do I treat it like a typical file, use a call to syslog somehow, or is this > just a bad idea all together? Thanks for your continued help. :> > > _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ > -- Mikel Tidwell President: RPGamer -- http://www.rpgamer.com/ > MSNM: FireMyst Personal Home Page -- http://dragon.rpgamer.com/ > - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL > Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address > For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest > Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org > -- Dan Ebert ---------------------------------------------------------- "Entropy isn't what it used to be." - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From cwilkes-spug at ladro.com Thu May 30 18:04:36 2002 From: cwilkes-spug at ladro.com (Chris Wilkes) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages In-Reply-To: ; from dragon@dreamhaven.net on Thu, May 30, 2002 at 02:59:43PM -0700 References: Message-ID: <20020530160436.A63007@www.ladro.com> On Thu, May 30, 2002 at 02:59:43PM -0700, Mikel Tidwell wrote: > > The example I have is when the mysql watching script finds the service hung > (on a remote machine), it would write an error to /var/log/messages, and > then someone would get paged about the message. This made more sense to me > than duplicating the process already in place. > > So, how would all the gurus here recommend dealing with /var/log/messages? > Do I treat it like a typical file, use a call to syslog somehow, or is this > just a bad idea all together? Thanks for your continued help. :> Use Sys::Syslog to 'write' to syslog and let the OS handle putting it in /var/log/messages. For your pager app, look at File::Tail to look at the file or I would build it into the script that's writting it out to the log file. Chris - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From cmeyer at helvella.org Thu May 30 18:06:14 2002 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages In-Reply-To: ; from dragon@dreamhaven.net on Thu, May 30, 2002 at 02:59:43PM -0700 References: Message-ID: <20020530160614.G11888@hobart.helvella.org> Hi Mike, On Thu, May 30, 2002 at 02:59:43PM -0700, Mikel Tidwell wrote: > Hello, > > I have a project where I want to write to /var/log/messages. From what > I've read, this is not a recommended approach, but we already have software > monitoring messages for critical messages, and I'd like to use this system > already in place to flag a critical failure (not not normally logged). Remember me? ;-) /var/log/messages and several other files in that directory belong to syslogd. Check the manpages for syslogd and syslog.conf. You most definitely should not be writing to this file directly. A given machine may have syslog configured to log to another location, perhaps even on a remote machine. There is a (POSIX?) C api for emitting syslog messages. There is a Perl module, part of the standard distro, for doing this from Perl programs. See: perldoc Sys::Syslog [ as an aside, does anyone know how win32 systems do syslog? From my limited experience with nt4, I know that it has some sort of equivelant logging system. ] There's another module on the CPAN called Unix::Syslog that claims to be more feature rich than Sys::Syslog. Have fun, -C. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Ryan.Parr at wwireless.com Thu May 30 18:14:36 2002 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages Message-ID: <6D6F0541E2B1D411A75B0002A513016D02800565@wacorpml03.wwireless.com> http://search.cpan.org/doc/MHARNISCH/Syslog-0.97/Syslog.pm Good stuff. -- Ryan Parr Common sense is the collection of prejudices acquired by age eighteen. -- Albert Einstein -----Original Message----- From: Mikel Tidwell [mailto:dragon@dreamhaven.net] Sent: Thursday, May 30, 2002 3:00 PM To: spug-list@pm.org Subject: SPUG: /var/log/messages Hello, I have a project where I want to write to /var/log/messages. From what I've read, this is not a recommended approach, but we already have software monitoring messages for critical messages, and I'd like to use this system already in place to flag a critical failure (not not normally logged). The example I have is when the mysql watching script finds the service hung (on a remote machine), it would write an error to /var/log/messages, and then someone would get paged about the message. This made more sense to me than duplicating the process already in place. So, how would all the gurus here recommend dealing with /var/log/messages? Do I treat it like a typical file, use a call to syslog somehow, or is this just a bad idea all together? Thanks for your continued help. :> _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ -- Mikel Tidwell President: RPGamer -- http://www.rpgamer.com/ MSNM: FireMyst Personal Home Page -- http://dragon.rpgamer.com/ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From andrew at sweger.net Thu May 30 18:16:55 2002 From: andrew at sweger.net (Andrew Sweger) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages In-Reply-To: Message-ID: For many environments, this is an excellent approach to handling audit and debugging information (especially if you're trying to analyze information from several hosts). Use one of the many syslog interface modules. Do not write directly to the log file. On Thu, 30 May 2002, Mikel Tidwell wrote: > So, how would all the gurus here recommend dealing with /var/log/messages? > Do I treat it like a typical file, use a call to syslog somehow, or is this > just a bad idea all together? Thanks for your continued help. :> -- Andrew B. Sweger -- The great thing about multitasking is that several things can go wrong at once. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From ben at reser.org Thu May 30 18:26:33 2002 From: ben at reser.org (Ben Reser) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages In-Reply-To: References: Message-ID: <20020530232633.GD2314@titanium.brain.org> On Thu, May 30, 2002 at 02:59:43PM -0700, Mikel Tidwell wrote: > So, how would all the gurus here recommend dealing with /var/log/messages? > Do I treat it like a typical file, use a call to syslog somehow, or is this > just a bad idea all together? Thanks for your continued help. :> http://search.cpan.org/doc/JHI/perl-5.7.3/ext/Sys/Syslog/Syslog.pm -- Ben Reser http://ben.reser.org We tend to see all wars through the lens of the current conflict, and we mine history for lessons convenient to the present purpose. - Brian Hayes - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From dragon at dreamhaven.net Thu May 30 18:38:53 2002 From: dragon at dreamhaven.net (Mikel Tidwell) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages In-Reply-To: <20020530160614.G11888@hobart.helvella.org> Message-ID: On Thu, 30 May 2002, Colin Meyer wrote: -> Remember me? ;-) Yup. Seen you on the list... I guess I've just never thought to write ^^; We can catch up in another email ;> -> There is a (POSIX?) C api for emitting syslog messages. There is a Perl -> module, part of the standard distro, for doing this from Perl programs. -> See: perldoc Sys::Syslog I happened to find this after sending my message, but haven't had any luck actually getting a message to appear in messages. This is my very basic testing script so far. (Since writing to messages was first, that's all I have): #!/usr/bin/perl -w use Sys::Syslog qw(:DEFAULT setlogsock); setlogsock('inet'); openlog('mysqlcheck.pl','cons,pid','user'); syslog('debug', 'I like testing.'); closelog(); ----- Here's /etc/syslog.conf (which I didn't know about, thanks :) ------ # Log all kernel messages to the console. # Logging much else clutters up the screen. #kern.* /dev/console # Log anything (except mail) of level info or higher. # Don't log private authentication messages! *.info;mail.none;authpriv.none;cron.none /var/log/messages debug.* /var/log/messages # The authpriv file has restricted access. authpriv.* /var/log/secure # Log all the mail messages in one place. mail.* /var/log/maillog # Log cron stuff cron.* /var/log/cron # Everybody gets emergency messages *.emerg * # Save news errors of level crit and higher in a special file. uucp,news.crit /var/log/spooler # Save boot messages also to boot.log local7.* /var/log/boot.log -------------------------------------------------------------------------- I'm sure I'm missing something simple... please tell me what it is. ;> Meanwhile I'm going for a little walk.. this project frustrates me :P _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ -- Mikel Tidwell President: RPGamer -- http://www.rpgamer.com/ MSNM: FireMyst Personal Home Page -- http://dragon.rpgamer.com/ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From jimfl at tensegrity.net Thu May 30 19:01:25 2002 From: jimfl at tensegrity.net (Jim Flanagan) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages In-Reply-To: <20020530160614.G11888@hobart.helvella.org> References: <20020530160614.G11888@hobart.helvella.org> Message-ID: <2147483647.1022778084@[192.168.10.41]> --On Thursday, May 30, 2002 4:06 PM -0700 Colin Meyer wrote: > There's another module on the CPAN called Unix::Syslog that claims to > be more feature rich than Sys::Syslog. I would amplify this last statement. The main useful feature is that Unix::Syslog works on RedHat linux, whereas Sys::Syslog does not. Unix::Syslog actually uses the syslog(3) library call to post the message, wheras Sys::Syslog uses the socket interface to connect to syslogd(8), which is a little less efficient. -- ::jimfl http://jimfl.tensegrity.net mailto:jimfl%40t%65ns%65gr%69ty.n%65t - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From dragon at dreamhaven.net Fri May 31 12:25:38 2002 From: dragon at dreamhaven.net (Mikel Tidwell) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: /var/log/messages - solved Message-ID: Thanks for everyone who helped out. I had to use Unix::Syslog, since we're using redhat 7.2. I had to add a line to to /etc/syslog.conf. I had to learn more about syslog then I ever wanted... but it works now ;> mysqlcheck.pl: (so far ;) #!/usr/bin/perl -w use Unix::Syslog qw(:subs); openlog('mysqlcheck.pl',0,1); # #define LOG_USER (1<<3) syslog(5, 'Test--ignore me'); # #define LOG_NOTICE 5 closelog(); /etc/syslog.conf: *.=notice;*.info;mail.none;authpriv.none;cron.none /var/log/messages _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ -- Mikel Tidwell President: RPGamer -- http://www.rpgamer.com/ MSNM: FireMyst Personal Home Page -- http://dragon.rpgamer.com/ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - _ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tim at consultix-inc.com Fri May 31 10:19:10 2002 From: tim at consultix-inc.com (SPUG-list-owner) Date: Wed Aug 4 00:08:56 2004 Subject: SPUG: code reference callback on a class method Message-ID: <20020531081910.A8815@timji.consultix.wa.com> How do you do a callback on a class method? For example: Zub process_files { my $self = shift; # stuff } Zub process { my $self = shift; find(\&process_files, @ARGV); } I'm trying to get the first argument of find() to be a callback using $self->process_files() I went to the books on subroutines and references, but I'm stuck. Any help would be greatly appreciated. Thank you! __________________________________________________ Do You Yahoo!? Yahoo! - Official partner of 2002 FIFA World Cup http://fifaworldcup.yahoo.com ----- End forwarded message ----- -- *==============================================================================* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com teachmelinux.net | | JUNE 3-7: Perl Programming, plus Modules; JULY 8-11: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text Parsing | *==============================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From ced at carios2.ca.boeing.com Fri May 31 13:21:56 2002 From: ced at carios2.ca.boeing.com (ced@carios2.ca.boeing.com) Date: Wed Aug 4 00:08:57 2004 Subject: SPUG: code reference callback on a class method Message-ID: <200205311821.LAA06205@carios2.ca.boeing.com> > How do you do a callback on a class method? For > example: > Zub process_files { > my $self = shift; > # stuff > } > Zub process { > my $self = shift; > find(\&process_files, @ARGV); > } > I'm trying to get the first argument of find() to be a > callback using $self->process_files() > I went to the books on subroutines and references, but > I'm stuck. Any help would be greatly appreciated. Take a look at "11.8 Creating References to Methods" in the Perl Cookbook by T. Christiansen. Briefly, you'll need to create a closure, eg, my $mref = sub { $self->process_files() }; ... find( $mref, @ARGV ); hth, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From Ryan.Parr at wwireless.com Fri May 31 13:58:33 2002 From: Ryan.Parr at wwireless.com (Parr, Ryan) Date: Wed Aug 4 00:08:57 2004 Subject: SPUG: code reference callback on a class method Message-ID: <6D6F0541E2B1D411A75B0002A513016D0280056C@wacorpml03.wwireless.com> Zub process_files { my $self = shift; # stuff } Zub process { my $self = shift; find(sub { $self->process_files(@_) }, @ARGV); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ } But there's probably a better way :) -- Ryan Parr Common sense is the collection of prejudices acquired by age eighteen. -- Albert Einstein -----Original Message----- From: SPUG-list-owner [mailto:tim@consultix-inc.com] Sent: Friday, May 31, 2002 8:19 AM To: spug-list@pm.org Subject: SPUG: code reference callback on a class method How do you do a callback on a class method? For example: Zub process_files { my $self = shift; # stuff } Zub process { my $self = shift; find(\&process_files, @ARGV); } I'm trying to get the first argument of find() to be a callback using $self->process_files() I went to the books on subroutines and references, but I'm stuck. Any help would be greatly appreciated. Thank you! __________________________________________________ Do You Yahoo!? Yahoo! - Official partner of 2002 FIFA World Cup http://fifaworldcup.yahoo.com ----- End forwarded message ----- -- *=========================================================================== ===* | Tim Maher, CEO, CONSULTIX (206) 781-UNIX; (866) DOC-PERL; (866) DOC-LINUX | | tim@consultix-inc.com teachmeunix.com teachmeperl.com | teachmelinux.net | JUNE 3-7: Perl Programming, plus Modules; JULY | 8-11: OO Perl Fundamentals | *- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * | NEW Seminar Series! "DAMIAN CONWAY's Adv. Perl Workshop"; Seattle 7/15-19 | | Adv. OOP * Adv. Module Techniques * Programming Perl 6 * Text | Parsing | *=========================================================================== ===* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From james at banshee.com Fri May 31 14:22:36 2002 From: james at banshee.com (James Moore) Date: Wed Aug 4 00:08:57 2004 Subject: SPUG: code reference callback on a class method In-Reply-To: <200205311821.LAA06205@carios2.ca.boeing.com> Message-ID: <003601c208d8$85a95360$797ba8c0@gealach> > Take a look at "11.8 Creating References to Methods" in the > Perl Cookbook by T. Christiansen. Also read pp 56 - 64 of Advanced Perl Programming for more interesting information about closures. ------------------------------------------------------------ James M. Moore james@banshee.com Banshee Software: Web software development Open Source / .NET / Embedded - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org From tuck at whistlingfish.net Fri May 31 14:45:48 2002 From: tuck at whistlingfish.net (Matt Tucker) Date: Wed Aug 4 00:08:57 2004 Subject: SPUG: code reference callback on a class method In-Reply-To: <6D6F0541E2B1D411A75B0002A513016D0280056C@wacorpml03.wwireless.com> References: <6D6F0541E2B1D411A75B0002A513016D0280056C@wacorpml03.wwirele ss.com> Message-ID: <61590000.1022874347@[192.168.30.55]> -- "Parr, Ryan" spake thusly: > Zub process_files { > my $self = shift; > # stuff > } > > Zub process { > my $self = shift; > find(sub { $self->process_files(@_) }, @ARGV); > ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ > } > > But there's probably a better way :) Actually, I'd say this is the best way to do it. I've had a need for this sort of thing before, and that's my preferred solution. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 232 bytes Desc: not available Url : http://mail.pm.org/archives/spug-list/attachments/20020531/d33b8457/attachment.bin From legrady at earthlink.net Fri May 31 16:08:04 2002 From: legrady at earthlink.net (Tom Legrady) Date: Wed Aug 4 00:08:57 2004 Subject: SPUG: code reference callback on a class method In-Reply-To: <6D6F0541E2B1D411A75B0002A513016D0280056C@wacorpml03.wwireless.com> Message-ID: sub myFindFucntion { ... } find( \&myFindFunction, .... ) works just fine. But the function is not a method of your class, it's a free function, so don't 'shift' your 'self'. According to the POD, "The wanted() function does whatever verifications you want. $File::Find::dir contains the current directory name, and $_ the current filename within that directory. $File::Find::name contains the complete pathname to the file. You are chdir()'d to $File::Find::dir when the function is called, unless no_chdir was specified." so you can just use the $_ default, as in : sub myFindFunction { -l && print "$File::Find::name is a link"; } Tom Legrady - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org