[12657] in Perl-Users-Digest
Perl-Users Digest, Issue: 66 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 7 18:07:21 1999
Date: Wed, 7 Jul 1999 15:01:31 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 7 Jul 1999 Volume: 9 Number: 66
Today's topics:
Re: $scalars in s/// not working - anyone have any idea <gellyfish@gellyfish.com>
3 virtues of a Programmer <simont@mcw.edu>
Re: 3 virtues of a Programmer <dms@rtp-bosch.com>
Re: Adding and Subtracting Timecodes <gellyfish@gellyfish.com>
Re: AIX socket broken-ness? (NICHOLAS DRONEN)
Re: Best method to test a string within an array? (M.J.T. Guy)
better way for substitute <frech@primary.net>
Re: better way for substitute <uri@sysarch.com>
Re: better way for substitute (Matthew Bafford)
Re: better way for substitute <uri@sysarch.com>
Re: better way for substitute (Larry Rosler)
Carriage returns <derek@ranken.org>
Re: Carriage returns (Greg Bacon)
Re: Carriage returns <artsoft@danbbs.dk>
Re: Carriage returns <upsetter@ziplink.net>
cgi textarea filtering <therobin@nortelnetworks.com>
Re: cgi.pm question (I R A Aggie)
Connection problem using Perl DBI and IIS4 <pessiembre@netscape.net>
CPAN.pm Install Problem <sline@rdss.com>
Deleting everything after a pattern? (Mesarchm)
Re: Deleting everything after a pattern? <anonymous@web.remarq.com>
Re: Deleting everything after a pattern? (Neko)
Re: Deleting everything after a pattern? (Mesarchm)
error 500 problem matt01980@DELETETHISTOMAILaol.com
Re: error 500 problem (Anno Siegel)
Re: Expired CGI-script (Needs help quick) (Fulko van Westrenen)
Re: Fetching HTTP documents <spike_YYwhiteYY@YYdellYY.com>
Re: Floating Point Number With Time Function <tchrist@mox.perl.com>
Re: help with read( ) <gellyfish@gellyfish.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Jul 1999 21:03:35 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: $scalars in s/// not working - anyone have any ideas?
Message-Id: <7m0fb7$uh$1@gellyfish.btinternet.com>
On Tue, 6 Jul 1999 16:26:26 -0700 Dude Man wrote:
> Yep, all the vars are set - I did do a print of them and they're exactly
> correct when output to the screen, so I'm beginning to wonder if there a
> platform issue or bug or something with ActivePerl. I'm going to try a
> standard version of Perl for Win32 and see if makes any difference.
>
But ActivePerl is as near to a standard version of Perl for Win32 as
your going to get. Believe me when I say that if it had a bug like
you imply then I'm pretty certain that someone would have noticed it
long before you did.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 07 Jul 1999 13:37:50 -0500
From: Simon Twigger <simont@mcw.edu>
Subject: 3 virtues of a Programmer
Message-Id: <37839E7E.F7E37B2F@mcw.edu>
Hi there,
I was wondering if someone would kindly point me to somewhere I can find
a more complete explanation
for the 3 virtues of programmers as defined by Larry Wall a while back:
1. Laziness
2. Impatience
3. Hubris.
1 & 2 I can figure out but #3 is proving more of a problem. I seem to
remember he covered this in more detail in the books but someone
borrowed my Programming Perl vol.1 and I cant seem to find too much in
Vol.2
Any help would be most appreciated!
Many thanks!
Simon.
--
--------------------------------------------------
Simon Twigger, Ph.D.
Laboratory for Genetic Research,
Cardiovascular Research Center,
Medical College of Wisconsin,
8701 Watertown Plank Road,
Milwaukee, WI, 53226
http://legba.ifrc.mcw.edu/~simont/
tel. 414-456-4409 fax. 414-456-6516
--------------------------------------------------
------------------------------
Date: Wed, 07 Jul 1999 15:38:33 -0400
From: Doug Seay <dms@rtp-bosch.com>
Subject: Re: 3 virtues of a Programmer
Message-Id: <3783ACB9.F00590DB@rtp-bosch.com>
Simon Twigger wrote:
>
> 3. Hubris.
The pink camel, page 424:
Excessive pride, the sort of thing Zeus zaps you for. Also the quality
that makes you write (and maintain) programs that other people won't
want to say bad things about. Hence, the third great virtue of a
programmer. See also Laziness and Impatience.
- doug
------------------------------
Date: 7 Jul 1999 21:47:27 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Adding and Subtracting Timecodes
Message-Id: <7m0htf$v0$1@gellyfish.btinternet.com>
On 07 Jul 1999 05:38:18 GMT Calabria wrote:
>
> Hi,
>
> Has anyone seen a module or program for adding and subtracting video timecodes?
Er no. You probably want to read the SMPTE specification and work it out.
When you are done you might consider creating a module and submitting it
to CPAN.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 07 Jul 1999 17:00:01 GMT
From: mirabai@io.frii.com (NICHOLAS DRONEN)
Subject: Re: AIX socket broken-ness?
Message-Id: <lILg3.3$xEh.170585600@news.frii.net>
Ng Pheng Siong (ngps@my-deja.com) wrote:
: Hi,
: I typed in the TCP socket client/server example in the Camel book
: almost verbatim.
: On FreeBSD and Linux, the pair behaves as expected:
: $ ./svr
: ./svr 1769: connection from localhost [ 127.0.0.1 ] at port 1137 at Wed
: Jul 7 11:31:43 1999
: ./svr 1769: begat 1781 at Wed Jul 7 11:31:43 1999
: ./svr 1769: reaped 1781 at Wed Jul 7 11:31:43 1999
: ./svr 1769: connection from localhost [ 127.0.0.1 ] at port 1140 at Wed
: Jul 7 11:31:44 1999
: ./svr 1769: begat 1783 at Wed Jul 7 11:31:44 1999
: ./svr 1769: reaped 1783 at Wed Jul 7 11:31:44 1999
: $ ./cli
: 127.0.0.1 localhost localhost.localdomain
: $ ./cli
: 127.0.0.1 localhost localhost.localdomain
: $ ./cli
: 127.0.0.1 localhost localhost.localdomain
: On Aix, I get the following:
: $ ./svr
: ./svr 12906: server started on port 2345 at Wed Jul 7 11:34:22 1999
: ./svr 12906: connection from localhost [ 127.0.0.1 ] at port 1689 at Wed
: Jul 7 11:34:25 1999
: ./svr 12906: begat 17006 at Wed Jul 7 11:34:25 1999
: ./svr 12906: reaped 17006 at Wed Jul 7 11:34:25 1999
: $ Daemon has died, back at the prompt!
: $ ./cli
: 127.0.0.1 localhost
The only good perl is the perl that you've build
yourself and which passes `make test`.
In other words, get the perl source, compile it,
run `make test`. If `make test` runs clean and
the problem persists, upgrade (at least) the following
filesets -- bos.[um]p, bos.net.tcp.client and bos.rte.libc --
and reboot. That's assuming that this is really a problem
and not a design choice on the part of IBM. I'm willing
to bet it's a libc problem, but who knows . . .
Nicholas
------------------------------
Date: 7 Jul 1999 18:22:20 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Best method to test a string within an array?
Message-Id: <7m05ss$j4v$1@pegasus.csx.cam.ac.uk>
pedro <pedro@nospam.co.uk> wrote:
>Wondered if anyone could suggest
>the best method to test whether
>a string is within an array?
>
>e.g.
>
>$m=(grep($match,@array));
>
>if ($m=0)
>{do something}
"perldoc -q contain" gave me
=head1 Found in /home/mjtg/perl5.005_03/lib/pod/perlfaq4.pod
=head2 How can I tell whether a list or array contains a certain element?
[snip]
Mike Guy
------------------------------
Date: 7 Jul 1999 12:33:33 -0600
From: "Norman Frech" <frech@primary.net>
Subject: better way for substitute
Message-Id: <01bec896$71a15280$515c7bc7@frechn-nb>
I am looking for a better, more compact way of doing the following:
$buf =~ s/\000/ /g;
$buf =~ s/\001/ /g;
$buf =~ s/\002/ /g;
$buf =~ s/\003/ /g;
$buf =~ s/\004/ /g;
$buf =~ s/\005/ /g;
$buf =~ s/\006/ /g;
$buf =~ s/\007/ /g;
$buf =~ s/\008/ /g;
$buf =~ s/\009/ /g;
$buf =~ s/\010/ /g;
$buf =~ s/\011/ /g;
Any comments or suggestions would be appreciated.
Norm
------------------------------
Date: 07 Jul 1999 13:42:58 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: better way for substitute
Message-Id: <x7u2rgtkyl.fsf@home.sysarch.com>
>>>>> "NF" == Norman Frech <frech@primary.net> writes:
NF> I am looking for a better, more compact way of doing the following:
NF> $buf =~ s/\000/ /g;
NF> $buf =~ s/\001/ /g;
NF> $buf =~ s/\002/ /g;
NF> $buf =~ s/\003/ /g;
NF> $buf =~ s/\004/ /g;
NF> $buf =~ s/\005/ /g;
NF> $buf =~ s/\006/ /g;
NF> $buf =~ s/\007/ /g;
NF> $buf =~ s/\008/ /g;
NF> $buf =~ s/\009/ /g;
NF> $buf =~ s/\010/ /g;
NF> $buf =~ s/\011/ /g;
$buf =~ tr/\000-\011/ / ;
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Wed, 07 Jul 1999 18:08:55 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: better way for substitute
Message-Id: <slrn7o74ef.2es.*@dragons.duesouth.net>
On 7 Jul 1999 12:33:33 -0600, Norman Frech" <frech@primary.net> held
some poor sysadmin at gunpoint, and typed the following into
comp.lang.perl.misc:
: I am looking for a better, more compact way of doing the following:
:
: $buf =~ s/\000/ /g;
: ...
: $buf =~ s/\011/ /g;
$buf =~ tr/\000-\011/ /c;
: Any comments or suggestions would be appreciated.
HTH,
: Norm
--Matthew
------------------------------
Date: 07 Jul 1999 14:16:35 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: better way for substitute
Message-Id: <x7n1x8tjek.fsf@home.sysarch.com>
>>>>> "MB" == Matthew Bafford <@dragons.duesouth.net> writes:
MB> On 7 Jul 1999 12:33:33 -0600, Norman Frech" <frech@primary.net> held
MB> some poor sysadmin at gunpoint, and typed the following into
MB> comp.lang.perl.misc:
MB> : I am looking for a better, more compact way of doing the following:
MB> :
MB> : $buf =~ s/\000/ /g;
MB> : ...
MB> : $buf =~ s/\011/ /g;
MB> $buf =~ tr/\000-\011/ /c;
why the /c modifier? that will complement the tr so all chars BUT
000-011 get changed to space.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Wed, 7 Jul 1999 12:02:13 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: better way for substitute
Message-Id: <MPG.11ed440fba7bb3bd989c6e@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <slrn7o74ef.2es.*@dragons.duesouth.net> on Wed, 07 Jul 1999
18:08:55 GMT, Matthew Bafford <*@dragons.duesouth.net> says...
> On 7 Jul 1999 12:33:33 -0600, Norman Frech" <frech@primary.net> held
> some poor sysadmin at gunpoint, and typed the following into
> comp.lang.perl.misc:
> : I am looking for a better, more compact way of doing the following:
> :
> : $buf =~ s/\000/ /g;
> : ...
> : $buf =~ s/\011/ /g;
>
> $buf =~ tr/\000-\011/ /c;
^ OOPS!
> : Any comments or suggestions would be appreciated.
>
> HTH,
It won't, as you wrote it. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 7 Jul 1999 12:12:53 -0500
From: "Derek L. Babcock" <derek@ranken.org>
Subject: Carriage returns
Message-Id: <37838a75.0@news.primary.net>
I have a simple flat text database for a calendar. I have an HTML text area
on a page that the users can submit events for the calendar. It works fine
except if the user hits return after each line. In the database file the
entry gets screwed up because the carriage returns are making an entry that
should be only one line several lines. How can I have perl ignore carriage
returns? Thanks for any help!
------------------------------
Date: 7 Jul 1999 17:13:44 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Carriage returns
Message-Id: <7m01s8$7me$1@info2.uah.edu>
In article <37838a75.0@news.primary.net>,
"Derek L. Babcock" <derek@ranken.org> writes:
: I have a simple flat text database for a calendar. I have an HTML text area
: on a page that the users can submit events for the calendar. It works fine
: except if the user hits return after each line. In the database file the
: entry gets screwed up because the carriage returns are making an entry that
: should be only one line several lines. How can I have perl ignore carriage
: returns? Thanks for any help!
$textarea =~ s/\s+/ /g;
Greg
--
Cartman: Moooooom! Kitty's being a dildo!
Mom: Well, I know a certain kitty-kitty who's sleeping with Mommy tonight!
------------------------------
Date: Wed, 7 Jul 1999 19:39:54 +0200
From: "Anders Thorsby" <artsoft@danbbs.dk>
Subject: Re: Carriage returns
Message-Id: <TgMg3.356$HY5.645@news.get2net.dk>
Greg Bacon <gbacon@itsc.uah.edu> wrote in message
news:7m01s8$7me$1@info2.uah.edu...
> $textarea =~ s/\s+/ /g;
\s is blanks
use \n for new-lines
Anders
------------------------------
Date: Wed, 07 Jul 1999 18:22:25 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Carriage returns
Message-Id: <BVMg3.1128$6M6.357009@news.shore.net>
Anders Thorsby <artsoft@danbbs.dk> wrote:
:> $textarea =~ s/\s+/ /g;
: \s is blanks
: use \n for new-lines
Or [\r\n] if you want to account for actual "carriage returns" in addition
to newlines. Still, \s may be what the person wants, if they want to
convert tabs, etc, to spaces as well.
On a non-perl note, if you make your textarea "wrap=virtual", users whose
browsers recognize that attribute will be less likely to hit return at the
end of every line.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Wed, 07 Jul 1999 15:18:23 -0400
From: Robin Senior <therobin@nortelnetworks.com>
Subject: cgi textarea filtering
Message-Id: <3783A7FF.5093345E@nortelnetworks.com>
Hey,
using Perl, what sort of filtering should I put on info submitted from a
textarea?
Right now I'm using:
$fields{'input'} =~ s/\r\n|\n/\r/gs;
I'm outputting to a flat-file text database, with new records delimited
by newlines. By substituting with \r, I can still maintain multiple line
formatting without delimiting records.
Even with the current filter, newlines are getting in somehow, and
destroying my database.
Most of the info in the textarea is copied and pasted from other
webpages, so some illegal characters may be getting tossed in.
How can I prevent this from happening?
Is there a standard filter for textareas?
Thanks,
-robin
------------------------------
Date: 7 Jul 1999 16:26:10 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: cgi.pm question
Message-Id: <slrn7o701b.899.fl_aggie@thepentagon.com>
On Wed, 07 Jul 1999 17:03:04 GMT, John Hurley <jhurleyremove@njsba.org>, in
<378386ff.11237876@news.erols.com> wrote:
+ My site is running on a BSD server and every time i try to run a Perl
+ program on it with the use CGI line, i get a 500 error.
Any time you make changes to an existing CGI program, or introduce a
new CGI program, you should *always* run the syntax checker:
% perl -c my.cgi
If CGI.pm isn't installed, you'll find out. 'perl -v' may be of use, since
CGI.pm wasn't bundled into the core distribution til 5.004_04 (AFAIK).
An added bonus of using CGI.pm is that you can run the program from the
command line, and you'll be able to enter in the data that you'd expect
to get, so you can see if there are problems there.
+ I have been trying to get a hold of my isp for a while now to find
+ out about this and have not been replied to yet.
You may also want to find out if you have access to the error log for
the httpd server. If not, you can always "use CGI::Carp 'fatalsToBrowser';",
so that any errors will also appear in your browser window.
James
------------------------------
Date: Wed, 07 Jul 1999 20:48:19 GMT
From: "Pascal Essiembre" <pessiembre@netscape.net>
Subject: Connection problem using Perl DBI and IIS4
Message-Id: <n2Pg3.23579$Xr4.199771@c01read02-admin.service.talkway.com>
Hi,
I have connection problems when multiple users try to connect at the
same time to a Sybase database using Perl DBI through IIS4. I've been
trying to solve it for months and I've looked at all the related
documentation I could found. Here is how my environment is set up:
- Windows NT 4.0 with Service Pack 5
- IIS 4
- ActiveState's Win32 Perl 5
- Perl DBI
- Perl Sybase DBD
- Sybase's Open Client ver 10.0.3.
Here is what's happening exactly:
I have CGIs making connections to a remote Sybase database, using the
Perl DBI/Sybase DBD. I have no problems connecting once, but if I try
to connect multiple users and run queries at the same time, I run into
problems.
If user A is running a query (say a large select statement) and then
user B connects and runs a query, user A will be cut off while B takes
over. (Not disconnected, but just have the query stop.) I have
checked the maximum number of remote connections and maximum number of
connections per user for the database, and I am not reaching those
limits.
One thing I have noticed is that if I run my CGI scripts that query the
database together from a command prompt (or several instance of the
same), I will not have any problems. It is only when I try to run
multiple CGI Perl scripts (that query the database) through a net
browser that I seem to have queries being cut off before finishing.
For that reason, I think the problem might be related to the web
server. It is possible it is having problem handling multiple user on
a higher port? (We use port 2029 to connect to the remote system.) I
don't think the problem is with the Sybase Open Client Library or the
Perl DBI/ Sybase DBD because they all work fine with multiple users
outside the web server (IIS4).
I noticed in some of the documentation that I may have to set special
environment variables, but I believe I have set these.
Has anyone had a similar problem? Can someone help me fix it?
Thanks,
Pascal Essiembre ( pessiembre@netscape.net )
--
Posted via Talkway - http://www.talkway.com
Exchange ideas on practically anything (tm).
------------------------------
Date: Wed, 07 Jul 1999 16:04:25 -0400
From: Steven Line <sline@rdss.com>
Subject: CPAN.pm Install Problem
Message-Id: <3783B2C9.63D4194@rdss.com>
Hi,
I just tried to install the latest CPAN bundle and have encountered the
same problem twice. In between I reinstalled the perl distribution (Perl
5.00503). I'm doing this on an HP-UX 9.03 715/75.
Below is the install output.
I can run "perl -MCPAN -e shell" fine the first time. It runs, I set up
the CPAN parameters, then do "install Bundle:CPAN". This goes through
until it gets to the IO 1.20 module. The IO module then hoses up with a
'Text File Busy' error. Afterwards I can't run "perl -MCPAN -e shell"
anymore.
How can I undo the partial install of CPAN and associated modules? How
can I determine all the modules installed as that bundle?
On the other hand, instead of backing out the problems, does anybody
have a solution for the below problem?
Thanks in advance,
Steve
Here's the debug output:
Running make for GBARR/IO-1.20.tar.gz
Issuing "/usr/bin/ftp -n"
Local directory now /.cpan/sources/authors/id/GBARR
GOT /.cpan/sources/authors/id/GBARR/IO-1.20.tar.gz
Checksum for /.cpan/sources/authors/id/GBARR/IO-1.20.tar.gz ok
x IO-1.20/t/io_unix.t, 1215 bytes, 3 tape blocks
x IO-1.20/t/io_sel.t, 2192 bytes, 5 tape blocks
x IO-1.20/t/io_const.t, 656 bytes, 2 tape blocks
x IO-1.20/t/io_udp.t, 1295 bytes, 3 tape blocks
x IO-1.20/t/io_dup.t, 953 bytes, 2 tape blocks
x IO-1.20/t/io_xs.t, 460 bytes, 1 tape blocks
x IO-1.20/t/io_pipe.t, 1522 bytes, 3 tape blocks
x IO-1.20/t/io_sock.t, 3321 bytes, 7 tape blocks
x IO-1.20/t/io_tell.t, 1463 bytes, 3 tape blocks
x IO-1.20/t/io_poll.t, 1002 bytes, 2 tape blocks
x IO-1.20/t/io_multihomed.t, 1918 bytes, 4 tape blocks
x IO-1.20/t/io_dir.t, 1500 bytes, 3 tape blocks
x IO-1.20/IO/Pipe.pm, 5322 bytes, 11 tape blocks
x IO-1.20/IO/Poll.pm, 3949 bytes, 8 tape blocks
x IO-1.20/IO/Seekable.pm, 1575 bytes, 4 tape blocks
x IO-1.20/IO/Socket/UNIX.pm, 3015 bytes, 6 tape blocks
x IO-1.20/IO/Socket/INET.pm, 9570 bytes, 19 tape blocks
x IO-1.20/IO/Dir.pm, 4944 bytes, 10 tape blocks
x IO-1.20/IO/File.pm, 3892 bytes, 8 tape blocks
x IO-1.20/IO/Select.pm, 7818 bytes, 16 tape blocks
x IO-1.20/IO/Socket.pm, 9928 bytes, 20 tape blocks
x IO-1.20/IO/Handle.pm, 14808 bytes, 29 tape blocks
x IO-1.20/IO.pm, 742 bytes, 2 tape blocks
x IO-1.20/poll.c, 2575 bytes, 6 tape blocks
x IO-1.20/Makefile.PL, 1597 bytes, 4 tape blocks
x IO-1.20/ChangeLog, 8639 bytes, 17 tape blocks
x IO-1.20/poll.h, 1030 bytes, 3 tape blocks
x IO-1.20/README, 826 bytes, 2 tape blocks
x IO-1.20/IO.xs, 10448 bytes, 21 tape blocks
x IO-1.20/MANIFEST, 737 bytes, 2 tape blocks
CPAN.pm: Going to build GBARR/IO-1.20.tar.gz
Checking for Socket...ok
Checking if your kit is complete...
Looks good
Writing Makefile for IO
mkdir blib
mkdir blib/lib
mkdir blib/arch
mkdir blib/arch/auto
mkdir blib/arch/auto/IO
mkdir blib/lib/auto
mkdir blib/lib/auto/IO
mkdir blib/man3
cp IO/Pipe.pm blib/lib/IO/Pipe.pm
cp IO/Dir.pm blib/lib/IO/Dir.pm
cp IO/File.pm blib/lib/IO/File.pm
cp IO/Select.pm blib/lib/IO/Select.pm
cp IO.pm blib/lib/IO.pm
cp IO/Poll.pm blib/lib/IO/Poll.pm
cp IO/Socket/INET.pm blib/lib/IO/Socket/INET.pm
cp IO/Socket.pm blib/lib/IO/Socket.pm
cp IO/Seekable.pm blib/lib/IO/Seekable.pm
cp IO/Socket/UNIX.pm blib/lib/IO/Socket/UNIX.pm
cp IO/Handle.pm blib/lib/IO/Handle.pm
/usr/local/bin/perl -I/opt/perl5/lib/5.00503/PA-RISC1.1
-I/opt/perl5/lib/5.00503 /opt/perl5/lib/5.00503/ExtUtils/xsubpp
-typemap /opt/perl5/lib/5.00503/ExtUtils/typemap IO.xs >xstmp.c && mv
xstmp.c IO.c
cc -c -D_HPUX_SOURCE -Aa -I/usr/local/include -O
-DVERSION=\"1.20\" -DXS_VERSION=\"1.20\" +z
-I/opt/perl5/lib/5.00503/PA-RISC1.1/CORE -DI_POLL IO.c
cc -c -D_HPUX_SOURCE -Aa -I/usr/local/include -O
-DVERSION=\"1.20\" -DXS_VERSION=\"1.20\" +z
-I/opt/perl5/lib/5.00503/PA-RISC1.1/CORE -DI_POLL poll.c
Running Mkbootstrap for IO ()
chmod 644 IO.bs
LD_RUN_PATH="" ld -o blib/arch/auto/IO/IO.sl -b
-L/usr/local/lib IO.o poll.o
chmod 755 blib/arch/auto/IO/IO.sl
cp IO.bs blib/arch/auto/IO/IO.bs
chmod 644 blib/arch/auto/IO/IO.bs
Manifying blib/man3/IO::Pipe.3
Manifying blib/man3/IO::Dir.3
Manifying blib/man3/IO::Select.3
Manifying blib/man3/IO::File.3
Manifying blib/man3/IO.3
Manifying blib/man3/IO::Poll.3
Manifying blib/man3/IO::Socket::INET.3
Manifying blib/man3/IO::Socket.3
Manifying blib/man3/IO::Handle.3
Manifying blib/man3/IO::Socket::UNIX.3
Manifying blib/man3/IO::Seekable.3
/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib
-I/opt/perl5/lib/5.00503/PA-RISC1.1 -I/opt/perl5/lib/5.00503 -e 'use
Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
t/io_const..........ok
t/io_dir............ok
t/io_dup............ok
t/io_multihomed.....ok
t/io_pipe...........ok
t/io_poll...........ok
t/io_sel............ok
t/io_sock...........ok
t/io_tell...........ok
t/io_udp............ok
t/io_unix...........ok
t/io_xs.............ok
All tests successful.
Files=12, Tests=110, 12 wallclock secs ( 5.79 cusr + 1.48 csys = 7.27
CPU)
/bin/make test -- OK
Running make install
Cannot forceunlink /opt/perl5/lib/5.00503/PA-RISC1.1/auto/IO/IO.sl: Text
file busy at /opt/perl5/lib/5.00503/File/Find.pm line 155
*** Error code 26
Stop.
/bin/make install -- NOT OK
Running make for GBARR/libnet-1.0606.tar.gz
Unwrapped into directory /.cpan/build/libnet-1.0606
Has already been processed within this session
Running make test
--
Steven Line Comtech Mobile Datacom, Corp.
Ph: +1 301-428-2107 19540 Amaranth Drive
Fx: +1 301-428-1004 Germantown, MD 20875
------------------------------
Date: 07 Jul 1999 17:06:16 GMT
From: mesarchm@aol.com (Mesarchm)
Subject: Deleting everything after a pattern?
Message-Id: <19990707130616.22722.00007534@ng-ch1.aol.com>
What would be the most efficient way to remove everything after a pattern.
Here is an example:
|sl=in1005&li=1004&sr=5&al=1&dest=http://www.web.com/home.cgi?id=CS1-004
I want to remove including and after the $dest.
Any advice would be appreciated.
Mike
------------------------------
Date: Wed, 07 Jul 1999 10:45:52 -0800
From: Ashish Kadakia <anonymous@web.remarq.com>
Subject: Re: Deleting everything after a pattern?
Message-Id: <931373154.10465@www2.remarq.com>
$_ = "hello newsgroup user, this is your string";
$pattern = "user";
s/$pattern.*?$//;
print $_;
( Note, the above removes everything after finding the
first occurence of pattern)
**** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ****
------------------------------
Date: 7 Jul 1999 19:40:43 GMT
From: tgy@chocobo.org (Neko)
Subject: Re: Deleting everything after a pattern?
Message-Id: <7m0afr$2li$0@216.39.141.200>
On Wed, 07 Jul 1999 10:45:52 -0800, Ashish Kadakia <anonymous@web.remarq.com>
wrote:
>$_ = "hello newsgroup user, this is your string";
>$pattern = "user";
>s/$pattern.*?$//;
^
typo
--
Neko | tgy@chocobo.org | Will hack Perl for a moogle stuffy! =^.^=
------------------------------
Date: 07 Jul 1999 20:17:06 GMT
From: mesarchm@aol.com (Mesarchm)
Subject: Re: Deleting everything after a pattern?
Message-Id: <19990707161706.22723.00007302@ng-ch1.aol.com>
I don't see the typo. I tested it and it works much faster than my old method.
Thanks
------------------------------
Date: Wed, 07 Jul 1999 14:29:23 +0000
From: matt01980@DELETETHISTOMAILaol.com
Subject: error 500 problem
Message-Id: <37836437.4CFF9A3A@DELETETHISTOMAILaol.com>
The following code when placed in my script causes a error 500.
if ((@thissponsor[12] >= @exposures[0]) && (@exposures[1] eq
"exposures")) {
@thissponsor[6] = "0";
open (FILE,">$sponsordir/@sponsors[$next].txt");
foreach $line (@thissponsor) {
print FILE "$line\n";
}
close (FILE);
}
The error log says:
Missing right bracket at myscript.lib line 961, at end of line
syntax error at myscript.lib line 961, at EOF
If I comment it out I still get the 500 error with the same report in
the error log. It is only when I delte the above coding that the script
runs. However without the above code the part of the script that runs
the banner ad wont work. I normally call the banner ad from its own
script via SSI and it works fine, I have copied the code and put it in
my new script to call the banner ad. However the part of the script
above is causing an 500 error and I dont know why. Any one know what
part of the script could be causing the error? Also is there a way to
call a perl script from with in a perl script?I thought about having my
script call the same perl script that my ssi pages do, but dont know if
that is possible. Please reply to my email address and remove the
"DELETETHISTOMAIL" part of the email address to email me. Thanks, Matt.
------------------------------
Date: 7 Jul 1999 20:31:00 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: error 500 problem
Message-Id: <7m0de4$46q$1@lublin.zrz.tu-berlin.de>
<matt01980@DELETETHISTOMAILaol.com> wrote in comp.lang.perl.misc:
>The following code when placed in my script causes a error 500.
>
>if ((@thissponsor[12] >= @exposures[0]) && (@exposures[1] eq
>"exposures")) {
> @thissponsor[6] = "0";
> open (FILE,">$sponsordir/@sponsors[$next].txt");
> foreach $line (@thissponsor) {
> print FILE "$line\n";
> }
> close (FILE);
>}
>
>
>The error log says:
>
>Missing right bracket at myscript.lib line 961, at end of line
>syntax error at myscript.lib line 961, at EOF
This error isn't the fault of the snippet above. While it contains
quite a bit of questionable code, it is balanced, parenthesis-wise.
Oh, and reporting error messages is one of the few reasonable
applications of cut and paste.
>If I comment it out I still get the 500 error with the same report in
>the error log.
If you comment out what?
> It is only when I delte the above coding that the script
>runs.
Oh, you mean if you comment it out you get an error but if you delete
the same lines you don't? Sorry, but I don't believe that.
> However without the above code the part of the script that runs
>the banner ad wont work. I normally call the banner ad from its own
>script via SSI and it works fine,
What banner ad?
> I have copied the code and put it in
>my new script to call the banner ad. However the part of the script
>above is causing an 500 error and I dont know why. Any one know what
>part of the script could be causing the error?
Not the part you posted (see above). Have you run your script under
perl -w? It should point you to quite a few places you might wish
to correct. In particular, all but one of the '@'s should be replaced
by '$'s. Locating the single correct one is left as an exercise.
> Also is there a way to
>call a perl script from with in a perl script?
Of course there is. Depending upon your needs, you can call it either
via 'do' or via 'system' (and in other ways). Look them up.
> I thought about having my
>script call the same perl script that my ssi pages do, but dont know if
>that is possible. Please reply to my email address and remove the
>"DELETETHISTOMAIL" part of the email address to email me. Thanks, Matt.
Post here, read here. Especially if you bother others to keep your
life spam free.
Anno
------------------------------
Date: 7 Jul 1999 18:29:09 GMT
From: fulko@trane.wtm.tudelft.nl (Fulko van Westrenen)
Subject: Re: Expired CGI-script (Needs help quick)
Message-Id: <slrn7o773j.fh.fulko@trane.wtm.tudelft.nl>
On Wed, 7 Jul 1999 17:58:28 +0200, Anders Thorsby <artsoft@danbbs.dk> wrote:
>Hi
>
>I have a CGI-script which much expire, so the script has to be executed
>again if the user follows a link and using the browsers back-button. The
>output of the script may not be cached!
>
This is not a Perl issue, but html. I'm not a html-guru,
but is must be something like:
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
Success,
Fulko
>Any hint, help or quick solution is usable!!!
>
>Anders Thorsby
>
>
--
Fulko van Westrenen
email: F.C.v.Westrenen@tue.nl
------------------------------
Date: Wed, 7 Jul 1999 13:19:19 -0500
From: "Spike White" <spike_YYwhiteYY@YYdellYY.com>
Subject: Re: Fetching HTTP documents
Message-Id: <7m05io$ju1$1@galaxy.us.dell.com>
Or pull down and compile wget, which is a
public domain utility that grabs URLs.
Then do something like:
$url = `wget http://www.foo.bar/index.html`
Spike
John wrote in message <931296259.452.77@news.remarQ.com>...
>or a shortcut:
>
>$url=`lynx -source www.foo.bar`;
>
>Magnetic Media wrote in message <7lr27g$c2d$1@main.rls.roknet.ro>...
>>Hi!
>>
>>Please, tell me how can I retrieve the contents of a document through
HTTP,
>>to use it's content in a CGI script? Is there any library function or
>>subroutine available?
>>
>>Thanks, Cuki.
>>
>>
>
>
------------------------------
Date: 7 Jul 1999 11:48:15 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Floating Point Number With Time Function
Message-Id: <378392df@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
"Troy Knight" <troyknight@troyknight.eurobell.co.uk> writes:
:Is there a way to return the time to a certain amount of decimal places. It
:is done on the submitted page of Altavista but I think they use a different
:language. Help Appreciated.
Yes. It's in the FAQ. You know, the one that comes with Perl.
The one that's a regular man page. The one that's sitting
on your very own system. Please read it.
--tom
--
You are the sponsor for the account andrew (Andrew Hume).
------------------------------
Date: 7 Jul 1999 21:15:09 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: help with read( )
Message-Id: <7m0g0t$ul$1@gellyfish.btinternet.com>
On Wed, 07 Jul 1999 00:23:53 +0200 Frank de Bot wrote:
>
> read (TEST, $data1, 17);
>
You should bear in mind that read() returns a value indicating the
number of characters read - which may be the number requested or
less or undef on failure. If a value is returned that is less than
that requested you may have encountered an error depending on the
context.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed 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 V9 Issue 66
************************************
