From tim at consultix-inc.com Thu Apr 6 19:51:46 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:13 2004 Subject: SPUG: Greetings from Australia Message-ID: <20000406175146.A16357@timji.consultix.wa.com> Hi SPUGsters, This is Tim typing to you from one of the thousands of "Internet Backpacker" facilities all over this huge, mostly empty country. Seems like Internet Email is the primary tool used by the current generation of student travelers to send critical messages back home ("Hi Dad, please wire another $2k ASAP"; "Hi Mom, lost my left shoe, please send replacement ASAP", etc.). Met with the Sydney Perl Mongers for dinner; 5 turned up. Nice folks, but clearly struggling with the fact that Perl is not well respected or even much needed around here. Seems like most of the software development is being done by the overseas offices (US, UK, etc.) of the IT companies located here, mostly in C++ or Java, leaving little room for local software development. A rather distressing discovery is that all of our worst TV shows are being shown over here, and many of the shows with real Australian presenters are simply local clones of our US shows, bearing the American names (A Current Affair, 60 Minutes, World's Scariest Pets, etc.). Yeshe and I are having a great time, in between cyclones and monsoonal rainfalls; just finished snorkeling the south-end of the Great Barrier Reef, and now driving to the "Gold Coast", to see the California-style tourist-resort coastline. Spent a week driving all over Tasmania, which was like Ireland without the ubiquitous rocks; similar weather to (winter) Seattle, and some nice sights. I'll be back next Wednesday (the 12th), but leaving town shortly thereafter (for an on-site class), so I'll miss the next meeting. Regards, *========================================================================* | Tim Maher, PhD Consultix & (206) 781-UNIX/8649 | | Pacific Software Gurus, Inc Email: tim@consultix-inc.com | | UNIX/Linux & Perl Training http://www.consultix-inc.com | | Classes; 5/16: UNIX 5/22: Basic Perl+Modules 6/12: Intermediate Perl | *========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ryan at dbedge.com Fri Apr 7 04:24:07 2000 From: ryan at dbedge.com (Ryan Erwin) Date: Wed Aug 4 00:07:14 2004 Subject: ESPUG::April::Meeting && the Conway Visit... Message-ID: <01b701bfa073$07cb2420$3200a8c0@bsdbook> Check out the ESPUG website http://espug.pm.org for all the details. Automating Websites using XML/XSLT On Wednesday, the 26th of April, 7:00 pm, Lucent Technologies in Redmond. Asim Jalis, of the Cobalt Group will discuss Perl's XML::* packages and demo some interesting things you can do with this package. XSLT provides a way to manipulate XML data in the same flexible way that Perl's s/// manipulates flat text. This can be used to separate the logic and the presentation of a Websites. The logic goes into Perl and the presentation into your XSLT file. After Asim's talk, you will be able to: Create and maintain a website without writing HTML after the first time Change the global "look-and-feel" of the website without changing the Perl code. Auto-generate HTML for IE, Netscape, and Virtual Reality browsers. Auto-generate Makefiles and Perl code from XML data. To get warmed up for the presentation, you should look at all the XML:: modules on cpan. Specifically, look at: The Perl-XML Module List XML::XSLT [ Documentation ] [ ReadMe ] XML::Parser [ Documentation ] XML::DOM [ Documentation ] PerlXML.com Perl XML Mailing List [ archive and subscription ] What do I hear about Damian Conway? Damian Conway, author of the excellent book, Object Oriented Perl will be coming to ESPUG. Tim Maher, founder of SPUG and CONSULTIX (Unix and Perl Training) arranged for Damian's visit. Kathy Lebarron from Neoinformatics is sponsoring Damian's visit. The date is currently set for Wednesday, July 5th, and tentatively, Thursday, July 7th. The topics for Damian's presentation are still being discussed so if there is something that you would like to hear Damian discuss, cast your vote by sending an email to vote@dbedge.com with your suggestions for the meeting. Also, be sure to subscribe to spug-list@pm.org so you don't miss any discussion. ------------------------------------------------------------ -------------------- While I'm in Seattle I intend to do some sight-seeing, but I'm also happy to spend some time visiting academic institutions or other local Perl-using organizations. I'd also consider running (paid) tutorials, if any company there were interested. Please Reply to me Ryan, ryan+vote@dbedge.com to cast your vote for the following: * choose a meeting topic: OO, parsing, natural language processing, programming language design, **Coy**, etc. Papers for the this years TPC are off limits 8-} * would you be interested in meeting on both Wednesday and Thursday? If we do meet 2 nights, we might want Damian to present his paper from YAPC two weeks earlier: "Quantum Superpositions and the First Virtue" * if not two meetings, which one is preferable? ------------------------------------------------------------ -------------------- Just Copy the text between the 2 lines into your message and insert your response. Why or earth does the ESPUG website not have some nice little form submission here? Because SPUGGERS of all kinds are *very* busy 8-} Thanks- Ryan Erwin ESPUG Emperor this is your life, and it's ending one minute at a time -- Brad Pitt, Fight Club - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From Richard.Anderson at seaslug.org Mon Apr 10 15:45:42 2000 From: Richard.Anderson at seaslug.org (Richard Anderson) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Dumping HTTP headers Message-ID: <016101bfa32d$be629210$1888ddd1@adcom133> Not necessarily a SPUG question, perhaps, but: I need to debug an HTTP request I am generating using the LWP and HTTP::Request::Common modules. How can I send a request to my (Apache) webserver and get a dump of the HTTP headers? Obviously, I could write a custom CGI script to do this, but is there an easier way? Richard.Anderson@seaslug.org www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From tnight at ironworx.com Mon Apr 10 16:15:42 2000 From: tnight at ironworx.com (Terry Nightingale) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Dumping HTTP headers In-Reply-To: <016101bfa32d$be629210$1888ddd1@adcom133> Message-ID: Richard, If it were me, I would whip together a quick TCP server like the ones presented on pp 348-351 of the Camel book. Have it just print whatever it receives on the listening socket. Then send your request to this custom server instead of to Apache, and watch what the server prints. HTH, Terry On Mon, 10 Apr 2000, Richard Anderson wrote: > Not necessarily a SPUG question, perhaps, but: I need to debug an HTTP > request I am generating using the LWP and HTTP::Request::Common modules. > How can I send a request to my (Apache) webserver and get a dump of the HTTP > headers? > Obviously, I could write a custom CGI script to do this, but is there an > easier way? > > Richard.Anderson@seaslug.org > www.zipcon.net/~starfire/home (personal) > www.raycosoft.com (corporate) > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From panache at wolfenet.com Mon Apr 10 16:42:29 2000 From: panache at wolfenet.com (David Poncelow) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Dumping HTTP headers In-Reply-To: <016101bfa32d$be629210$1888ddd1@adcom133> Message-ID: Funny that you should mention this, actually. A friend and I are looking to release an Apache module to do precisely this (along with GET, POST, path, etc...) within the next couple of days. Look for mod_cgi_debug on freshmeat.net within the next day or two.... On Mon, 10 Apr 2000, Richard Anderson wrote: > Not necessarily a SPUG question, perhaps, but: I need to debug an HTTP > request I am generating using the LWP and HTTP::Request::Common modules. > How can I send a request to my (Apache) webserver and get a dump of the HTTP > headers? > Obviously, I could write a custom CGI script to do this, but is there an > easier way? > > Richard.Anderson@seaslug.org > www.zipcon.net/~starfire/home (personal) > www.raycosoft.com (corporate) > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ced at carios2.ca.boeing.com Mon Apr 10 18:20:10 2000 From: ced at carios2.ca.boeing.com (ced@carios2.ca.boeing.com) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Dumping HTTP headers Message-ID: <200004102320.QAA03604@carios2.ca.boeing.com> > Not necessarily a SPUG question, perhaps, but: I need to debug an HTTP > request I am generating using the LWP and HTTP::Request::Common modules. > How can I send a request to my (Apache) webserver and get a dump of the HTTP > headers? > Obviously, I could write a custom CGI script to do this, but is there an > easier way? I believe you can get headers from: use LWP::Debug qw(+conns); To get really verbose: use LWP::Debug qw(+conns +debug +trace) Rgds, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From Richard.Anderson at seaslug.org Mon Apr 10 19:45:12 2000 From: Richard.Anderson at seaslug.org (Richard Anderson) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Re: Dumping HTTP headers References: <016101bfa32d$be629210$1888ddd1@adcom133> Message-ID: <024601bfa34f$35eea780$1888ddd1@adcom133> Thanks for all the creative responses to my post. Jeremy Mates' response pointed me in the right direction. The solution is to use the as_string method from the HTTP::Headers module. When run from the command line, the attached script sends an HTTP request to a remote server. The remote server's response goes to standard out; the HTTP headers for the outgoing request to the remote server are written to the file tmp in the current directory. Richard.Anderson@seaslug.org www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) ----- Original Message ----- From: "Richard Anderson" To: Sent: Monday, April 10, 2000 1:45 PM Subject: SPUG: Dumping HTTP headers > Not necessarily a SPUG question, perhaps, but: I need to debug an HTTP > request I am generating using the LWP and HTTP::Request::Common modules. > How can I send a request to my (Apache) webserver and get a dump of the HTTP > headers? > Obviously, I could write a custom CGI script to do this, but is there an > easier way? > > Richard.Anderson@seaslug.org > www.zipcon.net/~starfire/home (personal) > www.raycosoft.com (corporate) > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > > > -------------- next part -------------- A non-text attachment was scrubbed... Name: purchase3.pl Type: application/octet-stream Size: 3238 bytes Desc: not available Url : http://mail.pm.org/archives/spug-list/attachments/20000410/d0f0b9bd/purchase3.obj From matw at halcyon.com Wed Apr 12 10:05:28 2000 From: matw at halcyon.com (Mathew Watson) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98 Message-ID: <200004120805280850.00501DC8@smtp.halcyon.com> I put together some perl code on a linux system using Emacs and vi. Now I want to play with it on Win 98, but I dislike any of the MS editors. Which editor should I use if I want - auto indenting based on syntax, - syntax based color highlighting, - not too demanding on the OS (Win 98 makes me nervous), and - free or low cost (like $20 or something). Besides those features it would be nice if it - also runs on Linux - also handles C gracefully, and - can run perl code in a separate window (and debug it). Related to my editor question ... I installed perl on the 98 box and any *.pl file has a little icon associated with it. Whenever I double click on such an icon, an MSDOS window flashes by. What I really want is to have the text editor open the file so I can read it. How do I accomplish that without breaking my ability to run perl from an editor or MSDOS window? Right now if I go to 'File Types' theres a command associated with 'open', C:\Perl\bin\Perl.exe "%1" %*. Can I just replace the executable name? Mat - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From dougb at scalar.org Wed Apr 12 10:24:50 2000 From: dougb at scalar.org (Doug Beaver) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98 In-Reply-To: <200004120805280850.00501DC8@smtp.halcyon.com>; from matw@halcyon.com on Wed, Apr 12, 2000 at 08:05:28AM -0700 References: <200004120805280850.00501DC8@smtp.halcyon.com> Message-ID: <20000412082450.A2345@scalar.org> On Wed, Apr 12, 2000 at 08:05:28AM -0700, Mathew Watson wrote: > > I put together some perl code on a linux system using Emacs and vi. > Now I want to play with it on Win 98, but I dislike any of the MS > editors. Which editor should I use if I want > - auto indenting based on syntax, > - syntax based color highlighting, > - not too demanding on the OS (Win 98 makes me nervous), and > - free or low cost (like $20 or something). > Besides those features it would be nice if it > - also runs on Linux > - also handles C gracefully, and > - can run perl code in a separate window (and debug it). If you used emacs and vi on your linux box, why not use it on your windows box as well? http://www.cs.washington.edu/homes/voelker/ntemacs.html ftp://ftp.us.vim.org/pub/vim/pc/ emacs supports the features you are looking for and vim can do everything but running your perl code in a separate window and debugging it. I use vim when I write my code and I use emacs for comparing cvs diffs (the ediff feature highlights the diffs in color and lets you easily skip around from block to block of changed code) and debugging C code. emacs's gdb mode rocks. I use vim for hacking code because you can embed a perl interpreter in it; it gives you the ability to use perl regexes when doing a search and replace and there's also a simple interface that lets you manipulate and modify buffers through a perl class. Using the class, you can write custom code formatting functions (or anything else that tickles your fancy) and run them against the entire buffer or regions of the buffer. I would suggest that you give emacs or vim on win32 a try, you'll keep your sanity because then you can use the same text editor and unix and windows and you won't have to learn a bunch of new commands and remember which text editor you're in. Just my opinion, but I would be lost without both emacs and vim. And there are a lot more text editors out there besides those two as well. 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 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From PDarley at serviceintelligence.com Wed Apr 12 10:55:42 2000 From: PDarley at serviceintelligence.com (Peter Darley) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98 Message-ID: <67AEB320B801D411AF6800902728A38001D696@SEAEX01> Friends, I use the UltraEdit32 program, and it's great for Perl, HTML, JAVA, C, etc. It doesn't run the Perl and it's not available on Linux, but as far as a straight editor, it's the best. Thanks, Peter Darley -----Original Message----- From: Mathew Watson [mailto:matw@halcyon.com] Sent: Wednesday, April 12, 2000 8:05 AM To: SPUG Subject: SPUG: Editor for perl on Win98 I put together some perl code on a linux system using Emacs and vi. Now I want to play with it on Win 98, but I dislike any of the MS editors. Which editor should I use if I want - auto indenting based on syntax, - syntax based color highlighting, - not too demanding on the OS (Win 98 makes me nervous), and - free or low cost (like $20 or something). Besides those features it would be nice if it - also runs on Linux - also handles C gracefully, and - can run perl code in a separate window (and debug it). Related to my editor question ... I installed perl on the 98 box and any *.pl file has a little icon associated with it. Whenever I double click on such an icon, an MSDOS window flashes by. What I really want is to have the text editor open the file so I can read it. How do I accomplish that without breaking my ability to run perl from an editor or MSDOS window? Right now if I go to 'File Types' theres a command associated with 'open', C:\Perl\bin\Perl.exe "%1" %*. Can I just replace the executable name? Mat - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From asherr at cs.unm.edu Wed Apr 12 10:59:52 2000 From: asherr at cs.unm.edu (Aryeh "Cody" Sherr) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98: emacs In-Reply-To: <200004120805280850.00501DC8@smtp.halcyon.com> Message-ID: Well, I would say emacs would meet all of your requirements quite nicely. http://www.gnu.org/software/emacs/windows/ntemacs.html Cody On Wed, 12 Apr 2000, Mathew Watson wrote: > >I put together some perl code on a linux system using Emacs and vi. >Now I want to play with it on Win 98, but I dislike any of the MS >editors. Which editor should I use if I want >- auto indenting based on syntax, >- syntax based color highlighting, >- not too demanding on the OS (Win 98 makes me nervous), and >- free or low cost (like $20 or something). >Besides those features it would be nice if it >- also runs on Linux >- also handles C gracefully, and >- can run perl code in a separate window (and debug it). > >Related to my editor question ... I installed perl on the 98 box and >any *.pl file has a little icon associated with it. Whenever I double >click on such an icon, an MSDOS window flashes by. What I really want >is to have the text editor open the file so I can read it. How do I >accomplish that without breaking my ability to run perl from an >editor or MSDOS window? Right now if I go to 'File Types' theres a >command associated with 'open', C:\Perl\bin\Perl.exe "%1" %*. Can I >just replace the executable name? > >Mat > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From rick at libronix.com Wed Apr 12 10:53:58 2000 From: rick at libronix.com (Rick Brannan) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98 Message-ID: Mat: I use TextPad (http://www.textpad.com) on Win98. It seems to meet all of your requirements sans the linux requirement. You can download an evaluation version from the site for free, and the cost for a single user license is somewhere between $20-$30. TextPad will also let you associate different file types (*.pm, *.pl, *.cgi) with it, and you can create a "User Tool" that will run the active document (i.e., a perl script) with your application of choice (i.e., perl). You can even specify command line args for these 'User Tools' (-d, anybody?). I've actually used this combination many times before, even with ActiveState's Perl Debugger, and it works great for me. Hope it helps, ------------------------------- Rick Brannan, Libronix Corp. web: http://www.libronix.com "Lungs that fill with ignorance will exhale disobedience" -- Jeremy Post >-----Original Message----- >From: Mathew Watson [mailto:matw@halcyon.com] >Sent: Wednesday, April 12, 2000 8:05 AM >To: SPUG >Subject: SPUG: Editor for perl on Win98 > > > >I put together some perl code on a linux system using Emacs and vi. >Now I want to play with it on Win 98, but I dislike any of the MS >editors. Which editor should I use if I want >- auto indenting based on syntax, >- syntax based color highlighting, >- not too demanding on the OS (Win 98 makes me nervous), and >- free or low cost (like $20 or something). >Besides those features it would be nice if it >- also runs on Linux >- also handles C gracefully, and >- can run perl code in a separate window (and debug it). > >Related to my editor question ... I installed perl on the 98 box and >any *.pl file has a little icon associated with it. Whenever I double >click on such an icon, an MSDOS window flashes by. What I really want >is to have the text editor open the file so I can read it. How do I >accomplish that without breaking my ability to run perl from an >editor or MSDOS window? Right now if I go to 'File Types' theres a >command associated with 'open', C:\Perl\bin\Perl.exe "%1" %*. Can I >just replace the executable name? > >Mat > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >- - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: >http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace >"action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From Richard.Anderson at seaslug.org Wed Apr 12 11:07:35 2000 From: Richard.Anderson at seaslug.org (Richard Anderson) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98 References: <200004120805280850.00501DC8@smtp.halcyon.com> <20000412082450.A2345@scalar.org> Message-ID: <046a01bfa499$3bad54f0$1888ddd1@adcom133> Another alternative worth looking at is the vi editor that comes with UWin, ATT Research's Unix for Windows product. UWin is a complete Unix environment that runs on all Win32 OS's and gives you grep, awk, sed and all those other utilities that I can't live without. UWin is "free for educational and research purposes" and is available at http://www.research.att.com/sw/tools/uwin/ Richard.Anderson@seaslug.org www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) ----- Original Message ----- From: "Doug Beaver" To: "Mathew Watson" Cc: Sent: Wednesday, April 12, 2000 8:24 AM Subject: Re: SPUG: Editor for perl on Win98 > On Wed, Apr 12, 2000 at 08:05:28AM -0700, Mathew Watson wrote: > > > > I put together some perl code on a linux system using Emacs and vi. > > Now I want to play with it on Win 98, but I dislike any of the MS > > editors. Which editor should I use if I want > > - auto indenting based on syntax, > > - syntax based color highlighting, > > - not too demanding on the OS (Win 98 makes me nervous), and > > - free or low cost (like $20 or something). > > Besides those features it would be nice if it > > - also runs on Linux > > - also handles C gracefully, and > > - can run perl code in a separate window (and debug it). > > If you used emacs and vi on your linux box, why not use it on your > windows box as well? > > http://www.cs.washington.edu/homes/voelker/ntemacs.html > > ftp://ftp.us.vim.org/pub/vim/pc/ > > emacs supports the features you are looking for and vim can do > everything but running your perl code in a separate window and debugging > it. I use vim when I write my code and I use emacs for comparing cvs > diffs (the ediff feature highlights the diffs in color and lets you > easily skip around from block to block of changed code) and debugging C > code. emacs's gdb mode rocks. > > I use vim for hacking code because you can embed a perl interpreter in > it; it gives you the ability to use perl regexes when doing a search and > replace and there's also a simple interface that lets you manipulate and > modify buffers through a perl class. Using the class, you can write > custom code formatting functions (or anything else that tickles your > fancy) and run them against the entire buffer or regions of the buffer. > > I would suggest that you give emacs or vim on win32 a try, you'll keep > your sanity because then you can use the same text editor and unix and > windows and you won't have to learn a bunch of new commands and remember > which text editor you're in. > > Just my opinion, but I would be lost without both emacs and vim. And > there are a lot more text editors out there besides those two as well. > > 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 > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From seanow0 at email.msn.com Wed Apr 12 11:12:50 2000 From: seanow0 at email.msn.com (Sean Owens) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Re: Editor for perl on Win98 References: <200004120805280850.00501DC8@smtp.halcyon.com> Message-ID: <000701bfa499$f3291290$b50c379d@redmond.corp.microsoft.com> I like VI for Windows (also called gvim.exe). It will color code most anything (including perl & C), it's free, you can set up auto indents (and line numbering, which for me is a must). It'll also do just about anything you ask, if you know how to ask! (I pretty much just use the mouse & menu functions though, not a true VI user I know, but it does what I need). There are also tons of options you can set to make it more windows-like, or more unix-like. It also allows you to run your file directly in a command window, but I don't really use that so I don't know much about it. It's tough to use sometimes, which probably isn't surprising since there are books written just to teach you how to use it (unlike say, notepad :-) And, of course, there's versions of VI for all OS's You can find it here: www.vim.org You have to click around to find a mirror site that actually carries the windows binaries. Read the readme's there, but remember you have to download two files (one is the executable, the other is all the other stuff that makes it functional). Hope this helps. ----- Original Message ----- From: "Mathew Watson" To: "SPUG" Sent: Wednesday, April 12, 2000 8:05 AM Subject: SPUG: Editor for perl on Win98 I put together some perl code on a linux system using Emacs and vi. Now I want to play with it on Win 98, but I dislike any of the MS editors. Which editor should I use if I want - auto indenting based on syntax, - syntax based color highlighting, - not too demanding on the OS (Win 98 makes me nervous), and - free or low cost (like $20 or something). Besides those features it would be nice if it - also runs on Linux - also handles C gracefully, and - can run perl code in a separate window (and debug it). Related to my editor question ... I installed perl on the 98 box and any *.pl file has a little icon associated with it. Whenever I double click on such an icon, an MSDOS window flashes by. What I really want is to have the text editor open the file so I can read it. How do I accomplish that without breaking my ability to run perl from an editor or MSDOS window? Right now if I go to 'File Types' theres a command associated with 'open', C:\Perl\bin\Perl.exe "%1" %*. Can I just replace the executable name? Mat - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From byoung at speakeasy.org Wed Apr 12 11:18:06 2000 From: byoung at speakeasy.org (Bradley E. Young) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98 In-Reply-To: <20000412082450.A2345@scalar.org> Message-ID: > -----Original Message----- > From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of > Doug Beaver > Sent: Wednesday, April 12, 2000 8:25 AM > If you used emacs and vi on your linux box, why not use it on your > windows box as well? > > http://www.cs.washington.edu/homes/voelker/ntemacs.html Don't forget XEmacs, which runs on w32 as well. http://www.xemacs.org/ has binaries. It's much better than ntemacs. Brad - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From benwa at ocentrix.com Wed Apr 12 11:59:59 2000 From: benwa at ocentrix.com (Ben Burnett) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98 In-Reply-To: <200004120805280850.00501DC8@smtp.halcyon.com> Message-ID: <4.2.0.58.20000412094039.00979670@mail.oz.net> Hey Mat, Oh man asking for opinions on text editors! Here comes another holy war. I agree with both Doug and Peter on the text editor. If you are used to Emacs I'd try it for win32. I'm windows native and working my way to getting better at vim and Emacs, so I usually use UltraEdit (www.ultraedit.com). Because it does all the stuff you're looking for, and lets me open files via ftp from my Linux box. It will run the scripts for you if you adjust some of the advanced configuration. And add Perl32 as a "tool" for UltraEdit to use. I did that and it works fine. It even opens a window that allows you to view the output of the script in the editor, because Perl32 usually closes the dos window right after the script terminates and you miss out on any error messages. ( No I don't work for UltraEdit I just like the editor : ) At 08:05 AM 04/12/2000 -0700, Mathew Watson wrote: >I put together some perl code on a linux system using Emacs and vi. >Now I want to play with it on Win 98, but I dislike any of the MS >editors. Which editor should I use if I want >- auto indenting based on syntax, >- syntax based color highlighting, >- not too demanding on the OS (Win 98 makes me nervous), and >- free or low cost (like $20 or something). >Besides those features it would be nice if it >- also runs on Linux >- also handles C gracefully, and >- can run perl code in a separate window (and debug it). > >Related to my editor question ... I installed perl on the 98 box and >any *.pl file has a little icon associated with it. Whenever I double >click on such an icon, an MSDOS window flashes by. What I really want >is to have the text editor open the file so I can read it. How do I >accomplish that without breaking my ability to run perl from an >editor or MSDOS window? Right now if I go to 'File Types' theres a >command associated with 'open', C:\Perl\bin\Perl.exe "%1" %*. Can I >just replace the executable name? When you install Ultraedit it adds a little entry to the windows context menu that lets you right click on just about any file, and open it in UltraEdit, so you don't have to change the file associations. If you just want to use notepad and not get caught up in learning a whole slew of editor commands I would just add another action for the .pl files under file types and call it Edit. Just point this action at your editor and you're set. >Mat > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From kriss at edmark.com Wed Apr 12 12:13:17 2000 From: kriss at edmark.com (Kristina N Sontag) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98 In-Reply-To: <67AEB320B801D411AF6800902728A38001D696@SEAEX01> Message-ID: <000601bfa4a2$6585d4b0$53d4c9cc@edmark.com> Actually you can run the perl code from UltraEdit using some of the advanced menu options. Of course if you're trying to debug a CGI script that might not work for you but any command line programs can be run and you can capture their output as well. Download the demo at http://www.ultraedit.com. Kristina Sontag [kriss@edmark.com] Web Developer Edmark Corporation, and IBM company -----Original Message----- From: owner-spug-list@pm.org [mailto:owner-spug-list@pm.org]On Behalf Of Peter Darley Sent: Wednesday, April 12, 2000 8:56 AM To: SPUG Subject: RE: SPUG: Editor for perl on Win98 Friends, I use the UltraEdit32 program, and it's great for Perl, HTML, JAVA, C, etc. It doesn't run the Perl and it's not available on Linux, but as far as a straight editor, it's the best. Thanks, Peter Darley -----Original Message----- From: Mathew Watson [mailto:matw@halcyon.com] Sent: Wednesday, April 12, 2000 8:05 AM To: SPUG Subject: SPUG: Editor for perl on Win98 I put together some perl code on a linux system using Emacs and vi. Now I want to play with it on Win 98, but I dislike any of the MS editors. Which editor should I use if I want - auto indenting based on syntax, - syntax based color highlighting, - not too demanding on the OS (Win 98 makes me nervous), and - free or low cost (like $20 or something). Besides those features it would be nice if it - also runs on Linux - also handles C gracefully, and - can run perl code in a separate window (and debug it). Related to my editor question ... I installed perl on the 98 box and any *.pl file has a little icon associated with it. Whenever I double click on such an icon, an MSDOS window flashes by. What I really want is to have the text editor open the file so I can read it. How do I accomplish that without breaking my ability to run perl from an editor or MSDOS window? Right now if I go to 'File Types' theres a command associated with 'open', C:\Perl\bin\Perl.exe "%1" %*. Can I just replace the executable name? Mat - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ChrisM at courtlink.com Wed Apr 12 13:02:57 2000 From: ChrisM at courtlink.com (Christopher Maujean) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Editor for perl on Win98 Message-ID: <01AC88DAEF3FD311A89800500482730064FDEE@hqmsx01.internal.courtlink.com> gvim and xemacs for win32 are both great. check any win32 gnu archive (simtelnet would be a good start) for xemacs and http://www.vim.org/ for any version of vim/gvim plus a huge amount of help/syntax files etc... --Christopher Maujean Lead Developer CourtLink http://www.courtlink.com/ 425.974.5000 (x229) -----Original Message----- From: Mathew Watson [mailto:matw@halcyon.com] Sent: Wednesday, April 12, 2000 8:05 AM To: SPUG Subject: SPUG: Editor for perl on Win98 I put together some perl code on a linux system using Emacs and vi. Now I want to play with it on Win 98, but I dislike any of the MS editors. Which editor should I use if I want - auto indenting based on syntax, - syntax based color highlighting, - not too demanding on the OS (Win 98 makes me nervous), and - free or low cost (like $20 or something). Besides those features it would be nice if it - also runs on Linux - also handles C gracefully, and - can run perl code in a separate window (and debug it). Related to my editor question ... I installed perl on the 98 box and any *.pl file has a little icon associated with it. Whenever I double click on such an icon, an MSDOS window flashes by. What I really want is to have the text editor open the file so I can read it. How do I accomplish that without breaking my ability to run perl from an editor or MSDOS window? Right now if I go to 'File Types' theres a command associated with 'open', C:\Perl\bin\Perl.exe "%1" %*. Can I just replace the executable name? Mat - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From toddw at wrq.com Thu Apr 13 15:14:16 2000 From: toddw at wrq.com (Todd Wells) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: extracting functions Message-ID: <1654BC972546D31189DA00508B318AC80122F23D@charmander.wrq.com> Hi, I want to write a perl program that will parse my existing perl programs and alphabetize the functions. I think have a pretty good handle on how I can do this conceptually, but I'm not sure how I would go about getting all of one function into a string. I imagine something like this, but I'm not sure how to deal with nested curly braces... $myfunc =~ /(^sub\w+{.+?})/m; I know this isn't what I want, this would probably grab my first "sub whatever {" through the last "}" in the program. I need it to be able to get all of a function like this... sub myfunk { if ($maybe) { # do this } else { # do that } } ...and be smart enough to end at the correct bracket. Maybe one of you could point me in the right direction? -Todd - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From tim at consultix-inc.com Thu Apr 13 16:08:25 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: extracting functions In-Reply-To: <1654BC972546D31189DA00508B318AC80122F23D@charmander.wrq.com>; from toddw@wrq.com on Thu, Apr 13, 2000 at 01:14:16PM -0700 References: <1654BC972546D31189DA00508B318AC80122F23D@charmander.wrq.com> Message-ID: <20000413140825.B3601@timji.consultix.wa.com> Sounds like a job for Damian Conway's extract_codeblock() function from the CPAN "Text::Balanced" module: extract_codeblock attempts to recognize and extract a balanced bracket delimited substring which may contain unbalanced brackets inside Perl quotes or quotelike operations. That is, extract_codeblock is like a combination of "extract_bracketed" and "extract_quotelike". -Tim (jet-lagged, so take everything I say today with a large dash of salt!) *========================================================================* | Tim Maher, PhD Consultix & (206) 781-UNIX/8649 | | Pacific Software Gurus, Inc Email: tim@consultix-inc.com | | UNIX/Linux & Perl Training http://www.consultix-inc.com | | Classes; 5/16: UNIX 5/22: Basic Perl+Modules 6/12: Intermediate Perl | *========================================================================* On Thu, Apr 13, 2000 at 01:14:16PM -0700, Todd Wells wrote: > Hi, I want to write a perl program that will parse my existing perl programs > and alphabetize the functions. > > I think have a pretty good handle on how I can do this conceptually, but I'm > not sure how I would go about getting all of one function into a string. > > I imagine something like this, but I'm not sure how to deal with nested > curly braces... > > $myfunc =~ /(^sub\w+{.+?})/m; > > I know this isn't what I want, this would probably grab my first "sub > whatever {" through the last "}" in the program. > > I need it to be able to get all of a function like this... > > sub myfunk { > if ($maybe) { > # do this > } else { > # do that > } > } > > ...and be smart enough to end at the correct bracket. > > Maybe one of you could point me in the right direction? > > -Todd ========================================================== | Tim Maher, Ph.D. Tel/Fax: (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 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From mathin at mathin.com Thu Apr 13 16:33:13 2000 From: mathin at mathin.com (Dan Ebert) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) Message-ID: <003f01bfa58f$df6c8240$1aa8b5c7@algernon> What does this function do exactly? I though that it would give the number of elements in an array, but ... I have some code that creates a nested array: $record[101][0] = $var1a; $record[101][1] = $var1b $record[102][0] = $var2a; $record[102][1] = $var2b; etc... $record[322][0] = $var322a; $record[322][1] = $var322b; When I do a "scalar(@record)" it gives me 323 ... when I expected to get 221 (322 minus 101). It is OK, because my goal was to arrive at the value that 'scalar(@record)' returned anyway, but it wasn't what I expected. Dan Ebert - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From darren at u.washington.edu Thu Apr 13 17:07:57 2000 From: darren at u.washington.edu (Darren Stalder) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) In-Reply-To: "Dan Ebert"'s message of "Thu, 13 Apr 2000 14:33:13 -0700" References: <003f01bfa58f$df6c8240$1aa8b5c7@algernon> Message-ID: <8id7nt7iyq.fsf@broca.biostr.washington.edu> Dan Ebert, in an immanent manifestation of deity, wrote: >I though that it would give the number of elements in an array, but ... > >I have some code that creates a nested array: > >$record[101][0] = $var1a; >$record[101][1] = $var1b >[...] >$record[322][0] = $var322a; >$record[322][1] = $var322b; > >When I do a "scalar(@record)" it gives me 323 ... when I expected to get 221 >(322 minus 101). It is OK, because my goal was to arrive at the value that >'scalar(@record)' returned anyway, but it wasn't what I expected. It does give you the number of elements in the array. You have 101 elements from $record[0] to $record[100] that are set to undef. Note that it gives you the number of elements once removed. It forces the array into a scalar context. Any array in scalar context will yield the number of elements in the array. This means that the following give identical answers: scalar(@record); $num_recs = @record; Darren -- Darren Stalder/2608 Second Ave, @282/Seattle, WA 98121-1212/USA/+1-800-921-4996 @ Sysadmin, webweaver, postmaster for hire. C/Perl/CGI/Pilot programmer/tutor @ @ Make a little hot-tub in your soul. @ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From stuart_poulin at yahoo.com Thu Apr 13 17:12:51 2000 From: stuart_poulin at yahoo.com (Stuart Poulin) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: extracting functions Message-ID: <20000413221251.4055.qmail@web107.yahoomail.com> --- Todd Wells wrote: > Hi, I want to write a perl program that will parse my existing perl programs > and alphabetize the functions. > I've got something in my bag o' tricks: #!perl $ENV{PERL5DB} = 'for (sort keys %DB::sub) {print "$_\n"};exit;'; system("perl -d $ARGV[0]"); __________________________________________________ Do You Yahoo!? Send online invitations with Yahoo! Invites. http://invites.yahoo.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From jmates at mbt.washington.edu Thu Apr 13 18:02:55 2000 From: jmates at mbt.washington.edu (Jeremy Mates) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) In-Reply-To: <8id7nt7iyq.fsf@broca.biostr.washington.edu> Message-ID: The count you were probably expecting to see can be gained by doing something like: for ( @array ) { $count++ if defined; } print $count, "\n"; -- 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 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ryannn at u.washington.edu Thu Apr 13 18:19:01 2000 From: ryannn at u.washington.edu (R. Christianson) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) In-Reply-To: Message-ID: What about doing $#array? Ryan Christianson On Thu, 13 Apr 2000, Jeremy Mates wrote: > The count you were probably expecting to see can be gained by doing > something like: > > for ( @array ) { > $count++ if defined; > } > print $count, "\n"; > > -- > 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 > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ricardo_cardona at hotmail.com Thu Apr 13 18:28:01 2000 From: ricardo_cardona at hotmail.com (Ricardo Cardona) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Perl new-bee... Message-ID: <20000413232801.10825.qmail@hotmail.com> Hello everyone, Before you guys chew me out let me say that yes I am a Perl new-bee (programmer wanna-be). I signed up with the Perl Mongers group yesterday in order to met up with Perl minded people, pick their brain and expand my own. Anyway, back to Perl. I’ve picked up several texts on Perl, everything from the O’reilly series books to the yellow cover ‘Perl for dummies’. I’m learning quite a lot and steadily climbing up the learning curve. I’ve got a pet project in mind and I was hoping to get some feed back form you guys –and girls. Here is my pet project; I’ve got an ASCI file that I what to parse and manipulate at half hour increments. It looks something like this; I added the > just to separate the different sections >Section 1 CLASS: WEDAY START:2000/02/02 00:00:00 WED; STOP: 2000/02/03 00:00:00 THU; SLOWSAMPLES: 864 ; FASTSAMPLES: 8640 ; >Section 2 KEY (COMMON_LANGUAGE_NAME) INFO (OM2TRKINFO) INCATOT PRERTEAB INFAIL NATTMPT NOVFLATB GLARE OUTFAIL DEFLDCA DREU PREU TRU SBU MBU OUTMTCHF CONNECT TANDEM AOF ANF TOTU ANSWER INVAUTH BLKCTRK MAXBU TRU2WIN NCTPASS NCTFAIL ACCCONG >Section 3 52 FLKWLXCB OG 1 1 0 0 0 0 0 0 0 0 0 0 0 0 864 0 0 0 0 0 864 0 0 0 48 0 0 0 0 >Section 4 54 LDEKDD054I7 2W 72 72 9378 0 47 0 0 0 0 0 0 0 14702 0 0 0 0 9327 0 0 14702 0 0 0 1090 14702 0 0 0 I get this file every half hour 24/7, the above clip is only the first page from this file, and it’s actually about 5000 lines long and contains data for about 950 circuits. Section 1 is just the header for the file and contains info that is not important to me at the moment. Section 2 contains the field headers for the following repetitive sections. Section 3 contains the actual data fields for a particular circuit (example circuit # ‘54 LDEKDD054I7’ from section 4.) What I’m looking to do is this; I trying to figure out a way to parse this file and place the data fields into a database/file with the field headers from section 2. From my limited knowledge of Perl I figure that I can place this data into an associative array using the circuit ID # as the name of the array and the fields headers as the key for that array. (Ideally I would like to create a database table for each of these circuits. This database table would be updated with a new record extracted from each half hour file (something for the future)). Problem is this, based on what I have learned from my reading, I’m not sure how to parse this file and extract the data fields and place them into a variable/list/array. From what I’ve read Perl is great at manipulating text files but I don’t have any examples of how to do what I’m looking to do. By the way, the data fields are not delimited (although I’m told that I can receive them in a delimited format) they are actually a screen dump from a terminal server. I would like to put these files into this a data base format so that I may have a run simple ratio calculations on the different fields. For instance, INFAIL by NATTMPT, in the future I would like to display and change this ratio info graphically using a Perl module or Tcl/Tk. Hey guys I know that you must be busy with your day-to-day stuff but any assistance/ guidance/support you can offer will be greatly appreciated. Please forward and any comments or help to ricardo_cardona@hotmail.com Thanks. RC ______________________________________________________ Get Your Private, Free Email at http://www.hotmail.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From debert at dusya.osd.com Thu Apr 13 18:31:00 2000 From: debert at dusya.osd.com (Daniel V. Ebert) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) In-Reply-To: References: Message-ID: <200004132331.AA02998@dusya.osd.com> Thanks to everyone who sent me suggestions. I think I've got the problem licked! Thanks. Dan. You wrote: > What about doing $#array? > > Ryan Christianson > > > On Thu, 13 Apr 2000, Jeremy Mates wrote: > > > The count you were probably expecting to see can be gained by doing > > something like: > > > > for ( @array ) { > > $count++ if defined; > > } > > print $count, "\n"; > > > > -- > > 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 > > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > > Email to majordomo@pm.org: "action" spug-list your_address > > > > > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > > --- Dan Ebert Seanet Internet Services (206)343-7828 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From aderhaa at n2h2.com Thu Apr 13 18:31:28 2000 From: aderhaa at n2h2.com (Alan E. Derhaag) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) In-Reply-To: "R. Christianson"'s message of "Thu, 13 Apr 2000 16:19:01 -0700 (PDT)" References: Message-ID: "R. Christianson" writes: > What about doing $#array? > > Ryan Christianson > > > On Thu, 13 Apr 2000, Jeremy Mates wrote: > > > The count you were probably expecting to see can be gained by doing > > something like: > > > > for ( @array ) { > > $count++ if defined; > > } > > print $count, "\n"; > > The $#array only returns the number of the last array entry and disregards all the undef entries. I think there may be a problem with the `for (@array)' is that it will quit at the first undef value.. the trick would be to count only those entries that are not undef.. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From damian at cs.monash.edu.au Thu Apr 13 18:46:22 2000 From: damian at cs.monash.edu.au (Damian Conway) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: extracting functions Message-ID: <200004132346.JAA14355@indy05.csse.monash.edu.au> Hi Todd, You asked: > Hi, I want to write a perl program that will parse my existing perl programs > and alphabetize the functions. > > I think have a pretty good handle on how I can do this conceptually, but I'm > not sure how I would go about getting all of one function into a string. > > I imagine something like this, but I'm not sure how to deal with nested > curly braces... > ...and be smart enough to end at the correct bracket. > > > Maybe one of you could point me in the right direction? Check out Text::Balanced, specifically the extract_codeblock subroutine. Damian - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From jope-spug at n2h2.com Thu Apr 13 18:49:23 2000 From: jope-spug at n2h2.com (El JoPe Magnifico) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) In-Reply-To: Message-ID: Or if count isn't too high (so that the temporary array created isn't too large - yeah, yeah, messy programming) you can use the one-liner... $count = grep defined, @array; Or for the neat freaks out there (even I have my days =)... $count = scalar( grep( defined($_), @array )); On Thu, 13 Apr 2000, Jeremy Mates wrote: > The count you were probably expecting to see can be gained by doing > something like: > > for ( @array ) { > $count++ if defined; > } > print $count, "\n"; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From davidpa at lucent.com Thu Apr 13 19:17:34 2000 From: davidpa at lucent.com (Patterson, David S (David)) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) Message-ID: Hmmm... Very perplexing... Running the following program @array = (aa, bb, cc, dd, ee); print @array, ' ', scalar (@array), "\n"; undef $array[3]; print @array, ' ', scalar (@array), "\n"; print @array, ' ', $#array, "\n"; gives the following output: aabbccddee 5 aabbccee 5 aabbccee 4 What does this mean? Are there 4 elements or 5? I thought I read once that the underlying implementation of arrays in Perl was just another hash table. Is this true? Did it change between Perl 4 and Perl 5? "The first 90% of the project takes 90% of the time, and the last 10% takes the other 90%..." > David Patterson > Software Engineer > Lucent Technologies * > 6464 185th Ave NE > Redmond, WA 98052-6736 > 425-558-8008 x 2172 888-501-4835 Pgr > davidpa@lucent.com > > > > -----Original Message----- > From: R. Christianson [SMTP:ryannn@u.washington.edu] > Sent: Thursday, April 13, 2000 4:19 PM > To: Jeremy Mates > Cc: 'SPUG' > Subject: Re: SPUG: scalar(@array) > > What about doing $#array? > > Ryan Christianson > > > On Thu, 13 Apr 2000, Jeremy Mates wrote: > > > The count you were probably expecting to see can be gained by doing > > something like: > > > > for ( @array ) { > > $count++ if defined; > > } > > print $count, "\n"; > > > > -- > > 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 > > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or > unsubscribe > > Email to majordomo@pm.org: "action" spug-list your_address > > > > > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From aderhaa at n2h2.com Thu Apr 13 19:25:35 2000 From: aderhaa at n2h2.com (Alan E. Derhaag) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) In-Reply-To: "Patterson, David S's message of "Thu, 13 Apr 2000 17:17:34 -0700" References: Message-ID: "Patterson, David S (David)" writes: > Hmmm... Very perplexing... Running the following program > > @array = (aa, bb, cc, dd, ee); > print @array, ' ', scalar (@array), "\n"; > undef $array[3]; > print @array, ' ', scalar (@array), "\n"; > print @array, ' ', $#array, "\n"; > > gives the following output: > > aabbccddee 5 > aabbccee 5 > aabbccee 4 > > What does this mean? Are there 4 elements or 5? > Did you forget that $#array is actually the offset (number of last element) and not actually a count (add 1 to include the 0th element). - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From jope-spug at n2h2.com Thu Apr 13 19:36:40 2000 From: jope-spug at n2h2.com (El JoPe Magnifico) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: scalar(@array) In-Reply-To: Message-ID: On 13 Apr 2000, Alan E. Derhaag wrote: >> On Thu, 13 Apr 2000, Jeremy Mates wrote: [...] >>> for ( @array ) { >>> $count++ if defined; >>> } >>> print $count, "\n"; >>> [...] > I think there may be a problem with the `for (@array)' is that > it will quit at the first undef value.. Nope. Works fine. Only way to drop out of a "for" loop early is by calling "last". (or "goto" if you're a masochist =) -jp - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ryan at dbedge.com Thu Apr 13 19:42:42 2000 From: ryan at dbedge.com (Ryan Erwin) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Re: Perl new-bee... References: <20000413232801.10825.qmail@hotmail.com> Message-ID: <013901bfa5aa$59bd1310$3200a8c0@dbedge7xhu3w6s> You need to do a little bit of reading about Regular Expressions and DBI. You'll need to grab the DBI module from CPAN, http://www.cpan.org, also See: $ perldoc perlre $ perldoc DBI Without looking too hard at what you have, you'll probably want something like: #!/usr/bin/perl -w use strict; # use DBI; when you are ready ;) sub section1{ # stuff each 'element' in the line into an # item in the 'data' array @data my @data = split "\w+"; # do section 1 specific stuff } sub section2{ # do section 2 specific stuff } # yadda, yadda, yadda... while (1) { open FILE, "/var/log/myLogFile"; my $section; while () { # check which section the line is in, and call # a subroutineX, corresponding to that section. # don't forget that our buddy $_ is the default # var for most functions... section1 if $section = 1 || m#^Section 1\w*$#; section2 if $section = 2 || m#^Section 2\w*$#; # yadda, yadda, yadda... } } sleep 3000; # wait for a while... Of course, this is just a start and if your final product ends up looking like this, you did something dramatically wrong 8-}. Notice that we are explicitly comparing each line to see which section it is in, and we are comparing it repeatedly. This would be *very* inefficient for something you are going to have running all of the time, but seeing as how you are a newbie, it should be easier to understand when things are verbose... One place you will have to be particularly careful is if for some reason one of the fields is 'missing' in one data dump. For example: 1 10 43 32 32 43 10021 12 43 84 23 23 23 If you are just using 'split #\w+#' then you will have all of your values after '84' shifted one column... if the column the data is in is relevant, then you will need to figure out how to deal with that... Good Luck 8) BTW: while your out picking up books, I highly recommend: - Mastering Regular Expressions - Effective Perl Programming - Object Oriented Perl --- Ryan Erwin ESPUG Emperor ----- Original Message ----- From: "Ricardo Cardona" > Here is my pet project; > I?ve got an ASCI file that I what to parse and manipulate at half hour > increments. It looks something like this; I added the > just to separate > the different sections > > >Section 1 > CLASS: WEDAY > START:2000/02/02 00:00:00 WED; STOP: 2000/02/03 00:00:00 THU; > SLOWSAMPLES: 864 ; FASTSAMPLES: 8640 ; > > >Section 2 > KEY (COMMON_LANGUAGE_NAME) > INFO (OM2TRKINFO) > INCATOT PRERTEAB INFAIL NATTMPT > NOVFLATB GLARE OUTFAIL DEFLDCA > DREU PREU TRU SBU > MBU OUTMTCHF CONNECT TANDEM > AOF ANF TOTU ANSWER > INVAUTH BLKCTRK MAXBU TRU2WIN > NCTPASS NCTFAIL ACCCONG > > >Section 3 > 52 FLKWLXCB > OG 1 1 > 0 0 0 0 > 0 0 0 0 > 0 0 0 0 > 864 0 0 0 > 0 0 864 0 > 0 0 48 0 > 0 0 0 > >Section 4 > 54 LDEKDD054I7 > 2W 72 72 > 9378 0 47 0 > 0 0 0 0 > 0 0 14702 0 > 0 0 0 9327 > 0 0 14702 0 > 0 0 1090 14702 > 0 0 0 > > > I get this file every half hour 24/7, the above clip is only the first page > from this file, and it?s actually about 5000 lines long and contains data > for about 950 circuits. > > Section 1 is just the header for the file and contains info that is not > important to me at the moment. > Section 2 contains the field headers for the following repetitive > sections. > Section 3 contains the actual data fields for a particular circuit > (example circuit # ?54 LDEKDD054I7? from section 4.) > > What I?m looking to do is this; I trying to figure out a way to parse this > file and place the data fields into a database/file with the field headers > from section 2. From my limited knowledge of Perl I figure that I can place > this data into an associative array using the circuit ID # as the name of > the array and the fields headers as the key for that array. (Ideally I > would like to create a database table for each of these circuits. This > database table would be updated with a new record extracted from each half > hour file (something for the future)). Problem is this, based on what I > have learned from my reading, I?m not sure how to parse this file and > extract the data fields and place them into a variable/list/array. From > what I?ve read Perl is great at manipulating text files but I don?t have any > examples of how to do what I?m looking to do. By the way, the data fields > are not delimited (although I?m told that I can receive them in a delimited > format) they are actually a screen dump from a terminal server. > > I would like to put these files into this a data base format so that I may > have a run simple ratio calculations on the different fields. For instance, > INFAIL by NATTMPT, in the future I would like to display and change this > ratio info graphically using a Perl module or Tcl/Tk. > > Hey guys I know that you must be busy with your day-to-day stuff but any > assistance/ guidance/support you can offer will be greatly appreciated. > Please forward and any comments or help to ricardo_cardona@hotmail.com > > Thanks. > RC - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From tim at consultix-inc.com Fri Apr 14 20:01:49 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: April Meeting: Files, and Perl 5.6 Message-ID: <20000414180149.A11445@timji.consultix.wa.com> SPUGsters, It's good to be back in a country where you can taste the difference between Beer and Ginger Ale, and where a gallon of suntan lotion lasts more than a fortnight for a "bluey" (redhead) like me! 8-} (Seriously, we had a great time in Australia, despite the fact that I've been deaf in one (throbbing) ear since spending a day chasing some pretty fishies along a stretch or the Great Barrier Reef. But I digress . . . ) Thanks to Emperor Ryan for keeping the momentum going for the "Damian Conway" visit in my absence; I expect to be able to announce the actual dates and topics of his E-SPUG presentation(s) in the near future, along with another surprise or two. Heading "Back to the Future," Colin suggested that a topic even more scintillating than the Cookbook's "File Access" chapter might be the new features of the latest Perl release, which leads to the following announcement of a slightly altered agenda for next week's meeting (which alas I won't be able to attend, due to some domestic on-site training). Have a good meeting, and remember, we're still accepting volunteer speakers for the May and June meetings! 8-} ========================================================== | Tim Maher, Ph.D. Tel/Fax: (206) 781-UNIX | | SPUG Founder & Leader Email: spug@halcyon.com | | Seattle Perl Users Group HTTP: www.halcyon.com/spug | ========================================================== APRIL SPUG MEETING * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SPUG, the Seattle Perl Users Group, will meet on April 18th (3rd Tuesday) from 7-9pm, in the 5th floor meeting room of the Union Bank of California Bldg. in downtown Seattle. In Part I of his presentation, Colin Meyer, of EpixTech, will field questions about the "File Access" chapter of the Perl Cookbook. In Part II, he'll describe and demonstrate some of the new features of Perl 5.6, covering topics such as the following: * overview of new documentation shipped with perl * brief discussion of utf8 * overview of lexically scoped warnings (neat!) * using exists() and delete() with arrays (makes Perl more complete) * using subs as lvalues (strange!), * using advanced regexes (recursive, if-then-else ... maybe others) 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 impassable at other times. Parking Parking is available in an underground garage beneath the building, at the price of $4 for the entire 4pm - 11pm period. Additional parking is available at other ground-level lots and on the street. 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. For more information, including driving directions and street addresses, see http://www.halcyon.com/spug/. ========================================================== | Tim Maher, Ph.D. Tel/Fax: (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 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ryan at dbedge.com Sun Apr 16 00:01:27 2000 From: ryan at dbedge.com (Ryan Erwin) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Re: Dumping HTTP headers References: <016101bfa32d$be629210$1888ddd1@adcom133> Message-ID: <002701bfa760$d3f41130$3200a8c0@Inspiron> I know this thread died a while ago, but I've been doing some HTTP work myself and came accross: HttpSniffer (in Perl) ver 2.11 This is a Perl script to help debug HTTP conversations. It mimics a web server by calling another server to satisfy requests, but by doing so it can log the details of all the transactions (Now with timing data too). It's available at: http://www.compansr.demon.co.uk/ http://www.compansr.demon.co.uk/HttpSniffer.pl Enjoy the Meeting Tuesday! Wish I could be there ;) --- Ryan Erwin ----- Original Message ----- From: "Richard Anderson" To: Sent: Monday, April 10, 2000 1:45 PM Subject: SPUG: Dumping HTTP headers > Not necessarily a SPUG question, perhaps, but: I need to debug an HTTP > request I am generating using the LWP and HTTP::Request::Common modules. > How can I send a request to my (Apache) webserver and get a dump of the HTTP > headers? > Obviously, I could write a custom CGI script to do this, but is there an > easier way? > > Richard.Anderson@seaslug.org > www.zipcon.net/~starfire/home (personal) > www.raycosoft.com (corporate) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From Thomas_Holkenbrink at emeraldsolutions.com Mon Apr 17 20:01:27 2000 From: Thomas_Holkenbrink at emeraldsolutions.com (Thomas Holkenbrink) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Creating a NON zombie daemon Message-ID: <6BEB28284D0AD311931C0090276265D6F6CC95@mail2.emeraldsolutions.com> I have a Java application that will run like a daemon for a Perl program... but How do I start the daemon up and Only have one PID associated with it? I have tried like this but I get two process? $|=1; print "Starting Server\n"; use POSIX 'setsid'; chdir '/' or die "Can't chdir to /: $!"; open STDIN, '/dev/null' or die "Can't read /dev/null: $!"; open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!"; defined(my $pid = fork) or die "Can't fork: $!"; exit if $pid; setsid or die "Can't start a new session: $!"; open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; system("java myClass.class"); I would like to be able to something similar in a init script but it wont work??? any ideas? It seems to function but nothing ever shows up in a "ps -ef" Thomas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From scott at sabmail.rresearch.com Mon Apr 17 20:31:09 2000 From: scott at sabmail.rresearch.com (Scott Blachowicz) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Creating a NON zombie daemon In-Reply-To: <6BEB28284D0AD311931C0090276265D6F6CC95@mail2.emeraldsolutions.com>; from Thomas_Holkenbrink@emeraldsolutions.com on Mon, Apr 17, 2000 at 06:01:27PM -0700 References: <6BEB28284D0AD311931C0090276265D6F6CC95@mail2.emeraldsolutions.com> Message-ID: <20000417183109.A26483@sabami.seaslug.org> On Mon, Apr 17, 2000 at 06:01:27PM -0700, Thomas Holkenbrink wrote: > system("java myClass.class"); Try "exec". On Unix systems "fork()" copies your process to form a new one and "exec()" overlays a process with a new one. (you frequently see "fork & exec" mentioned together). So, you probably want something like exec ("java", "myClass.class"); > I would like to be able to something similar in a init script but it wont > work??? any ideas? It seems to function but nothing ever shows up in a "ps > -ef" Sounds to me like it dies early or doesn't get started? Maybe your $PATH for the init script is different than what it is otherwise, so it can't find "java"? Try specifying full paths to things? Make sure you capture your stdout/stderr to a file somewhere and see if there are any clues there? Do debugging dumps of environment variables from the perl script to look for clues? Scott - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From panache at wolfenet.com Tue Apr 18 20:44:29 2000 From: panache at wolfenet.com (David AA Poncelow) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Creating a NON zombie daemon In-Reply-To: <6BEB28284D0AD311931C0090276265D6F6CC95@mail2.emeraldsolutions.com>; from Thomas_Holkenbrink@emeraldsolutions.com on Mon, Apr 17, 2000 at 06:01:27PM -0700 References: <6BEB28284D0AD311931C0090276265D6F6CC95@mail2.emeraldsolutions.com> Message-ID: <20000418184429.A14505@wolfenet.com> It looks like you need to use the exec() function instead of the system() function. From the camel-head: 'Unlike system, the executed command is not forked off into a child process. An exec completely replaces the script in its current process.' On Mon, Apr 17, 2000 at 06:01:27PM -0700, Thomas Holkenbrink wrote: > I have a Java application that will run like a daemon for a Perl program... > but How do I start the daemon up and Only have one PID associated with it? > > I have tried like this but I get two process? > > > $|=1; > print "Starting Server\n"; > > use POSIX 'setsid'; > > chdir '/' or die "Can't chdir to /: $!"; > open STDIN, '/dev/null' or die "Can't read /dev/null: $!"; > open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!"; > defined(my $pid = fork) or die "Can't fork: $!"; > exit if $pid; > setsid or die "Can't start a new session: $!"; > open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; > > system("java myClass.class"); > > > > I would like to be able to something similar in a init script but it wont > work??? any ideas? It seems to function but nothing ever shows up in a "ps > -ef" > > Thomas > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ced at carios2.ca.boeing.com Mon Apr 17 21:15:15 2000 From: ced at carios2.ca.boeing.com (ced@carios2.ca.boeing.com) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Creating a NON zombie daemon Message-ID: <200004180215.TAA01119@carios2.ca.boeing.com> > I have a Java application that will run like a daemon for a Perl program... > but How do I start the daemon up and Only have one PID associated with it? > I have tried like this but I get two process? > That's because system("java...") forks. > system("java myClass.class"); Perhaps this is what you want: exec "/path/to/java", "myClass.class" or die "exec: $!"; > I would like to be able to something similar in a init script but it wont > work??? any ideas? It seems to function but nothing ever shows up in a "ps > -ef" Could the Java program be exiting prematurely... ? Rgds, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From Thomas_Holkenbrink at emeraldsolutions.com Tue Apr 18 12:17:26 2000 From: Thomas_Holkenbrink at emeraldsolutions.com (Thomas Holkenbrink) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Creating a NON zombie daemon Message-ID: <6BEB28284D0AD311931C0090276265D6F6CC96@mail2.emeraldsolutions.com> Alright .. with a little better understanding and a good read of the differences between the two.. System and Exec.. so the next problem is Now that the daemon is running what would be the quickest way to grep the PID of that process... a grep through ps -ef looking for my class name?? Thomas -----Original Message----- From: ced@carios2.ca.boeing.com [mailto:ced@carios2.ca.boeing.com] Sent: Monday, April 17, 2000 7:15 PM To: Thomas_Holkenbrink@emeraldsolutions.com; spug-list@pm.org Subject: Re: SPUG: Creating a NON zombie daemon > I have a Java application that will run like a daemon for a Perl program... > but How do I start the daemon up and Only have one PID associated with it? > I have tried like this but I get two process? > That's because system("java...") forks. > system("java myClass.class"); Perhaps this is what you want: exec "/path/to/java", "myClass.class" or die "exec: $!"; > I would like to be able to something similar in a init script but it wont > work??? any ideas? It seems to function but nothing ever shows up in a "ps > -ef" Could the Java program be exiting prematurely... ? Rgds, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From seanow0 at email.msn.com Tue Apr 18 12:13:19 2000 From: seanow0 at email.msn.com (Sean Owens) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: web communities upgrade Message-ID: <001401bfa959$6505ddd0$b50c379d@redmond.corp.microsoft.com> We (I can say "we" for a few more weeks :-) upgraded our service over the weekend. You are now able to save & edit files from the web community -- like it was a folder on your computer (sort of)! I've uploaded a couple of files, my quality chapter and the powerpoint presentation (with Rob's additions). Feel free to make use of the powerpoint presentation, either add in your own pages & resave or just download this file and email me your stuff... Thanks! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ced at carios2.ca.boeing.com Tue Apr 18 14:46:30 2000 From: ced at carios2.ca.boeing.com (ced@carios2.ca.boeing.com) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Creating a NON zombie daemon Message-ID: <200004181946.MAA01547@carios2.ca.boeing.com> > Alright .. with a little better understanding and a good read of the > differences between the two.. System and Exec.. so the next problem is Now > that the daemon is running what would be the quickest way to grep the PID of > that process... a grep through ps -ef looking for my class name?? Either that or the PID itself since the execed process will re-use the same number. Rgds, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From Thomas_Holkenbrink at emeraldsolutions.com Tue Apr 18 15:06:55 2000 From: Thomas_Holkenbrink at emeraldsolutions.com (Thomas Holkenbrink) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Creating a NON zombie daemon Message-ID: <6BEB28284D0AD311931C0090276265D6F6CC98@mail2.emeraldsolutions.com> > Either that or the PID itself since the execed process > will re-use the same number. The PID changes from run time till the exec... if the proccess starts out as one PID then changes to another??? Hmmmm theres a getppid() function but that returns the Parent not the actual PID? -----Original Message----- From: ced@carios2.ca.boeing.com [mailto:ced@carios2.ca.boeing.com] Sent: Tuesday, April 18, 2000 12:47 PM To: Thomas_Holkenbrink@emeraldsolutions.com; spug-list@pm.org Subject: RE: SPUG: Creating a NON zombie daemon > Alright .. with a little better understanding and a good read of the > differences between the two.. System and Exec.. so the next problem is Now > that the daemon is running what would be the quickest way to grep the PID of > that process... a grep through ps -ef looking for my class name?? Either that or the PID itself since the execed process will re-use the same number. Rgds, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From jope-spug at n2h2.com Tue Apr 18 15:23:21 2000 From: jope-spug at n2h2.com (El JoPe Magnifico) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Creating a NON zombie daemon In-Reply-To: <6BEB28284D0AD311931C0090276265D6F6CC98@mail2.emeraldsolutions.com> Message-ID: On Tue, 18 Apr 2000, Thomas Holkenbrink wrote: >> Either that or the PID itself since the execed process >> will re-use the same number. > > The PID changes from run time till the exec... if the proccess > starts out as one PID then changes to another??? Note that if you do your exec() with a single arg, or any of the args contain shell metacharacters, the command will be exec'ed using "/bin/sh -c", which will run under the original PID, but then fork off the command under a different PID. In other words, do... exec("java", "myClass.class"); rather than... exec("java myClass.class"); Nasty gotcha to remember anytime you do exec() or system(). =) -jp - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From Thomas_Holkenbrink at emeraldsolutions.com Tue Apr 18 15:39:58 2000 From: Thomas_Holkenbrink at emeraldsolutions.com (Thomas Holkenbrink) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Creating a NON zombie daemon Message-ID: <6BEB28284D0AD311931C0090276265D6F6CC9A@mail2.emeraldsolutions.com> WooHoo never mind.... POSIX gives me a returned the child PID >From the "POSIX - Perl interface to IEEE Std 1003.1" perldoc $sess_id = POSIX::setsid(); $sess_id is the Child process. I'm sending multiple arguments within the exec... so the PID changes.. #!/usr/bin/perl $|=1; use POSIX 'setsid'; chdir '/' or die "Can't chdir to /: $!"; open STDIN, '/dev/null' or die "Can't read /dev/null: $!"; open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!"; defined(my $pid = fork) or die "Can't fork: $!"; exit if $pid; $sess_id = setsid() or die "Can't start a new session: $!"; open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; $JAVA_HOME = "/usr/local/jdk117_v3"; $javaPath = "$JAVA_HOME/bin/java"; $className = "myClassName"; #$Arg 1-3 come from the program as a parameter. @ARGV wont work in this case. exec $javaPath, $className, $Arg1, $Arg2, $Arg3 or die "exec: $!"; Thanks to all for helping me out with system Vs. exec Thomas -----Original Message----- From: ced@carios2.ca.boeing.com [mailto:ced@carios2.ca.boeing.com] Sent: Tuesday, April 18, 2000 12:47 PM To: Thomas_Holkenbrink@emeraldsolutions.com; spug-list@pm.org Subject: RE: SPUG: Creating a NON zombie daemon > Alright .. with a little better understanding and a good read of the > differences between the two.. System and Exec.. so the next problem is Now > that the daemon is running what would be the quickest way to grep the PID of > that process... a grep through ps -ef looking for my class name?? Either that or the PID itself since the execed process will re-use the same number. Rgds, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From uchaves at rei.com Tue Apr 18 15:46:20 2000 From: uchaves at rei.com (Uiok Chaves) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: ref:Unsubscribe Message-ID: <204640794C39D211A21700805FA73521303A5E@ahqex1.rei.com> Please remove my e-mail address from you posting list. My e-mail address is uchaves@rei.com . Thank you, (UC) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From tim at consultix-inc.com Sun Apr 23 14:33:36 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Social Ecology: Web App. Position Message-ID: <20000423123336.B6054@timji.consultix.wa.com> We're offering both stock options AND social change. I work for a company developing ASP services for nonprofit organizations. I'm looking for a talented web application scripter to join our team. Feel free to check out the company and its current offerings at our web site: http://www.socialecology.com Send email ASAP to mailto:jobs@socialecology.com if you are interested! Give us some idea of your experience and past projects. Details as requested by the SPUG page: - rapid web application development experience - a desire to deploy applications to nonprofits - a proven ability to pick up new tools - short contract based trial followed by permanent (W-2) employment - modest salaries (we work with nonprofits), excellent stock options & benefits - located in Seattle (Capitol Hill) with supplemental telecommuting Thanks! -- Michael Gilbert Social Ecology: Getting Technology Out of Your Way ----- End forwarded message ----- -- *========================================================================* | Tim Maher, PhD Consultix & (206) 781-UNIX/8649 | | Pacific Software Gurus, Inc Email: tim@consultix-inc.com | | UNIX/Linux & Perl Training http://www.consultix-inc.com | | Classes; 5/16: UNIX 5/22: Basic Perl+Modules 6/12: Intermediate Perl | *========================================================================* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ryan at dbedge.com Wed Apr 26 05:09:48 2000 From: ryan at dbedge.com (Ryan Erwin) Date: Wed Aug 4 00:07:14 2004 Subject: ESPUG::Meeting::Tonight == XML/XSLT Message-ID: <002601bfaf67$985828f0$3b92bfce@Inspiron> Greetings ESPUGers- As seen on the ESPUG website [http://espug.pm.org] Automating Websites using XML/XSLT On Wednesday, the 26th of April, 7:00 pm, Lucent Technologies in Redmond. Asim Jalis, of the Cobalt Group will discuss Perl's XML::* packages and demo some interesting things you can do with this package. XSLT provides a way to manipulate XML data in the same flexible way that Perl's s/// manipulates flat text. This can be used to separate the logic and the presentation of a Websites. The logic goes into Perl and the presentation into your XSLT file. After Asim's talk, you will be able to: Create and maintain a website without writing HTML after the first time Change the global "look-and-feel" of the website without changing the Perl code. Auto-generate HTML for IE, Netscape, and Virtual Reality browsers. Auto-generate Makefiles and Perl code from XML data. To get warmed up for the presentation, you should look at all the XML:: modules on cpan. Specifically, look at: The Perl-XML Module List XML::XSLT [ Documentation ] [ ReadMe ] XML::Parser [ Documentation ] XML::DOM [ Documentation ] PerlXML.com Perl XML Mailing List [ archive and subscription ] XML.com Processing XML with Perl all Perl XML Documentation PerlMonth - X Marks (up) the Language X Marks (up) the Language was a regular feature in PerlMonth issue 3, 4, 5, and 6. As always, email me if you have any questions. Hope to see you there. Ryan Erwin ESPUG Emperor - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From starfire at zipcon.net Thu Apr 27 11:17:51 2000 From: starfire at zipcon.net (Richard Anderson) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Annoying "name only used once" msg from -w References: <002601bfaf67$985828f0$3b92bfce@Inspiron> Message-ID: <006801bfb064$26f9b360$ce87c7cd@adcom133> I often set a variable in the main program that is only referenced in a subroutine that is in another file. I don't want to explicitly pass it to the subroutine because I am dealing with large numbers of parameters, so I refer to it in the subroutine as $main::foo. When I use the perl -w command line option, I get annoying messages like Name "main::date" used only once: possible typo ... Is there any other way to shut this message off other than: (1) Adding a gratuitous reference to the variable (2) Explicitly passing the variable to the subroutine (3) Turning off the -w option (4) Copying the subroutine code into the file containing the main program Richard.Anderson@seaslug.org www.zipcon.net/~starfire/home (personal) www.raycosoft.com (corporate) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From dougb at scalar.org Thu Apr 27 11:53:45 2000 From: dougb at scalar.org (Doug Beaver) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Annoying "name only used once" msg from -w In-Reply-To: <006801bfb064$26f9b360$ce87c7cd@adcom133>; from starfire@zipcon.net on Thu, Apr 27, 2000 at 09:17:51AM -0700 References: <002601bfaf67$985828f0$3b92bfce@Inspiron> <006801bfb064$26f9b360$ce87c7cd@adcom133> Message-ID: <20000427095344.A46067@scalar.org> On Thu, Apr 27, 2000 at 09:17:51AM -0700, Richard Anderson wrote: > I often set a variable in the main program that is only referenced in > a subroutine that is in another file. I don't want to explicitly pass > it to the subroutine because I am dealing with large numbers of > parameters, so I refer to it in the subroutine as $main::foo. > > When I use the perl -w command line option, I get annoying messages > like Name "main::date" used only once: possible typo ... > > Is there any other way to shut this message off other than: > (1) Adding a gratuitous reference to the variable > (2) Explicitly passing the variable to the subroutine > (3) Turning off the -w option > (4) Copying the subroutine code into the file containing the main > program If you're using that many variables inside of the subroutine, you might want to explore populating an anonymous hash and passing that from function to function much like the way people pass structs around in C code: my %args = ( d => 1, e => 2, f => 3, ); func(\%args); sub func { my ($hash) = @_; my $d = $hash->{d}; my $e = $hash->{e}; my $f = $hash->{f}; # blah blah blah } Otherwise, if you're using perl 5.6, you can disable the 'used only once' messages by putting: no warnings 'once'; in your script. If you have perl 5.6, you might want to investigate the perllexwarn and warnings perldocs, there's a lot of cool stuff in there that you can do to manipulate warnings and turn off bothersome warnings. I use it to turn off those 'Use of uninitialized value' warnings because they bug me. ;-) 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 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From ced at carios2.ca.boeing.com Thu Apr 27 18:29:43 2000 From: ced at carios2.ca.boeing.com (ced@carios2.ca.boeing.com) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Annoying "name only used once" msg from -w Message-ID: <200004272329.QAA24586@carios2.ca.boeing.com> >I often set a variable in the main program that is only >referenced in a subroutine that is in another file. I >don't want to explicitly pass it to the subroutine because >I am dealing with large numbers of parameters, so I >refer to it in the subroutine as $main::foo. > >When I use the perl -w command line option, I get annoying >messages like Name "main::date" used only once: possible >typo ... > >Is there any other way to shut this message off other than: >(1) Adding a gratuitous reference to the variable >(2) Explicitly passing the variable to the subroutine >(3) Turning off the -w option >(4) Copying the subroutine code into the file containing the > main program > Also gratuitous but you could "pragmatize" the problem away with "use vars": use vars qw( $foo $bar ); ... $foo = 1; $bar = 2; This'd eliminate "used only once" warnings. As a bonus of course, you wouldn't have to package qualify if 'use strict' is in effect. But, if you have dozens that need pragma laundering, this could get ugly. The 5.6 lexical warning that Doug mentioned may be the best way of all. Rgds, -- Charles DeRykus - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From dwaring at nwsr.com Fri Apr 28 03:19:50 2000 From: dwaring at nwsr.com (David Waring) Date: Wed Aug 4 00:07:14 2004 Subject: SPUG: Something to loose sleep over Message-ID: Warning this is a demonstration of a bug that only appears in certain installations of Perl. It is a weird bug and I am really pointing it out as a topic of conversation. Ignore this if you are not interested in really yucky stuff. We have recently had a problem with passing parameters to a subroutine. It only appears on one of our many boxes that are all running the same version of Perl (can't remember the version but it is pre 5.6) All boxes are running AIX. To paraphrase the code as closely as possible ..... # call a subroutine several times with different parameters asubroutine(\@A,"B","C"); asubroutine(\@D,"E","F"); asubroutine(\@X,"Y","Z"); sub asubroutine{ print @_,\n"; $x= shift @_; $y= shift @_; $z= shift @_; } RESULTS ABC ABC ABC whoa thats weird the subroutine is acting like it was called three times with the same parameters Now we can fix this in several ways. All of the following changes behaved properly an had the expected results of ABC DEF XYZ 1) get rid of the multiple shifts and instead grab all the incoming params at once as any normal person would do ($x,$y,$z) = @_; 2) forget about $z and only shift in the x y values leaving @_ with a single value 3) stop passing the reference in the params just pass the 'normal' scalars; 4) removing all the shifts and just printing @_ I mean how on earth can what is done later with @_ affect the values in it????????? Doing #1 but then setting @_ = (); -- which should be pretty damn close to shifting out all the values from @_ worked normally. The Print statement before the shifts was not important. The wrong values were being set for x y z anyway. We will be reinstalling Perl on this box but does anyone have any idea what in the deepest bowels of Perl could be going on here???? David Waring - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From cmeyer at helvella.org Fri Apr 28 12:43:45 2000 From: cmeyer at helvella.org (Colin Meyer) Date: Wed Aug 4 00:07:15 2004 Subject: SPUG: Something to loose sleep over In-Reply-To: References: Message-ID: <20000428104345.A6005@hobart.helvella.org> David, I tried your code, and got the following results, which is what I expected: ARRAY(0x8102b84) B C, ARRAY(0x8102bd8) E F, ARRAY(0x8102c2c) Y Z, How about posting some more code that produces the confusing results? I suspect that you excerpted a little too tightly and cut out the bit that was actually causing the problem. I tried your code under both perl5.00503 and perl5.6.0 and got the same results. -C. p.s. I added a double quote mark in your print line: print "@_,\n"; On Fri, Apr 28, 2000 at 12:19:50AM -0800, David Waring wrote: > Warning this is a demonstration of a bug that only appears in certain > installations of Perl. It is a weird bug and I am really pointing it > out as a topic of conversation. Ignore this if you are not interested > in really yucky stuff. > > ..... > # call a subroutine several times with different parameters > > asubroutine(\@A,"B","C"); > asubroutine(\@D,"E","F"); > asubroutine(\@X,"Y","Z"); > > > sub asubroutine{ > print @_,\n"; > $x= shift @_; > $y= shift @_; > $z= shift @_; > } > > RESULTS > ABC > ABC > ABC - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From LaurenS at bsquare.com Fri Apr 28 11:49:15 2000 From: LaurenS at bsquare.com (Lauren Smith) Date: Wed Aug 4 00:07:15 2004 Subject: SPUG: Something to loose sleep over Message-ID: <75514FC5ECC8D2118C8D00A0C9ED54DB914455@obcmail1.bsquare.com> > -----Original Message----- > From: David Waring [mailto:dwaring@nwsr.com] > > Warning this is a demonstration of a bug that only appears in certain > installations of Perl. It is a weird bug and I am really pointing it > out as a topic of conversation. Ignore this if you are not interested > in really yucky stuff. > # call a subroutine several times with different parameters I took the liberty of initializing @A, @D, and @X thusly: @a = ('a'); @d = ('d'); @x = ('x'); > > asubroutine(\@A,"B","C"); > asubroutine(\@D,"E","F"); > asubroutine(\@X,"Y","Z"); > > sub asubroutine{ > print @_,\n"; > $x= shift @_; > $y= shift @_; > $z= shift @_; > } > > RESULTS > ABC > ABC > ABC > Why would the first element of @_ be a character? Does AIX pull the value directly out of 'ARRAY(0xca7408)'? > > Now we can fix this in several ways. All of the following changes > behaved properly an had the expected results of > ABC > DEF > XYZ I'm not even sure that that would be the expected results, though. ARRAY(0xca7408)bc ARRAY(0xca7480)ef ARRAY(0xca74f8)hi These are the results that I got (NT 4, SP6). > We will be reinstalling Perl on this box but does anyone have any > idea what in the deepest bowels of Perl could be going on here???? I wish I knew, it looks really hairy. Good luck! Lauren (New to the group. Hi group!) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From cwilkes at singingfish.com Fri Apr 28 12:26:02 2000 From: cwilkes at singingfish.com (Chris Wilkes) Date: Wed Aug 4 00:07:15 2004 Subject: SPUG: Something to loose sleep over In-Reply-To: Message-ID: Think that this line will give you what you want in terms of printing: print "array = '@{shift()}' @_\n"; As for the weirdness you're seeing -- are you using strict? :) This works on both 5.6 and 5.005_03 Here's the code. It works with and without the $x = shift lines. #!/usr/bin/perl @A = (1..3); @B = (4..6); @C = (7..9); asubroutine(\@A,"B","C"); asubroutine(\@B,"E","F"); asubroutine(\@C,"Y","Z"); sub asubroutine { print "array = '@{shift()}' @_\n"; } Results: array = '1 2 3' B C array = '4 5 6' E F array = '7 8 9' Y Z On Fri, 28 Apr 2000, David Waring wrote: > Warning this is a demonstration of a bug that only appears in certain > installations of Perl. It is a weird bug and I am really pointing it > out as a topic of conversation. Ignore this if you are not interested > in really yucky stuff. > > > We have recently had a problem with passing parameters to a > subroutine. It only appears on one of our many boxes that are all > running the same version of Perl (can't remember the version but it > is pre 5.6) All boxes are running AIX. > > > To paraphrase the code as closely as possible > > > ..... > # call a subroutine several times with different parameters > > asubroutine(\@A,"B","C"); > asubroutine(\@D,"E","F"); > asubroutine(\@X,"Y","Z"); > > > sub asubroutine{ > print @_,\n"; > $x= shift @_; > $y= shift @_; > $z= shift @_; > } > > RESULTS > ABC > ABC > ABC > > whoa thats weird the subroutine is acting like it was called three > times with the same parameters > > Now we can fix this in several ways. All of the following changes > behaved properly an had the expected results of > ABC > DEF > XYZ > > 1) get rid of the multiple shifts and instead grab all the incoming > params at once as any normal person would do > > ($x,$y,$z) = @_; > > 2) forget about $z and only shift in the x y values leaving @_ with a > single value > > 3) stop passing the reference in the params just pass the 'normal' scalars; > > 4) removing all the shifts and just printing @_ > I mean how on earth can what is done later with @_ affect the values > in it????????? > > Doing #1 but then setting @_ = (); -- which should be pretty damn > close to shifting out all the values from @_ worked normally. > > The Print statement before the shifts was not important. The wrong > values were being set for x y z anyway. > > > > > We will be reinstalling Perl on this box but does anyone have any > idea what in the deepest bowels of Perl could be going on here???? > > David Waring > > > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org > Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ > SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe > Email to majordomo@pm.org: "action" spug-list your_address > > > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From tim at consultix-inc.com Fri Apr 28 16:57:36 2000 From: tim at consultix-inc.com (Tim Maher/CONSULTIX) Date: Wed Aug 4 00:07:15 2004 Subject: SPUG: Perl Prog. Job, downtown Seattle; agency Message-ID: <20000428145736.A27221@timji.consultix.wa.com> Required skill-set: Several years of Perl/CGI programming experience for the web in a business environment. Experience creating database-driven web pages is a plus. This is an Open source environment. contract or permanent position: FT Direct placement pay range: $DOE They believe in paying a fair and equitable wage. (I don't have a hand in that) They have great compensation package available and they are very stable dotcom company W-2 vs. 1099 status: FT direct people, probably W-2 ONLY Physical location: Downtown Seattle, WA Telecommuting possible: Not at the onset Company's product or service? ..... The are developing proprietary dataBases contain information that is the most extensive, the most useable and the most likely to keep website visitors coming back again and again. They are uniquely developed to provide the largest resource on a particular subject, greater depth and usability based on user and expert research. The unique shared knowledge relationship with the website users offers continuous growth and evolution of the subject. We are currently engaged in several dataBase subjects with additional being launched monthly. > Please contact me you'll be so happy you did. > > Warmest Regards, > Laura Garcia > dba Techstaff Inc. > CSRTech Services > www.csrtech.com > cell: 206-295-2128 > 2062952128@mobile.att.net > (you can e-mail txt msg) > ph: 206-382-5555 > toll: 800-326-7218 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From fen_land at hotmail.com Sun Apr 30 19:19:37 2000 From: fen_land at hotmail.com (S ED) Date: Wed Aug 4 00:07:15 2004 Subject: SPUG: Related to Wed. XSML meeting Message-ID: <20000501001937.82606.qmail@hotmail.com> To the person sitting in front of me at the meeting last Wednesday who asked me about Extensibility, Inc. They still exist: http://www.extensibility.com/ still creating XML schema tools. Samantha ________________________________________________________________________ Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe Email to majordomo@pm.org: "action" spug-list your_address From mmertel at ix.netcom.com Fri Apr 28 12:30:09 2000 From: mmertel at ix.netcom.com (Mark Mertel) Date: Wed Aug 4 00:07:17 2004 Subject: No subject Message-ID: <00042810331300.00433@mmertel3> the perl: # 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 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,deferr ed ' 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 . the test file : #!/usr/local/bin/perl asubroutine(\@A,"B","C"); asubroutine(\@D,"E","F"); asubroutine(\@X,"Y","Z"); sub asubroutine{ print "@_,\n"; $x= shift @_; $y= shift @_; $z= shift @_; } the output: ARRAY(0x40021a50) B C, ARRAY(0x40021aa4) E F, ARRAY(0x40021af8) Y Z, -- Mark Mertel mmertel@ix.netcom.com 206.633.631 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ For Subscriptions, Email to majordomo@pm.org: ACTION spug-list EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email address From mmertel at ix.netcom.com Fri Apr 28 12:30:09 2000 From: mmertel at ix.netcom.com (Mark Mertel) Date: Wed Aug 4 00:07:17 2004 Subject: No subject Message-ID: <00042810331300.00433@mmertel3> the perl: # 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 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,deferr ed ' 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 . the test file : #!/usr/local/bin/perl asubroutine(\@A,"B","C"); asubroutine(\@D,"E","F"); asubroutine(\@X,"Y","Z"); sub asubroutine{ print "@_,\n"; $x= shift @_; $y= shift @_; $z= shift @_; } the output: ARRAY(0x40021a50) B C, ARRAY(0x40021aa4) E F, ARRAY(0x40021af8) Y Z, -- Mark Mertel mmertel@ix.netcom.com 206.633.6316 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ For Subscriptions, Email to majordomo@pm.org: ACTION spug-list EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email address From mmertel at ix.netcom.com Fri Apr 28 12:30:09 2000 From: mmertel at ix.netcom.com (Mark Mertel) Date: Wed Aug 4 00:07:17 2004 Subject: No subject Message-ID: <00042810331300.00433@mmertel3> the perl: # 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 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,deferr ed ' 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 . the test file : #!/usr/local/bin/perl asubroutine(\@A,"B","C"); asubroutine(\@D,"E","F"); asubroutine(\@X,"Y","Z"); sub asubroutine{ print "@_,\n"; $x= shift @_; $y= shift @_; $z= shift @_; } the output: ARRAY(0x40021a50) B C, ARRAY(0x40021aa4) E F, ARRAY(0x40021af8) Y Z, -- Mark Mertel mmertel@ix.netcom.com 206.633.631 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ For Subscriptions, Email to majordomo@pm.org: ACTION spug-list EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email address From mmertel at ix.netcom.com Fri Apr 28 12:30:09 2000 From: mmertel at ix.netcom.com (Mark Mertel) Date: Wed Aug 4 00:07:17 2004 Subject: No subject Message-ID: <00042810331300.00433@mmertel3> the perl: # 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 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,deferr ed ' 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 . the test file : #!/usr/local/bin/perl asubroutine(\@A,"B","C"); asubroutine(\@D,"E","F"); asubroutine(\@X,"Y","Z"); sub asubroutine{ print "@_,\n"; $x= shift @_; $y= shift @_; $z= shift @_; } the output: ARRAY(0x40021a50) B C, ARRAY(0x40021aa4) E F, ARRAY(0x40021af8) Y Z, -- Mark Mertel mmertel@ix.netcom.com 206.633.631 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ For Subscriptions, Email to majordomo@pm.org: ACTION spug-list EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email address From mmertel at ix.netcom.com Fri Apr 28 12:30:09 2000 From: mmertel at ix.netcom.com (Mark Mertel) Date: Wed Aug 4 00:07:17 2004 Subject: No subject Message-ID: <00042810331300.00433@mmertel3> the perl: # 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 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,deferr ed ' 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 . the test file : #!/usr/local/bin/perl asubroutine(\@A,"B","C"); asubroutine(\@D,"E","F"); asubroutine(\@X,"Y","Z"); sub asubroutine{ print "@_,\n"; $x= shift @_; $y= shift @_; $z= shift @_; } the output: ARRAY(0x40021a50) B C, ARRAY(0x40021aa4) E F, ARRAY(0x40021af8) Y Z, -- Mark Mertel mmertel@ix.netcom.com 206.633.631 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ For Subscriptions, Email to majordomo@pm.org: ACTION spug-list EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email address From mmertel at ix.netcom.com Fri Apr 28 12:30:09 2000 From: mmertel at ix.netcom.com (Mark Mertel) Date: Wed Aug 4 00:07:17 2004 Subject: No subject Message-ID: <00042810331300.00433@mmertel3> the perl: # 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 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,deferr ed ' 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 . the test file : #!/usr/local/bin/perl asubroutine(\@A,"B","C"); asubroutine(\@D,"E","F"); asubroutine(\@X,"Y","Z"); sub asubroutine{ print "@_,\n"; $x= shift @_; $y= shift @_; $z= shift @_; } the output: ARRAY(0x40021a50) B C, ARRAY(0x40021aa4) E F, ARRAY(0x40021af8) Y Z, -- Mark Mertel mmertel@ix.netcom.com 206.633.631 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ For Subscriptions, Email to majordomo@pm.org: ACTION spug-list EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email address From mmertel at ix.netcom.com Fri Apr 28 12:30:09 2000 From: mmertel at ix.netcom.com (Mark Mertel) Date: Wed Aug 4 00:07:17 2004 Subject: No subject Message-ID: <00042810331300.00433@mmertel3> the perl: # 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 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,deferr ed ' 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 . the test file : #!/usr/local/bin/perl asubroutine(\@A,"B","C"); asubroutine(\@D,"E","F"); asubroutine(\@X,"Y","Z"); sub asubroutine{ print "@_,\n"; $x= shift @_; $y= shift @_; $z= shift @_; } the output: ARRAY(0x40021a50) B C, ARRAY(0x40021aa4) E F, ARRAY(0x40021af8) Y Z, -- Mark Mertel mmertel@ix.netcom.com 206.633.631 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - POST TO: spug-list@pm.org PROBLEMS: owner-spug-list@pm.org Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/ For Subscriptions, Email to majordomo@pm.org: ACTION spug-list EMAIL Replace ACTION by subscribe or unsubscribe, EMAIL by your Email address