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