From marlingreene at mindspring.com Sat Sep 2 12:59:35 2000 From: marlingreene at mindspring.com (marlin) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: unwanted mail "feature" Message-ID: <39B14007.4025F536@mindspring.com> I am experiencing a modestly annoying anomaly with a mail script. The first 3 lines below show my script; the second 2 are the resulting email. Where is the leading ">" coming from? $mailbody = ""; $mailbody = "From PACIFIC SPORTS in Seattle\n $mailbody = $mailbody."Thank you very much for your order of:\n\n"; >From PACIFIC SPORTS in Seattle Thank you very much for your order of: Using Sendmail like this... open (SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq"); print SENDMAIL <<"EOF"; Thanks for any suggestions... Marlin Greene -- 3 Hats Design INTERNET PRINT ILLUSTRATION 5201 15 Ave NW Suite 220 Seattle, WA 98107 206.784.1641 phone 206.784.2231 fax marlin@3hats.com http://www.3hats.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://www.halcyon.com/spug/ From andy at n2h2.com Sat Sep 2 13:08:58 2000 From: andy at n2h2.com (Andrew Sweger) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: unwanted mail "feature" In-Reply-To: <39B14007.4025F536@mindspring.com> Message-ID: A line that matches the pattern /^From / is considered special by many email systems (notably, the mbox mail box format). Thus, many systems will "escape" this pattern with a leading greater than sign (a common quoting mechanism). Consider changing the wording of the message to avoid this. On Sep 2, 2000 @ 10:59am, marlin wrote: > I am experiencing a modestly annoying anomaly with a mail script. > The first 3 lines below show my script; the second 2 are the resulting > email. Where is the leading ">" coming from? > > > $mailbody = ""; > $mailbody = "From PACIFIC SPORTS in Seattle\n > $mailbody = $mailbody."Thank you very much for your order of:\n\n"; > > >From PACIFIC SPORTS in Seattle > Thank you very much for your order of: > > > Using Sendmail like this... > open (SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq"); > print SENDMAIL <<"EOF"; -- Andrew Sweger | N2H2, Incorporated Systems Architect | 900 Fourth Avenue, Suite 3400 Advanced Technologies Division | Seattle WA 98164-1059 v=206.336.2947 f=206.336.1541 | http://www.n2h2.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://www.halcyon.com/spug/ From mmertel at ix.netcom.com Wed Sep 6 15:30:56 2000 From: mmertel at ix.netcom.com (Mark Mertel) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: alarm problems in daemon on HPUX Message-ID: <39B6A980.F95E0F79@ix.netcom.com> all, here's a puzzler: a daemon program which forks() at startup and does a POSIX::setsid immediately after, then sets an alarm for so many seconds until the process should go into a sleep state. i have it running on two machines, same program, some slight perl discrepencies, and on 1 machine, it works properly and logs messages indicating it received the ALRM and went to sleep. on the other machine, no such log messages are written. not sure whether or not it goes to sleep - its a late night thing. i have checked the ALRM during waking hours and it logs properly. below are the output from perl -V for the two machines. the top one is the one that doesn't write log entries. i'm thinking i might need to rebuild perl, but wishin'i didn't have too. > farmc1a# perl -V > Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration: > Platform: > osname=hpux, osvers=10.20, archname=PA-RISC1.1 > uname='hp-ux ural b.10.20 a 9000712 2015389465 two-user license ' > hint=recommended, useposix=true, d_sigaction=define > usethreads=undef useperlio=undef d_sfio=undef > Compiler: > cc='cc', optimize='-O +Onolimit', gccversion= > cppflags='-Ae' > ccflags ='-Ae' > stdchar='unsigned char', d_stdstdio=define, usevfork=false > intsize=4, longsize=4, ptrsize=4, doublesize=8 > d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 > alignbytes=8, usemymalloc=y, prototype=define > Linker and Libraries: > ld='ld', ldflags ='' > libpth=/usr/local/lib /lib/pa1.1 /lib /usr/lib /usr/ccs/lib > libs=-lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt > libc=/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a > Dynamic Linking: > dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-B,deferred ' > cccdlflags='+z', lddlflags='-b -s -a shared' > > > Characteristics of this binary (from libperl): > Built under hpux > Compiled at Feb 24 2000 12:24:57 > @INC: > /opt/perl5/lib/5.00503/PA-RISC1.1 > /opt/perl5/lib/5.00503 > /opt/perl5/lib/site_perl/5.005/PA-RISC1.1 > /opt/perl5/lib/site_perl/5.005 > . > > > # perl -V > Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration: > Platform: > osname=hpux, osvers=10.20, archname=PA-RISC2.0 > uname='hp-ux sc_web1 b.10.20 a 9000800 2004967135 two-user license ' > hint=recommended, useposix=true, d_sigaction=define > usethreads=undef useperlio=undef d_sfio=undef > Compiler: > cc='cc', optimize='-O', gccversion= > cppflags='-D_HPUX_SOURCE -Aa -I/usr/local/include' > ccflags ='-D_HPUX_SOURCE -Aa -I/usr/local/include' > stdchar='unsigned char', d_stdstdio=define, usevfork=false > intsize=4, longsize=4, ptrsize=4, doublesize=8 > d_longlong=undef, longlongsize=, d_longdbl=define, longdblsize=16 > alignbytes=8, usemymalloc=y, prototype=define > Linker and Libraries: > ld='ld', ldflags =' -L/usr/local/lib' > libpth=/usr/local/lib /lib/pa1.1 /lib /usr/lib /usr/ccs/lib > libs=-lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt > libc=/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a > Dynamic Linking: > dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-B,deferred ' > cccdlflags='+z', lddlflags='-b -L/usr/local/lib' > > > Characteristics of this binary (from libperl): > Built under hpux > Compiled at Feb 4 2000 18:54:23 > @INC: > /opt/perl5/lib/5.00503/PA-RISC2.0 > /opt/perl5/lib/5.00503 > /opt/perl5/lib/site_perl/5.005/PA-RISC2.0 > /opt/perl5/lib/site_perl/5.005 > . > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jmates at mbt.washington.edu Wed Sep 6 16:31:38 2000 From: jmates at mbt.washington.edu (Jeremy A. Mates) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Request for feedback on file-size humanizing routine Message-ID: Hello- I threw together a routine that takes random numbers (presumed bytes), and converts them to sizes that a human can read, available at: http://www.sial.org/code/perl/scripts/human.pl I would like feedback on any improvements that could be made, or perhaps the name of a module on CPAN the subroutine could be leeched onto. A new one called File::Util maybe, as I couldn't find any suitable existing module... -- Jeremy Mates (206) 221-4714 Fax: 685-7301 Systems Administrator K353-B, Health Sciences Center http://www.mbt.washington.edu/ Box 357730 University of Washington Seattle, WA, 98195 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From bill at celestial.com Wed Sep 6 17:00:17 2000 From: bill at celestial.com (Bill Campbell) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Request for feedback on file-size humanizing routine In-Reply-To: ; from jmates@mbt.washington.edu on Wed, Sep 06, 2000 at 02:31:38PM -0700 References: Message-ID: <20000906150017.A10311@kstarr.celestial.com> On Wed, Sep 06, 2000 at 02:31:38PM -0700, Jeremy A. Mates wrote: >Hello- > >I threw together a routine that takes random numbers (presumed bytes), >and converts them to sizes that a human can read, available at: > >http://www.sial.org/code/perl/scripts/human.pl > I'm attaching one I've been using for several years that adds commas to integer and decimal numbers for pretty printing. Bill -- INTERNET: bill@Celestial.COM Bill Campbell; Celestial Systems, Inc. UUCP: camco!bill PO Box 820; 6641 E. Mercer Way FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) 236-1676 "The strongest reason for the people to retain the right to keep and bear arms is, as a last resort, to protect themselves against tyranny in government." --1 Thomas Jefferson Papers, 334 (C.J.Boyd, Ed.,1950) -------------- next part -------------- A non-text attachment was scrubbed... Name: d2s.pl Type: application/x-perl Size: 776 bytes Desc: not available Url : http://mail.pm.org/archives/spug-list/attachments/20000906/ed208d3f/d2s.bin From davidski at uffda.com Wed Sep 6 20:02:30 2000 From: davidski at uffda.com (David F. Severski) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Argh. Message-ID: <20000906180230.G55859@geoff.deadheaven.com> Did a little too fast on the cut and paste there. Sorry about that, all. :/ Just changing email addresses, David - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jeremy at weezel.com Thu Sep 7 02:27:38 2000 From: jeremy at weezel.com (Jeremy Devenport) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Request for feedback on file-size humanizing routine In-Reply-To: <20000906150017.A10311@kstarr.celestial.com> Message-ID: Just out of curiosity has anyone looked at Number::Format? It seems to do the same thing. Jeremy -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of Bill Campbell Sent: Wednesday, September 06, 2000 3:00 PM To: SPUG Subject: Re: SPUG: Request for feedback on file-size humanizing routine On Wed, Sep 06, 2000 at 02:31:38PM -0700, Jeremy A. Mates wrote: >Hello- > >I threw together a routine that takes random numbers (presumed bytes), >and converts them to sizes that a human can read, available at: > >http://www.sial.org/code/perl/scripts/human.pl > I'm attaching one I've been using for several years that adds commas to integer and decimal numbers for pretty printing. Bill -- INTERNET: bill@Celestial.COM Bill Campbell; Celestial Systems, Inc. UUCP: camco!bill PO Box 820; 6641 E. Mercer Way FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) 236-1676 "The strongest reason for the people to retain the right to keep and bear arms is, as a last resort, to protect themselves against tyranny in government." --1 Thomas Jefferson Papers, 334 (C.J.Boyd, Ed.,1950) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Thu Sep 7 11:07:20 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Request for feedback on file-size humanizing routine In-Reply-To: ; from jeremy@weezel.com on Thu, Sep 07, 2000 at 12:27:38AM -0700 References: <20000906150017.A10311@kstarr.celestial.com> Message-ID: <20000907090720.B11906@timji.consultix.wa.com> On Thu, Sep 07, 2000 at 12:27:38AM -0700, Jeremy Devenport wrote: > Just out of curiosity has anyone looked at Number::Format? It seems to do > the same thing. > > Jeremy If you guys are talking about inserting commas in numbers, Recipe 2.17 of the Perl Cookbook shows how to do that in 3 lines of code, and here's a slightly different, "pessimaly scrutable" version extracted from a Perl FAQ: sub commify { local $_ = shift; 1 while s/^(-?\d+)(\d{3})/$1,$2/; return $_; } *========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | |CLASSES 9/11: Perl+Modules 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl | I========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Thu Sep 7 11:12:47 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Perl JoB in London Message-ID: <20000907091247.A11999@timji.consultix.wa.com> Hi SPUG: You may remember me. About a year ago I posted some info about a shell and Perl scripting class at North Seattle Community College. Now I'm living in London, England having the time of my life working for a wonderful company that has a job opening your readers may be interested in. The CTO will probably be on the West Coast in mid-to-late September and could meet with anyone then. Thanks! Rick Travers rick.travers@smartaxis.com www.smartaxis.com Location: London, England (work permit provided if needed) Employer: SmartAxis (www.smartaxis.com) required skill-set: 2 years Perl and C++ on UNIX or Linux contract or permanent position: Permanent availability of stock options or other incentive plans: Yes, both stock options & bonuses placement through recruiter, or directly with company?: Directly with company. W-2 vs. 1099 status: UK income tax rates are similar to USA. No taxes due in USA on foreign income until $70,000 annual threshold reached. physical location: London, England telecommuting possible?: Preferably not. company's product or service: Enabling use of digital cash in any currency, over any network, based in any type of purse (smart cards, servers, and clients) For more information, please email rick.travers@smartaxis.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://www.halcyon.com/spug/ From jmates at mbt.washington.edu Thu Sep 7 11:23:38 2000 From: jmates at mbt.washington.edu (Jeremy A. Mates) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Request for feedback on file-size humanizing routine In-Reply-To: Message-ID: On Thu, 7 Sep 2000, Jeremy Devenport wrote: > Just out of curiosity has anyone looked at Number::Format? It seems to do > the same thing. Number::Format's format_bytes() only supports positive K and M. Mine supports K, M, G, P, E, Z, Y of both positive and negative values, allows fudging of numbers up (1021 K -> 1 M), and-- excepting precision length (working on adding)-- finer grained control over decimals. Though admittedly I hadn't thought to look in the Number's section for appropriate modules. I'll be contacting the author of Number::Format to see whether my version can be included somehow... -- Jeremy Mates (206) 221-4714 Fax: 685-7301 Systems Administrator K353-B, Health Sciences Center http://www.mbt.washington.edu/ Box 357730 University of Washington Seattle, WA, 98195 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jsouza at cobaltgroup.com Thu Sep 7 17:02:48 2000 From: jsouza at cobaltgroup.com (Jonathan Souza) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Forking Cgi... References: <200008251642.JAA02774@consultix.wa.com> Message-ID: <39B81088.4D140E47@cobaltgroup.com> Hear my tale of woe... I have a standard html form that sends variables to a cgi. The twist is that my cgi needs to pass the variables along (after doing a lot of work) to another cgi somewhere out there in space (on another server). What I did was to use HTTP::Request, HTTP::Response, and LWP::RobotUA. Everything worked with my test cgi's, but I noticed that I don't want my user to have to wait around for my cgi to do it's work, contact the other cgi, have that cgi do work and return to my cgi so that my cgi could then respond to the browser. So I figured I would fork my cgi. The parent process writing out to the browser "thanks etc..." and the child process to do the work since the user will never see any of it. This also worked but did not improve anything. I then tried exec in my child calling a .pl program passing on the querystring in the args, but this didn't improve anything either. Ultimately, the users browser hangs until the other process or program finishes. I am figuring that somehow the Apache server is mainting the parent process until the child finishes. I tried explictily calling exit(0) but that didn't kill the parent either. Is there a way to explicitly end a cgi program and divorce from Apache? I looked at the zombie process stuff in Advanced Perl/Programming Perl but I want the Parent to die not-waiting for its children. This would free the user/browser and have a whole separate non-cgi program running on the server. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jope-spug at n2h2.com Thu Sep 7 17:27:47 2000 From: jope-spug at n2h2.com (El JoPe Magnifico) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Forking Cgi... In-Reply-To: <39B81088.4D140E47@cobaltgroup.com> Message-ID: Close STOUT and STDERR in the forked off process. On Thu, 7 Sep 2000, Jonathan Souza wrote: > Is there a way to explicitly end a cgi program and divorce from Apache? - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jsouza at cobaltgroup.com Thu Sep 7 18:46:50 2000 From: jsouza at cobaltgroup.com (Jonathan Souza) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Forking Cgi... References: Message-ID: <39B828EA.15BE4486@cobaltgroup.com> Thanks, I actually was going to include a statement into my "woes" about how my problem seemed to be similiar when you have open file handles in a socket program. I totally forgot about STDOUT, STDERR, STDIN. El JoPe Magnifico wrote: > > Close STOUT and STDERR in the forked off process. > > On Thu, 7 Sep 2000, Jonathan Souza wrote: > > Is there a way to explicitly end a cgi program and divorce from Apache? > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ -- Jonathan Souza Software Engineer: Product Development The Cobalt Group: jsouza@cobaltgroup.com tel: 206.269.6363 ext 8289 Direct: 206.219.8289 800.909.8244 Fax: 206.219.8399 Home: courtassassin@home.com Phone: 206.762.1905 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From marlingreene at mindspring.com Fri Sep 8 14:29:07 2000 From: marlingreene at mindspring.com (marlin) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Linux oriented company logo Message-ID: <39B93E03.3A7D7504@mindspring.com> Some time ago I registered a domain name and designed a logo for a project that never developed. The name is "ecinchl" (essential Linux) www.ecinchl.com If anyone need a good identity for a Linux product or service company I invite your attention to... http://www.3hats.com/ecinchl.htm Thanks... Marlin Greene -- 3 Hats Design INTERNET PRINT ILLUSTRATION 5201 15 Ave NW Suite 220 Seattle, WA 98107 206.784.1641 phone 206.784.2231 fax marlin@3hats.com http://www.3hats.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://www.halcyon.com/spug/ From tim at consultix-inc.com Fri Sep 8 22:28:42 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Linux oriented company logo In-Reply-To: <39B93E03.3A7D7504@mindspring.com>; from marlingreene@mindspring.com on Fri, Sep 08, 2000 at 12:29:07PM -0700 References: <39B93E03.3A7D7504@mindspring.com> Message-ID: <20000908202842.A18789@timji.consultix.wa.com> Your posting had nothing to do with Perl, but only your own personal commercial interests. Messages of this type do not belong on our list. Don't post any more like this. -Tim ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From smorton at pobox.com Mon Sep 11 10:32:30 2000 From: smorton at pobox.com (Sanford Morton) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Trapping LWP exceptions Message-ID: <14780.64270.377660.574023@evrtwa1-ar4-129-155.dsl.gtei.net> I need to trap certain LWP exceptions. Is it more appropriate to handle the __DIE__ signal or use an eval block on $ua->request($req)? I'm using LWP and a user agent to repeatedly poll a web page looking for updates: while (sleep 900) { $resp = $ua->request($req); &process_page( $resp->as_string ); Occasionally the script dies with errors like 500 (Internal Server Error) Can't connect to www.yahoo.com:80 (Transport endpoint is not connected) Client-Date: Mon, 11 Sep 2000 14:43:28 GMT I think these are server hiccups, going offline for seconds or a few minutes, so that the socket fails to connect. The user agent is die'ing deep within LWP, maybe LWP::Protocol::http or IO::Socket. I'd like to trap these exceptions, to go to sleep and try again later, instead of die'ing. What's the best way to do that? Shall I handle the __DIE__ signal or use an eval block on $ua->request($req)? It's not clear to me what the difference is between these or which is more appropriate in this instance. Thx, Sandy Morton - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From aeh at akc.org Mon Sep 11 12:05:08 2000 From: aeh at akc.org (Adrian Hands) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Trapping LWP exceptions Message-ID: <200009111705.NAA16709@Scorpion.akc.org> I'd use eval(). It gives you better control over what section of code you're handling. If you use a __DIE__ handler, keep in mind that it will get invoked for every die, even those that are handled by eval(). (Tom Christiensen pointed out this messy behaviour in one of his Perl tutorials at Usenix.) >>> Sanford Morton 09/11 11:32 AM >>> I need to trap certain LWP exceptions. Is it more appropriate to handle the __DIE__ signal or use an eval block on $ua->request($req)? I'm using LWP and a user agent to repeatedly poll a web page looking for updates: while (sleep 900) { $resp = $ua->request($req); &process_page( $resp->as_string ); Occasionally the script dies with errors like 500 (Internal Server Error) Can't connect to www.yahoo.com:80 (Transport endpoint is not connected) Client-Date: Mon, 11 Sep 2000 14:43:28 GMT I think these are server hiccups, going offline for seconds or a few minutes, so that the socket fails to connect. The user agent is die'ing deep within LWP, maybe LWP::Protocol::http or IO::Socket. I'd like to trap these exceptions, to go to sleep and try again later, instead of die'ing. What's the best way to do that? Shall I handle the __DIE__ signal or use an eval block on $ua->request($req)? It's not clear to me what the difference is between these or which is more appropriate in this instance. Thx, Sandy Morton - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From christopher at cavnor.com Mon Sep 11 12:15:52 2000 From: christopher at cavnor.com (Christopher Cavnor) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Re: Trapping LWP exceptions References: <14780.64270.377660.574023@evrtwa1-ar4-129-155.dsl.gtei.net> Message-ID: <00cc01c01c13$f59a7270$919727d8@daneel> Maybe something like: while ( sleep(900) ){ my $resp = eval{$ua->request($req)}; next if $@; process_page( $resp->as_string ); } Alternatively, if this is a perpetual function, you might want to use a Robot User Agent, which can handle it's own timing (default is one minute per visit) and obeys the robot exclusion standard (as well as exposes your bot's info for niceness' sake). Warning: untested code approaching :-) use LWP::RobotUA; sub patch_bot{ # pass in args: the URL to fetch, this bot's name, a contact email, # the desired time to wait between requests, a proxy adress (if one exists) my ($source, $botname, $email, $delay, $proxy) = @_; # Create a Robot User Agent object, give it a name my $rua = LWP::RobotUA->new($botname, $email); # If proxy server specified, define it in the User Agent object if (defined $proxy) { $rua->proxy('http', $proxy); } # set delay between requests defined $delay ? $rua->delay($delay) : $rua->delay(1); #default delay is 1 minute # bypass unless this doc is reachable - testing the HEAD is fastest my $check_request = new HTTP::Request('HEAD', $source); # this loops infinitely, sleeping only when the URL cannot be reached, otherwise calls process_page # routine every $delay seconds while ( sleep(1000) ){ eval{ $rua->request($check_request) }; next if $@; # next if bad header # otherwise grab the doc my $request = new HTTP::Request('GET', $source); my $response = $rua->request($request); my $data = $response->content; process_page( $data ); redo; } } > I need to trap certain LWP exceptions. Is it more appropriate to > handle the __DIE__ signal or use an eval block on $ua->request($req)? > > I'm using LWP and a user agent to repeatedly poll a web page looking > for updates: > > while (sleep 900) { > $resp = $ua->request($req); > &process_page( $resp->as_string ); > > Occasion ally the script dies with errors like > > 500 (Internal Server Error) Can't connect to www.yahoo.com:80 > (Transport endpoint is not connected) Client-Date: Mon, 11 Sep 2000 > 14:43:28 GMT > > I think these are server hiccups, going offline for seconds or a few > minutes, so that the socket fails to connect. The user agent is > die'ing deep within LWP, maybe LWP::Protocol::http or IO::Socket. > > I'd like to trap these exceptions, to go to sleep and try again later, > instead of die'ing. What's the best way to do that? Shall I handle the > __DIE__ signal or use an eval block on $ua->request($req)? It's not > clear to me what the difference is between these or which is more > appropriate in this instance. > > Thx, > Sandy Morton > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From axhard2 at uswest.com Mon Sep 11 19:54:15 2000 From: axhard2 at uswest.com (Alyssa Harding) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: re: ActiveState, IIS developers Message-ID: <39BD7EB7.25EBDF19@uswest.com> Hey everyone - I need some help - I'm trying to port some Perl scripts (simple CGI apps) to Windows 2000 server (using the Actiand have gotten to the point with IIS where the scripts execute but I get a 500 server error. I should say that I am a Perl developer FOR UNIX! I have never (up 'till this morning) had to deal with Microsoft servers at all. I can't find any useful IIS logs that tell me what headers were returned by the script - anyone know if that gets logged? (and where?) The scripts all compile (I checked from the Command Prompt) but still return the 500 error when run from the browser. My base question is this: How can I find out why these scripts aren't working so I can fix them? Any help you can provide would be wonderful. Thanks :) A. -- Alyssa W. Harding Development Team Lead Peak Creative Media phon: (206) 345-4073 cell: (206) 769-8735 ------------------------------------------------------------------- - BIG FIDO? - "Yes?" - HEEL. -- (Terry Pratchett, Men At Arms) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From mark.johnston at pnl.gov Mon Sep 11 21:18:49 2000 From: mark.johnston at pnl.gov (Johnston, Mark) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: re: ActiveState, IIS developers Message-ID: Alyssa, The default for log files is in the C:\WINNT\System32\Logfiles if Windows NT is installed according to defaults and the defaults have not been changed on the web server. You might be interested in the article at http://msdn.microsoft.com/workshop/server/migrlab/howto.asp, which gives a fairly comprehensive overview of how to migrate an entire web server to NT. (You may have to register with Microsoft to use the site, but I believe it is free otherwise.) Hope this helps, --Mark -----Original Message----- From: Alyssa Harding [SMTP:axhard2@uswest.com] Sent: Monday, September 11, 2000 5:54 PM To: SPUG Subject: SPUG: re: ActiveState, IIS developers Hey everyone - I need some help - I'm trying to port some Perl scripts (simple CGI apps) to Windows 2000 server (using the Actiand have gotten to the point with IIS where the scripts execute but I get a 500 server error. I should say that I am a Perl developer FOR UNIX! I have never (up 'till this morning) had to deal with Microsoft servers at all. I can't find any useful IIS logs that tell me what headers were returned by the script - anyone know if that gets logged? (and where?) The scripts all compile (I checked from the Command Prompt) but still return the 500 error when run from the browser. My base question is this: How can I find out why these scripts aren't working so I can fix them? Any help you can provide would be wonderful. Thanks :) A. -- Alyssa W. Harding Development Team Lead Peak Creative Media phon: (206) 345-4073 cell: (206) 769-8735 ------------------------------------------------------------------- - BIG FIDO? - "Yes?" - HEEL. -- (Terry Pratchett, Men At Arms) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jcokos at ccs.net Mon Sep 11 22:20:29 2000 From: jcokos at ccs.net (John Cokos) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: re: ActiveState, IIS developers In-Reply-To: <39BD7EB7.25EBDF19@uswest.com> Message-ID: Attach a script that you can't get running, and I'll give it a whirl, I have an 2000 box that run both IIS and Apache. John > From: Alyssa Harding > Organization: Peak Creative Media > Date: Tue, 12 Sep 2000 00:54:15 +0000 > To: SPUG > Subject: SPUG: re: ActiveState, IIS developers > > Hey everyone - > > I need some help - I'm trying to port some Perl scripts (simple CGI > apps) to Windows 2000 server (using the Actiand have gotten to the > point with IIS where the scripts execute but I get a 500 server error. > > I should say that I am a Perl developer FOR UNIX! I have never (up > 'till this morning) had to deal with Microsoft servers at all. > > I can't find any useful IIS logs that tell me what headers were > returned by the script - anyone know if that gets logged? (and where?) > > The scripts all compile (I checked from the Command Prompt) but still > return the 500 error when run from the browser. > > My base question is this: How can I find out why these scripts aren't > working so I can fix them? > > Any help you can provide would be wonderful. > > Thanks :) > > A. > -- > Alyssa W. Harding > Development Team Lead > Peak Creative Media > phon: (206) 345-4073 > cell: (206) 769-8735 > ------------------------------------------------------------------- > - BIG FIDO? > - "Yes?" > - HEEL. > -- (Terry Pratchett, Men At Arms) > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Mon Sep 11 22:54:39 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Special 10/2 Meeting: The Damian Returneth! Message-ID: <20000911205439.A7235@timji.consultix.wa.com> Announcing: YAPCTS, 2000 "Yet Another Perl Celebrity Talk in Seattle" - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SPUG's favorite Perl Guru and stand-up comic, that guy with the award-winning code, funny accent, and delirious wit, will be reprising his famous 'Latin talk' from "The Perl Conference 4.0" on the evening of October 10th at the usual Seattle downtown location. You know who I mean. The official abstract for the talk follows below. P.S. Remember that famous graffito scrawled on bathroom-walls by first-year Latin students everywhere, "Semper ubi sub-ubi". (translation provided below; WAY below) ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== Lingua::Romana::Perligata: Perl for the XXI-imus Century The great flaw of existing programming (and natural) languages is that word order matters, which makes it unnecessarily difficult to program (or talk) when drunk. You end up writing: push @casino's_money, @my_cash; instead of: push @my_cash, @casino's_money; Generally speaking, older natural languages rely less on word order. For example, in Latin the sentences "Puer dedit cani escam." and "Escam dedit puer cani." both mean "The boy gave the dog the food." In fact, the more usual word order would be "Reverse Polish", with the verb coming last: "Puer cani escam dedit." This flexibility is possible because Latin uses inflection to denote lexical roles, and that single fact allowed the Romans to build a vast empire despite their near-permanent state of inebriation. There is no reason that programming languages could not also make use of inflection rather than position to denote lexical roles, thereby allowing hackers to program in their natural -- inebriated -- state. >From that bar-room inspiration, it was only a small, slightly wobbly step to the Lingua::Romana::Perligata module: an Latin syntactic binding for Perl. No prior knowledge of the ancient Roman language will be assumed, but by the end of the talk (or at least by the end of the after-party) the following program will make perfect sense: maximum inquementum tum biguttam tum stadium egresso scribe. vestibulo perlegementum da meo maximo . maximum tum novumversum egresso scribe. da duo tum maximum conscribementa meis listis. dum damentum nexto listis decapitamentum fac sic lista sic hoc tum nextum recidementum cis vannementa listis da. next tum biguttam tum nextum tum novumversum scribe egresso. cis _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ "Semper ubi sub-ubi" => "always wear under-wear" (not exactly accurate, but sorta close) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Mon Sep 11 22:58:37 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: September Talk ; ???? Message-ID: <20000911205837.A7336@timji.consultix.wa.com> SPUGsters, Okay, now that I've got you all buttered-up with the surprise announcement of Damian's Latin talk, it's time to ask for volunteers to speak at next Tuesday's meeting. If 3 people would each give a 20+ minute talk on something interesting they're doing, that would do the trick. Or if somebody wants to talk for the whole period, that would be good too. In order to keep some momentum going for the general idea of CPAN projects discussed at the last meeting, I'd especially like to invite people to pitch ideas about cool modules to write collectively. *========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | |CLASSES 9/11: Perl+Modules 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl | I========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jcokos at ccs.net Tue Sep 12 00:20:59 2000 From: jcokos at ccs.net (John Cokos) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: September Talk ; ???? In-Reply-To: <20000911205837.A7336@timji.consultix.wa.com> Message-ID: Well, I'll have a nice update on the CVS stuff and the server finally setup and tested to work on the CPAN modules live. We can go over the DBD wrapper, or anything else anyone can think of... Everyone that want's to take part in it, I'll need a list of what logins/passwords you want on the server. John > From: Tim Maher/CONSULTIX > Date: Mon, 11 Sep 2000 20:58:37 -0700 > To: spug-list@pm.org > Subject: SPUG: September Talk ; ???? > > SPUGsters, > > Okay, now that I've got you all buttered-up with the surprise announcement > of Damian's Latin talk, it's time to ask for volunteers to speak at next > Tuesday's meeting. If 3 people would each give a 20+ minute talk on > something interesting they're doing, that would do the trick. Or if > somebody wants to talk for the whole period, that would be good too. > > In order to keep some momentum going for the general idea of CPAN projects > discussed at the last meeting, I'd especially like to invite people to > pitch ideas about cool modules to write collectively. > > *========================================================================* > | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | > | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | > |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | > |CLASSES 9/11: Perl+Modules 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl | > I========================================================================* > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Tue Sep 12 14:52:30 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:36 2004 Subject: SPUG: Corrected date for Damian's talk Message-ID: <20000912125230.A12305@timji.consultix.wa.com> > Announcing: YAPCTS, 2000 > "Yet Another Perl Celebrity Talk in Seattle" >- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > >SPUG's favorite Perl Guru and stand-up comic, that guy with the >award-winning code, funny accent, and delirious wit, will be reprising >his famous 'Latin talk' from "The Perl Conference 4.0" on the evening of >October 2th at the usual Seattle downtown location. --- (not the 10th, as previously indicated; he'll be teaching OOP in Chicago that day, which was on my mind) ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From brian at ingerson.com Thu Sep 14 19:59:33 2000 From: brian at ingerson.com (Brian Ingerson) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Goin' to 'couver Message-ID: <39C17475.FD4B3B06@ingerson.com> SPUG, Sorry 'bout being a slackass and not getting anything going for the dev squad yet. I've been a busy boy though. I took a trip up across the border a couple of weeks ago to meet a man named Dick. He offered me a job up there, and I took it. So I'm moving up to Vancouver this weekend and next. My first day of work is on Oct 2nd. Since that's the Damian day, I'm already looking for ways to play hooky. I'll still be coming down for meetings and such. It's only 3 hours, and my car is running pretty good. Hopefully I'll be able to bring some Perl hotshots down with me. See ya next Tuesday, Brian PS No more slamming ActiveState on the list. OK John? You might hurt my feelings. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From brian at ingerson.com Thu Sep 14 20:02:24 2000 From: brian at ingerson.com (Brian Ingerson) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: [Fwd: LlamaCard] Message-ID: <39C17520.3EF411BD@ingerson.com> Hey, Remember we talked about SPUG supporting LlamaCard.pm? (A very cool module) Do you guys still want to do that? Let's talk at the meeting. Brian -------------- next part -------------- An embedded message was scrubbed... From: Aaron Wigley Subject: LlamaCard Date: Wed, 13 Sep 2000 10:41:16 +1100 Size: 2547 Url: http://mail.pm.org/archives/spug-list/attachments/20000914/0f551fd6/attachment.eml From starfire at zipcon.net Thu Sep 14 21:36:58 2000 From: starfire at zipcon.net (Richard Anderson) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Re: ActiveState References: <39C17475.FD4B3B06@ingerson.com> Message-ID: <067d01c01ebd$d6122720$750ff93f@adcom133> Brian, if your joining ActiveState, maybe you can get them to stabilize and rationalize their web page (http://www.activestate.com/Products/ActivePerl/). My two main whines: 1. They use frames in such a way that I can't bookmark many of their pages. This is not a problem with frames, it's a problem with incompetent web authors. For an example of the right way to do frames, see my home page: www.zipcon.net/~starfire/home 2. They keep reorganizing the web site and don't bother to leave forwarding pages at the defunct URL. It doesn't take much effort to do this. Richard.Anderson@raycosoft.com www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) ----- Original Message ----- From: "Brian Ingerson" To: Sent: Thursday, September 14, 2000 5:59 PM Subject: SPUG: Goin' to 'couver > SPUG, > > Sorry 'bout being a slackass and not getting anything going for the dev > squad yet. I've been a busy boy though. I took a trip up across the > border a couple of weeks ago to meet a man named Dick. He offered me a > job up there, and I took it. So I'm moving up to Vancouver this weekend > and next. My first day of work is on Oct 2nd. Since that's the Damian > day, I'm already looking for ways to play hooky. > > I'll still be coming down for meetings and such. It's only 3 hours, and > my car is running pretty good. Hopefully I'll be able to bring some Perl > hotshots down with me. > > See ya next Tuesday, > > Brian > > > PS No more slamming ActiveState on the list. OK John? You might hurt my > feelings. > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Thu Sep 14 22:27:58 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Goin' to 'couver In-Reply-To: <39C17475.FD4B3B06@ingerson.com>; from brian@ingerson.com on Thu, Sep 14, 2000 at 05:59:33PM -0700 References: <39C17475.FD4B3B06@ingerson.com> Message-ID: <20000914202758.A3064@timji.consultix.wa.com> On Thu, Sep 14, 2000 at 05:59:33PM -0700, Brian Ingerson wrote: > SPUG, > > Sorry 'bout being a slackass and not getting anything going for the dev > squad yet. I've been a busy boy though. I took a trip up across the > border a couple of weeks ago to meet a man named Dick. He offered me a > job up there, and I took it. So I'm moving up to Vancouver this weekend > and next. My first day of work is on Oct 2nd. Since that's the Damian > day, I'm already looking for ways to play hooky. > *** Damian's "Romana Deleria Perligata" (sic?) talk will be Tuesday, 10/3, despite what you may have heard 8-} *** Good luck to you on your new job, Brian, and thanks for all your contributions to SPUGgery while you were still a Yank, eh! 8-} -Tim ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== > I'll still be coming down for meetings and such. It's only 3 hours, and > my car is running pretty good. Hopefully I'll be able to bring some Perl > hotshots down with me. > > See ya next Tuesday, > > Brian > > > PS No more slamming ActiveState on the list. OK John? You might hurt my > feelings. > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ > > -- *========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | |CLASSES 9/11: Perl+Modules 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl | I========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From scott at sabmail.rresearch.com Fri Sep 15 10:19:59 2000 From: scott at sabmail.rresearch.com (Scott Blachowicz) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: September Talk ; ???? In-Reply-To: References: <20000911205837.A7336@timji.consultix.wa.com> Message-ID: <20000915081959.A97271@sabami.seaslug.org> > > In order to keep some momentum going for the general idea of CPAN projects > > discussed at the last meeting, I'd especially like to invite people to > > pitch ideas about cool modules to write collectively. If we're going to do some module development, it'd probably be useful to have someone summarize the meetings to a mailing list (either here or a list on John's new server or something) for people who can't make the occasional meeting (like me next week :-)). Thanx, -- Scott Blachowicz - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Sat Sep 16 00:02:20 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: September Meeting, on map, grep, sort Message-ID: <20000915220220.A7102@timji.consultix.wa.com> September 2000 Seattle Perl User's Group Meeting ------------------------------------------------------------ Topic: map, grep, and sort Speaker: Richard Anderson, Raycosoft (http://www.raycosoft.com) Time: September 19th, 2000 (Third Tuesday), 7pm-9pm LOCATION: Union Bank of California Bldg, 5th Floor Mtg Room Cost: Free Dr. Richard Anderson (Richard.Anderson@raycosoft.com) will give a talk on the use of the Perl built-in functions map, grep, and sort, showing how these powerful list-transformation, list-filtration, and list-ordering functions can accomplish in a few lines what takes many more in other languages. The infamous "Schwartzian Transform", for sorting complex records by specific fields, will also be covered. John Cokos of iWeb, Inc. will give an update on the status of the group software development platform discussed in previous meetings. Tim Maher will give out some special prizes in a drawing, and help guide the discussions as usual. Admission is free and open to the general public. Attendees are encouraged to arrive at the building's 5th & Madison door by 6:45pm, which might be locked at other times. Parking We recommend avoiding the parking lot below the Union Bank building, due to the very hefty fee you'll be assessed if you leave after 9pm. There are plenty of other parking garages in the vicinity that are more affordable, and some on-street parking too. Pre/Post-Meeting Gathering Place Come and pass the pre-meeting time with other SPUGsters at the Rock Bottom brewpub, at 1333 5th Ave., (206) 623-3070, in downtown Seattle. Look to your left, near the bar or pool table, for bizarre yet strangely appealing characters wielding laptops and hearty ales. Attendees tend to arrive after 6pm, and to leave for the meeting by 6:40pm. For more information, including driving directions and street addresses, see http://www.halcyon.com/spug/. ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Sat Sep 16 00:55:31 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Damian Programming in Latin, 10/3 Message-ID: <20000915225531.B7102@timji.consultix.wa.com> SPECIAL SPUGadelic EVENT: The Damian Returneth! This time, that Wacky Aussie with the exotic imagination is going to teach us how to program Perl in an inflected language, Latin! (NOTE: The earlier posting was confused about the dates; this one is not. Sorry for any inconvenience!) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ** Lingua::Romana::Perligata ** Perl for the XXI-imus Century Dr. Damian Conway (damian@conway.org) Monash University, Australia Downtown Seattle, WA Tuesday, October 3, 7-9pm - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - The great flaw of existing programming (and natural) languages is that word order matters, which makes it unnecessarily difficult to program (or talk) when drunk. You end up writing: push @casino's_money, @my_cash; instead of: push @my_cash, @casino's_money; Generally speaking, older natural languages rely less on word order. For example, in Latin the sentences "Puer dedit cani escam." and "Escam dedit puer cani." both mean "The boy gave the dog the food." In fact, the more usual word order would be "Reverse Polish", with the verb coming last: "Puer cani escam dedit." This flexibility is possible because Latin uses inflection to denote lexical roles, and that single fact allowed the Romans to build a vast empire despite their near-permanent state of inebriation. There is no reason that programming languages could not also make use of inflection rather than position to denote lexical roles, thereby allowing hackers to program in their natural -- inebriated -- state. >From that bar-room inspiration, it was only a small, slightly wobbly step to the Lingua::Romana::Perligata module: a Latin syntactic binding for Perl. No prior knowledge of the ancient Roman language will be assumed, but by the end of the talk (or at least by the end of the after-party) the following program will make perfect sense: maximum inquementum tum biguttam tum stadium egresso scribe. vestibulo perlegementum da meo maximo . maximum tum novumversum egresso scribe. da duo tum maximum conscribementa meis listis. dum damentum nexto listis decapitamentum fac sic lista sic hoc tum nextum recidementum cis vannementa listis da. next tum biguttam tum nextum tum novumversum scribe egresso. cis - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - No, he's not kidding, or crazy (well, maybe a TAD crazy, but in a NICE way!). He's just a mild mannered computer professor with a special talent for couching inspirational talks on Perl in a uniquely entertaining, and unusual, style. This time, he'll be using a classical language as the basis for his presentation, in an attempt to develop a more classy ambiance than he is able to achieve with his more customary Klingon presentations. See the SPUG web site, and follow links from there, to get more information about his contributions to Perl and the many awards they've earned for him. Price and Location Admission is free and open to the general public. Attendees are encouraged to arrive at the Union Bank of California building's 5th & Madison door by 6:45pm, which might be locked at other times. (See the SPUG web-site for more details.) Parking We recommend avoiding the parking lot below the Union Bank building, due to the very hefty fee you'll be assessed if you leave after 9pm. There are plenty of other parking garages in the vicinity that are more affordable, and some on-street parking too. Pre/Post-Meeting Gathering Place Come and pass the pre-meeting time with other SPUGsters at the Rock Bottom brewpub, at 1333 5th Ave., (206) 623-3070, in downtown Seattle. Look to your left as you enter, near the bar or pool table, for bizarre yet strangely appealing characters wielding laptops and hearty ales. If you want to eat dinner there, try to arrive by 6:10pm, because you'll need to leave for the meeting place by 6:40pm. For more information, including driving directions and street addresses, see http://www.halcyon.com/spug/. ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From snickels at u.washington.edu Tue Sep 19 17:25:51 2000 From: snickels at u.washington.edu (Stephen Nickels) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: A little style question.... Message-ID: I've got a quasi-perl, quasi-programming-style question for y'all. I've gone back and forth with a friend of mine on this one, so I thought I'd get some more professional opinions. My question is: here docs, good or bad? (aka: $output =< > So what are some of the general opinions of perl-mongers out there? > Are here docs a useful addition to programming languages, or are > they bad form? These are the sorts of questions that get me going, and usually rambling, by the end. I've two trains of thought on this sort of thing. One is that I believe programming to not just be a creative process, but an artistic one. Interpret that as you will. The other is that someone else may one day have to maintain your code. This is more pragmatic than the prior statement, of course. But, at least in business situations, odds are that some poor schlep is going to have to read your 'art.' My approach to programming is a combination of these two - perhaps "compromise" is a better word, as they sometimes clash. One of the ways in which they can clash is evident in the original question. As usual, TIMTOWTDI, but here we seem to be entering into "I can't believe you do it that way!" territory. My overall answer to your mail is: do what you will. If your friend happens to inherit your code someday, he can bitch all he wants, and may try to persuade you to do differently next time. He may or may not be successful. Same goes in reverse. Under extreme examples, you might even recode (his code) to suit your own whims. I do this all the time. Asking for consensus on programming style, though. -heh- You might as well ask which editor to use. :) James The Cobalt Group P.S. All this said, I find here documents to be much more readable than anything else. If there's a block of interpreted text to be had, they do the trick. However, they clash with the [indentation] style of my code. After having settled into this style, I've decided that the break in aethetics is worth the tradeoff of readability. But -this- -is- -me-. Anyone else is free to disagree, and it may even influence my style. Going back to the above, though, it can be like telling a painter than he needs to use more blue. Or, perhaps it's the programmers' "too many notes." __________________________________________________ Do You Yahoo!? Send instant messages & get email alerts with Yahoo! Messenger. http://im.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://www.halcyon.com/spug/ From jcokos at ccs.net Tue Sep 19 18:43:38 2000 From: jcokos at ccs.net (John Cokos) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Re: A little style question.... References: Message-ID: <031301c02293$6ed31cc0$27e842cf@iwebx1> Use this .... $output = qq~ adfljdfjlds aldfjldjfldjfds ~; instead of a heredoc. That way, a code munger would work fine..... ======================================== John Cokos, President / CEO: iWeb Inc. http://www.iwebsys.com jcokos@ccs.net ======================================== ----- Original Message ----- From: "Stephen Nickels" To: Sent: Tuesday, September 19, 2000 3:25 PM Subject: SPUG: A little style question.... > I've got a quasi-perl, quasi-programming-style question for y'all. > I've gone back and forth with a friend of mine on this one, so I thought > I'd get some more professional opinions. My question is: here docs, good > or bad? > > (aka: > $output =< Blah blah blah $variable blah blah > TEXT > ) > > I consider them a very helpful part of programming, especially web > scripting, allowing you to either output or save to an output variable > large pieces of formatted and interpolated text; they're great for > outputting html. My friend, however, considers them the spawn of the > underworld, believing that all good programs should work exactly the same > after having all groups of spaces and/or newlines replaced with a single > space. (aka, $code =~ s/[\s\n]+/ /g;) Line-delimited things like here docs > break this rule of his quite severly. > > So what are some of the general opinions of perl-mongers out there? Are > here docs a useful addition to programming languages, or are they bad > form? > > Thanks a lot! > > > > "When once you have tasted flight, you will forever walk > the Earth with your eyes turned skyward, for there you have been, > and there you will always long to return" > -Leonardo da Vinci > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jope-spug at n2h2.com Tue Sep 19 19:06:48 2000 From: jope-spug at n2h2.com (El JoPe Magnifico) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Re: for-here; sub interpolation In-Reply-To: <20000919230136.9497.qmail@web3102.mail.yahoo.com> Message-ID: I've long pined for a tab-removal option for perl's for-here operator, as is found in the implementation in bash and possibly other shells: If the delimiter is preceded by a hyphen, ignore all leading tabs, up to and including the delimiter. I find this to be an enormous help, allowing you to avoid interrupting your code indentation. Sample usage, if this were added to perl: $quote = <<-DELIMITER; this text will not be indented when you use it later DELIMITER The alternative, which they're still propping up in the third edition of the camel book, is cumbersome, inefficient, and still requires you to keep your delimiter flush to the left: ($quote = < All this said, I find here documents to be much > more readable than anything else. If there's a > block of interpreted text to be had, they do > the trick. However, they clash with the > [indentation] style of my code. After having > settled into this style, I've decided that the > break in aethetics is worth the tradeoff of > readability. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From kriss at edmark.com Tue Sep 19 19:40:08 2000 From: kriss at edmark.com (Kristina N Sontag) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: A little style question.... In-Reply-To: Message-ID: <003501c0229b$54714ac0$53d4c9cc@edmark.com> Here docs are great for keeping my HTML readable within my perl code. I say to each his own, as long as I don't inherit code from someone who doesn't believe in them... ::grin:: Kristina Sontag [kriss@edmark.com] Web Systems Administrator Edmark, now part of the Riverdeep family -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of Stephen Nickels Sent: Tuesday, September 19, 2000 3:26 PM To: spug-list@pm.org Subject: SPUG: A little style question.... I've got a quasi-perl, quasi-programming-style question for y'all. I've gone back and forth with a friend of mine on this one, so I thought I'd get some more professional opinions. My question is: here docs, good or bad? (aka: $output =< Message-ID: <6920000.969411295@benzene> -- Stephen Nickels spake thusly: > My friend, however, considers them the spawn of the > underworld, believing that all good programs should work exactly the > same after having all groups of spaces and/or newlines replaced with > a single space. (aka, $code =~ s/[\s\n]+/ /g;) Line-delimited things > like here docs break this rule of his quite severly. > > So what are some of the general opinions of perl-mongers out there? > Are here docs a useful addition to programming languages, or are they > bad form? I agree with most of what James Munger had to say, but I had the following to add: Following your friend's coding practices, he would have to write the following regular expression: s/^\t/ /gm; # Note the four sequential spaces As: s/^\t/' ' x 4/gem; # Note the unnecessary obfuscation This is just a minor example of what dangers exist in trying to run the s/\s+/ /gs; regex across a Perl script. I don't think it's realistic to expect to be able to do a wholesale replacement of whitespace in Perl code without being able to actually parse the code as Perl (at which point you can deal with heredocs). The same caveat exists for C code, actually, but C is a good deal easier to parse. I doubt anyone would recommend replacing whitespace in C without also admitting that skipping over string constants (and possibly comments) is necessary. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From aaron_j_salo at yahoo.com Tue Sep 19 20:03:18 2000 From: aaron_j_salo at yahoo.com (Aaron Salo) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: A little style question.... Message-ID: <20000920010318.90202.qmail@web9304.mail.yahoo.com> --- Stephen Nickels wrote: > is: here docs, good > or bad? ::starting a holy war:: - bad - Use qq() instead and you get great taste and less filling in the same bottle... my $output = qq(Hey, y'all,
$variable

is the SILLIEST "thing" I ever heard & I really mean it!!!); escapes all your HTML and your quotes and your punctuation very nicely, also carries your newlines forward as well... > Line-delimited > things like here docs > break this rule of his quite severly. Agreed. With qq() you have delimiting characters not prone to the python-esque malfunction (not to mention debugging headache) of arbitrary line formations. You can use any delimiting character you like, I generally prefer parens. However, if you're writing SQL you might not want to use parens: $sql = qq^ UPDATE foo SET foo = 'bar', bar = 'foo' WHERE account_number in (SELECT account_number FROM bar where username = 'here_doc') ^; very tidy. --regards-- ===== -If this is from Yahoo, that means I'm on the road- Aaron Salo aaron@activox.com __________________________________________________ Do You Yahoo!? Send instant messages & get email alerts with Yahoo! Messenger. http://im.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://www.halcyon.com/spug/ From andyj at microsoft.com Tue Sep 19 21:55:34 2000 From: andyj at microsoft.com (Andy Jacobs) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: A little style question.... Message-ID: I take it your friend, by the stated rule, doesn't use any comments in Perl. If your friend happens to be your manager (i.e., you need to please your friend), I belive you could get almost the same effect with: $output = " Blah blah blah $variable blah blah More blah blah"; where you'd both get almost what you want. But this probably won't please your friend, who probably isn't articulating their peeve very well, and is actually bothered by having things unindented in the middle of the program. - Andy Jacobs -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of Stephen Nickels Sent: Tuesday, September 19, 2000 3:26 PM To: spug-list@pm.org Subject: SPUG: A little style question.... I've got a quasi-perl, quasi-programming-style question for y'all. I've gone back and forth with a friend of mine on this one, so I thought I'd get some more professional opinions. My question is: here docs, good or bad? (aka: $output =< SPUGsters, Several people have been asking how they can get SPUG messages in weekly digest form rather than immediately, so here's the info. (NOTE: Replace Z by s below; to avoid Zubscription messages appearing on the list, we have a filter in place to reject messages containing that magic word, including this one! 9-) ) First, if you're already Zubscribed to the regular list, do the following (showing UNIX example), or its equivalent: echo unZubscribe spug-list Zubscribed_email_address | mail majordomo@pm.org Then, to Zubscribe to the digest: echo Zubscribe spug-list-digest email_address | mail majordomo@pm.org That's all there is to it! Just make sure you use the exact email address with which you initially Zubscribed, when you unZubscribe. -Tim P.S. This info is provided at the end of every SPUG posting, like so: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Subscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by Zubscribe or unZubscribe, 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://www.halcyon.com/spug/ ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From starfire at zipcon.net Wed Sep 20 00:19:40 2000 From: starfire at zipcon.net (Richard Anderson) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Visuals from grep, map, sort presentation References: Message-ID: <08e201c02306$f6a2bc50$750ff93f@adcom133> I'll post the visuals from my SPUG talk at www.unixscripts.com on October 1. (That is, after I have investigated the issues we discussed regarding the use of "my" inside loops, the benchmark results, etc.) I'll send a reminder email out when I do ... Richard.Anderson@raycosoft.com www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From ronh at iainc.com Wed Sep 20 10:00:45 2000 From: ronh at iainc.com (Ron Hartikka) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Tk question. Message-ID: Hi, The code below puts three Frames in a MainWindow. I want one Frame to occupy the top half of the MainWindow and the other two to split the bottom half. To get this when I put a Canvas in the top Frame, I find I need to make the Canvas 8 pixels smaller than the Frame. Why? I looked in Tk docs, but couldn't find anything that explained this (to me, anyway). I'd like to know so that I don't paint myself into a corner. Whatever the explanation, is hardcoding the 8 pixels a safe way to handle the issue? Any other comments on the code welcome. Thanks. Ron Hartikka Interautomation, Inc. email => ronh@iainc.com Dearborn => 313-248-5401 Mobile => 734-216-2845 ################################################## use Tk; use strict; ui(); sub ui{ my $scale = 1.5; my $scale_v = 2 * $scale; my $scale_h = 5 * $scale; my $graph_height = $scale_v * 100; my $graph_width = $scale_h * 100; my $policy_height = $graph_height; my $policy_width = $graph_width / 2; my $mw =MainWindow->new; my $fr_graph = $mw->Frame(-height => $graph_height, -width => $graph_width, -relief => 'raised', -borderwidth => 2)->pack(); my $fr_policy = $mw->Frame(-height => $policy_height, -width => $policy_width, -relief => 'raised', -borderwidth => 2)->pack(-side => 'left'); my $fr_shift = $mw->Frame(-height => $policy_height, -width => $policy_width, -relief => 'raised', -borderwidth => 2)->pack(-side => 'left'); my $canvas = $fr_graph->Canvas(-height => $graph_height, -width => $graph_width-8)->pack(); MainLoop(); } - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Wed Sep 20 04:59:03 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Switching to Spug-Digest Message-ID: <20000920095903.D2745@timji.consultix.wa.com> I'm not sure my initial attempt at posting this got through, so please pardon me if you've seen this before: SPUGsters, Several people have been asking how they can get SPUG messages in weekly digest form rather than immediately, so here's the info. (NOTE: Replace Z by s below; to avoid Zubscription messages appearing on the list, we have a filter in place to reject messages containing that magic word, including this one! 9-) ) First, if you're already Zubscribed to the regular list, do the following (showing UNIX example), or its equivalent: echo unZubscribe spug-list Zubscribed_email_address | mail majordomo@pm.org Then, to Zubscribe to the digest: echo Zubscribe spug-list-digest email_address | mail majordomo@pm.org That's all there is to it! Just make sure you use the exact email address with which you initially Zubscribed, when you unZubscribe. -Tim P.S. This info is provided at the end of every SPUG posting, like so: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Zubscriptions; Email to majordomo@pm.org: ACTION LIST EMAIL Replace ACTION by Zubscribe or unZubscribe, 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://www.halcyon.com/spug/ ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Wed Sep 20 05:29:47 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Consulting Help Needed Message-ID: <20000920102947.D3190@timji.consultix.wa.com> Hi, I'm sorry I missed your meeting last night. I planned to attend, then something came up. I have a limited knowledge of PERL (enough to get a few simple things done and know that I could do more if I knew more. . .) I am looking for someone on a consultant/contract basis who is willing to teach me a few things and who could be on-call to help me figure things out when I can't. I own a small publishing company that does code conversions of all types for print and electronic media. It's not a high rolling business, but I appreciate anyone who has the software expertise that I lack. In the past we have used Codewright and FSR (Folio search and replace). I taught myself PERL because we have too much data to process using older tools. Telecommuting definitely works. We have no stock options. It would be a 1099 status position. Our location is in the Ravenna/Roosevelt neighborhood in Seattle. Individuals can call me directly. This would be more of a consultant type arrangement. If there is anything else you need to know, please email or call me. I'm not reluctant to provide additional information! Thanks. So, however it is that you let others know I'm looking for help, could you please let me know if there is anyone out there who can help me. Margaret Bustion 206-527-6831 ----- End forwarded message ----- -- *========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | |CLASSES: 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl 10/23 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://www.halcyon.com/spug/ From cmeyer at helvella.org Wed Sep 20 13:33:33 2000 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Packed Default Sort Message-ID: <20000920113333.E29287@hobart.helvella.org> Thanks for the talk on map, grep & sort, Richard. The amount of data convolution that can be accomplished with a few of Perl's list functions is amazing and fun. I'd like to call your attention to an interesting form of the schwartz transform called the packed default sort. This was developed by Larry Rosler and presented by him and Uri Guttman at TPC 3.0. You can read the paper at: http://www.sysarch.com/perl/sort_paper.html The meat is that the first map packs the sort key onto the sorting string itself and then use sort's default asciibetical sorting method instead of a custom anonymous sub. After sorting the second map removes the sorting key from the strings, returning the original strings in a sorted order. For example, this is a common schwartz for sorting filenames by size: map $_->[1], sort { $a->[0] <=> $b->[0] } map [-s,$_], @files; As a packed default sort it might look like: map substr($_,4), sort map pack("N",-s).$_, @files; What's the benefit? Well, calling perl subs is expensive. When sort uses its built in asciibetical comparison, it doesn't need to make that expensive call to a perl sub. use Benchmark shows: Benchmark: running packedd, schwartz, each for at least 10 CPU seconds... packedd: 11 wallclock secs ( 7.93 usr + 2.75 sys = 10.68 CPU) @ 37.27/s (n=398) schwartz: 11 wallclock secs ( 9.01 usr + 1.49 sys = 10.50 CPU) @ 19.52/s (n=205) The packed-d also saves you several keystrokes and makes use of the ever-inscrutable and job-securing pack function. What's the downside? It can be difficult to come up with a scheme of translating your sort key[s] to something that will sort correctly according to ascii. See the paper for some more intricate examples. Have fun, -C. --------- Here's the code to play with: sub schwartz { map $_->[1], sort { $a->[0] <=> $b->[0] } map [-s,$_], @files; } sub packedd { map substr($_,4), sort map pack("N",-s).$_, @files; } @files = ; use Benchmark; timethese(-10,{ schwartz => \&schwartz, packedd => \&packedd }); - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From rick.croote at philips.com Wed Sep 20 14:36:51 2000 From: rick.croote at philips.com (rick.croote@philips.com) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Tk question. Message-ID: <0056910007390566000002L162*@MHS> Ron, I recommend taking out all the height and width options in the frames and letting them float to the size of their content. At first it won't look like they are there, but once you start putting widgets in each, things will all fall into place. The only reason I can think of to declare the frame sizes is that if the layout is as important as the content, and even if it is, you may be better off adding them after the fact rather than fighting to make everything fit up front. Rick Croote ATL Ultrasound ronh@iainc.com@SMTP@pm.org on 09/20/2000 12:11:51 PM Sent by: owner-spug-list@pm.org To: spug-list@pm.org@SMTP cc: Subject: SPUG: Tk question. Classification: Hi, The code below puts three Frames in a MainWindow. I want one Frame to occupy the top half of the MainWindow and the other two to split the bottom half. To get this when I put a Canvas in the top Frame, I find I need to make the Canvas 8 pixels smaller than the Frame. Why? I looked in Tk docs, but couldn't find anything that explained this (to me, anyway). I'd like to know so that I don't paint myself into a corner. Whatever the explanation, is hardcoding the 8 pixels a safe way to handle the issue? Any other comments on the code welcome. Thanks. Ron Hartikka Interautomation, Inc. email => ronh@iainc.com Dearborn => 313-248-5401 Mobile => 734-216-2845 ################################################## use Tk; use strict; ui(); sub ui{ my $scale = 1.5; my $scale_v = 2 * $scale; my $scale_h = 5 * $scale; my $graph_height = $scale_v * 100; my $graph_width = $scale_h * 100; my $policy_height = $graph_height; my $policy_width = $graph_width / 2; my $mw =MainWindow->new; my $fr_graph = $mw->Frame(-height => $graph_height, -width => $graph_width, -relief => 'raised', -borderwidth => 2)->pack(); my $fr_policy = $mw->Frame(-height => $policy_height, -width => $policy_width, -relief => 'raised', -borderwidth => 2)->pack(-side => 'left'); my $fr_shift = $mw->Frame(-height => $policy_height, -width => $policy_width, -relief => 'raised', -borderwidth => 2)->pack(-side => 'left'); my $canvas = $fr_graph->Canvas(-height => $graph_height, -width => $graph_width-8)->pack(); MainLoop(); } - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From fred.giorgi at philips.com Wed Sep 20 15:21:53 2000 From: fred.giorgi at philips.com (fred.giorgi@philips.com) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: @INC different in IE5 and NSNavigator Message-ID: <0056910007392142000002L122*@MHS> A strange learning experience. I have a link on my web page to a perl script that uses a module called "sheet.pm" which I wrote. The module is in the same directory as the script so I put these lines at the top of my script. use FindBin; use lib $FindBin::Bin; use sheet; I can execute my script by selecting the html link in Exploder but not in Navigator. The @INC array is different when using each browser. Navigator gives me a "d:/TEMP" in @INC where Exploder gives me the correct path to my module. I see that Navigator copies the script to d:/TEMP before attempting to run it while Explorer actually runs it from the original location. So Perl does not see my module located in d:/TEMP and thus aborts. I had to hard code the link to the module thus adding : use lib "//the/original/path/to/my/module"; prior to the use sheet; line. bummer --fred - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From gary at 2dgs.com Wed Sep 20 16:12:03 2000 From: gary at 2dgs.com (Gary Varnell) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: NPH in IE Message-ID: <39C92823.A3C873D2@2dgs.com> Does anyone know how to get a multipart NPH script to run properly in IE? The below code example works fine in netscape, and according to the Microsoft knowledge base is correct, but IE prints the content type and boundary. $|=1; # don't buffer output $BOUNDARY="--start-new-page-here--"; # HTML seperator print "HTTP/1.0 200 OK\n"; print "Pragma: no-cache\n"; print "Content-type: multipart/x-mixed-replace;boundary=$BOUNDARY\n\n"; print "$BOUNDARY\n"; # tells browser to start a new page print "Content-type: text/html\n\n"; # tells it what kind print "some html here\n"; sleep(3); print "$BOUNDARY\n"; print "Content-type: text/html\n\n"; # tells it what kind print "some more html here\n"; sleep(3); print "$BOUNDARY\n"; print "Content-type: text/html\n\n"; # tells it what kind print "some more html here\n"; sleep(3); print ""; Thanks in advance, Gary V. -- __________________________________________________________ Digital Graphics Studios (DGS) ---------------------------------------------------------- Website: http://www.2dgs.com Phone: (360) 491-1149 E-mail: mailto:Info@2dgs.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://www.halcyon.com/spug/ From jimfl at colltech.com Wed Sep 20 17:15:12 2000 From: jimfl at colltech.com (Jim Flanagan) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: NPH in IE In-Reply-To: <39C92823.A3C873D2@2dgs.com> Message-ID: On Wed, 20 Sep 2000, Gary Varnell wrote: > Does anyone know how to get a multipart NPH script to run > properly in IE? IE doesn't grok multipart documents. -- Jim Flanagan Collective Technologies jimfl@colltech.com http://www.colltech.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://www.halcyon.com/spug/ From sthoenna at efn.org Wed Sep 20 17:23:26 2000 From: sthoenna at efn.org (Yitzchak Scott-Thoennes) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Packed Default Sort In-Reply-To: <20000920113333.E29287@hobart.helvella.org> Message-ID: Colin Meyer wrote: > For example, this is a common schwartz for sorting filenames by size: > > map $_->[1], sort { $a->[0] <=> $b->[0] } map [-s,$_], @files; > > As a packed default sort it might look like: > > map substr($_,4), sort map pack("N",-s).$_, @files; > > What's the benefit? Well, calling perl subs is expensive. When sort uses its > built in asciibetical comparison, it doesn't need to make that expensive > call to a perl sub. use Benchmark shows: IIRC, the actual sub call is optimized away. But it is still slower, anyway. Oops, upon checking, I see that that optimization was only added in 5.6.0. Stuff of interest from the 5.6.0 doc: =head2 Enhanced support for sort() subroutines Perl subroutines with a prototype of C<($$)>, and XSUBs in general, can now be used as sort subroutines. In either case, the two elements to be compared are passed as normal parameters in @_. See L. For unprototyped sort subroutines, the historical behavior of passing the elements to be compared as the global variables $a and $b remains unchanged. =head2 C allowed sort() did not accept a subroutine reference as the comparison function in earlier versions. This is now permitted. =head2 Improved diagnostics $foo::a and $foo::b are now exempt from "possible typo" warnings only if sort() is encountered in package C. =head2 Simple sort() using { $a <=> $b } and the like are optimized Many common sort() operations using a simple inlined block are now optimized for faster performance. And from 5.7.0: =head1 Performance Enhancements sort() has been changed to use mergesort internally as opposed to the earlier quicksort. For very small lists this may result in slightly slower sorting times, but in general the speedup should be at least 20%. Additional bonuses are that the worst case behaviour of sort() is now better (in computer science terms it now runs in time O(N log N), as opposed to quicksort's Theta(N**2) worst-case run time behaviour), and that sort() is now stable (meaning that elements with identical keys will stay ordered as they were before the sort). - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From dougb at scalar.org Wed Sep 20 17:47:55 2000 From: dougb at scalar.org (Doug Beaver) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Re: for-here; sub interpolation In-Reply-To: ; from jope-spug@n2h2.com on Tue, Sep 19, 2000 at 05:06:48PM -0700 References: <20000919230136.9497.qmail@web3102.mail.yahoo.com> Message-ID: <20000920154755.B86755@scalar.org> On Tue, Sep 19, 2000 at 05:06:48PM -0700, El JoPe Magnifico wrote: > I've long pined for a tab-removal option for perl's for-here operator, > as is found in the implementation in bash and possibly other shells: > > If the delimiter is preceded by a hyphen, ignore all leading tabs, up > to and including the delimiter. I find this to be an enormous help, > allowing you to avoid interrupting your code indentation. Sample > usage, if this were added to perl: > > $quote = <<-DELIMITER; > this text will not be indented > when you use it later > DELIMITER > > The alternative, which they're still propping up in the third edition > of the camel book, is cumbersome, inefficient, and still requires you > to keep your delimiter flush to the left: > > ($quote = < this text will not be indented > when you use it later > DELIMITER > > Yeah, yeah, I know: Hack it in myself. Not today. =) =) I used to have a perl module called UnQuote, I would do this: print unquote(< Speaking of no-brainers, here's an unrelated quoting question: > > Has interpolation of &subroutine_name inside double quotes been added > recently? Derhaag's 5.6 build on Solaris apparently provided that > ability, but I couldn't find any mention of it in the new camel book > or online, nor could I reproduce with the 5.004 or 5.5 builds I had > available to me. > > Actually a handy feature, when I thought about it, and natural given > that $scalar_name and @list_name already interpolate. Gotta wonder > why that hasn't been available since day one. Instead, I end up doing > @{[subroutine_name]} which isn't too bad, but not particularly > intuitive. Perhaps it's just a parsing problem. I bet it's hard to tell the difference between a function call with no punctuation and a normal string, and even if you check to see if the string matches an available function call, you don't know whether or not they wanted it to be called. I guess you could reverse my argument and ask me how perl knows that "$arr[0]" means 0th element of @arr and not a random sequence of characters, but I would argue that you can tell from punctuation what the programmer is expecting perl to do. There are a few different ways to call the function Func (and I probably forgot one of them too): Func; Func(); &Func; &Func(); Perhaps it's just too hard to look at the string "this is some text ('not really')" and figure out whether or not to call text('not really') or to just leave it alone? I think it would be cleaner if you only could interpolate basic arrays and scalars inside of double-quoted strings. I can never remember if "$arr->[0]->[0]" is going to work or not, so I use printf or sprintf for anything worse than $scalar or @array. Besides, I like lining up the arguments to printf so they are all pretty: printf "The method returned something like %s for date %s\n", $obj->method_call($date), $date; Doug -- Smithers: I'm afraid we have a bad image, Sir. Market research shows people see you as somewhat of an ogre. Burns: I ought to club them and eat their bones! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From cmeyer at helvella.org Wed Sep 20 19:42:48 2000 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Packed Default Sort In-Reply-To: References: <20000920113333.E29287@hobart.helvella.org> Message-ID: <20000920174248.A17289@hobart.helvella.org> Yitzchak, On Wed, Sep 20, 2000 at 03:23:26PM -0700, Yitzchak Scott-Thoennes wrote: > Colin Meyer wrote: > > For example, this is a common schwartz for sorting filenames by size: > > > > map $_->[1], sort { $a->[0] <=> $b->[0] } map [-s,$_], @files; > > > > As a packed default sort it might look like: > > > > map substr($_,4), sort map pack("N",-s).$_, @files; > > > > What's the benefit? Well, calling perl subs is expensive. When sort uses its > > built in asciibetical comparison, it doesn't need to make that expensive > > call to a perl sub. use Benchmark shows: > > IIRC, the actual sub call is optimized away. But it is still slower, anyway. > Oops, upon checking, I see that that optimization was only added in 5.6.0. Only the simplest sort blocks are optimized in 5.6.0. Looking at S_simplify_sort(pTHX_ OP *o) in perl-5.6.0/op.c, it seems that in order for a sort block to be "optimized away" it must consist of a single comparison operator (either cmp, <=>, or <=> under use integer) and only the non de-referenced $a and $b on either side of the comparison operator. These blocks would be optimized: {$a cmp $b} {$b cmp $a} {$a <=> $b} These ones wouldn't: {$a->[0] <=> $b->[0]} {lc $a cmp lc $b} It seems that the optimization in 5.7 will be the benefit (or detriment) of all sorts: block, subs, or built-in asciibetical/numerical/. -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://www.halcyon.com/spug/ From ced at carios2.ca.boeing.com Wed Sep 20 19:33:30 2000 From: ced at carios2.ca.boeing.com (ced@carios2.ca.boeing.com) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Re: for-here; sub interpolation Message-ID: <200009210033.RAA15011@carios2.ca.boeing.com> On Tue, Sep 19, 2000 at 05:06:48PM -0700, El JoPe Magnifico wrote: > > The alternative, which they're still propping up in the third edition > of the camel book, is cumbersome, inefficient, and still requires you > to keep your delimiter flush to the left: > > ($quote = < this text will not be indented > when you use it later > DELIMITER You can avoid "flushing the delimiter" but you'll need a strong stomach: ($quote = <<" DELIMITER") =~ s/^\s+//gm; this text will not be indented when you use it later DELIMITER >> ... >> Func; >> Func(); >> &Func; >> &Func(); >> Perhaps it's just too hard to look at the string "this is some text ('not >> really')" and figure out whether or not to call text('not really') or to >> just leave it alone? >> I think it would be cleaner if you only could interpolate basic arrays >> and scalars inside of double-quoted strings. I can never remember if >> "$arr->[0]->[0]" is going to work or not, so I use printf or sprintf for >> anything worse than $scalar or @array. I think there's no ambiguity if $arr is an array reference so "$arr->[0]->[0]" is a simple lookup and does work. But, function/method calls must throw a monkey wrench in the parsing as you suggest. rgds, -- 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://www.halcyon.com/spug/ From cmeyer at helvella.org Wed Sep 20 20:37:09 2000 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Re: for-here; sub interpolation In-Reply-To: <200009210033.RAA15011@carios2.ca.boeing.com> References: <200009210033.RAA15011@carios2.ca.boeing.com> Message-ID: <20000920183709.C17289@hobart.helvella.org> On Wed, Sep 20, 2000 at 05:33:30PM -0700, ced@carios2.ca.boeing.com wrote: > > >> I think it would be cleaner if you only could interpolate basic arrays > >> and scalars inside of double-quoted strings. I can never remember if > >> "$arr->[0]->[0]" is going to work or not, so I use printf or sprintf for > >> anything worse than $scalar or @array. > > I think there's no ambiguity if $arr is an array reference > so "$arr->[0]->[0]" is a simple lookup and does work. But, > function/method calls must throw a monkey wrench in the > parsing as you suggest. Unless you use one of MJD's wierd and scary modules. >From perldoc Interpolation: SYNOPSIS use Interpolation name => \&function, ...; print "la la la la $name{blah blah blah}"; # This is like doing: $VAR = &function(blah blah blah); print "la la la la $VAR"; -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://www.halcyon.com/spug/ From starfire at zipcon.net Wed Sep 20 20:36:31 2000 From: starfire at zipcon.net (Richard Anderson) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Re: @INC different in IE5 and NSNavigator References: <0056910007392142000002L122*@MHS> Message-ID: <092e01c0236c$68165cb0$750ff93f@adcom133> This works in my CGI scripts run by Apache and maybe other web servers: # # Put directory where this file exists in @INC BEGIN { use File::Basename; unshift @INC, dirname($0); } I'm having a hard time understanding why the web server would run a CGI script differently depending on the client that generated the request. Is your client on the same system as the web server? If so, what results do you get when you try it from another system? Richard.Anderson@raycosoft.com www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) ----- Original Message ----- From: To: Sent: Wednesday, September 20, 2000 1:21 PM Subject: SPUG: @INC different in IE5 and NSNavigator > A strange learning experience. > I have a link on my web page to a perl script that uses a module called "sheet.pm" which I wrote. The module is in the same directory as the script so I put these lines at the top of my script. > use FindBin; > use lib $FindBin::Bin; > use sheet; > I can execute my script by selecting the html link in Exploder but not in Navigator. The @INC array is different when using each browser. Navigator gives me a "d:/TEMP" in @INC where Exploder gives me the correct path to my module. I see that Navigator > copies the script to d:/TEMP before attempting to run it while Explorer actually runs it from the original location. So Perl does not see my module located in d:/TEMP and thus aborts. I had to hard code the link to the module thus adding : use lib > "//the/original/path/to/my/module"; > prior to the use sheet; line. > bummer > --fred > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From starfire at zipcon.net Wed Sep 20 20:49:44 2000 From: starfire at zipcon.net (Richard Anderson) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Packed Default Sort References: Message-ID: <094501c0236e$3eda9120$750ff93f@adcom133> On Wednesday, September 20, 2000 3:23 PM, Yitzchak Scott-Thoennes" wrote: Subject: Re: SPUG: Packed Default Sort > > And from 5.7.0: > > =head1 Performance Enhancements > > and that sort() is now stable (meaning that elements with identical > keys will stay ordered as they were before the sort). This explains the arbitrary switching of the order of at_large and atlarge in this example (dictionary order sort, run with perl 5.005_02): use locale; # Enable use of POSIX locales for defining sort order @array = qw(ASCII ascap at_large atlarge A ARP arp); @dictionary_sorted = sort { my $da = lc $a; my $db = lc $b; $da =~ s/[\W_]+//g; $db =~ s/[\W_]+//g; $da cmp $db; } @array; print "@dictionary_sorted\n"; A ARP arp ascap ASCII atlarge at_large Richard.Anderson@raycosoft.com www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From andy at n2h2.com Thu Sep 21 13:10:54 2000 From: andy at n2h2.com (Andrew Sweger) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: @INC different in IE5 and NSNavigator In-Reply-To: <0056910007392142000002L122*@MHS> Message-ID: Fred, are you running these as client-side scripts? On Sep 20, 2000 @ 3:21pm, fred.giorgi@philips.com wrote: > A strange learning experience. > I have a link on my web page to a perl script that uses a module > called "sheet.pm" which I wrote. The module is in the same directory > as the script so I put these lines at the top of my script. > use FindBin; > use lib $FindBin::Bin; > use sheet; > I can execute my script by selecting the html link in Exploder but not > in Navigator. The @INC array is different when using each browser. > Navigator gives me a "d:/TEMP" in @INC where Exploder gives me the > correct path to my module. I see that Navigator copies the script to > d:/TEMP before attempting to run it while Explorer actually runs it > from the original location. So Perl does not see my module located in > d:/TEMP and thus aborts. I had to hard code the link to the module > thus adding : use lib "//the/original/path/to/my/module"; prior to > the use sheet; line. > bummer > --fred -- Andrew Sweger | N2H2, Incorporated Systems Architect | 900 Fourth Avenue, Suite 3400 Advanced Technologies Division | Seattle WA 98164-1059 v=206.336.2947 f=206.336.1541 | http://www.n2h2.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://www.halcyon.com/spug/ From scott at ccs.net Thu Sep 21 13:52:11 2000 From: scott at ccs.net (iWeb Support: Scott A. Hammond, Sr.) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Discount Link For O'Reilly Message-ID: <00f101c023fd$0ca23930$25e842cf@dw1> Does anyone have the link to receive the discount for the O'Reilly Perl University event coming up soon?? Thanks! Scott -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/spug-list/attachments/20000921/8ffdcbb4/attachment.htm From tim at consultix-inc.com Thu Sep 21 07:14:40 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Discount Link For O'Reilly In-Reply-To: <00f101c023fd$0ca23930$25e842cf@dw1>; from iWeb Support: Scott A. Hammond, Sr. on Thu, Sep 21, 2000 at 11:52:11AM -0700 References: <00f101c023fd$0ca23930$25e842cf@dw1> Message-ID: <20000921121440.B5827@timji.consultix.wa.com> On Thu, Sep 21, 2000 at 11:52:11AM -0700, iWeb Support: Scott A. Hammond, Sr. wrote: > Does anyone have the link to receive the discount for the O'Reilly Perl University event coming up soon?? > The discount-code is DSUG. -Tim > Thanks! > > Scott -- *========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | |CLASSES: 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl 10/23 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://www.halcyon.com/spug/ From pbellam at cobaltgroup.com Thu Sep 21 14:33:43 2000 From: pbellam at cobaltgroup.com (Prakasa Bellam) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Discount Link For O'Reilly In-Reply-To: <00f101c023fd$0ca23930$25e842cf@dw1> Message-ID: code is "DSUG", I dont have the link though. Thanks Prakasa On Thu, 21 Sep 2000, iWeb Support: Scott A. Hammond, Sr. wrote: > Does anyone have the link to receive the discount for the O'Reilly Perl > University event coming up soon?? > > Thanks! > > Scott > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From brian at ingerson.com Thu Sep 21 14:52:27 2000 From: brian at ingerson.com (Brian Ingerson) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Replace XS with the 'Inline' module as the standard way to extend Perl. Message-ID: <39CA66FB.6C151F06@ingerson.com> =head1 TITLE Replace XS with the C module as the standard way to extend Perl. =head1 VERSION Maintainer: Brian Ingerson Date: 21 Sep 2000 Mailing List: perl6-language@perl.org Number: ? Version: 1 Status: Developing =head1 REPLACES RFC 61 - Interfaces for linking C objects into perlsubs =head1 ABSTRACT Extending Perl with XS is too hard. First, there is a hefty learning curve for even simple extensions. Also, the resulting code gets spread out over several files, making it hard to maintain. In the spirit of Perl itself, C makes extending Perl easy for easy things, and possible for harder things. A Perl programmer can write their first C extension in minutes. They can learn more difficult maneuvers as needed. All of the extension code can be in the same file as the Perl script or module. This one-liner is a complete perl extension: perl -e 'print add(2,2);use Inline C=>"int add(int x,int y){return x+y;}"' The first time you run it, you'll notice a pause (compiling). Subsequent runs are lightning fast, as long as the C component isn't modified. =head1 DESCRIPTION C is basically a user friendly abstraction over XS. You feed it a snippet of (C) source and it performs the following steps: 1) Determine if the code snippet has already be compiled. If so, goto 5. 2) Parse function definitions to determine how code should bind to Perl. 3) Generate XS glue code. 4) Build the extension and install it in some known place. 5) DynaLoader the extension. If the extension is a user script or one-liner, the extension will get built and installed in a place that the user has access to. C chooses a reasonable default. The default can easily be over-ridden. If the extension is part of a distributed (ie CPAN) module, the code gets compiled during "make test" and permanently installed in the "installsitearch" during "make install". C is intended to replace 80-90% of the current functionality of XS. Although it does not need to be built over XS, doing so makes C more robust, helps towards backwards compatability, and provides an easy "out" if a project grows to exceed C capabilities. In perl6, something like XS should still exist, but just as a foundation for C. Savvy hackers could defeat C and write glue code themselves, but this would not be the standard. =head1 IMPLEMENTATION All of this is currently functional in C v0.25 (on CPAN now). C seems to work on any machine that has access to the same environment that was used to build Perl itself. Success has been achieved on platforms including MSWin32 and most *nixes. Version 0.25 provides bindings to the following types: C, C, C, C, C. (For anything else the user must pass the argument as a C and do their own type conversion.) There is also support for passing and returning lists. Version 0.30 (not yet released) has no default types. It gets all of its types from XS C files. These files are parsed for their types, which are dumped into the grammar to parse C. Since Perl comes with a generic C file, this is used as the default. It contains all the types listed above and more. This allows XS programmers to use their old typemaps when switching to C. It also allows other modules (like Event.pm) which have an XS API, to publish that API to C seamlessly, using a syntax like "use Inline with => 'Event';" Version 0.30 will also support the following syntax: use Inline; print add(2, 4); __END__ =pod blah blah blah =cut __C__ int add(int x, int y) { return x + y; } If so desired, perl6 might be able to simply recognize the C<__C__> marker, and not require the C at all. The code would look like: print add(2, 4); __C__ int add(int x, int y) { return x + y; } __END__ =pod blah blah blah =cut =head1 REFERENCES http://tmtowtdi.perl.org/rfc/61.pod http://search.cpan.org/doc/INGY/Inline-0.25/lib/Inline.pod http://search.cpan.org/doc/INGY/Inline-0.25/lib/Inline/Config.pod http://search.cpan.org/doc/INGY/Inline-0.25/lib/Inline/C/Tutorial.pod - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Thu Sep 21 14:06:56 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Discount Link For O'Reilly In-Reply-To: ; from Prakasa Bellam on Thu, Sep 21, 2000 at 12:33:43PM -0700 References: <00f101c023fd$0ca23930$25e842cf@dw1> Message-ID: <20000921190656.A7993@timji.consultix.wa.com> On Thu, Sep 21, 2000 at 12:33:43PM -0700, Prakasa Bellam wrote: > I dont have the link though. > http://conferences.oreilly.com/uperl2k/ Use code DSUG for the SPUG discount. -Tim ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== > Thanks > Prakasa > > On Thu, 21 Sep 2000, iWeb Support: Scott A. Hammond, Sr. wrote: > > > Does anyone have the link to receive the discount for the O'Reilly Perl > > University event coming up soon?? > > > > Thanks! > > > > Scott > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ > > -- *========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | |CLASSES: 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl 10/23 Perl Prog. | *========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tleffler at u.washington.edu Fri Sep 22 11:04:24 2000 From: tleffler at u.washington.edu (Trevor Leffler) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Strange regex problem Message-ID: <39CB8308.F4B96A52@u.washington.edu> SPUGers, I'm working with a substitution regex that correctly does a substitution, but the $1, $2, etc. that I expect are empty when I use the //i and //g modifiers together. I am hoping that one of you may have seen this before and have a good explanation; why would they react to one another? Please ignore that the //i and //g are pointless in my example, except for demonstrating this problem. Here is an example of what I'm talking about (using the ever-so-cute abc regex): # Just using //i here bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ s/(hi)(.*)(stu)/$3$2$1/i; print "$1, $3!\n$foo\n"' hi, stu! abcdefgstujklmnopqrhivwxyz # //g here, and still no problems with $1, $2, and $3 bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ s/(hi)(.*)(stu)/$3$2$1/g; print "$1, $3!\n$foo\n"' hi, stu! abcdefgstujklmnopqrhivwxyz # Whoops! //gi is acting fishy... bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ s/(hi)(.*)(stu)/$3$2$1/gi; print "$1, $3!\n$foo\n"' , ! abcdefgstujklmnopqrhivwxyz Thanks for any light you can shed on this, -- Trevor Leffler, Software Developer PETTT, University of Washington Box 353080, (206) 616-3406 FAX: (206) 616-2873 bash$ perl -V Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration: Platform: osname=linux, osvers=2.2.5-22smp, archname=i386-linux uname='linux porky.devel.redhat.com 2.2.5-22smp #1 smp wed jun 2 09:11:51 edt 1999 i686 unknown ' hint=recommended, useposix=true, d_sigaction=define usethreads=undef useperlio=undef d_sfio=undef Compiler: cc='cc', optimize='-O2 -m486 -fno-strength-reduce', gccversion=egcs-2.91.66 19990314/Linux (egcs-1.1.2 release) cppflags='-Dbool=char -DHAS_BOOL -I/usr/local/include' ccflags ='-Dbool=char -DHAS_BOOL -I/usr/local/include' stdchar='char', d_stdstdio=undef, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -ldl -lm -lc -lposix -lcrypt libc=, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' Characteristics of this binary (from libperl): Built under linux Compiled at Aug 10 2000 15:33:00 @INC: /usr/lib/perl5/5.00503/i386-linux /usr/lib/perl5/5.00503 /usr/lib/perl5/site_perl/5.005/i386-linux /usr/lib/perl5/site_perl/5.005 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tuck at whistlingfish.net Fri Sep 22 12:50:52 2000 From: tuck at whistlingfish.net (Matt Tucker) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Strange regex problem In-Reply-To: <39CB8308.F4B96A52@u.washington.edu> Message-ID: <8900000.969645052@flashingchance.whistlingfish.net> -- Trevor Leffler spake thusly: > I'm working with a substitution regex that correctly does a > substitution, but the $1, $2, etc. that I expect are empty when I use > the //i and //g modifiers together. I am hoping that one of you may > have seen this before and have a good explanation; why would they > react to one another? Please ignore that the //i and //g are > pointless in my example, except for demonstrating this problem. Here > is an example of what I'm talking about (using the ever-so-cute abc > regex): > > # Just using //i here > bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ > s/(hi)(.*)(stu)/$3$2$1/i; print "$1, $3!\n$foo\n"' > hi, stu! > abcdefgstujklmnopqrhivwxyz > > # //g here, and still no problems with $1, $2, and $3 > bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ > s/(hi)(.*)(stu)/$3$2$1/g; print "$1, $3!\n$foo\n"' > hi, stu! > abcdefgstujklmnopqrhivwxyz > > # Whoops! //gi is acting fishy... > bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ > s/(hi)(.*)(stu)/$3$2$1/gi; print "$1, $3!\n$foo\n"' > , ! > abcdefgstujklmnopqrhivwxyz This seems to be fixed in 5.6: [2] mtucker@benzene$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ s/(hi)(.*)(stu)/$3$2$1/gi; print "$1, $3!\n$foo\n"' hi, stu! abcdefgstujklmnopqrhivwxyz [3] mtucker@benzene$ perl -V Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration: Platform: osname=linux, osvers=2.2.15-0.16mdksmp, archname=i386-linux uname='linux kenobi.mandrakesoft.com 2.2.15-0.16mdksmp #1 smp mon mar 13 16:40:10 cet 2000 i686 unknown ' config_args='-des -Dprefix=/usr -Darchname=i386-linux -Dd_dosuid -Dd_semctl_semun -Di_db -Di_ndbm -Di_gdbm -Ud_csh -Dman3dir=/usr/lib/perl5/man/man3 -Doptimize=-O3 -fomit-frame-pointer -fno-exceptions -fno-rtti -pipe -s -mpentium -mcpu=pentium -march=pentium -ffast-math -fexpensive-optimizations' hint=recommended, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=define use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef Compiler: cc='cc', optimize='-O3 -fomit-frame-pointer -fno-exceptions -fno-rtti -pipe -s -mpentium -mcpu=pentium -march=pentium -ffast-math -fexpensive-optimizations', gccversion=2.95.3 19991030 (prerelease) cppflags='-fno-strict-aliasing' ccflags ='-fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' stdchar='char', d_stdstdio=define, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -ldl -lm -lc -lposix -lcrypt libc=/lib/libc-2.1.3.so, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: USE_LARGE_FILES Built under linux Compiled at Mar 28 2000 16:22:07 %ENV: PERL5LIB="/home/mtucker/lib" @INC: /home/mtucker/lib /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl/5.005/i386-linux /usr/lib/perl5/site_perl/5.005 /usr/lib/perl5/site_perl - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From lou at visca.com Fri Sep 22 14:26:37 2000 From: lou at visca.com (Lou Hevly) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Strange regex problem Message-ID: <3.0.6.32.20000922202637.00801350@visca.com> At 09:04 22/09/00 -0700, Trevor Leffler wrote: >SPUGers, > > I'm working with a substitution regex that correctly does a >substitution, but the $1, $2, etc. that I expect are empty when I use >the //i and //g modifiers together. Seems to work on Windows, AS v5.6.0: C:\usr\site\lib>perl -e "$foo = 'abcdefghijklmnopqrstuvwxyz'; $foo =~ s/(hi)(.*) (stu)/$3$2$1/gi; print \"$1, $3!\n$foo\n\"" hi, stu! abcdefgstujklmnopqrhivwxyz -- All the best (Ad?u-siau), Lou Hevly lou@visca.com http://www.visca.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://www.halcyon.com/spug/ From akcrum at hotmail.com Fri Sep 22 14:06:25 2000 From: akcrum at hotmail.com (Andrew Crum) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Strange regex problem Message-ID: I have 2 Linux boxes, one with Perl 5.00503 &the other with Perl 5.6.0. So I tried your code on both boxies... Perl 5.00503 -- gi problem re-created. Perl 5.6.0 -- no problem with gi. - Andrew ====== SPUGers, I'm working with a substitution regex that correctly does a substitution, but the $1, $2, etc. that I expect are empty when I use the //i and //g modifiers together. I am hoping that one of you may have seen this before and have a good explanation; why would they react to one another? Please ignore that the //i and //g are pointless in my example, except for demonstrating this problem. Here is an example of what I'm talking about (using the ever-so-cute abc regex): # Just using //i here bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ s/(hi)(.*)(stu)/$3$2$1/i; print "$1, $3!\n$foo\n"' hi, stu! abcdefgstujklmnopqrhivwxyz # //g here, and still no problems with $1, $2, and $3 bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ s/(hi)(.*)(stu)/$3$2$1/g; print "$1, $3!\n$foo\n"' hi, stu! abcdefgstujklmnopqrhivwxyz # Whoops! //gi is acting fishy... bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ s/(hi)(.*)(stu)/$3$2$1/gi; print "$1, $3!\n$foo\n"' , ! abcdefgstujklmnopqrhivwxyz Thanks for any light you can shed on this, -- Trevor Leffler, Software Developer PETTT, University of Washington Box 353080, (206) 616-3406 FAX: (206) 616-2873 bash$ perl -V Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration: Platform: osname=linux, osvers=2.2.5-22smp, archname=i386-linux uname='linux porky.devel.redhat.com 2.2.5-22smp #1 smp wed jun 2 09:11:51 edt 1999 i686 unknown ' hint=recommended, useposix=true, d_sigaction=define usethreads=undef useperlio=undef d_sfio=undef Compiler: cc='cc', optimize='-O2 -m486 -fno-strength-reduce', gccversion=egcs-2.91.66 19990314/Linux (egcs-1.1.2 release) cppflags='-Dbool=char -DHAS_BOOL -I/usr/local/include' ccflags ='-Dbool=char -DHAS_BOOL -I/usr/local/include' stdchar='char', d_stdstdio=undef, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -ldl -lm -lc -lposix -lcrypt libc=, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' Characteristics of this binary (from libperl): Built under linux Compiled at Aug 10 2000 15:33:00 @INC: /usr/lib/perl5/5.00503/i386-linux /usr/lib/perl5/5.00503 /usr/lib/perl5/site_perl/5.005/i386-linux /usr/lib/perl5/site_perl/5.005 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ _________________________________________________________________________ Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com. Share information about yourself, create your own public profile at http://profiles.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://www.halcyon.com/spug/ From mike at unixgeek.net Fri Sep 22 14:12:29 2000 From: mike at unixgeek.net (Mike) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: SPUG module Message-ID: <4.3.2.7.2.20000922121014.01f266c8@mail.winstar.com> I was unable to make it to Tuesday's meeting, but I was wondering what was going on with the CPAN project? On a side note I was poking around mozilla.org and found something that might interest the development team. Check out: http://tinderbox.mozilla.org/showbuilds.cgi?tree=SeaMonkey That's all! --Mike - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From brian at ingerson.com Fri Sep 22 15:39:24 2000 From: brian at ingerson.com (Brian Ingerson) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Strange regex problem References: Message-ID: <39CBC37C.6B3F59DE@ingerson.com> Andrew Crum wrote: > > I have 2 Linux boxes, one with Perl 5.00503 &the other with Perl 5.6.0. > So I tried your code on both boxies... > Perl 5.00503 -- gi problem re-created. > Perl 5.6.0 -- no problem with gi. > - Andrew I have one Linux laptop with seven versions of Perl (including 5.7.0), and one copy of Vmware running WinNT with two versions of Perl ;-P - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From marlin3hats at uswest.net Fri Sep 22 20:15:23 2000 From: marlin3hats at uswest.net (marlin) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Self referecing URL References: <39A71FE0.850DF8CA@mindspring.com> <00ad01c00f88$baf82f50$6e0ff93f@adcom133> Message-ID: <39CC042B.D15F551F@uswest.net> I need to detect a catalog number in a text line and reference it to another page as a link. The text is $item_text. I want to swap the number (NUM + some digits) with itself as a tag. I tried... $item_text =~ s/(NUM.*\s)/\1/g; which sort of works except that the closing > after the \1 is ignored, that is the tag never closes and the entire line is linked. I'm missing something. Thanks is advance for telling me what I'm missing. Marlin Greene -- 3 Hats Design INTERNET PRINT ILLUSTRATION 5201 15 Ave NW Suite 220 Seattle, WA 98107 206.784.1641 phone 206.784.2231 fax marlin@3hats.com http://www.3hats.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://www.halcyon.com/spug/ From largest at largest.org Fri Sep 22 21:16:12 2000 From: largest at largest.org (Joel Grow) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Self referecing URL In-Reply-To: <39CC042B.D15F551F@uswest.net> Message-ID: On Fri, 22 Sep 2000, marlin wrote: > I need to detect a catalog number in a text line and reference it to > another page as a link. > > The text is $item_text. I want to swap the number (NUM + some digits) > with itself as a tag. > > I tried... > > $item_text =~ s/(NUM.*\s)/\1/g; > which sort of works except that the closing > after the \1 is ignored, > that is the tag never closes and the entire line is linked. One problem is that the / in '' isn't escaped, so Perl thinks that / is the regex delimiter. You can fix that with a \ (in other words, change it to '<\/A>'). Also, the .* in the first part of the regex might also be causing you problems. If you're looking for NUM followed by as many digits as possible (up to a space, I'm guessing based on your \s), you could do: $item_text =~ s/(NUM\d+)/\1<\/A>/g; HTH Joel > Marlin Greene > -- > 3 Hats Design > INTERNET PRINT ILLUSTRATION > 5201 15 Ave NW > Suite 220 > Seattle, WA 98107 > 206.784.1641 phone > 206.784.2231 fax > marlin@3hats.com > http://www.3hats.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://www.halcyon.com/spug/ From jeff at planetoid.net Fri Sep 22 21:31:03 2000 From: jeff at planetoid.net (jeff saenz) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Self referecing URL References: <39A71FE0.850DF8CA@mindspring.com> <00ad01c00f88$baf82f50$6e0ff93f@adcom133> <39CC042B.D15F551F@uswest.net> Message-ID: <39CC15E6.F925D6EE@planetoid.net> what about trying : $item_text =~ s/(NUM\d+)\s/\1<\/A>/g; you must esc the closing /a tag, try using \d+ inside the params and move the \s outside the params, unless you want the space in \1. HEY, anyone looking for an off-site perl developer/consultant. marlin wrote: > I need to detect a catalog number in a text line and reference it to > another page as a link. > > The text is $item_text. I want to swap the number (NUM + some digits) > with itself as a tag. > > I tried... > > $item_text =~ s/(NUM.*\s)/\1/g; > which sort of works except that the closing > after the \1 is ignored, > that is the tag never closes and the entire line is linked. > > I'm missing something. -- Jeff Saenz http://www.planetoid.net jeff@planetoid.net - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jeremy at weezel.com Fri Sep 22 22:30:38 2000 From: jeremy at weezel.com (Jeremy Devenport) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Self referecing URL In-Reply-To: <39CC042B.D15F551F@uswest.net> Message-ID: If your data looks like: a line with a NUM1234 in it and you want to have a line with a NUM1234 then how about $item_text =~ s/(NUM(\d+))/$1<\/a>/g; It is much easier to help if you show an example of the expected input and output. Jeremy -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of marlin Sent: Friday, September 22, 2000 6:15 PM To: spug-list@pm.org Subject: SPUG: Self referecing URL I need to detect a catalog number in a text line and reference it to another page as a link. The text is $item_text. I want to swap the number (NUM + some digits) with itself as a tag. I tried... $item_text =~ s/(NUM.*\s)/\1/g; which sort of works except that the closing > after the \1 is ignored, that is the tag never closes and the entire line is linked. I'm missing something. Thanks is advance for telling me what I'm missing. Marlin Greene -- 3 Hats Design INTERNET PRINT ILLUSTRATION 5201 15 Ave NW Suite 220 Seattle, WA 98107 206.784.1641 phone 206.784.2231 fax marlin@3hats.com http://www.3hats.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://www.halcyon.com/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From wormwood at speakeasy.org Sat Sep 23 00:22:12 2000 From: wormwood at speakeasy.org (Riley) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Strange regex problem In-Reply-To: <39CB8308.F4B96A52@u.washington.edu> Message-ID: Hi Trevor, This problem you describe got to me, so I played around a little to figure out what it might be doing (tested on perl 5.005_03 on i686-linux). In general, when doing matching or substitution with the global ('g') option, perl sets $1, $2, $3... to the corresponding substring of the last successfully matched pattern. However, it's kind of funny about just what it is that it considers the last matched pattern: If it's matching in a scalar (or void) context, it doesn't bother to look for matches after the first one -- basically cancelling out the 'g'. Compare: perl -e'$foo = "abcdefghijklmnopqrstuvwxyz"; $matches = ($foo =~ /([a-z]{3})/g); print "$1\n$matches\n"' abc 1 perl -e'$foo = "abcdefghijklmnopqrstuvwxyz"; ($matches) = ($foo =~ /([a-z]{3})/g); print "$1\n$matches\n"' vwx abc Although it's a bit odd, this may be the specified behavior -- I have no reference, but this is true of the version of perl 5.6 on Mac OS X beta as well, maybe others. If it's doing substitution, however, it doesn't use the context as an excuse for (little 'l') laziness: perl -e'$foo ="abcdefghijklmnopqrstuvwxyz"; $matches = ($foo =~ s/([a-z]{3})/\U$1\E/g); print "$foo\n$1\n$matches\n"' ABCDEFGHIJKLMNOPQRSTUVWXyz vwx 8 In your error case, what seems to be happening is that it's "remembering" the results of it's last *attempted* match, rather than it's last successful one. Here's what I tried in the course of reaching this conclusion: perl -e'$foo = "abcdefghijklmnopqrstuvwxyz"; ($matches) = ($foo =~ s/(hi)(.*)(stu)/\U$1\E$2\U$3\E/gi); print "$foo\n$1\n$matches\n"' abcdefgHIjklmnopqrSTUvwxyz 1 The error case as previously described ... but what if we match against any two letters rather than just "hi"? perl -e'$foo = "abcdefghijklmnopqrstuvwxyz"; ($matches) = ($foo =~ s/(\w\w)(.*)(stu)/\U$1\E$2\U$3\E/gi); print "$foo\n$1\n$matches\n"' ABcdefghijklmnopqrSTUvwxyz vw 1 "vw" is right after "stu", so we can see that it began the unsuccessful search at the right point -- but what if we move that point back in the alphabet, to make sure it's indeed the last partial match which is being returned. ("vw" is the first and the last!) perl -e'$foo = "abcdefghijklmnopqrstuvwxyz"; ($matches) = ($foo =~ s/(\w\w)(.*)(nop)/\U$1\E$2\U$3\E/gi); print "$foo\n$1\n$matches\n"' ABcdefghijklmNOPqrstuvwxyz vw 1 Still "vw" -- the last two letters it could possibly match, since although the second expression can match nothing, the third needs three characters to look at. One last twist in this bug is that it only seems to happen when "*" and the case-insensitive flag are used together. perl -e'$foo = "abcdefghijklmnopqrstuvwxyz"; ($matches) = ($foo =~ s/(hi)(.+)(stu)/\U$1\E$2\U$3\E/gi); print "$foo\n$1\n$matches\n"' abcdefgHIjklmnopqrSTUvwxyz hi 1 Beat that camel to death? It's fixed in later versions, thank god. --Riley ---------------------- We run carelessly to the precipice, after we have put some thing before us to prevent us seeing it. -- Blaise Pascal Regarding "SPUG: Strange regex problem", Trevor Leffler wrote: > SPUGers, > > I'm working with a substitution regex that correctly does a > substitution, but the $1, $2, etc. that I expect are empty when I use > the //i and //g modifiers together. I am hoping that one of you may > have seen this before and have a good explanation; why would they react > to one another? Please ignore that the //i and //g are pointless in my > example, except for demonstrating this problem. Here is an example of > what I'm talking about (using the ever-so-cute abc regex): > > # Just using //i here > bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ > s/(hi)(.*)(stu)/$3$2$1/i; print "$1, $3!\n$foo\n"' > hi, stu! > abcdefgstujklmnopqrhivwxyz > > # //g here, and still no problems with $1, $2, and $3 > bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ > s/(hi)(.*)(stu)/$3$2$1/g; print "$1, $3!\n$foo\n"' > hi, stu! > abcdefgstujklmnopqrhivwxyz > > # Whoops! //gi is acting fishy... > bash$ perl -e '$foo = "abcdefghijklmnopqrstuvwxyz"; $foo =~ > s/(hi)(.*)(stu)/$3$2$1/gi; print "$1, $3!\n$foo\n"' > , ! > abcdefgstujklmnopqrhivwxyz > > > Thanks for any light you can shed on this, > -- > Trevor Leffler, Software Developer > PETTT, University of Washington > Box 353080, (206) 616-3406 FAX: (206) 616-2873 > > > bash$ perl -V > Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration: > Platform: > osname=linux, osvers=2.2.5-22smp, archname=i386-linux > uname='linux porky.devel.redhat.com 2.2.5-22smp #1 smp wed jun 2 > 09:11:51 edt 1999 i686 unknown ' > hint=recommended, useposix=true, d_sigaction=define > usethreads=undef useperlio=undef d_sfio=undef > Compiler: > cc='cc', optimize='-O2 -m486 -fno-strength-reduce', > gccversion=egcs-2.91.66 19990314/Linux (egcs-1.1.2 release) > cppflags='-Dbool=char -DHAS_BOOL -I/usr/local/include' > ccflags ='-Dbool=char -DHAS_BOOL -I/usr/local/include' > stdchar='char', d_stdstdio=undef, usevfork=false > intsize=4, longsize=4, ptrsize=4, doublesize=8 > d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 > alignbytes=4, usemymalloc=n, prototype=define > Linker and Libraries: > ld='cc', ldflags =' -L/usr/local/lib' > libpth=/usr/local/lib /lib /usr/lib > libs=-lnsl -ldl -lm -lc -lposix -lcrypt > libc=, so=so, useshrplib=false, libperl=libperl.a > Dynamic Linking: > dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic' > cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' > > > Characteristics of this binary (from libperl): > Built under linux > Compiled at Aug 10 2000 15:33:00 > @INC: > /usr/lib/perl5/5.00503/i386-linux > /usr/lib/perl5/5.00503 > /usr/lib/perl5/site_perl/5.005/i386-linux > /usr/lib/perl5/site_perl/5.005 > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > 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://www.halcyon.com/spug/ > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From wormwood at speakeasy.org Sat Sep 23 01:27:08 2000 From: wormwood at speakeasy.org (Riley) Date: Wed Aug 4 00:07:37 2004 Subject: SPUG: Strange regex problem (correction) Message-ID: > One last twist in this bug is that it only seems to happen when "*" and > the case-insensitive flag are used together. On second thought, the bug seems to occur not due to the presence of "*" but whenever there are enough characters left after the last successful match to possibly yield another match. > perl -e'$foo = "abcdefghijklmnopqrstuvwxyz"; > ($matches) = ($foo =~ s/(hi)(.+)(stu)/\U$1\E$2\U$3\E/gi); > print "$foo\n$1\n$matches\n"' > abcdefgHIjklmnopqrSTUvwxyz > hi > 1 This doesn't trigger the bug because the "+" needs at least one character, so the entire matching expression needs at least 6 characters -- one too many. But if we give it enough characters, it will attempt another match and clobber the substring variables: perl -e'$foo = "abcdefghijklmnopqrstuvwxyz"; ($matches) = ($foo =~ s/(hi)(.+)(nop)/\U$1\E$2\U$3\E/gi); print "$foo\n$1\n$matches\n"' abcdefgHIjklmNOPqrstuvwxyz 1 Another example without "+" or "*": perl -e'$foo = "abcdefghijklmnopqrstuvwxyzaaaaaaaaaaaaaaaaaaaaaaaaaa"; ($matches) = ($foo =~ s/(hi)(jklmnopqr)(stu)/\U$1\E$2\U$3\E/gi); print "$foo\n$1\n$matches\n"' abcdefgHIjklmnopqrSTUvwxyzaaaaaaaaaaaaaaaaaaaaaaaaaa 1 The problem can be seen to affect (non-lazy) global matches as well as substitutions: perl -e'$foo = "abcdefghijklmnopqrstuvwxyzaaaaaaaaaaaaaaaaaaaaaaaaaa"; ($matches) = ($foo =~ m/(hi)(jklmnopqr)(stu)/gi); print "$foo\n$1\n$matches\n"' abcdefghijklmnopqrstuvwxyzaaaaaaaaaaaaaaaaaaaaaaaaaa hi - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From marlingreene at mindspring.com Sat Sep 23 13:54:02 2000 From: marlingreene at mindspring.com (marlin) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Self referecing URL Message-ID: <39CCFC4A.7FE57AFC@mindspring.com> Problem was escaping the closing <\/A also changed the CAT.* to [a-z][a-z]\d\d\d\d since the catalog number always has a pattern like: ch9822 -- that is, 2 characters and 4 digits, and this eliminates the space being part of \1. This works as expected. Is there a better way to specify to match 4 digits? Thanks to all who replied. Marlin >what about trying : >$item_text =~ s/(NUM\d+)\s/\1<\/A>/g; >you must esc the closing /a tag, try using \d+ inside the params and move the >\s outside the params, unless you want the space in \1. -- 3 Hats Design INTERNET PRINT ILLUSTRATION 5201 15 Ave NW Suite 220 Seattle, WA 98107 206.784.1641 phone 206.784.2231 fax marlin@3hats.com http://www.3hats.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://www.halcyon.com/spug/ From tuck at whistlingfish.net Sat Sep 23 15:31:13 2000 From: tuck at whistlingfish.net (Matt Tucker) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Self referecing URL In-Reply-To: <39CCFC4A.7FE57AFC@mindspring.com> Message-ID: <30930000.969741073@flashingchance.whistlingfish.net> -- marlin spake thusly: > Problem was escaping the closing <\/A > > also changed the CAT.* to [a-z][a-z]\d\d\d\d since the catalog number > always has a pattern like: ch9822 -- that is, 2 characters and 4 > digits, and this eliminates the space being part of \1. > > This works as expected. > > Is there a better way to specify to match 4 digits? You can do \d{4}, but the other way is a bit more efficient. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Sun Sep 24 01:31:41 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Please resubmit recent job ads Message-ID: <20000923233141.A31191@timji.consultix.wa.com> I've been upgrading from sendmail to postfix this week, and in the process, I've managed to misplace my mailbox full of unprocessed job ads for SPUG, which I was letting accumulate until my first chance to process them - today! So anybody who sent spug@halcyon.com email containing a job ad for SPUG in the last 5 days please send it again. Sorry, -Tim P.S. This just provides more validation for my First Law of System Administration: "The most dangerous thing you can do to your system is to try to take good care of it." (I.e., a well-configured system that is left to its own devices will generally carry on nicely, but when the root (ab)?user starts improving things, look out! 8-} ) *========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | |CLASSES: 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl 10/23 Perl Prog. | *========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From mike at unixgeek.net Mon Sep 25 18:38:25 2000 From: mike at unixgeek.net (Mike) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Hey everyone! Message-ID: <4.3.2.7.2.20000925163624.01eec8a8@mail.winstar.com> I was fooling around with my resume on Monster for the Perl Classes and low and behold someone gives me a job offer. I'm quite happy with my current job (amazing isn't it?). But I told her I'd ask the group about it, because she is looking for Perl people. So what do you have to do with job listings? Do you send it to one person for approval or did we put it on a web page? I can let her email someone about it if that is cool. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Mon Sep 25 18:58:17 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Hey everyone! In-Reply-To: <4.3.2.7.2.20000925163624.01eec8a8@mail.winstar.com>; from Mike on Mon, Sep 25, 2000 at 04:38:25PM -0700 References: <4.3.2.7.2.20000925163624.01eec8a8@mail.winstar.com> Message-ID: <20000925235817.C17619@timji.consultix.wa.com> On Mon, Sep 25, 2000 at 04:38:25PM -0700, Mike wrote: > I was fooling around with my resume on Monster for the Perl Classes > and low and behold someone gives me a job offer. I'm quite happy > with my current job (amazing isn't it?). But I told her I'd ask the group > about it, because she is looking for Perl people. So what do you have > to do with job listings? Do you send it to one person for approval or > did we put it on a web page? I can let her email someone about it if > that is cool. > Read the requirements for job ads on our web site (also attached below), and email to: spug@halcyon.com -Tim ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== Job Offers for SPUG Members Some of our members do contract Perl programming work, while others are looking for full-time jobs. Accordingly, we are always interested to hear about openings for Perl Programmers in the Seattle area! We can help you communicate your job opening to the hundreds of Perl programmers on our mailing list. By providing you access to our members, we are providing you with a valuable service at no charge. In return, we ask that you provide the following details of your job opening, to prevent our members from individually having to ask the questions that would elicit the same answers. To submit your job listing for consideration, Email a description of it containing the following details, to: spug@halcyon.com * required skill-set * contract or permanent position * for contracts, * expected duration and pay range * for permanent positions, * availability of stock options or other incentive plans * for all positions, * whether candidate deals directly with employer or a recruiter * if recruiter, would candidate work for recruiter, or company? * W-2 vs. 1099 status * any restrictions on 1099 status: Corporation, etc.? * physical location * telecommuting possible? * company's product or service * e-commerce, grocery shopping, nuclear weapons, pornography, etc. SPUG officials will post announcements of such openings to our mailing list after ensuring that all details are complete. If you are reluctant to disclose any of these details, then you are encouraged to post your job announcement elsewhere. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From Showell30 at aol.com Tue Sep 26 08:55:50 2000 From: Showell30 at aol.com (Showell30@aol.com) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: modules for building strings top down Message-ID: <3d.15e219e.270204e6@aol.com> # Hello. # # I want a more generic interface for assembling # text than, say, HTML::Entities provides me. I want # to build up strings in a top-down fashion, so that I can # hook in parts of the string later, with an # object-oriented interface. I created an object # class called "topdown" that has two functions: # # hook - allows you to hook in a string, array of # strings, or other topdown into your string # expanded - returns expanded string (recursing tree) # # I am interested in alternative solutions to this. Thanks. # I suppose the best thing would be to discover that there's # already a module out there that does what my "topdown" does, # only more robustly. # Design the big page layout first my $page = new topdown(< TOCMAIN PAGE # Design a blue title bar at the top. $titlebar = new topdown(<
TITLE
TITLEBAR $page->hook("TITLEBAR",$titlebar); $titlebar->hook("BGCOLOR","blue"); $titlebar->hook("FGCOLOR","white"); $titlebar->hook("TITLE","Sample Use of Topdown Class"); # Design the table of contents next $toc = new topdown(<Table of Contents CHAPTERS TOC $page->hook("TOC",$toc); # Lay out the specific chapters $toc->hook("CHAPTERS", [ chapter("Perl Quirks"), chapter("Why I Wrote This")]); sub chapter {return " $_[0]\n";} # $page->hook("MAIN",<expanded(); package topdown; sub new { my $class = shift; my $data = shift; my $self = bless {_data => $data }, $class; } sub hook { my $self = shift; my $hook = shift; my $data = shift; $self->{'_hooks'}{$hook} = $data; return ""; } sub expanded { # This is a deeply flawed implementation -- # it will break down if children nodes have the keywords in them. my $self = shift; my $exp = $self->{'_data'}; my $hooks = $self->{'_hooks'}; foreach $hook (sort keys %{$hooks}) { my $data = $hooks->{$hook}; if ((ref $data) eq "topdown") { $data = $data->expanded(); $exp =~s/$hook/$data/gm } elsif (ref $data eq "ARRAY") { # oversimplified for now, just accept strings my $text; foreach $elem (@$data) { $text .= $elem; } $exp =~s/$hook/$text/gm } else { $exp =~s/$hook/$data/gm } } return $exp; } 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://www.halcyon.com/spug/ From andy at n2h2.com Tue Sep 26 15:31:40 2000 From: andy at n2h2.com (Andrew Sweger) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: modules for building strings top down In-Reply-To: <3d.15e219e.270204e6@aol.com> Message-ID: CGI::FastTemplate perhaps? I specify it in some designs so as to completely segregate perl code from the HTML (or other text). If done properly, the connection between the perl code and text is controlled by a configuration file. You can also use CGI::FastTemplate to procedurally construct a byte stream from a top-down structure approach. On Sep 26, 2000 @ 9:55am, Showell30@aol.com wrote: > # Hello. > # > # I want a more generic interface for assembling > # text than, say, HTML::Entities provides me. I want > # to build up strings in a top-down fashion, so that I can > # hook in parts of the string later, with an > # object-oriented interface. I created an object > # class called "topdown" that has two functions: > # > # hook - allows you to hook in a string, array of > # strings, or other topdown into your string > # expanded - returns expanded string (recursing tree) > # > # I am interested in alternative solutions to this. Thanks. > # I suppose the best thing would be to discover that there's > # already a module out there that does what my "topdown" does, > # only more robustly. -- Andrew Sweger | N2H2, Incorporated Systems Architect | 900 Fourth Avenue, Suite 3400 Advanced Technologies Division | Seattle WA 98164-1059 v=206.336.2947 f=206.336.1541 | http://www.n2h2.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://www.halcyon.com/spug/ From damian at cs.monash.edu.au Tue Sep 26 16:24:31 2000 From: damian at cs.monash.edu.au (Damian Conway) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: modules for building strings top down Message-ID: <200009262124.IAA20451@indy05.csse.monash.edu.au> > > # I want a more generic interface for assembling > > # text than, say, HTML::Entities provides me. I want > > # to build up strings in a top-down fashion, so that I can > > # hook in parts of the string later, with an > > # object-oriented interface. I created an object > > # class called "topdown"... > > # > > # I am interested in alternative solutions to this. Thanks. Soryy, I haven't been following this thread. Has anyone mentioned the Data::Locations module? 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://www.halcyon.com/spug/ From tim at consultix-inc.com Wed Sep 27 13:30:12 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Portland Startup JoB, telecommuting OK Message-ID: <20000927183012.D19601@timji.consultix.wa.com> ----- Forwarded message from Daniel Chetlin ----- Date: Mon, 25 Sep 2000 14:50:21 -0700 From: Daniel Chetlin To: spug@halcyon.com Subject: [JOBS] Portland internet startup needs Perl programmers User-Agent: Mutt/1.2.5i All, The below job posting is from my project manager -- we're looking for Perl people here in Lake Oswego (Portland area). If you're interested, send along a resume either to myself or to Ely, whose email is ely@ebizquality.com. Note that after doing some convincing of the big guys here, they've decided that it's OK for someone to only be in the office once a week or so -- so it'd be perfectly reasonable for someone to work from Seattle and drive down here for a meeting every Monday. If you have any questions about what we're doing here and whether your skills would fit, feel free to drop me a line. Thanks! -dlc ----------------------------------------------------------------------- I'm looking for a few good Perl programmers that are ready for a challenge. If you can put together Unix daemons, sling data between processes, consider SQL a close friend, and have a good background in OO coding, then I'd like to see your resume. Please note that I am not a recruiter; I'm the Project Manager here and I'll be working next door to you. Read the full details of our job openings at http://eBizQuality.com/work/ In a nutshell, our company is building a sophisticated network management system. Although we're well on our way, many of the parts of the system still need to be implemented -- so all your creativity will be well used. We're using Perl as our primary language to build this atop a distributed cluster of Linux and Solaris boxes. We're also planning on opensourcing some, if not all, of our fault tolerant application framework. We have some great people, a fantastic office environment, lots of industry links, and customers lining up to get our product. Also, if you become an employee here, you'll also get stock options and full benefits. What more could you possibly ask for? This is initially a contract (1099), full-time position with potential to move into a permanent position. The pay range is $25-75/hour, depending on your qualifications. While it is necessary to meet with the team on a regular basis, we are flexible on having you work in the office or at home, wherever is more suitable for you. Nevertheless, eBizQuality is located in a beautiful office building in Lake Oswego. Regards, Ely Shemesh -- eBizQuality, Inc. Making Your Web Better 1-503-603-1211 ely@eBizQuality.com ----- End forwarded message ----- -- *========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | |CLASSES: 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl 10/23 Perl Prog. | *========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Wed Sep 27 13:31:24 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Spinwire JoB Message-ID: <20000927183124.E19601@timji.consultix.wa.com> JOB POSTING Position: Contract Perl Programmer Spinwire, a Seattle-based multimedia development company is seeking an experienced Perl Programmer to assist with the alpha version of a financial information website (working under the client's NDA). The website is database-driven, using CGI/LWP to retrieve and format data from various sources. The database is MySQL, running on Linux/Apache. ePerl is also part of the spec and can be used where appropriate. Significant experience with all the technologies involved plus an ability to turn code around quickly and accurately is essential. Project should run 4-6 weeks at most. No recruiters are involved. Contract programmer will need 1099 status -- as a corporation or individual/sole proprietorship. Negotiable hourly rate. Initial meetings will be necessary at Spinwire's office (4th & Pike, downtown Seattle), but subsequent work location is up to the programmer. Since 1991, Spinwire (formerly known as Artbox Inc.) has been assisting businesses with the strategic planning, design and development of effective and innovative multimedia projects. Our development team has a deep understanding of new media technology, as well as a fun, creative sensibility. Please send responses and inquiries to Jennifer Dixey (Principal, Tech Director) at: jd@spinwire.com Susan Gleason ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Spinwire w - http://www.spinwire.com Multimedia Development e - sg@spinwire.com 1425 4th Avenue, Suite 914 p - 206.343.1426 Seattle, WA 98101 f - 206.343.1427 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Wed Sep 27 13:32:22 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Windows Newbie Needs Help Message-ID: <20000927183222.F19601@timji.consultix.wa.com> Hello SPUG, my name is Bogdan Vladu and I am currently trying to educate myself in Perl. I am using "Perl for Dummies 2nd edition" by Paul Hoffman. Although the book makes sense (so far ...) I am unable to put in practice what I am reading (learning ?!). I am a totally neophite to the programming field and my only experience with programming was in college, struggling to write and understand "Fortran". Anyway, I installed Perl version 5.005 on Windows '95 but have no clue how to proceed to run loaded programs (from the accompanying CD-Rom) or basic commands such as "print". For example, while typing (this is the actual line on the ms-dos prompt) the reply appears. C:\Perl>perl print "This is a string!" ; Can't open perl script "print": No such file or directory I am aware that I might be stupid but I know that I installed the CD-Rom correctly and it seems that numerous files and short programs have been installed on the hard drive. If you guys have can help me with this matter or at least with suggestions for a better book that will help me learn Pearl I'm all ears. Thank you ! Bogdan Vladu bvladu@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://www.halcyon.com/spug/ From creede at rrauto.com Wed Sep 27 14:58:47 2000 From: creede at rrauto.com (Creede Lambard) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Windows Newbie Needs Help References: <20000927183222.F19601@timji.consultix.wa.com> Message-ID: <001901c028bd$59402580$534181ce@rrauto.com> Don't worry about it, Bogdan. It all makes sense when you've done it for a bit but at first Perl can be intimidating. It looks like your copy of Perl is installed properly, so to run a program that's on disk you can do something like perl C:\scripts\myperlscript.pl When the book has an example that you type on one line, they may have forgotten to mention the "-e" switch, which basically means "treat this next string coming up as a little perl program." So in the example you give, you would type perl -e "print 'This is a string!'; " You have to use double quotes or the Win32 Perl interpreter gets annoyed. This could cause other problems if you try to run one-liners written for Unix, but for now the above will work for you. Most people I know recommend the book "Learning Perl for Win32 Systems" from O'Reilly and Associates as the best place to start learning Perl and consider "Perl for Dummies" to be of suspect quality. I haven't looked at the Dummies book in a while, but I can recommend "Learning Perl for Win32 Systems" quite highly. Cheers, -- Creede Creede Lambard | Never rush a miracle man. Senior Developer | You get rotten miracles. Reynolds & Reynolds | creede@rrauto.com | - Miracle Max, | The Princess Bride ----- Original Message ----- From: Tim Maher/CONSULTIX To: Sent: Wednesday, September 27, 2000 11:32 AM Subject: SPUG: Windows Newbie Needs Help > Hello SPUG, > my name is Bogdan Vladu and I am currently trying to educate myself in Perl. > I am using "Perl for Dummies 2nd edition" by Paul Hoffman. > Although the book makes sense (so far ...) I am unable to put in practice > what I am reading (learning ?!). > I am a totally neophite to the programming field and my only experience with > programming was in college, struggling to write and understand "Fortran". > Anyway, I installed Perl version 5.005 on Windows '95 but have no clue how > to proceed to run loaded programs (from the accompanying CD-Rom) or basic > commands such as "print". > For example, while typing (this is the actual line on the ms-dos prompt) > the reply appears. > > C:\Perl>perl print "This is a string!" ; > Can't open perl script "print": No such file or directory > > I am aware that I might be stupid but I know that I installed the CD-Rom > correctly and it seems that numerous files and short programs have been > installed on the hard drive. > > If you guys have can help me with this matter or at least with suggestions > for a better book that will help me learn Pearl I'm all ears. > > Thank you ! > > Bogdan Vladu > bvladu@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://www.halcyon.com/spug/ > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From andyj at microsoft.com Wed Sep 27 15:03:53 2000 From: andyj at microsoft.com (Andy Jacobs) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Windows Newbie Needs Help Message-ID: <90AB62B60EFE5D43A27D2B62E9046441018D0D@red-msg-03.redmond.corp.microsoft.com> When you type Perl from a command line, the normal thing to specify next is a file with your Perl script in it. If you create a file (using NOTEPAD, or any other text editor) and put your line of code: print "This is a string!"; in it (e.g., call it SAMPLE.PL). You then run your code by typing Perl SAMPLE.PL on the DOS command line. If you want to run the script without creating a file, you need the "-e" option. But in DOS, things are a bit more tricky than in Unix, and DOS does not nicely handle the embedded quotes in your script (and doesn't recognize single-quotes for command line parameters). So, you could write: Perl -e "print 'This is a string!';" or, if you need to use double-quoted strings in the script itself, you can use Perl's ability to change the quote character like this: Perl -e "print qq{This is a string!};" (where qq{...} is the same as "..." in Perl). You can also take advantage of Perl's ability to read from standard input when no script is specified (which works on DOS, Unix and probably most other platforms). Your transcript would look like this: Perl print "This is a string!"; ^Z (note: type the "Perl" at the command prompt, press enter, then type the next line, press enter, and then ^Z is Ctrl-Z, or F6 on most DOS/Windows machines, and enter again). Hope this helps. - Andy Jacobs -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of Tim Maher/CONSULTIX Sent: Wednesday, September 27, 2000 11:32 AM To: spug-list@pm.org Subject: SPUG: Windows Newbie Needs Help Hello SPUG, my name is Bogdan Vladu and I am currently trying to educate myself in Perl. I am using "Perl for Dummies 2nd edition" by Paul Hoffman. Although the book makes sense (so far ...) I am unable to put in practice what I am reading (learning ?!). I am a totally neophite to the programming field and my only experience with programming was in college, struggling to write and understand "Fortran". Anyway, I installed Perl version 5.005 on Windows '95 but have no clue how to proceed to run loaded programs (from the accompanying CD-Rom) or basic commands such as "print". For example, while typing (this is the actual line on the ms-dos prompt) the reply appears. C:\Perl>perl print "This is a string!" ; Can't open perl script "print": No such file or directory I am aware that I might be stupid but I know that I installed the CD-Rom correctly and it seems that numerous files and short programs have been installed on the hard drive. If you guys have can help me with this matter or at least with suggestions for a better book that will help me learn Pearl I'm all ears. Thank you ! Bogdan Vladu bvladu@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://www.halcyon.com/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Wed Sep 27 16:41:33 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Cobalt Group JoB Message-ID: <20000927214133.A19968@timji.consultix.wa.com> Perl Developers: The Cobalt Group, the leading provider of business-to-business e-commerce products and services for the automotive industry, is hiring Perl Developers. Responsibilities include developing software applications supporting our Web based e-commerce solutions. Requires three years experience in Web development using Perl and CGI scripting in a Unix environment. Familiarity with Java programming for Web applications and Oracle highly disired. Backgrounds in Object Oriented programming preferred. BA/BS degree preferred. View our website at http://www.cobaltgroup.com. Please email resumes to: nnelson@cobaltgroup.com. Required skills include: 3 years Perl programming, 1 year Unix Permanent position Benefits inlcude: Stock Options, Employee Stock Purchase Plan, Medical, Dental, Vision, 401(k), Fitness Facility, Transporation Subsidy, Vacation, Sick Time, Paid Holidays, Employee Referral Bonuses from $500.00 to $2500.00, Flexible Spending Account Plan, Disability and Life Insurance Candidate will apply for positions through HR nnelson@cobaltgroup.com and work directly for the company. W2 Employment 1099 employees must be incorporated. Location: Downtown, Seattle, WA No telecommuting Company Product/Services: Business-to-Business e-commerce products and services for the automotive industry. Nicole R. Nelson Technical Recruiter The Cobalt Group 206.219.8086 800.909.8244 ext. 8086 nnelson@cobaltgroup.com http://www.cobaltgroup.com http://www.dealernet.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://www.halcyon.com/spug/ From lorraine at nw.saic.com Thu Sep 28 11:34:52 2000 From: lorraine at nw.saic.com (Lorraine Johnson) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Windows Newbie Needs Help Message-ID: <3.0.32.20000928093452.009381b0@zephyr.nw.saic.com> Bogdan, There is an EXCELLENT Perl book for new programmers: "Elements of Programming With Perl" by Andrew L. Johnson (no relation), published by Manning Press. (Amazon reviews at http://www.amazon.com/exec/obidos/ASIN/1884777805/qid=970157477/sr=1-26/002- 1686649-5448866) Unlike most books on Perl, this book assumes no prior programming experience. The only thing that he misses in the early going is that the "shebang" line under Windows is #! perl (if the perl directory is in your path environment variable) instead of #! /user/bin/perl (specifically pointing to the perl directory) for most versions of Unix. In addition to discussing Perl, the book is full of practical information. The first couple of chapters go over general topics such as variable naming style, structuring for readability, comments, and developing programs. He covers installing the ActiveState port of Perl (this will set your path variable correctly). A later chapter describes installing modules from CPAN. Manning maintains a nice Web site for the book, which has a discussion/ask-the-author forum. I posted some questions on a topic and the author usually replied by the next day. I've seen this book at both Borders and Barnes & Noble, so you can check it out before you buy. In my opinion, this book is better for beginners than "Learning Perl for Win32 Systems," because "Learning Perl" really assumes prior programming experience. You will probably want to get it later, though, because it IS a very good book. Best of luck! Lorraine (<1 year at Perl) At 06:32 PM 9/27/00 +0000, Tim Maher/CONSULTIX wrote: >Hello SPUG, >my name is Bogdan Vladu and I am currently trying to educate myself in Perl. >I am using "Perl for Dummies 2nd edition" by Paul Hoffman. >Although the book makes sense (so far ...) I am unable to put in practice >what I am reading (learning ?!). >I am a totally neophite to the programming field and my only experience with >programming was in college, struggling to write and understand "Fortran". >Anyway, I installed Perl version 5.005 on Windows '95 but have no clue how >to proceed to run loaded programs (from the accompanying CD-Rom) or basic >commands such as "print". >For example, while typing (this is the actual line on the ms-dos prompt) >the reply appears. > >C:\Perl>perl print "This is a string!" ; >Can't open perl script "print": No such file or directory > >I am aware that I might be stupid but I know that I installed the CD-Rom >correctly and it seems that numerous files and short programs have been >installed on the hard drive. > >If you guys have can help me with this matter or at least with suggestions >for a better book that will help me learn Pearl I'm all ears. > >Thank you ! > >Bogdan Vladu >bvladu@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://www.halcyon.com/spug/ > > > ................................... J. Lorraine Johnson SAIC/Sea Technology lorraine@nw.saic.com v: (425) 482-3316 f: (425) 485-5566 http://www.nw.saic.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://www.halcyon.com/spug/ From creede at rrauto.com Thu Sep 28 13:02:46 2000 From: creede at rrauto.com (Creede Lambard) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Windows Newbie Needs Help References: <3.0.32.20000928093452.009381b0@zephyr.nw.saic.com> Message-ID: <001901c02976$4ec00260$534181ce@rrauto.com> You can use #!/usr/bin/perl as your shebang line under Windows if you like. I haven't looked at the code to be sure, but as far as I can tell Windows just looks for 'perl' in the line and then starts interpreting switches (like -w). Usually I just go ahead and use the Unix-style shebang because (1) it's one less thing to remember and (2) I like to be able to have my scripts run on either Unix or Windows whenever possible. Just my $point_zero_two. -- Creede ----- Original Message ----- From: Lorraine Johnson To: ; Sent: Thursday, September 28, 2000 9:34 AM Subject: Re: SPUG: Windows Newbie Needs Help > Bogdan, > > There is an EXCELLENT Perl book for new programmers: "Elements of > Programming With Perl" by Andrew L. Johnson (no relation), published by > Manning Press. (Amazon reviews at > http://www.amazon.com/exec/obidos/ASIN/1884777805/qid=970157477/sr=1-26/002- > 1686649-5448866) Unlike most books on Perl, this book assumes no prior > programming experience. The only thing that he misses in the early going > is that the "shebang" line under Windows is > #! perl > (if the perl directory is in your path environment variable) instead of > #! /user/bin/perl > (specifically pointing to the perl directory) for most versions of Unix. > > In addition to discussing Perl, the book is full of practical information. > The first couple of chapters go over general topics such as variable naming > style, structuring for readability, comments, and developing programs. He > covers installing the ActiveState port of Perl (this will set your path > variable correctly). A later chapter describes installing modules from > CPAN. Manning maintains a nice Web site for the book, which has a > discussion/ask-the-author forum. I posted some questions on a topic and > the author usually replied by the next day. > > I've seen this book at both Borders and Barnes & Noble, so you can check it > out before you buy. In my opinion, this book is better for beginners than > "Learning Perl for Win32 Systems," because "Learning Perl" really assumes > prior programming experience. You will probably want to get it later, > though, because it IS a very good book. > > Best of luck! > > Lorraine (<1 year at Perl) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From lorraine at nw.saic.com Thu Sep 28 13:26:09 2000 From: lorraine at nw.saic.com (Lorraine Johnson) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Windows Newbie Needs Help Message-ID: <3.0.32.20000928112609.0092ed30@zephyr.nw.saic.com> Cool. (At least, it works under NT.) Thanks for the tip! At 11:02 AM 9/28/00 -0700, Creede Lambard wrote: >You can use > >#!/usr/bin/perl > >as your shebang line under Windows if you like. I haven't looked at the code >to be sure, but as far as I can tell Windows just looks for 'perl' in the >line and then starts interpreting switches (like -w). > >Usually I just go ahead and use the Unix-style shebang because (1) it's one >less thing to remember and (2) I like to be able to have my scripts run on >either Unix or Windows whenever possible. > >Just my $point_zero_two. > >-- Creede > ................................... J. Lorraine Johnson SAIC/Sea Technology lorraine@nw.saic.com v: (425) 482-3316 f: (425) 485-5566 http://www.nw.saic.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://www.halcyon.com/spug/ From starfire at zipcon.net Thu Sep 28 23:32:48 2000 From: starfire at zipcon.net (Richard Anderson) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: A dereferencing paradox? References: <3.0.32.20000928112609.0092ed30@zephyr.nw.saic.com> Message-ID: <036d01c029ce$54b8e8a0$790ff93f@adcom133> As the group pointed out during my presentation at the last SPUG meeting, the code in the following grep block looks wrong: #! /usr/local/bin/perl @database = ( { name => 'Wild Ginger', city => 'Seattle', cuisine => 'Asian Thai Chinese Japanese', rating => 4, payment => 'MC VISA AMEX', } ); %query = ( cuisine => 'Asian', ); @res = find_restaurant(\@database, \%query); print "$res[0]{name}\n"; sub find_restaurant ($$) { use strict; my ($database, $query) = @_; return grep { $$query{city} ? lc($$query{city}) eq lc($_{city}) : 1 and $$query{cuisine} ? $$query{cuisine} =~ /$_{cuisine}/i : 1 and $$query{min_rating} ? $_{rating} >= $$query{min_rating} : 1 and $$query{max_rating} ? $_{rating} <= $$query{max_rating} : 1 and $$query{payment} ? $$query{payment} =~ /$_{payment}/i : 1 } @$database; } In the subroutine, $database is a reference to an array of references to anonymous hashes (whew!). In the grep statement, the $_ variable should be set to a reference to a hash. So shouldn't I be using $$_{key} instead of $_{key}? But when I run the above code, it works: ./restaurant_search.pl Wild Ginger If I replace $_ with $$_ within the grep block, I get a newline only: ./restaurant_search2.pl Any explanations? Richard.Anderson@raycosoft.com www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From jeremy at weezel.com Fri Sep 29 00:25:29 2000 From: jeremy at weezel.com (Jeremy Devenport) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: A dereferencing paradox? In-Reply-To: <036d01c029ce$54b8e8a0$790ff93f@adcom133> Message-ID: Here's my quick dissection: 1. The regular expression /$_{cuisine}/i actually gets compiled as //. That's a regular expression that matches everything. This happens because "$_{cuisine}" is an empty string, why? Because %_ does not have a value matching the key "cuisine". I verified this using "use re 'debug'" under perl 5.6.0. 2. Changing it to $$_{cuisine} doesn't work because it shouldn't. Substituting in the actual values gives us "'Asian' =~ /Asian Thai Chinese Japanese/i". I think we can all see that 'Asian' does not contain the string 'Asian Thai Chinese Japanese'. 3. use strict and -w, not just a good idea... well actually it is just a good idea. But the take-away from this email is "use re 'debug'" rules, does this (or an equivilant) exist on earlier versions than 5.6.0? I think it would be interesting to what kind of program other people on this list would use to solve this problem. Any takers? Jeremy -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of Richard Anderson Sent: Thursday, September 28, 2000 9:33 PM To: spug-list@pm.org Subject: SPUG: A dereferencing paradox? As the group pointed out during my presentation at the last SPUG meeting, the code in the following grep block looks wrong: #! /usr/local/bin/perl @database = ( { name => 'Wild Ginger', city => 'Seattle', cuisine => 'Asian Thai Chinese Japanese', rating => 4, payment => 'MC VISA AMEX', } ); %query = ( cuisine => 'Asian', ); @res = find_restaurant(\@database, \%query); print "$res[0]{name}\n"; sub find_restaurant ($$) { use strict; my ($database, $query) = @_; return grep { $$query{city} ? lc($$query{city}) eq lc($_{city}) : 1 and $$query{cuisine} ? $$query{cuisine} =~ /$_{cuisine}/i : 1 and $$query{min_rating} ? $_{rating} >= $$query{min_rating} : 1 and $$query{max_rating} ? $_{rating} <= $$query{max_rating} : 1 and $$query{payment} ? $$query{payment} =~ /$_{payment}/i : 1 } @$database; } In the subroutine, $database is a reference to an array of references to anonymous hashes (whew!). In the grep statement, the $_ variable should be set to a reference to a hash. So shouldn't I be using $$_{key} instead of $_{key}? But when I run the above code, it works: ./restaurant_search.pl Wild Ginger If I replace $_ with $$_ within the grep block, I get a newline only: ./restaurant_search2.pl Any explanations? Richard.Anderson@raycosoft.com www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tuck at whistlingfish.net Fri Sep 29 00:31:16 2000 From: tuck at whistlingfish.net (Matt Tucker) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: A dereferencing paradox? In-Reply-To: <036d01c029ce$54b8e8a0$790ff93f@adcom133> Message-ID: <2040000.970205476@flashingchance.whistlingfish.net> -- Richard Anderson spake thusly: > As the group pointed out during my presentation at the last SPUG > meeting, the code in the following grep block looks wrong: Here's your problem: > $$query{cuisine} ? $$query{cuisine} =~ /$_{cuisine}/i : 1 and This should read: > $$query{cuisine} ? $$_{cuisine} =~ /$$query{cuisine}/i : 1 and (Or, as I'd write it, "$query->{cuisine} ...") Since $_{cuisine} resolves to nothing (as it should; $_ is a hashref, and the hash %_ has nothing in it), you were trying to match the empty string against your search criteria, which would always succeed. In other words, you were trying to find "" in "Asian" instead of "Asian" in "Asian Thai Chinese Japanese". Change all occurrences of $_ to $$_ and switch that regex around and it'll work properly. Also, since you're doing a case-insensitive match, I assume that you're not expecting a regex in the query, in which case you might also want to bracket $query->{cuisine} with \Q...\E or even \b\Q...\E\b. Or maybe not. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From daniel at chetlin.com Fri Sep 29 01:50:23 2000 From: daniel at chetlin.com (Daniel Chetlin) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: A dereferencing paradox? In-Reply-To: ; from jeremy@weezel.com on Thu, Sep 28, 2000 at 10:25:29PM -0700 References: <036d01c029ce$54b8e8a0$790ff93f@adcom133> Message-ID: <20000928235023.B12184@ilmd> On Thu, Sep 28, 2000 at 10:25:29PM -0700, Jeremy Devenport wrote: > 1. The regular expression /$_{cuisine}/i actually gets compiled as //. > That's a regular expression that matches everything. This happens > because "$_{cuisine}" is an empty string, why? Because %_ does not > have a value matching the key "cuisine". I verified this using "use > re 'debug'" under perl 5.6.0. Worse -- any REx that evaluates to the empty string defaults to the last successful match. So, in cases where you haven't had a previous successful match, it will always match, but if there has been a previous successful match it may very well _not_ match. > But the take-away from this email is "use re 'debug'" rules, does this > (or an equivilant) exist on earlier versions than 5.6.0? Yes, it was around for 5.005. Not for 5.004, though. -dlc - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From Showell30 at aol.com Fri Sep 29 02:56:31 2000 From: Showell30 at aol.com (Showell30@aol.com) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: building perl under windows w/free compiler Message-ID: Has any one built Perl under Windows 98 with a free compiler? I want to use Data::Locations, and I have been told that ActiveState has not compiled a binary for the module that is compatible with its Perl 5.6 binary. I don't have cash to buy my own copy of Visual C++. I think my best option is to find a free compiler and build my own Perl, but I wonder what pitfalls that solution may have. Thanks, Steve P.S. Sorry if this is common query--deja.com is overloaded tonight. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From sb at sdm.de Fri Sep 29 05:01:38 2000 From: sb at sdm.de (Steffen Beyer) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: building perl under windows w/free compiler In-Reply-To: from "Showell30@aol.com" at "Sep 29, 2000 03:56:31 am" Message-ID: <200009291001.MAA14031@muccpu1.muc.sdm.de> Hello Showell30@aol.com, in a previous mail you wrote: > Has any one built Perl under Windows 98 with a free compiler? I want to use > Data::Locations, and I have been told that ActiveState has not compiled a > binary for the module that is compatible with its Perl 5.6 binary. I don't > have cash to buy my own copy of Visual C++. I think my best option is to > find a free compiler and build my own Perl, but I wonder what pitfalls that > solution may have. > Thanks, > Steve > P.S. Sorry if this is common query--deja.com is overloaded tonight. Another possible solution would be if anybody had ActivePerl 5.6 as well as MS VC++ 6.0, he could build the module, pack together the build directory (with "blib" subdirectory and all) and send it to you. Unfortunately I don't use ActivePerl myself (but I have MS VC++ 6.0). How much time does it cost to install it? (I have virtually no free time at the moment, alas, otherwise I'd do it) Regards, -- Steffen Beyer http://www.engelschall.com/u/sb/whoami/ (Who am I) http://www.engelschall.com/u/sb/gallery/ (Fotos Brasil, USA, ...) http://www.engelschall.com/u/sb/download/ (Free Perl and C Software) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From sb at sdm.de Fri Sep 29 10:07:55 2000 From: sb at sdm.de (Steffen Beyer) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: building perl under windows w/free compiler In-Reply-To: from "Perkins, Kurt L" at "Sep 29, 2000 07:17:56 am" Message-ID: <200009291507.RAA07036@muccpu1.muc.sdm.de> Hello Perkins, Kurt L, in a previous mail you wrote: > Installing ActiveState takes about 10 minutes (best guess... I haven't > installed 5.6 yet, so I'm recalling the last time I stuck 5.005 on a > system). The install of 5.005 takes up about 32 megs on my local system. I'd > offer to compile his binary since I'm installing 5.6 today, but I'm still an > idiot in how these things are glued together... not to mention having a > growing distaste for the MS Visual environment. Thanks, in the meantime I found out that it was indeed a snap! :-) Only had to reboot 2 times! > Kurt Perkins Anyway, thanks again! Regards, -- Steffen Beyer http://www.engelschall.com/u/sb/whoami/ (Who am I) http://www.engelschall.com/u/sb/gallery/ (Fotos Brasil, USA, ...) http://www.engelschall.com/u/sb/download/ (Free Perl and C Software) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From sb at sdm.de Fri Sep 29 10:09:53 2000 From: sb at sdm.de (Steffen Beyer) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: building perl under windows w/free compiler In-Reply-To: from "Showell30@aol.com" at "Sep 29, 2000 10:44:50 am" Message-ID: <200009291509.RAA07669@muccpu1.muc.sdm.de> Hello Showell30@aol.com, in a previous mail you wrote: > > Hope this solves your problem. > > [...] > > Thanks. You have been incredibly helpful. No problem, really. You're welcome. I was curious myself... :-) > I don't think I need the "tie" > feature at this time, so I should be off and running. Great! > Thanks again. Never mind! :-) Cheers, -- Steffen Beyer http://www.engelschall.com/u/sb/whoami/ (Who am I) http://www.engelschall.com/u/sb/gallery/ (Fotos Brasil, USA, ...) http://www.engelschall.com/u/sb/download/ (Free Perl and C Software) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From sb at sdm.de Fri Sep 29 12:05:09 2000 From: sb at sdm.de (Steffen Beyer) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: building perl under windows w/free compiler In-Reply-To: <008101c02a2d$b66214f0$534181ce@rrauto.com> from Creede Lambard at "Sep 29, 2000 08:55:38 am" Message-ID: <200009291705.TAA12958@muccpu1.muc.sdm.de> Hello Creede Lambard, in a previous mail you wrote: > Well, being the good Samaritan that I am, I was going to build you a copy of > this and send it along. Unfortunately when I did it ran into errors in test > 14 (tie). I'd be glad to put it up if you'd still like to see it. I already did, but thanks a lot anyway for your offer! (See my next posting - your mail feed seems to be slower than mine) Yes, the test #14 (concerning method "tie" of the module) fails with ActivePerl 5.6.0.618. Has to do with duping filehandles. Dunno why yet. But the "examples" test scripts work, and since they're quite tough, the module should still be ok except for that extra tying part. Cheers, -- Steffen Beyer http://www.engelschall.com/u/sb/whoami/ (Who am I) http://www.engelschall.com/u/sb/gallery/ (Fotos Brasil, USA, ...) http://www.engelschall.com/u/sb/download/ (Free Perl and C Software) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From RBark at echarge.com Fri Sep 29 12:38:03 2000 From: RBark at echarge.com (Ryan Bark) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: building perl under windows w/free compiler Message-ID: <917855E35B7ED211B2970008C7B1EE810151875E@sea-exchsvr.sea.echarge.com> You could try building it using LCC. http://www.cs.virginia.edu/~lcc-win32/ -----Original Message----- From: Showell30@aol.com [mailto:Showell30@aol.com] Sent: Friday, September 29, 2000 12:57 AM To: spug-list@pm.org Subject: SPUG: building perl under windows w/free compiler Has any one built Perl under Windows 98 with a free compiler? I want to use Data::Locations, and I have been told that ActiveState has not compiled a binary for the module that is compatible with its Perl 5.6 binary. I don't have cash to buy my own copy of Visual C++. I think my best option is to find a free compiler and build my own Perl, but I wonder what pitfalls that solution may have. Thanks, Steve P.S. Sorry if this is common query--deja.com is overloaded tonight. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Fri Sep 29 13:27:57 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Your talk at October Meeting In-Reply-To: <20000918160217.C2694@timji.consultix.wa.com>; from Tim Maher/CONSULTIX on Mon, Sep 18, 2000 at 04:02:17PM +0000 References: <39BE5555.16FD0AE@tangent.org> <20000912165644.A12845@timji.consultix.wa.com> <39BEB632.A424F8E5@tangent.org> <20000918043624.A1119@timji.consultix.wa.com> <39C5912D.81015820@tangent.org> <20000918160217.C2694@timji.consultix.wa.com> Message-ID: <20000929182757.A22533@timji.consultix.wa.com> On Mon, Sep 18, 2000 at 04:02:17PM +0000, Tim Maher/CONSULTIX wrote: > On Sun, Sep 17, 2000 at 08:51:09PM -0700, Brian Aker wrote: > > Tim Maher/CONSULTIX wrote: > > > Okay, we can "squeeze you in" for the October meeting, on Oct. 17th. > > > How does that work for you? > > Ok, that would work. > > -Brian > > Thanks! Send me some PR and contact info and I'll put it on the web-site. > Let me know if it's okay to put links to your email and company on there > too. Last chance to weasel-out of this commitment, because today's the day I need to submit the ad for the Seattle PI. So are you still on board for this? I hope so . . . -Tim ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From tim at consultix-inc.com Fri Sep 29 16:38:19 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Your talk at October Meeting In-Reply-To: <4.3.2.7.2.20000929135738.01f09cc8@pop.ici.net>; from Mike on Fri, Sep 29, 2000 at 01:57:46PM -0700 References: <20000918160217.C2694@timji.consultix.wa.com> <39BE5555.16FD0AE@tangent.org> <20000912165644.A12845@timji.consultix.wa.com> <39BEB632.A424F8E5@tangent.org> <20000918043624.A1119@timji.consultix.wa.com> <39C5912D.81015820@tangent.org> <20000918160217.C2694@timji.consultix.wa.com> <20000929182757.A22533@timji.consultix.wa.com> <4.3.2.7.2.20000929135738.01f09cc8@pop.ici.net> Message-ID: <20000929213819.B22707@timji.consultix.wa.com> Sorry, this was meant to be a private Email, but got posted to the list by accident. Please ignore! -Tim ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From daniel at chetlin.com Fri Sep 29 20:00:10 2000 From: daniel at chetlin.com (Daniel Chetlin) Date: Wed Aug 4 00:07:38 2004 Subject: SPUG: Perligata talk Message-ID: <20000929180010.A2247@ilmd> My memory had it that Damian's talk was on Monday the 2nd, but the web page shows Tuesday the 3rd. Can someone confirm for me that it is indeed Tuesday the 3rd? Thanks for your time! -dlc - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/ From andy at n2h2.com Sat Sep 30 23:06:14 2000 From: andy at n2h2.com (Andrew Sweger) Date: Wed Aug 4 00:07:40 2004 Subject: SPUG: Perligata talk In-Reply-To: <20000929180010.A2247@ilmd> Message-ID: Tuesday, 3 October 2000 at 7:00 PM PDT On Sep 29, 2000 @ 6:00pm, Daniel Chetlin wrote: > My memory had it that Damian's talk was on Monday the 2nd, but the web > page shows Tuesday the 3rd. Can someone confirm for me that it is indeed > Tuesday the 3rd? -- Andrew B. Sweger | N2H2, Incorporated Systems Architect | 900 Fourth Avenue, Suite 3400 Advanced Technologies Division | Seattle WA 98164-1059 v=206.336.2947 f=206.336.1541 | http://www.n2h2.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://www.halcyon.com/spug/ From tim at consultix-inc.com Sat Sep 30 18:10:01 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:40 2004 Subject: SPUG: Perligata talk In-Reply-To: ; from Andrew Sweger on Sat, Sep 30, 2000 at 09:06:14PM -0700 References: <20000929180010.A2247@ilmd> Message-ID: <20000930231001.A1038@timji.consultix.wa.com> SPUGsters, According to Andy of N2H2 (SPUG landlord), this weekend's Seattle PI, The Damian himself, the Psychic Hotline, and me, myself, and I, it shall indeed be Tuesday the 3rd, which is easy to remember because our usual meeting date is *The 3rd Tuesday*. Hope to see lots of you there, at the usual time, 7-9pm. There's a chance we'll also have on hand a "mystery guest" from the PPGP (Peripatetic Perl Guru Pool), to handle queries and spout perls of wisdom ($initials =~ [nmr][jl]?[tds]). -Tim ========================================================== | Tim Maher, Ph.D. Tel: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== > Tuesday, 3 October 2000 at 7:00 PM PDT > > On Sep 29, 2000 @ 6:00pm, Daniel Chetlin wrote: > > > My memory had it that Damian's talk was on Monday the 2nd, but the web > > page shows Tuesday the 3rd. Can someone confirm for me that it is indeed > > Tuesday the 3rd? > > -- > Andrew B. Sweger | N2H2, Incorporated > Systems Architect | 900 Fourth Avenue, Suite 3400 > Advanced Technologies Division | Seattle WA 98164-1059 > v=206.336.2947 f=206.336.1541 | http://www.n2h2.com/ *========================================================================* | Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# | | Email: tim@consultix-inc.com Web: http://www.consultix-inc.com | |Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing | |CLASSES: 10/9: Adv OO-Perl/Parsing 10/16: Int. Perl 10/23 Perl Prog. | *========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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://www.halcyon.com/spug/