[6289] in Perl-Users-Digest
Perl-Users Digest, Issue: 911 Volume: 7
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 7 12:29:50 1997
Date: Fri, 7 Feb 97 09:00:21 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 7 Feb 1997 Volume: 7 Number: 911
Today's topics:
"ORDER BY" does not seem to work through ODBC call <chiue@nortel.ca>
Re: -w switch and the require statement (Mike Stok)
Re: ANNOUNCEMENT: Perl documentation and FAQ discontinu (Tad McClellan)
Re: ANNOUNCEMENT: Perl documentation and FAQ discontinu (Nathan V. Patwardhan)
Re: Cgi script help, please! (Jagadeesh Venugopal)
CGI.pm - unintialized value ()
Re: Commercial success stories using perl. (Jim Esten)
Re: DNS lookups in perl <Gregory.Scher@sgw.com>
ENV sizes on NT (cgi) (Ken)
Re: ftp mirroring package needed (Mike Stok)
HELP NEEDED: pb with 'system' <pagib@aur.alcatel.com>
How to convert a text file of arbitrary length lines to <jackb@pgw.picker.com>
Re: How to convert a text file of arbitrary length line (Nathan V. Patwardhan)
Re: How to convert a text file of arbitrary length line <rootbeer@teleport.com>
Re: Patch to add threads to Perl5.003 (Malcolm Beattie)
Perl and Crontabs (Bryan C. Liles)
Re: perl bug? side effect of using != where ne is requi (Bob Wilkinson)
Re: Perl vs Korn Shell <seay@absyss.fr>
Re: Perl vs Korn Shell <david_stagner@ncs.com>
Re: perl? <rootbeer@teleport.com>
PROBLEM: My extension's stack gets trashed... <depriest@mindspring.com>
regexps challenge - movies.txt (0/1) (Helen)
regexps challenge - movies.txt (1/1) (Helen)
Re: Sending results to two frames at once <Christoph_Marquardt@bbn.hp.com>
Re: Sort on third element of an Multi-Dim Array (Nathan V. Patwardhan)
Re: Using exec-Why won't this work? <ez045864@peseta.ucdavis.edu>
Re: Using exec-Why won't this work? <ez045864@peseta.ucdavis.edu>
Re: Who can write a perl-search script for our company? <nmljn@wombat.staff.ichange.com>
Re: Write help please (John W. Komp)
Digest Administrivia (Last modified: 8 Jan 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 07 Feb 1997 11:22:33 -0500
From: Hokee Chiu <chiue@nortel.ca>
Subject: "ORDER BY" does not seem to work through ODBC call
Message-Id: <32FB56C9.617D@nortel.ca>
I am writing a query to return information from SQL Server 6.5.
The query itself works. When I added the "ORDER BY colname"
the query failed (colname is in same table).
I am using Perl 5.003 with ODBC to do the work. NT4 server.
Any hints?
------------------------------
Date: 7 Feb 1997 14:26:12 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: -w switch and the require statement
Message-Id: <5dfe24$8qp@news-central.tiac.net>
In article <01bc14d0$540e2ee0$6d9d16cb@dialup.ozemail.com.au>,
Kim Ryan <kimaryan@ozemail.com.au> wrote:
>When my programs get fairly large, I like to split them into several files,
>and include each file with the require statement. This causes the -w switch
>to issue spurious messages, such as identifier only used once, when in fact
>it is used more than once, but in a different file to the one I am
>currently checking. The line numbers that errors are reported on also seem
>to get confused. Is there any solution to this problem?
If you're using perl 5 you can use vars. Assuming I have
$ cat try.pl
#!/usr/local/bin/perl -w
require 'other.pl';
print "$x\n";
$ cat other.pl
$x = 5;
$ ./try.pl
Name "main::x" used only once: possible typo at ./try.pl line 5.
5
Then adding
use vars qw/$x/;
near the top of try.pl shuts the warning up and lets you have a place to
declare all your globals.
With regard to the confused line numbering, do you have multilined
statements or are things seriously out to lunch?
Hope I'm not barking up the wrong tree,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: Fri, 7 Feb 1997 07:08:47 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: ANNOUNCEMENT: Perl documentation and FAQ discontinued
Message-Id: <vg9fd5.m01.ln@localhost>
Geoffrey Leach (geoff@netcom.com) wrote:
: Tom Christiansen <tchrist@mox.perl.com> writes:
: >As of the next release of Perl, no documentation or examples will
: >be shipped, since no one reads them anyway. Furthermore, the FAQ
: >is also discontinued. Please remove copies of any of this documentation
: >wherever you may find it, since it's obvious from the postings in this
: >group that it has never done a bit of good.
: Tough day, Tom? Don't worry, we all still love you. Now Tom, put down that
: Fortran book. Tom ... Tom!
Put down the skunky programming language, and slowly back away...
--
Tad McClellan SGML Consulting
Tag And Document Consulting Perl programming
tadmc@flash.net
------------------------------
Date: 7 Feb 1997 14:27:48 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: ANNOUNCEMENT: Perl documentation and FAQ discontinued
Message-Id: <5dfe54$5ua@fridge-nf0.shore.net>
Tad McClellan (tadmc@flash.net) wrote:
: Put down the skunky programming language, and slowly back away...
I looooove you, man??!?!!?!
--
Nathan V. Patwardhan
nvp@shore.net
"What is your quest?"
------------------------------
Date: 7 Feb 1997 14:34:23 GMT
From: jvenu@ctp.com (Jagadeesh Venugopal)
Subject: Re: Cgi script help, please!
Message-Id: <5dfehf$133@concorde.ctp.com>
In article <32F9DE09.155A@grasberg.se> magnus@grasberg.se writes:
>Hi...
>
>
>I want to know how to make a kind of search and replace from within a
>pearl script................
>
>The search should be in a external text file...????
>
>please help me...
>
>
>Magnus Grdsberg
>magnus@grasberg.se
Looks like you need to get "Learning Perl" by Randal Schwartz which will
tell you exactly what you want plus a lot more.
Jagadeesh
--
/\/\ |Jagadeesh K. Venugopal, jvenu@ctp.com |http://w3.ctp.com/~jvenu
/ /_.\|Cambridge Technology Partners, Inc. |http://www.ccs.neu.edu/home/jkvg
\ /./|304 Vassar St. Cambridge, MA 02139 |
\/\/ |Phone: 617.374.2028 FAX: 617.374.8300 +
------------------------------
Date: 7 Feb 1997 15:40:56 GMT
From: gsi@visi.com ()
Subject: CGI.pm - unintialized value
Message-Id: <5dfie8$c47@darla.visi.com>
Can someone point me to whatever FAQ explains this?
I've installed CGI.pm, but when I run a program using it, I
get the intended output along with the warning:
Use of uninitialized value at /home/gsi/lib/perl/CGI.pm-2.30/CGI.pm line 83.
The program is pretty basic:
#!/usr/local/bin/perl5 -w
use lib '/home/gsi/lib/perl/CGI.pm-2.30';
use CGI;
print "hello world\n";
--
***************************************************************
Disclaimer: You do not exist
------------------------------
Date: 7 Feb 1997 14:21:58 GMT
From: jesten@earth.execpc.com (Jim Esten)
Subject: Re: Commercial success stories using perl.
Message-Id: <5dfdq6$iu4@newsops.execpc.com>
I am currently working as the lead contractor on a web project for a major
midwest utility. We have taken legacy FORTRAN codes from the mainframe
environment, ported them to UNIX, and then used perl to do all the web
interface programming for input to and display from these programs and
fill in the pieces to get these programs to work with each other. Along
the way, we have replaced MS Word stuff, MS Excel stuff, and a Visual C
app that never quite worked right....the project has gotten international
exposure in the nuclear fuels industry....
...thus far, a success on all fronts and we've just scratched the surface!
Jim
--
Jim Esten
(temporarily between .sigs)
------------------------------
Date: Fri, 7 Feb 1997 15:38:43 GMT
From: "Gregory I. Scher" <Gregory.Scher@sgw.com>
Subject: Re: DNS lookups in perl
Message-Id: <32FB4C83.7B1D@sgw.com>
Russ Allbery wrote:
>
> Michael Fuhr <mfuhr@dimensional.com> writes:
>
> > Net::DNS 0.01 was written mostly in C and used the system's resolver
> > (libresolv) and another library called resparse.
>
> > Net::DNS 0.02 is written entirely in Perl, so it reimplements the
> > resolver library using many of the same algorithms. I know that sounds
> > like reinventing the wheel, but I chose to do it for the following
> > reasons:
>
> > 1. To let Perl handle more of the memory management.
> > 2. To provide more consistent behavior across different platforms.
> > 3. To see if I could.
>
> > The Perl version runs much slower than the C version, but if you're
> > doing remote lookups then a busy network will probably be your
> > bottleneck. Personally I'm partial to the Perl version but future
> > versions may be a combination of both. User input will certainly
> > provide guidance.
>
> I personally would prefer to see the module written mostly in C, or at
> least as a Perl wrapper around a sufficient amount of C to link against
> libresolv, so that when compiling the module I could link it against the
> libresolv in BIND rather than against the system version.
>
> There are a few reasons why I prefer that:
>
> 1. One is pretty much guaranteed that if one uses BIND, one will be
> able to access the latest and greatest in DNS in the most efficient
> and compatible way possible.
>
> 2. Things like NIS, local hosts files, and so forth are all potentially
> handled automagically for you (if you link against the system
> version).
>
> 3. When the next version of BIND comes out, you don't have to
> reimplement all of the changes yourself.
>
> It seems like reimplementing things in Perl is going to result in forking
> and version skew between your version and BIND. Of course, you have a
> very good point about other platforms where libresolv isn't available.
>
> --
> Russ Allbery (rra@cs.stanford.edu) <URL:http://www.eyrie.org/~eagle/>
--
Where can this DNS library be found?
Regards,
Greg
!!!!!
O O
>
*-*-*-*-*-*-*-ooo-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
| Gregory I. Scher |
| Perot Systems Corporation - NT SysAdmin |
| 277 Park Avenue |
| New York, N.Y. 10179 |
| Bus E-Mail: Gregory.Scher@sgw.com |
| Telephone: 212.224.7744 USA |
| FAX: 212.224.7251 |
*-*-*-*-*-*-*-*-*-*-*-*-*-*-ooo-*-*-*-*-*-*-*-*-*
|| ||
|| ||
@@@ @@@
------------------------------
Date: Fri, 07 Feb 1997 13:30:08 GMT
From: soulhuntre@pobox.com (Ken)
Subject: ENV sizes on NT (cgi)
Message-Id: <33002e55.9283716@news.earthlink.net>
Using Purveyor for Windows NT, but I think the problem has a generic
answer.
1) The script uses CGI.pm and runs fine from command line and under
unix.
2) if uses as a GET, the script gets SOME of the data (truncates at
about 200 chars?)
3) if used as a POST, the script never runs.
Am I hitting an ENV size limit here? Seems so, the GET stops when the
max command line length kicks in, and the POST would be bound by the
max size of ENV?
------------------------------
Date: 7 Feb 1997 14:06:24 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: ftp mirroring package needed
Message-Id: <5dfct0$7ga@news-central.tiac.net>
In article <32faab2e.16545621@news.citynet.net>,
Tony Schliesser <aschlies@citynet.net> wrote:
>Once upon a time, I had a rather nifty ftp package that would mirror
>other ftp sites. It was written in perl and I am looking for that same
>package again (the machine that it was on -- is no more).
You might want to look in the scripts/ftpstuff directory on a CPAN site.
The master CPAN site is at ftp.funet.fi under /pub/langueges/perl/CPAN and
you can get to it using a web browser using Tom's multiplexor at
http://www.perl.com/CPAN/
This probably won't help you find the original machine, but I hope it's
helpful anyway,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: Fri, 07 Feb 1997 11:30:50 -0500
From: Bruno Pagis <pagib@aur.alcatel.com>
Subject: HELP NEEDED: pb with 'system'
Message-Id: <32FB58BA.17BA@aur.alcatel.com>
The following command:
% remsh Hostname -l UserName ls
works perfectly.
When embedded in a Perl script:
#!/usr/local/bin/perl
@args=("remsh", "Hostname", "-l UserName", "ls");
system(@args);
I raise the following error message: permission denied.
Could anybody help ?
--
Name : Bruno Pagis Phone: (919) 850-5174
Company: Alcatel Network Systems Fax : (919) 850-6670
2912 Wake Forest Road email: pagib@aur.alcatel.com
Raleigh, NC 27609 www :
http://aurwww.aur.alcatel.com/~pagib
------------------------------
Date: Fri, 7 Feb 1997 12:20:49 GMT
From: Jack Burton <jackb@pgw.picker.com>
Subject: How to convert a text file of arbitrary length lines to fixed length?
Message-Id: <32FB1E21.41C6@pgw.picker.com>
I'd like to know if anyone is willing to provide me an example perl
script
that does the following.
Given a text file that consists of lines of arbitrary length, convert it
so
that no line is longer than 80 characters and line breaks don't happen
in
the middle of a word (unless the word is itself greater than 80
characters
long). I tried this myself, what I have isn't very pretty, and it
doesn't
break on word boundries. There is probably a better way to do this.
Any pointers are appreciated.
TIA
-Jack
Here is my attempt:
#!/usr/bin/perl
while (<>) {
chop;
$line=$_;
$length = length($line);
if ($length <= 80) {
# Un this case print the line as is
print $line, "\n";
next;
}
# If the line is > 80 characters do the following
$num_times = int ($length / 80);
$remainder= $length % 80;
for ($i=1, $j=0, $k=0 ; $j < $num_times; $i++, $j++, ($k += 80) ) {
print substr($line, $k, ($i * 80)), "\n";
}
if ($remainder) {
print substr($line, $k, $remainder), "\n";
}
}
------------------------------
Date: 7 Feb 1997 15:45:07 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: How to convert a text file of arbitrary length lines to fixed length?
Message-Id: <5dfim3$bth@fridge-nf0.shore.net>
Jack Burton (jackb@pgw.picker.com) wrote:
: I'd like to know if anyone is willing to provide me an example perl
: script
: that does the following.
Oh, so you need something to fix your broken linewrap. :-)
Check out the Text::Wrap module for Perl 5. It does exactly what you
want, and contains documentation.
--
Nathan V. Patwardhan
nvp@shore.net
"What is your quest?"
------------------------------
Date: Fri, 7 Feb 1997 08:20:43 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Jack Burton <jackb@pgw.picker.com>
Subject: Re: How to convert a text file of arbitrary length lines to fixed length?
Message-Id: <Pine.GSO.3.95.970207081913.3726J-100000@linda.teleport.com>
On Fri, 7 Feb 1997, Jack Burton wrote:
> Subject: How to convert a text file of arbitrary length lines to fixed
> length?
> There is probably a better way to do this.
Indeed. This is called word wrapping, and you'll find plenty of ways to do
it if you search a Usenet archive like Deja News. hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 7 Feb 1997 16:22:52 GMT
From: mbeattie@sable.ox.ac.uk (Malcolm Beattie)
Subject: Re: Patch to add threads to Perl5.003
Message-Id: <5dfkss$41d@news.ox.ac.uk>
Keywords: Perl, Threads
In article <5d3ipm$cpn$1@nadine.teleport.com>,
Eric Arnold Anderson <eanders@u98.CS.Berkeley.EDU> wrote:
>I've created a patch that adds threads to Perl5.003; since this
>requires that the interpreter and any extensions are recompiled, and
>since it hasn't been extensively tested, I haven't submitted it yet to
>CPAN, and am just making it available from a web page. The web page
>is: <http://www.cs.berkeley.edu/~eanders/thrperl/>; since we've been
>having some trouble with file servers, you may also try the reference
><http://now.cs.berkeley.edu/~eanders/thrperl/>. The release notes
>from the patch are included below.
My multi-threading patches have been around for a couple of years
and are queued to be folded into the perl core once 5.004 is out.
Eric's patches are for "fake" threads (i.e. state explicitly saved
and restored by perl and scheduled within perl at op granularity).
They are rather like the Plthread module I put out a couple of
years back. The threading support going in to the perl core for
5.006/5.006 subsumes both fake threads and real threads. Systems
with real threads (POSIX pthreads API or others can be added) get
real, those without can get (via macro support which needs adding
but shouldn't be too hard) the explicit save/restore of contexts
that give you "fake" threads. It may well be that Eric's patches
are useful for some until the official support comes along (it may
be a while before core threading is stable) but be aware that the
API may well be different for the real thing.
--Malcolm
--
Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Oxford University Computing Services
"Widget. It's got a widget. A lovely widget. A widget it has got." --Jack Dee
------------------------------
Date: 7 Feb 1997 16:39:08 GMT
From: bliles@power.digex.net (Bryan C. Liles)
Subject: Perl and Crontabs
Message-Id: <5dflrc$3e6@news3.digex.net>
This code snippet below works when I run it from the command line, but it
doesn't work from cron. Do I need to define something somewhere?
$date_format is empty when I run it from cron, but it gets the
correct value when ran from the command line
Any suggestions?
--------------------------------------------------------------
$datadir = "/local/home/bliles/snmp/programs/getuser/data";
open(DATE, "date +\"%d%m%Y-%H%M\ |");
$date_format = <DATE>;
chomp($date_format);
$logfile = join('/',$datadir,$date_format);
chomp($logfile);
$current = "/local/home/bliles/snmp/programs/getuser/current";
--
Bryan Liles
bliles@digex.net
------------------------------
Date: Fri, 07 Feb 1997 14:55:43 -0500
From: b.wilkinson@pindar.co.uk (Bob Wilkinson)
Subject: Re: perl bug? side effect of using != where ne is required (semi-long)
Message-Id: <b.wilkinson-0702971455430001@ip57-york.pindar.co.uk>
In article <5dcq99$fis@client3.news.psi.net>, klassa@ivc1.ivc.com (John
Klassa) wrote:
> A co-worker came to me with some strange output he was seeing... We managed
> to figure out that the root of his problem was that he was using "!=" where
> he needed to be using "ne". The symptoms were puzzling, though, so I set
> about to write a minimal test case that would demonstrate the behavior.
> This almost looks like a perl bug, to me. What do y'all think?
>
> Code deleted
>
Warning!! Non-expert writing!
However, I think that this is a manifestation of
the magic which Perl uses to determine whether a scalar is number-like or
string-like. Using a != comparison on $begin forces Perl to think of this as a
numeric variable, which type is forced on to $idx when it is initialised. Hence
the first pass through the loop the value is "001" (numeric), which when
incremented is rationalised to be "2" (numeric). Conversely when a "ne"
comparison is used on $begin, the type forced onto $idx is that of a string-like
variable. When string-like variables undergo ++ increments Perl uses more magic
so that the string value is incremented.
e.g. if $tmp = "ab" then $tmp++ will be "ac" (pp. 81 in pink camel)
The behaviour you describe seems consistent with my view of the world according
to Perl.
Bob
--
All is flux, nothing is still; nothing endures but change
- Heraclitus
------------------------------
Date: Fri, 07 Feb 1997 16:13:47 +0000
From: Douglas SEAY <seay@absyss.fr>
Subject: Re: Perl vs Korn Shell
Message-Id: <32FB54BB.20B0@absyss.fr>
Ed King wrote:
>
> I'm at the point where I want to write some simple programs for my
> private use. I bought the Bolsky book entitled "The New Korn Shell" and
> the author maintains the Korn shell is the greatest thing since sliced
> bread. I want to know if Korn shell scripting or Perl is more
> versatile. If I just want to invest time learning one which one should
> it be and why.
What do you mean by "simple programs"?
What platforms do you want to run them on?
As a rule, ksh is on every modern unix system, but perl
is hit or miss. Sure, it is easy to install perl,
but it is an extra step.
Personally, I use Perl for nearly everything. If something
is going to be one or two lines that call other programs to
do the work, I'll use a shell. For anything larger than
this, I'll go with Perl.
If you already have a background in unix, Perl is easy
to learn. But if you have this background, the Korn shell
is easy to learn too.
My thoughts are that Perl is *much* more versatile.
Things that are fairly easy to do in Perl that I've never
heard of people doing in ksh
- IP networking
- DBM file maniuplation
- Compiler/Language Translation
- Image manipulation
- GUI programming
When scripting, you'll need to launch large numbers of
subprocesses to do things that Perl does for you, such
as grep, sort and awk(ugh!). This means only one syntax
to learn.
As I am biased for Perl, I've never looked into what
libraries exist for the Korn shell. Perl's CPAN is
great. Who wants to re-invent the wheel?
Hope this helps.
doug seay
seay@absyss.fr
------------------------------
Date: Fri, 07 Feb 1997 10:27:33 -0600
From: Dave Stagner <david_stagner@ncs.com>
To: Ed King <kinge@oklahoma.net>
Subject: Re: Perl vs Korn Shell
Message-Id: <32FB57F5.41C6@ncs.com>
Whether perl or korn shell is better depends largely on what you're
doing. Korn shell is much more effective as an interactive command line
than perl. :}
As a programming language, perl is far, far more powerful than Korn
shell or any other Unix shell. For that matter C++ is (arguably) more
powerful than perl. That doesn't mean you should use C++ for everything
that can be done in perl, right? Nor should you use perl for everything
that can be done in a Unix shell. Quickie shell programming, especially
simple loops and stuff on the command line, can be very powerful and
useful.
Like someone else said, a good hacker should learn BOTH shell and perl.
And C, and maybe Lisp. Not sed or awk, because perl is much better. :}
--
David Stagner david_stagner@ncs.com
National Computer Systems vox 319 354 9200
Iowa City, IA fax 319 339 6555
Economics is the "dismal science". Software is the "dismal
engineering".
------------------------------
Date: Fri, 7 Feb 1997 07:57:36 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: ehsan zarrabi <ezarrabi@direct.ca>
Subject: Re: perl?
Message-Id: <Pine.GSO.3.95.970207075501.3726H-100000@linda.teleport.com>
On Thu, 6 Feb 1997, ehsan zarrabi wrote:
> How do I run this Perl Script.
[ Entire script snipped. ]
You can run it the same way you would run this much shorter one.
#!/usr/bin/perl
print "The Perl docs will help you out.\n";
Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Fri, 07 Feb 1997 08:22:27 -0600
From: Mike DePriest <depriest@mindspring.com>
Subject: PROBLEM: My extension's stack gets trashed...
Message-Id: <32FB3AA3.7A57@mindspring.com>
After considered review of the documentation and the FAQ, and scanning
the last 3500 messages here, I am soliciting your assistance.
Using: Perl 5.002 on HP-UX 9.07, built with HP ANSI C.
I have written an extension that implements an interface to the pstat()
family of functions (which are not 'documented' on HP-UX 9.x but work
OK).
One of the functions I extended is having problems with the stack
getting corrupted when it is invoked in a certain way.
If I do this in my script:
@values = pstat_getdynamic;
the @values array is fully populated with the expected number of return
values (33) and everything seems OK.
However, if I do this instead (which I would rather do):
@values = pstat_getdynamic || warn "pstat_getdynamic failed\n";
the @values array is trashed - $values[0] contains the data that should
be in $values[3], and $values[1..32] are undefined.
This worked fine under 5.000 on HP-UX 9.03.
Is there something obvious about this problem that I am missing? I'll be
happy to share any of the gory details on request, I won't post them
here now because of the size.
I really appreciate your time and effort in considering this problem.
--Mike DePriest
--I can only aspire to Perl hackerdom
------------------------------
Date: Thu, 06 Feb 1997 20:50:57 GMT
From: forr@ultranet.ca (Helen)
Subject: regexps challenge - movies.txt (0/1)
Message-Id: <32fa4142.17493007@news.ultranet.ca>
I wish to pull the url's, links, and descripive text out of an html
page and place them in a colon delimited text file; like so:
www.byte.com:Byte Magazine:Cross-platform computer magazine:0
(the 0 needs to be on the end for later programming)
The code below will take out url's and their ensuing links, giving me
the following table:
www.byte.com:Byte Magazine: :0
But ff I try to take out the descriptive text as well, I get nothing.
Any suggestion as to why this is happening would be greatly
appreciated.
I've attached the html document I'm trying to get this to work on.
__________________________________________________
#!/usr/bin/perl -w
#match url's
$url = "http:\/\/(.+?)(?=\">)";
#match links between url and </a>
$link = "\">(.+?)(?=<\/a>)";
#match descriptive text between</a> and next markup
#This one doesn't work!
$descr = "<\/a>\b(.*?)<";
# $/ ="";
while (<>) {
# pull url's, links, and descriptions out of markup text
if (/$url$link/gis) {
#put matches in : delimited list; add 0
@flatline = join ':', $1, $2, $3, '0';
print (@flatline, "\n");
}
}
------------------------------
Date: Thu, 06 Feb 1997 20:50:58 GMT
From: forr@ultranet.ca (Helen)
Subject: regexps challenge - movies.txt (1/1)
Message-Id: <32fa4432.18244579@mail.ultranet.ca>
begin 644 movies.txt
M/"%$3T-465!%($A434P@4%5"3$E#("(M+R]342\O1%1$($A434P@,BXP("L@
M86QL(&5X=&5N<VEO;G,O+T5.(B`B:&UP<F\S+F1T9"(^#0H\2%1-3#X-"CQ(
M14%$/@T*/%1)5$Q%/E5L=')A;F5T($UO=FEE($QI;FMS/"]4251,13X\+TA%
M040^#0H\0D]$62!"04-+1U)/54Y$/2(O:6UA9V5S+W-I9&5B87(N9VEF(CX-
M"CQ404),13X-"CQ44CX\5$0@5TE$5$@](C,P)2(^/$@Q(#Y-;W9I92!A;F0@
M1FEL;2!-86=A>FEN97,@3VX@3&EN93PO2#$^/"]41#X\5$0@5TE$2%0](C<P
M)2(^/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P
M.B\O=W=W+F]N<V-R965N+F-O;2(^044@36%G87II;F4\+T$^("`@+2!!;B!!
M<G1S(&%N9`T*16YT97)T86EN;65N="!-86=A>FEN92!W:71H(&$@9F]C=7,@
M;VX@9F5A='5R92!F:6QM<RP@;V9F97)I;F<@=6YB:6%S960@<F5V:65W<RP-
M"F)I;V=R87!H:65S+"!A;F0@:6YD=7-T<GD@:6YF;W)M871I;VX-"CPO5$0^
M/"]44CX-"CQ44CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+W=W=RYD
M:6UO<RYD92]A<G1E+R(^07)T96-H;V-K($9I;&T@36%G87II;B`M($TF=75M
M;#MN8VAE;CPO03X-"@T*/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\
M02!(4D5&/2)H='1P.B\O=W=W+F%Z8RYC;VTO8VQI96YT+V5N;C(O8F%C:S(N
M:'1M(CY"86-K<W1A9V4@6FEN93PO03X@("`M#0I%>&-L=7-I=F4@96YT97)T
M86EN;65N="!N97=S(&%N9"!I;G1E<G9I97=S+"!I;F-L=61I;F<@(&QI;FMS
M('1O(&%L;"!T:&4@,3DY-@T*1V]L9&5N($=L;V)E($%W87)D<R!W:6YN97)S
M+"!T96-H("!E>'!O(&YE=W,L(&%N9"!O=&AE<B!M;W9I92!N97=S+@T*/"]4
M1#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O<&EL
M;W0N;7-U+F5D=2]U<V5R+W=I9V]D<VMI+V)E871D;W=N+V)E871D;W=N+FAT
M;2(^0F5A=&1O=VX-"DUA9V%Z:6YE/"]!/B`-"CPO5$0^/"]44CX-"CQ44CX\
M5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+W)A;7!A9V5S+F]N<F%M<"YN
M970O?FIB96-K;&5Y+R(^0F5S="!6:61E;R!'=6ED92P@5&AE/"]!/B`-"B`M
M($-O;7!R96AE;G-I=F4@9W5I9&4@=&\@;F5W(&%N9"!U<&-O;6EN9R!V:61E
M;W,Z(')E=FEE=W,@;V8-"F-R:71I8V%L;'DM86-C;&%I;65D(&UO=FEE<RP@
M8FQO8VMB=7-T97)S(&%N9"!Q=6ER:WD@9FEL;7,N(%1O<"`R,"P@=V5E:VQY
M('!I8VLL#0IF:6QM;V=R87!H:65S+B!5<&1A=&5D(&1A:6QY+B`-"CPO5$0^
M/"]44CX-"CQ44CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+VUA9&ES
M;VXN=&1S;F5T+F-O;2]B;&%D97)U;FYE<B\B/D)L861E(%)U;FYE<B!-86=A
M>FEN93PO03X-"@T*/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(
M4D5&/2)H='1P.B\O=W=W+F)O>&]F9BYC;VTO(CY";WAO9F9I8V4\+T$^("`@
M+2!R979I97=S+"!I;G1E<G9I97=S(&%N9`T*87)T:6-L97,@8V]V97)I;F<@
M=&AE(&9I;&T@:6YD=7-T<GDN#0H\+U1$/CPO5%(^#0H\5%(^/%1$/CPO5$0^
M/%1$/CQ!($A2148](FAT='`Z+R]W=W<N8VEE+F9R+V)R=6-E;&5E+R(^0G)U
M8V4@3&5E($-O;&QE8W1O<CPO03X@("`M(&%L;`T*86)O=70@0G)U8V4@3&5E
M+B!);B!&<F5N8V@N#0H\+U1$/CPO5%(^#0H\5%(^/%1$/CPO5$0^/%1$/CQ!
M($A2148](FAT='`Z+R]W=W<N;6YE="YF<B]D:6%N+GEI;F<O(CY#:&EN97-E
M(&%N9"!!<VEA;B!-;W9I97,\+T$^("`@+0T*:6YF;R!O;B!N97<@9FEL;7,L
M($-H:6YE<V4@;6]V:64@9F5S=&EV86QS+"!I;G1E<G9I97=S+"!A(&QI;FL@
M=&\@=&AE($AO;F<@2V]N9PT*36]V:64@1&%T86)A<V4@86YD(&UO<F4N#0H\
M+U1$/CPO5%(^#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2148](FAT='`Z+R]W
M=W<N9&5N869I;&US+F-O;2]C:6YE;6$B/D-I;F5M83PO03X@("`M(%!E<G-I
M86X@*"9A;7`[#0I%;F=L:7-H*2!M86=A>FEN92!A8F]U="!F:6QM("9A;7`[
M(&-I;F5M82P@('=I=&@@82!F;V-U<R!O;B!)<F%N:6%N(&-I;F5M82P-"G!U
M8FQI<VAE9"!B>2!#:6YE;6$@0GD@($YU;6)E<G,@:6X@3$$L($-A+B`-"CPO
M5$0^/"]44CX-"CQ44CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+VAO
M;64N96%R=&AL:6YK+FYE="]^8VEN;&%S97(O(CY#:6YE;6$@3&%S97(\+T$^
M(`T*/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P
M.B\O=7-E<G,N86]L+F-O;2]#:6YE;6%M+TUU97)T;RYH=&TB/D-I;F5M82!-
M=65R=&\\+T$^("`@+0T*=&AE(&9I<G-T+"!A;F0@<')O8F%B;'D@;&%S="P@
M<'5B;&EC871I;VX@9&5V;W1E9"!T;R!R96%L;'D@8F%D(&-I;F5M871I8PT*
M86-H:65V96UE;G1S+B!2979I97=S+"!C96QE8G)I='D@:6YT97)V:65W<R!Q
M=6EZ>F5S(&%N9"!M;W)E+@T*/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ4
M1#X\02!(4D5&/2)H='1P.B\O:'EP97)L:6YK+F-O;2]M=7-E+V-I;F5M82]M
M;W9I97,O9FEL;2]C:6YE;6$O;6]V:65S-2YH=&TB/D-I;F5M84!4:&4-"DUU
M<V4\+T$^("`@+2!I;G1E<FYA=&EO;F%L(&9I;&TL(&-I;F5M82!A;F0@;6]V
M:65S+B!C=7)R96YT(&UO=FEE(')E=FEE=W,L(&$-"D-I;F5F:6QE(&]F(&-U
M;'0@86YD(&-L87-S:6,@;6]V:65S+"!P;'5S(&9E871U<F5S(&]N(&QE861I
M;F<@86-T;W)S(&%N9`T*9&ER96-T;W)S+@T*/"]41#X\+U12/@T*/%12/CQ4
M1#X\+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O=W=W+G5N:6%N9&5S+F5D=2YC
M;R]^8VEN970O(CY#24Y%5"!#:6YE(&5N($EN=&5R;F5T/"]!/B`@#0HM(&QA
M(&EN9F]R;6%C:6]N(&1E(&QA(&-A<G1E;&5R82!A8W1U86P@96X@0V]L;VUB
M:6$L(&1E(&QO<R!P<FEN8VEP86QE<R!E=F5N=&]S#0IN86-I;VYA;&5S(&4@
M:6YT97)N86-I;VYA;&5S+"!D92!L;W,@=6QT:6UO<R!E<W1R96YO<RP@>2!M
M=6-H;R!M87,A#0H\+U1$/CPO5%(^#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2
M148](FAT='`Z+R]W=W<N8VEN;W!S:7,N8V]M(CY#:6YO<'-I<SPO03X@("`M
M(&QE(&UA9V%Z:6YE(&9R86YC;W!H;VYE#0IB96QG92!D=2!C:6XF96%C=71E
M.VUA(&EN=&5R;F%T:6]N86PZ(&-R:71I<75E<RP@:6YT97)V:65W<RP@<&]T
M:6YS+"!S;W)T:65S(&5N#0IS86QL97,L(&IE=7@@970@8V]T871I;VYS('-O
M;G0@874@;65N=2!C:&%Q=64@<V5M86EN92X-"CPO5$0^/"]44CX-"CQ44CX\
M5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+W=W=RYC;&%P+G%C+F-A+R(^
M0VEN)F5A8W5T93MM82!&<F%N8V]P:&]N93PO03X@("`M($-E('-I=&4-"F-O
M;G1I96YT(&1E<R!I;F9O<FUA=&EO;G,@96X@9G)A;B9C8V5D:6P[86ES('-U
M<B!L92`@8VEN)F5A8W5T93MM82P@*&%C=&5U<G,L#0IF:6QM<RP@<B9E86-U
M=&4[86QI<V%T975R<RD@970@875S<VD@;&4@(&UA9V%Z:6YE(&1U($-I;B9E
M86-U=&4[;6$@;&4@8VQA<"X@(`T*/"]41#X\+U12/@T*/%12/CQ41#X\+U1$
M/CQ41#X\02!(4D5&/2)H='1P.B\O=W=W+G!R:6UE;F5T+F-O;2]^;W)P:&5U
M<R]C=6QT+R(^0W5L="!-;W9I97,@36%G87II;F4\+T$^(`T*("T@9F5A='5R
M97,@=&AE(&YE=R!686UP:7)E;&QA(&%N9"!A;B!I;G1E<G9I97<@=VET:"!C
M;VUI8R!A<G1I<W0@1&%V92!3=&5V96YS("X-"CPO5$0^/"]44CX-"CQ44CX\
M5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+W=W=RYB+6UO=FEE+F-O;2]D
M9VAO;64N:'1M;"(^1&%R:R!'86QL97)Y/"]!/B`-"CPO5$0^/"]44CX-"CQ4
M4CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+W=W=RYP;V)O>&5S+F-O
M;2]P;V)O>&5S+S]D:7-N970O(CY$:7-N970@5&EM97,L(%1H93PO03X@(`T*
M+2!P;&%C92!F;W(@1&ES;F5Y(%=O<FQD($-A<W0@365M8F5R<R!A;F0@17@M
M0V%S="!-96UB97)S('1O('!O<W0@;F]T97,@86YD+V]R#0IP:&]T;W,@<F5G
M87)D:6YG('1H92!C;VUP86YY+B!792!W:6QL('1R>2!T;R!P;W-T(&%L;"!E
M+6UA:6P@<F5C96EV960N(%EO=2!C86X-"G!R86ES92!T:&4@8V]M<&%N>2!O
M<B!C;VYD96UN(&ET+B`-"CPO5$0^/"]44CX-"CQ44CX\5$0^/"]41#X\5$0^
M/$$@2%)%1CTB:'1T<#HO+W=W=RYT=6%D+F%C+FIP+VYE="UE>'!O+V9F+V)O
M>"]E;B\B/D1O8W5M96YT87)Y($)O>#PO03X@(`T*+2!J;W5R;F%L(&]F('1H
M92!986UA9V%T82!);G1E<FYA=&EO;F%L($1O8W5M96YT87)Y($9I;&T@1F5S
M=&EV86PL($IA<&%N+@T*/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\
M02!(4D5&/2)H='1P.B\O=W=W+F%P<FEW96(N8V]M+V%M86YT92]I;F1E>"YH
M=&UL(CY%;"!!;6%N=&4@+2!2979I<W1A(&1E#0I#:6YE/"]!/B`@("T@82!M
M;VYT:&QY(&9I;&T@;6%G87II;F4@<'5B;&ES:&5D(&EN(%-P86YI<V@N(%)E
M=FEE=W,L("!E<W-A>7,@86YD#0II;G1E<G9I97=S(&]N($%R9V5N=&EN92!A
M;F0@:6YT97)N871I;VYA;"`@8VEN96UA+B`@#0H\+U1$/CPO5%(^#0H\5%(^
M/%1$/CPO5$0^/%1$/CQ!($A2148](FAT='`Z+R]W=W<N97)A8VLN8V]M+V5M
M<&ER92(^16UP:7)E/"]!/B`@("T@54L@;6]V:64@;6%G87II;F4N#0H\+U1$
M/CPO5%(^#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2148](FAT='`Z+R]K>G-U
M+G-T86YF;W)D+F5D=2]U=VDO96YD=&EM97,O(CY%;F0@5&EM97,L(%1H93PO
M03X@("`M#0IV:61E;R!Z:6YE(&9O<B!T:&4@;&]S="!G96YE<F%T:6]N+@T*
M/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O
M=W=W+G5S97)S+FEN=&5R<&]R="YN970O?FUG+R(^16YT<F5E>'1R96UO<SPO
M03X@("`M#0ID979O=&5D('1O(&-I;F5M82!O9B!,871I;B!!;65R:6-A+@T*
M/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O
M=W=W+F5O;"YA<G!E+F5S+V5S=')E;F]S+R(^17-T<F5N;W,\+T$^("`@+2!M
M86=A>FEN92!A8F]U=`T*9FEL;7,@86YD(&-I;F5M82X@26YF;W)M871I;VX@
M86)O=70@=&AE(&QA<W0@<F5L96%S97,@<G5N;FEN9R!O;B!3<&%N:7-H#0IC
M:6YE;6%S+B!2979I97=S+"!N97=S(&%N9"!I;G1E<G9I97=S('1O(&QE861I
M;F<@86-T;W)S(&%N9"!D:7)E8W1O<G,N(`T*/"]41#X\+U12/@T*#0H\5%(^
M/%1$/CPO5$0^/%1$/CQ!($A2148](FAT='`Z+R]W=W<N:6XN;F5T+V9M;V8O
M;65N=2YH=&UL(CY&86UO=7,@36]N<W1E<G,@;V8@1FEL;6QA;F0\+T$^#0H-
M"CPO5$0^/"]44CX-"CQ44CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO
M+V=E=VDN:V9U;FEG<F%Z+F%C+F%T+WYP=6YT:6=A;2]&1D8O(CY&:6QM($9E
M871U<F4@1F]R=6T\+T$^#0H@("T@;F5W<VQE='1E<B!P<F]D=6-E9"!B>2!T
M:&4@07-S;V-I871I;VX@;V8@175R;W!E86X@1FEL;2!A;F0@365D:6$@2F]U
M<FYA;',N#0I)="!P<F]V:61E<R!A8G-T<F%C=',@;V8@<F5C96YT(&%R=&EC
M;&5S('!U8FQI<VAE9"!I;B!T:&4@9F]L;&]W:6YG#0IP=6)L:6-A=&EO;G,Z
M($)A;&MA;FUE9&EA+"!";&EM<"P@0VAA<&QI;BP@16MR86XL($9I;&T@82!$
M;V)A+"!&:6QM8G5L;&5T:6XL#0I&:6QM('5N9"!&97)N<V5H96XL($MI;F]V
M961C:&5S:VEE('IA<&ES:VDL(%-K<FEE;BP@5F5R=&EG;RX-"CPO5$0^/"]4
M4CX-"CQ44CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+V=P9RYC;VTO
M9FEL;2\B/D9I;&T@26YT97)N871I;VYA;#PO03X@("`M(&$@<75A<G1E<FQY
M#0I%;F=L:7-H(&UA9V%Z:6YE(&9O8W5S:6YG(&]N('1H92!097)S:6%N(&UO
M=FEE(&EN9'5S=')Y+B!4;W!I8W,@8V]V97)E9"!I;F-L=61E#0IM;W9I92!N
M97=S+"!R979I97=S+"!A;F0@8V]M;65N=&%R:65S+@T*/"]41#X\+U12/@T*
M/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O=W=W+F=F:2YU:6(N
M;F\O?F9R;V1E;"]C:6YE;6$O<&%R861I<V\N:'1M;"(^1FEL;6UA9V%S:6YE
M=`T*0VEN96UA(%!A<F%D:7-O/"]!/B`@("T@=V5B>FEN92!P<F5S96YT:6YG
M(&%L;"!T:&4@;6]V:65S("!R=6YN:6YG(&]N(&YO<G=E9VEA;@T*8VEN96UA
M<RX@(`T*/"]41#X\+U12/@T*#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2148]
M(FAT='`Z+R]W=W<N8V%M+F]R9R]^<&%W;B]F<',N:'1M;"(^9G!S/"]!/B`@
M("T@5&AE($UA9V%Z:6YE(&]F#0I!;FEM871I;VX@;VX@1FEL;2!A;F0@5FED
M96\-"CPO5$0^/"]44CX-"CQ44CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T
M<#HO+W=W=RYC:&ET<F%L96MH82YC;VTO(CY'($UA9V%Z:6YE/"]!/B`@("T@
M26YD:6$G<R!P<F5M:65R#0IF:6QM(&UA9V%Z:6YE+B`-"CPO5$0^/"]44CX-
M"CQ44CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+W=W=RYH;VQL>7=O
M;V1R97!O<G1E<BYC;VTO(CY(;VQL>7=O;V0@4F5P;W)T97(L(%1H93PO03X@
M(`T*+2!D86EL>2!E;G1E<G1A:6YM96YT('1R861E('!A<&5R+@T*/"]41#X\
M+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O=W=W+FAK
M9FEL;6UA9RYC;VTO(CY(;VYG($MO;F<@1FEL;2!-86=A>FEN93PO03X@("`M
M#0IR979I97=S+"!F:6QM;V=R87!H:65S+"!A;F0@:6YT97)V:65W<R!O;B!S
M=6-H(&QU;6EN87)I97,@87,@0VAO=R!9=6X@1F%T+"!*;VAN#0I7;V\L(%)I
M;F=O($QA;2P@36EC:&5L;&4@2VAA;BP@0VAI;F=M>2!9874L(&5T8RX@4&]S
M=&5R<R!A;F0@=FED96\@<V%L97,@87,-"G=E;&PN#0H\+U1$/CPO5%(^#0H\
M5%(^/%1$/CPO5$0^/%1$/CQ!($A2148](FAT='`Z+R]W=W<N:&]T=VER960N
M8V]M+W)E;B(^2&]T5VER960Z(%)E;F%I<W-A;F-E/"]!/B`@("T@,C%S=`T*
M0V5N='5R>2!!<G0@)F%M<#L@16YT97)T86EN;65N="X-"CPO5$0^/"]44CX-
M"CQ44CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+W1E;&QU<FED96UM
M+F-O;2]I;F1I>FEN92YH=&UL(CY);F1I95II;F4\+T$^("`@+2!D961I8V%T
M960-"G1O('1H92!I;F1E<&5N9&5N="!F:6QM;6%K97(@86YD('-C<F5E;G=R
M:71E<BX@#0H\+U1$/CPO5%(^#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2148]
M(FAT='`Z+R]U<V5R<RYA;VPN8V]M+VMR;VYO<V-O<&4O:W)O;F]G<F%P:&EC
M<RYH=&UL(CY+<F]N;U-C;W!E/"]!/@T*("`M(%!R97-E;G1S(&%D(&UA=',L
M('!H;W1O<RP@:6YT97)V:65W<RP@<F5V:65W<RP@(&%N9"!C;VUM96YT<R!O
M;B!B:7IA<G)E#0IC:6UE;6$N#0H\+U1$/CPO5%(^#0H\5%(^/%1$/CPO5$0^
M/%1$/CQ!($A2148](FAT='`Z+R]W=W<N9&5M;VXN8V\N=6LO;&]N9&]N+6-A
M;&QI;F<O9FEL;6UU<RYH=&UL(CY,;VYD;VX-"D-A;&QI;F<@26YT97)N970\
M+T$^("`@+2!#;VUP<F5H96YS:79E(')E=FEE=R!G=6ED92!T;R!C=7)R96YT
M(&%N9"!F;W)T:&-O;6EN9PT*54L@9FEL;2!R96QE87-E<PT*/"]41#X\+U12
M/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O=W=W+FUO=FEE
M;6%K97(N8V]M(CY-;W9I94UA:V5R($UA9V%Z:6YE/"]!/B`@("T@9W5I9&4@
M=&\-"FEN9&5P96YD96YT(&9I;&T@86YD(&9I;&UM86MI;F<@9G)O;2!A<F]U
M;F0@=&AE('=O<FQD+B`-"CPO5$0^/"]44CX-"CQ44CX\5$0^/"]41#X\5$0^
M/$$@2%)%1CTB:'1T<#HO+W=W=RYH9W,N<V4O?F5E.31P:&TO(CY-;W9I95-C
M;W)E("T@=&AE($9I<G-T(%-W961I<V@@1FEL;0T*375S:6,@36%G87II;F4\
M+T$^(`T*/"]41#X\+U12/@T*#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2148]
M(FAT='`Z+R]W=W<N<')E;6EE<F5M86<N8V]M(CY0<F5M:65R93PO03X@#0H\
M+U1$/CPO5%(^#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2148](FAT='`Z+R]W
M=W<N<')E=FEE=RYP:2YN970O:6YD97@N:'1M;"(^4')E=FEE=R!&:6QM($UA
M9V%Z:6YE/"]!/B`@#0HM('-O=6YD("9A;7`[(&UO=&EO;B`F86UP.R!C:&%T
M("9A;7`[(&1A=&EN9RX@4W5R9B!I;G1E<F%C=&EE9B!E;B!O;W)V97)D;W9E
M;F0-"FUE92!O<"!D92!L979E;F1I9W-T92!F:6QM+7-I=&4@=F%N(&YE9&5R
M;&%N9#H@<')E=FEE=R!O<"!M;W9I92!P;&%N970N#0H\+U1$/CPO5%(^#0H-
M"CQ44CX\5$0^/"]41#X\5$0^/$$@2%)%1CTB:'1T<#HO+W=W=RYL:6)E<G1Y
M;F5T+F]R9R]^<FET>F9I;&TO(CY2:71Z($9I;&UB:6QL($]N+4QI;F4\+T$^
M("`-"BT@1FEL;2!S>6YO<'-E<RQT<FEV:6$L(&EN=&5R=FEE=W,@=VET:"!F
M:6QM;6%K97)S(&%N9"!S=&%R<RP@86YD(&]T:&5R(&UA=&5R:6%L#0IR96QA
M=&5D('1O(&9I;&US('!L87EI;F<@870@=&AE(%)I='H@;6]V:64@=&AE871E
M<G,N#0H\+U1$/CPO5%(^#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2148](FAT
M='`Z+R]W=W<N<W!I=BYC;VTO<F]U9VAC=70O(CY2;W5G:"!#=70\+T$^("`@
M+2!M;W9I92UN97=S#0IS97)V:6-E+@T*/"]41#X\+U12/@T*/%12/CQ41#X\
M+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O<W5N<VET92YC<RYM<W4N<W4O=W=W
M87)T+V-I;F4O(CY2=7-S:6%N($EN9&5P96YD96YT($9I;&US/"]!/@T*#0H\
M+U1$/CPO5%(^#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2148](FAT='`Z+R]M
M96UB97)S+F%O;"YC;VTO<VAO8VMC:6XO:6YD97@N:'1M;"(^4VAO8VL@0VEN
M96UA/"]!/B`@("T-"F=U:61E('1O(&)I>F%R<F4@9FEL;7,@86YD('9I9&5O
M<RP@8V]V97)I;F<@8W5L="!M;W9I97,L(&%R=&AO=7-E(&]D9&ET:65S+`T*
M9')I=F4M:6X@<W=I;&P@86YD('5N9&5R9W)O=6YD(&]B<V-U<FET:65S+@T*
M/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O
M=W=W+G=E8F-O;2YC;VTO='AF:6QM+R(^5&5X87,@1FEL;2`F86UP.R!6:61E
M;R!.97=S/"]!/B`@#0HM(&UO;G1H;'D@<'5B;&EC871I;VX@8V]V97)I;F<@
M=&AE(%1E>&%S(&9I;&T@86YD('9I9&5O(&EN9'5S=')Y+@T*/"]41#X\+U12
M/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O=W=W+F5R:64N
M;F5T+WYA;F1E<G-O;B]T:2]W96QC;VUE+FAT;2(^5')A;G-I96YT($EM86=E
M<SPO03X-"B`@+2!P<F]D=6-E9"!O;B!A(&)I+7=E96ML>2!S8VAE9'5L92P@
M<'5B;&ES:&EN9R!O;B!3=6YD87ES+@T*/"]41#X\+U12/@T*/%12/CQ41#X\
M+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O=W=W+G1I86,N;F5T+W5S97)S+W9I
M9&5O97EE+R(^5FED96\@17EE8F%L;#PO03X@("`M(&9I;F1S#0IG<F5A="!B
M=70@;W9E<FQO;VME9"!O<B!F;W)G;W1T96X@9FEL;7,@879A:6QA8FQE(&]N
M('1A<&4@86YD(&QA<V5R9&ES8R!T;PT*<F5C;VUM96YD('1O(&ET<R!R96%D
M97)S+@T*/"]41#X\+U12/@T*/%12/CQ41#X\+U1$/CQ41#X\02!(4D5&/2)H
M='1P.B\O=W=W+FES;&4N;F5T+WYV:61J=6YK:2]I;F1E>"YH=&UL(CY6:61E
M;R!*=6YK:64\+T$^("`@+0T*<')E=FEE=W,@86YD(')E=FEE=W,@;V8@9V5N
M<F4@=FED96\@86YD(&-I;F5M82X-"CPO5$0^/"]44CX-"@T*/%12/CQ41#X\
M+U1$/CQ41#X\02!(4D5&/2)H='1P.B\O<W1A<F-R96%T:6]N<RYC;VTO86)S
M=')A8W0O9FQI<2]F;"UC<FDP,2YH=&TB/E=H870@1&\@5&AE>0T*2VYO=S\\
M+T$^("`@+2!L:7-T:6YG<R!O9B!M;W9I92!C<FET:6-S+"!R871I;F=S+"!M
M;W9I92!M86=A>FEN97,L("!P<F5V:65W<R!A;F0-"G-I=&5S+B`@#0H\+U1$
M/CPO5%(^#0H\5%(^/%1$/CPO5$0^/%1$/CQ!($A2148](FAT='`Z+R]M96UB
M97)S+F%O;"YC;VTO=VED96YE=W,O:6YD97@N:'1M;"(^5VED92!'875G92!&
M:6QM(&%N9`T*5FED96\\+T$^("`@+2!T96-H;FEC86P@86YD(&%E<W1H971I
M8R!H:7-T;W)Y+"!N97=S+"!A;F0@:7-S=65S(&]F('=I9&4@9V%U9V4L#0IL
M87)G92!F;W)M870L(&%N9"!W:61E('-C<F5E;B!F:6QM(&%N9"!V:61E;RX@
M#0H\+U1$/CPO5%(^/"]404),13X-"CQ!($A2148](FAT='`Z+R]W=W<N=6QT
M<F%N970N8V$O=V5B<R]M86=A>FEN97,O;6%G87II;F5S+FAT;6PB/CQ)34<-
M"E-20STB:'1T<#HO+W=W=RYU;'1R86YE="YC82]I;6%G97,O8G5T=&]N-RYG
F:68B($)/4D1%4CTB,"(^/"]!/B`-"CPO0D]$63X\+TA434P^#0H`
`
end
------------------------------
Date: Fri, 07 Feb 1997 14:29:27 +0100
From: Christoph Marquardt <Christoph_Marquardt@bbn.hp.com>
To: "Nathan V. Patwardhan" <nvp@shore.net>
Subject: Re: Sending results to two frames at once
Message-Id: <32FB2E37.5E38@bbn.hp.com>
you might want to insert a sub frame-layout-document into your document
to make this work
(e.g. have one file with 3 frames where the middle frame might have the
name "middle_frame" and then load a 2 frame document to target
"middle_frame", then you just need to replace this "middle_frame" frame
with another 2 frame document by targetin the according output)
sounds complicated? it isn't! :)
an example:
frame1.html:
<framset ...>
<frame name="one" src="x.html">
<frame name="middle_frame" src="twoframes.html">
<frame name="three" src="y.html">
</frameset>
and twoframes.html:
<frameset ...>
<frame ...>
<frame ...>
</frameset>
does that help?
Christoph
--
Hewlett Packard GmbH email: Christoph_Marquardt@bbn.hp.com
Network & System voice: (49)7031-147846 (HP: 778-7846)
Management Division fax: (49)7031-141388 (HP: 778-1388)
This message does not necessarily reflect my employer's opinions
"Talking about music is like dancing about architecture" - FZ
------------------------------
Date: 7 Feb 1997 14:25:29 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Sort on third element of an Multi-Dim Array
Message-Id: <5dfe0p$5ua@fridge-nf0.shore.net>
Mike Stok (mike@stok.co.uk) wrote:
: How would I do that at a site where store & forward is allowed (e.g. mail
: and news) but TCP/IP connections to the outside world are not allowed or
: possible? I know I can do ftp by mail in a bind, but more and more
: places are getting selective about where people get to surf (for better
: or for worse...)
Agreed. It's difficult. In the past I'd used LWP through my ISP,
ran queries to www.whatever.site, and mailed the results to myself
(at my other account). Mucho extra kludge, but it did what I needed.
--
Nathan V. Patwardhan
nvp@shore.net
"What is your quest?"
------------------------------
Date: Fri, 7 Feb 1997 07:53:43 -0800
From: "D.M. Johnson" <ez045864@peseta.ucdavis.edu>
Subject: Re: Using exec-Why won't this work?
Message-Id: <Pine.GSO.3.95.970207074944.26047B-100000@bullwinkle.ucdavis.edu>
On 7 Feb 1997, Tom Christiansen wrote:
> It probably has something to do with your not reading what
> the perlfunc man page says about the exec() call, not to
> mention what the perltrap man page says about the -w switch.
>
Alright already!!! I get the point. The reason I didn't read the man
page was because I had a deadline (about 30 minutes after I originally
posted) and I had just attempted to read the man page for perlxstut, which
were confusing. Being pressed for time I hoped that by posting my problem
someone could see what was wrong and let me know before the deadline
(which is what happened). I do read man pages, so to everyone out there
who has written me replies telling me I am stupid for not reading
them...STOP!!!!!
Sincerely,
Douglas M. Johnson
------------------------------
Date: Fri, 7 Feb 1997 07:55:30 -0800
From: "D.M. Johnson" <ez045864@peseta.ucdavis.edu>
Subject: Re: Using exec-Why won't this work?
Message-Id: <Pine.GSO.3.95.970207075447.26047C-100000@bullwinkle.ucdavis.edu>
BTW, to everyone who sent me suggestions and didn't harp on me, thanks a
lot. You guys saved my butt.
D.J.
------------------------------
Date: 07 Feb 1997 10:09:25 -0500
From: nelson <nmljn@wombat.staff.ichange.com>
Subject: Re: Who can write a perl-search script for our company?
Message-Id: <w107mkkk5zu.fsf@wombat.staff.ichange.com>
WWW@pang.de (Miggy) writes:
> Hi,
> I have no experience in perl programming whatsoever. I'm doin pretty
> well with HTML so i'm looking for a partner who can write the perl
> part. Situation :
[snip]
You may know this already, but perl is not necessary to write programs
on your web server. So if you don't have experience in perl, but you
do have experience in C/Fortran/Visual Basic/sh, then you could write
the program you need in one of those languages instead.
Many books imply that perl is somehow necessarily connected to "the
web". It is not. It *is* very convenient, if you know how to program
it, of course, because it is very good at processing text, talking to
other programs via sockets, etc., which are all things that most
programs that receive their input via the Common Gateway Interface
(the CGI) usually need to do.
I hope this helps,
Laird
--
Laird J. Nelson (617) 252-5147
Systems Engineer 25 First Street
Nets, Inc. Cambridge, MA 02141
nmljn@wombat.staff.ichange.com http://www.netsinc.com/
------------------------------
Date: 7 Feb 1997 13:57:29 GMT
From: jk0101@medtronic.COM (John W. Komp)
Subject: Re: Write help please
Message-Id: <5dfcc9$qib@gazette.medtronic.com>
Thanks for the info on the Select instruction. I was baffled as my
camel book spends only a half page on formats (page 106) and my Sam's
Publishing Perl 5.0 book spends no pages on the select instruction.
I assume that if I set $~, $^ etc to specific values for each output
stream that as I cycle through the streams later in the program by
using the select instruction these values will change to the last
value set for that stream (ie I don't have to reset them each time I
change streams).
-John
--
****************************************************
This morning I shot six holes in my freezer
I think I've got cabin fever
Somebody sound the alarm
- J. Buffett
****************************************************
------------------------------
Date: 8 Jan 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Jan 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V7 Issue 911
*************************************
