[17097] in Perl-Users-Digest
Perl-Users Digest, Issue: 4509 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 3 18:10:38 2000
Date: Tue, 3 Oct 2000 15:10:19 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <970611018-v9-i4509@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 3 Oct 2000 Volume: 9 Number: 4509
Today's topics:
Module installation issues <bh_ent@my-deja.com>
Re: Need the best Perl Tutorial -- bar none <herbs@capital.net>
Re: Need the best Perl Tutorial -- bar none <01031149@3web.net>
Re: Newbie can't handle the "true"th... explanation de (Ilya Zakharevich)
Re: Newby questions (Lawrence)
Re: Perl Scripts Downloading nobull@mail.com
Re: Perl tutorials <tigz@ntlworld.com>
Problems attempting to install HTML::Parser on HP-UX 11 <steveho@snrgy.com>
Re: Regex: Perl5 to Perl4 Problem <01031149@3web.net>
Re: Regex: Perl5 to Perl4 Problem <bart.lateur@skynet.be>
Re: Regex: Perl5 to Perl4 Problem <01031149@3web.net>
Remote execution (rsh) of Perl script (hanging processe <toralf@kscanners.com>
Re: Sendmail/Perl question <flavell@mail.cern.ch>
socket I/O (Oscar Vallarino)
Re: socket I/O <uri@sysarch.com>
some questions jonrasm@my-deja.com
Telnet to Cisco AS5200 ppopour@infoave.net
Re: Testing for numeric integer <ren.maddox@tivoli.com>
The match operator & variables containing regexp-charac <toralf@kscanners.com>
Re: The match operator & variables containing regexp-ch <jcook@strobedata.com>
Re: The match operator & variables containing regexp-ch (Brandon Metcalf)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 03 Oct 2000 20:01:57 GMT
From: bh <bh_ent@my-deja.com>
Subject: Module installation issues
Message-Id: <8rddvg$bck$1@nnrp1.deja.com>
While trying to install Bundle::DBI on an HP machine running 11.00 with
perl 5.005 I have encountered a problem with the Net::Daemon
RPC::PlServer portion.
The installation reports that the syntax error is found in
_h2ph_pre.ph. The exact line mentions: ".1)" as the problem on line 2
of the .ph file. Sound familiar to anyone?
--
bh
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 03 Oct 2000 11:30:31 -0500
From: Mark Rosenberg <herbs@capital.net>
To: Duke Normandin <01031149@3web.net>
Subject: Re: Need the best Perl Tutorial -- bar none
Message-Id: <39DA09A4.66BC1DD1@capital.net>
Ditto to that. New to Perl and was wondering where I might find and
online primer.
Mark
Duke Normandin wrote:
> This newbie is in dire need of the *best* Perl Tutorial
> available on the 'net!! I've got close to a dozen
> so-so ones already. Any suggestions?
>
> --
> tia....duke
------------------------------
Date: Tue, 3 Oct 2000 13:05:31 -0600
From: "Duke Normandin" <01031149@3web.net>
Subject: Re: Need the best Perl Tutorial -- bar none
Message-Id: <R2qC5.3273$Jd4.25999@jekyl.ab.tac.net>
Jim Wright wrote in message ...
>Buy a book - I picked up Perl through web tutorials and asking people on
>here, I spent more time doing that than if I bought a good book (like the
>Camel (one)), if your time is worth anything to you, its cheaper to buy a
>book! Otherwise, if you insist, I started at cgi101.com, it gets you on the
>road and using netpedia.com/coding/cgi as a refernce manual.
>
>Jim
Been to the recommended URLs....buying a book is the way it seems I'll
have to go. Thanks for your input!
-duke
------------------------------
Date: 3 Oct 2000 20:17:22 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Newbie can't handle the "true"th... explanation desired
Message-Id: <8rdesi$hv0$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Ren Maddox
<ren.maddox@tivoli.com>],
who wrote in article <m3hf6u8vrm.fsf@dhcp11-177.support.tivoli.com>:
> > undef WHATEVER
> > - clears the memory buffers associated for WHATEVER
> >
> > $var = undef;
> > - marks the memory buffers as unapplicable;
> >
> OK, in the same vein, how 'bout:
>
> undef @array;
>
> versus:
>
> @array = ();
>
> ?
>
> (and the same for hashes if it makes any difference....)
Same difference. ;-) This is why I wrote WHATEVER.
Ilya
------------------------------
Date: Tue, 03 Oct 2000 21:34:44 GMT
From: lawrencedeans@NoSpam.genie.co.uk (Lawrence)
Subject: Re: Newby questions
Message-Id: <39da50ef.718216@news.freeserve.net>
On Mon, 02 Oct 2000 19:27:58 GMT, "Gene" <gene@allsysinc.com> assisted
me by writing:
>I have notated the code so that it should make some more sense
>> sub parse_form {
>> my($buffer,$pair,$value,@pairs,$name);
>> #what is my()? -- my() adjusts the scope of the variables to just this
>function
Ah I see it, if a script has been parsed using my() and you want to
call these variables you would use my($pair,$name etc.)
Similar to local variable rather than global
>> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>> #reads string of input from form to $buffer variable! -- very good!
>> if (length($buffer) < 4) {
>> $buffer = $ENV{QUERY_STRING};
>> }
>> #what does the above bit do? -- the above bit is because there are two
>ways to pass data from a form.
Am I correct in saying it's like a safety measure to make sure all
data is collected.
>> # you can pass them with the GET or POST methods. This tests if the
>first method didn't provide much data,
>> # then to try the other one. The QUERY_STRING is what is passed in
>the URL. You know, all that garbage that shows up?
Yes I know the stuff you mean.
>> @pairs = split(/&/, $buffer);
>> #splits the contents of $buffer into name-value pairs and places
>> into the array @pairs -- very good, except one thing the name-value pairs
>look more like name=value.
Ok!
>> foreach $pair (@pairs) {
>> ($name, $value) = split(/=/, $pair);
>> #splits each element of @pairs into name and value variables $name,
>> $value -- good
>> $value =~ tr/+/ /;
>> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>> #what does the above process on the $value variable do? -- the tr///
>thing converts all + to spaces. That is because
>> # the spaces show up as + in the data passed to the script. The next
>line convers all hex data into it's proper characters.
>> # you will notice that often in the URL, you will see %2f or %2e
Got it thanks
>> $FORM{$name} = $value;
>> #$name variables receive contents of $value variables -- almost. this
>creates an associative array. it looks like the following:
>> # $FORM{'name1'} = value1
>> # $FORM{'name2'} = value2
>> # this way you can get all of the form data from the $FORM
>associative array.
>> }
>> }
I wondered how that call worked I visualised it somehow calling the
actual form again. It does actually do this but from within an array
Am I right in assuming that calling the form element $FORM{'name5'}
returns the value of the name at that element.
. i.e. $namevalue = $FORM{'name1'}
the variable $namevalue now holds the value of that particular arrays
element.
Best regards
Lawrence
--
http://www.f-deans.freeserve.co.uk
http://www.flytyer.co.uk
------------------------------
Date: 03 Oct 2000 19:22:00 +0100
From: nobull@mail.com
Subject: Re: Perl Scripts Downloading
Message-Id: <u9r95xokdz.fsf@wcl-l.bham.ac.uk>
"Alan Hood" <gi59@dial.pipex.com> writes:
> I am running some perl scripts on an NT server provided by an ISP.
>
> For some reason when I run a script it tries to download instead.
Server config problem, not Perl related.
> It only happens on one URL with scripts with an extension of .pl.
>
> Can anybody tell me why ?
Your ISP webmaster.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 3 Oct 2000 19:41:03 +0100
From: "Tigz" <tigz@ntlworld.com>
Subject: Re: Perl tutorials
Message-Id: <qLpC5.11116$uq5.208030@news6-win.server.ntlworld.com>
Anders Lund <anders@wall.alweb.dk> wrote in message
news:AqoC5.133$u23.9787@news000.worldonline.dk...
> Tigz wrote:
>
> > Hi, could anybody tell me were i can find some good perl tutorials.
> > Thankx
> > Mick
> >
> >
>
> One hint could be searching this news group--
> Another to take a look at some of all the web sites dedicated to perl, you
> could do worse than starting out at http://www.perl.com , or you could go
> tso a search service such as http://www.goggle.com and search for "perl
> turorial".
>
> Lots of options out there..
>
> -anders
>
> --
> [ the word wall - and the trailing dot - in my email address
> is my _fire_wall - protecting me from the criminals abusing usenet]
Hehe :), i have found a tutorial thanks :).........and i am finding it quite
easy too
------------------------------
Date: Tue, 3 Oct 2000 16:32:41 -0400
From: "Steve R. Hoff" <steveho@snrgy.com>
Subject: Problems attempting to install HTML::Parser on HP-UX 11.0
Message-Id: <8rdfs8$f3o$1@node17.cwnet.frontiernet.net>
Hello, I'm attempting to install HTML::Parser on an HP-UX 11.0 system.
However, it fails the "make test". I'm using HP's ANSI C compiler.
Any suggestions would be greatly appreciated!
Thanks!
Steve R. Hoff
Output from "instal HTML::Parser" in CPAN:
cpan> install HTML::Parser
Going to read /.cpan/sources/authors/01mailrc.txt.gz
Going to read /.cpan/sources/modules/02packages.details.txt.gz
Scanning cache /.cpan/build for sizes
Going to read /.cpan/sources/modules/03modlist.data.gz
Running make for G/GA/GAAS/HTML-Parser-3.13.tar.gz
CPAN: MD5 loaded ok
Checksum for /.cpan/sources/authors/id/G/GA/GAAS/HTML-Parser-3.13.tar.gz ok
x HTML-Parser-3.13/t/xml-mode.t, 2125 bytes, 5 tape blocks
x HTML-Parser-3.13/t/filter.t, 945 bytes, 2 tape blocks
x HTML-Parser-3.13/t/tokeparser.t, 2701 bytes, 6 tape blocks
x HTML-Parser-3.13/t/linkextor-rel.t, 970 bytes, 2 tape blocks
x HTML-Parser-3.13/t/linkextor-base.t, 1057 bytes, 3 tape blocks
x HTML-Parser-3.13/t/crashme.t, 774 bytes, 2 tape blocks
x HTML-Parser-3.13/t/default.t, 864 bytes, 2 tape blocks
x HTML-Parser-3.13/t/headparser.t, 2899 bytes, 6 tape blocks
x HTML-Parser-3.13/t/handler-eof.t, 655 bytes, 2 tape blocks
x HTML-Parser-3.13/t/uentities.t, 1952 bytes, 4 tape blocks
x HTML-Parser-3.13/t/argspec-bad.t, 1047 bytes, 3 tape blocks
x HTML-Parser-3.13/t/headparser-http.t, 484 bytes, 1 tape blocks
x HTML-Parser-3.13/t/dtext.t, 988 bytes, 2 tape blocks
x HTML-Parser-3.13/t/magic.t, 989 bytes, 2 tape blocks
x HTML-Parser-3.13/t/options.t, 919 bytes, 2 tape blocks
x HTML-Parser-3.13/t/entities.t, 8585 bytes, 17 tape blocks
x HTML-Parser-3.13/t/largetags.t, 735 bytes, 2 tape blocks
x HTML-Parser-3.13/t/ignore.t, 600 bytes, 2 tape blocks
x HTML-Parser-3.13/t/argspec.t, 3424 bytes, 7 tape blocks
x HTML-Parser-3.13/t/comment.t, 457 bytes, 1 tape blocks
x HTML-Parser-3.13/t/declaration.t, 769 bytes, 2 tape blocks
x HTML-Parser-3.13/t/unbroken-text.t, 1115 bytes, 3 tape blocks
x HTML-Parser-3.13/t/offset.t, 825 bytes, 2 tape blocks
x HTML-Parser-3.13/t/handler.t, 1398 bytes, 3 tape blocks
x HTML-Parser-3.13/t/api_version.t, 368 bytes, 1 tape blocks
x HTML-Parser-3.13/t/parsefile.t, 1112 bytes, 3 tape blocks
x HTML-Parser-3.13/t/parser.t, 3805 bytes, 8 tape blocks
x HTML-Parser-3.13/t/process.t, 851 bytes, 2 tape blocks
x HTML-Parser-3.13/t/cases.t, 2992 bytes, 6 tape blocks
x HTML-Parser-3.13/t/marked-sect.t, 1601 bytes, 4 tape blocks
x HTML-Parser-3.13/eg/hstrip, 1957 bytes, 4 tape blocks
x HTML-Parser-3.13/eg/hrefsub, 2263 bytes, 5 tape blocks
x HTML-Parser-3.13/eg/hanchors, 1084 bytes, 3 tape blocks
x HTML-Parser-3.13/eg/htextsub, 580 bytes, 2 tape blocks
x HTML-Parser-3.13/eg/htext, 548 bytes, 2 tape blocks
x HTML-Parser-3.13/eg/htitle, 506 bytes, 1 tape blocks
x HTML-Parser-3.13/MANIFEST, 2483 bytes, 5 tape blocks
x HTML-Parser-3.13/lib/HTML/Entities.pm, 11247 bytes, 22 tape blocks
x HTML-Parser-3.13/lib/HTML/Filter.pm, 2686 bytes, 6 tape blocks
x HTML-Parser-3.13/lib/HTML/TokeParser.pm, 8813 bytes, 18 tape blocks
x HTML-Parser-3.13/lib/HTML/LinkExtor.pm, 4428 bytes, 9 tape blocks
x HTML-Parser-3.13/lib/HTML/HeadParser.pm, 6212 bytes, 13 tape blocks
x HTML-Parser-3.13/tokenpos.h, 1121 bytes, 3 tape blocks
x HTML-Parser-3.13/Changes, 18132 bytes, 36 tape blocks
x HTML-Parser-3.13/mkhctype, 1331 bytes, 3 tape blocks
x HTML-Parser-3.13/Parser.xs, 7181 bytes, 15 tape blocks
x HTML-Parser-3.13/mkpfunc, 595 bytes, 2 tape blocks
x HTML-Parser-3.13/util.c, 3276 bytes, 7 tape blocks
x HTML-Parser-3.13/hparser.c, 27376 bytes, 54 tape blocks
x HTML-Parser-3.13/README, 1906 bytes, 4 tape blocks
x HTML-Parser-3.13/hparser.h, 1708 bytes, 4 tape blocks
x HTML-Parser-3.13/Makefile.PL, 1268 bytes, 3 tape blocks
x HTML-Parser-3.13/hints/solaris.pl, 117 bytes, 1 tape blocks
x HTML-Parser-3.13/typemap, 61 bytes, 1 tape blocks
x HTML-Parser-3.13/Parser.pm, 28664 bytes, 56 tape blocks
x HTML-Parser-3.13/ANNOUNCEMENT, 2068 bytes, 5 tape blocks
x HTML-Parser-3.13/TODO, 1087 bytes, 3 tape blocks
Removing previously used /.cpan/build/HTML-Parser-3.13
CPAN.pm: Going to build G/GA/GAAS/HTML-Parser-3.13.tar.gz
Perl-5.6 provide experimental core support for Unicode strings. You
can compile HTML::Entities so that Unicode entities like € and
€ are decoded into a string containing "\x{20AC}". If you
select no to the question below such entities will be left alone and
only entities in the Latin-1 range is decoded.
Do you want decoding on unicode entities? [no]
Checking if your kit is complete...
Looks good
Writing Makefile for HTML::Parser
mkdir blib
mkdir blib/lib
mkdir blib/lib/HTML
mkdir blib/arch
mkdir blib/arch/auto
mkdir blib/arch/auto/HTML
mkdir blib/arch/auto/HTML/Parser
mkdir blib/lib/auto
mkdir blib/lib/auto/HTML
mkdir blib/lib/auto/HTML/Parser
mkdir blib/man3
cp lib/HTML/HeadParser.pm blib/lib/HTML/HeadParser.pm
cp lib/HTML/LinkExtor.pm blib/lib/HTML/LinkExtor.pm
cp Parser.pm blib/lib/HTML/Parser.pm
cp lib/HTML/Entities.pm blib/lib/HTML/Entities.pm
cp lib/HTML/TokeParser.pm blib/lib/HTML/TokeParser.pm
cp lib/HTML/Filter.pm blib/lib/HTML/Filter.pm
/opt/perl5/bin/perl mkhctype >hctype.h
/opt/perl5/bin/perl mkpfunc >pfunc.h
/opt/perl5/bin/perl -I/opt/perl5/lib/5.6.0/PA-RISC1.1 -I/opt/perl5/lib/5.6.0
/opt/perl5/lib/5.6.0/ExtUtils/xsubpp -typemap
/opt/perl5/lib/5.6.0/ExtUtils/typemap -typemap typemap Parser.xs >
Parser.xsc && mv Parser.xsc Parser.c
cc -c -Ae -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O
imit -DVERSION=\"3.13\" -DXS_VERSION=\"3.13\"
+z -I/opt/perl5/lib/5.6.0/PA-RISC1.1/CORE -DMARKED_SECTION Parser.c
Running Mkbootstrap for HTML::Parser ()
chmod 644 Parser.bs
LD_RUN_PATH="" ld -o blib/arch/auto/HTML/Parser/Parser.sl -b -s -a
shared Parser.o
chmod 755 blib/arch/auto/HTML/Parser/Parser.sl
cp Parser.bs blib/arch/auto/HTML/Parser/Parser.bs
chmod 644 blib/arch/auto/HTML/Parser/Parser.bs
Manifying blib/man3/HTML::HeadParser.3
Manifying blib/man3/HTML::LinkExtor.3
Manifying blib/man3/HTML::Parser.3
Manifying blib/man3/HTML::Entities.3
Manifying blib/man3/HTML::TokeParser.3
Manifying blib/man3/HTML::Filter.3
/usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1
/opt/perl5/bin/perl -Iblib/arch -Iblib/lib -I/opt/perl5/lib/5.6.0/PA-RISC1.1
-I/opt/perl5/lib/5.6.0 -e 'use Test::Harness qw(&runtests $verbose);
$verbose=0; runtests @ARGV;' t/*.t
t/api_version.......Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 44.
t/api_version.......dubious
Test returned status 2 (wstat 512, 0x200)
DIED. FAILED test 3
Failed 1/3 tests, 66.67% okay
t/argspec-bad.......ok 5/6FAILED tests 1-4, 6
Failed 5/6 tests, 16.67% okay
t/argspec...........Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 75.
t/argspec...........dubious
Test returned status 255 (wstat 65280, 0xff00)
t/cases.............Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 44.
t/cases.............dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-21
Failed 21/21 tests, 0.00% okay
t/comment...........Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 44.
t/comment...........dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED test 1
Failed 1/1 tests, 0.00% okay
t/crashme...........Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 44.
t/crashme...........dubious
Test returned status 2 (wstat 512, 0x200)
DIED. FAILED tests 1-3
Failed 3/3 tests, 0.00% okay
t/declaration.......Unrecognized identifier t in argspec at
blib/lib/HTML/Parser.pm line 75.
t/declaration.......dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED test 1
Failed 1/1 tests, 0.00% okay
t/default...........Unrecognized identifier t in argspec at
blib/lib/HTML/Parser.pm line 75.
t/default...........dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-3
Failed 3/3 tests, 0.00% okay
t/dtext.............Unrecognized identifier t in argspec at
blib/lib/HTML/Parser.pm line 75.
t/dtext.............dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-2
Failed 2/2 tests, 0.00% okay
t/entities..........ok
t/filter............Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 44.
t/filter............dubious
Test returned status 2 (wstat 512, 0x200)
DIED. FAILED tests 1-2
Failed 2/2 tests, 0.00% okay
t/handler-eof.......Unrecognized identifier a in argspec at t/handler-eof.t
line 9.
t/handler-eof.......dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-5
Failed 5/5 tests, 0.00% okay
t/handler...........Unrecognized identifier s in argspec at t/handler.t line
39.
t/handler...........dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 2-11
Failed 10/11 tests, 9.09% okay
t/headparser-http...skipped test on this platform
t/headparser........Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 44.
t/headparser........dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-3
Failed 3/3 tests, 0.00% okay
t/ignore............Unrecognized identifier t in argspec at
blib/lib/HTML/Parser.pm line 75.
t/ignore............dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-4
Failed 4/4 tests, 0.00% okay
t/largetags.........Unrecognized identifier t in argspec at t/largetags.t
line 17.
t/largetags.........dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-2
Failed 2/2 tests, 0.00% okay
t/linkextor-base....Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 75.
t/linkextor-base....dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-5
Failed 5/5 tests, 0.00% okay
t/linkextor-rel.....Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 75.
t/linkextor-rel.....dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-4
Failed 4/4 tests, 0.00% okay
t/magic.............ok
t/marked-sect.......Unrecognized identifier t in argspec at
blib/lib/HTML/Parser.pm line 75.
t/marked-sect.......dubious
Test returned status 255 (wstat 65280, 0xff00)
t/offset............Unrecognized identifier o in argspec at t/offset.t line
38.
t/offset............dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED test 1
Failed 1/1 tests, 0.00% okay
t/options...........ok
t/parsefile.........Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 44.
t/parsefile.........dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-6
Failed 6/6 tests, 0.00% okay
t/parser............Unrecognized identifier s in argspec at
blib/lib/HTML/Parser.pm line 44.
t/parser............dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-7
Failed 7/7 tests, 0.00% okay
t/process...........Unrecognized identifier t in argspec at
blib/lib/HTML/Parser.pm line 75.
t/process...........dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-6
Failed 6/6 tests, 0.00% okay
t/tokeparser........Unrecognized identifier t in argspec at
blib/lib/HTML/TokeParser.pm line 27.
t/tokeparser........dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-6
Failed 6/6 tests, 0.00% okay
t/uentities.........skipped test on this platform
t/unbroken-text.....Unrecognized identifier t in argspec at
blib/lib/HTML/Parser.pm line 75.
t/unbroken-text.....dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-3
Failed 3/3 tests, 0.00% okay
t/xml-mode..........Unrecognized identifier t in argspec at t/xml-mode.t
line 18.
t/xml-mode..........dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-3
Failed 3/3 tests, 0.00% okay
Failed Test Status Wstat Total Fail Failed List of failed
----------------------------------------------------------------------------
---
t/api_version.t 2 512 3 1 33.33% 3
t/argspec-bad.t 6 5 83.33% 1-4, 6
t/argspec.t 255 65280 ?? ?? % ??
t/cases.t 255 65280 21 21 100.00% 1-21
t/comment.t 255 65280 1 1 100.00% 1
t/crashme.t 2 512 3 3 100.00% 1-3
t/declaration.t 255 65280 1 1 100.00% 1
t/default.t 255 65280 3 3 100.00% 1-3
t/dtext.t 255 65280 2 2 100.00% 1-2
t/filter.t 2 512 2 2 100.00% 1-2
t/handler-eof.t 255 65280 5 5 100.00% 1-5
t/handler.t 255 65280 11 10 90.91% 2-11
t/headparser.t 255 65280 3 3 100.00% 1-3
t/ignore.t 255 65280 4 4 100.00% 1-4
t/largetags.t 255 65280 2 2 100.00% 1-2
t/linkextor-bas 255 65280 5 5 100.00% 1-5
t/linkextor-rel 255 65280 4 4 100.00% 1-4
t/marked-sect.t 255 65280 ?? ?? % ??
t/offset.t 255 65280 1 1 100.00% 1
t/parsefile.t 255 65280 6 6 100.00% 1-6
t/parser.t 255 65280 7 7 100.00% 1-7
t/process.t 255 65280 6 6 100.00% 1-6
t/tokeparser.t 255 65280 6 6 100.00% 1-6
t/unbroken-text 255 65280 3 3 100.00% 1-3
t/xml-mode.t 255 65280 3 3 100.00% 1-3
2 tests skipped.
Failed 25/30 test scripts, 16.67% okay. 104/126 subtests failed, 17.46%
okay.
*** Error exit code 2
Stop.
/usr/bin/make test -- NOT OK
Running make install
make test had returned bad status, won't install without force
cpan>
------------------------------
Date: Tue, 3 Oct 2000 12:54:23 -0600
From: "Duke Normandin" <01031149@3web.net>
Subject: Re: Regex: Perl5 to Perl4 Problem
Message-Id: <qUpC5.3270$Jd4.25980@jekyl.ab.tac.net>
Bart Lateur wrote in message <9qmjtskb323d0otb94u2449fj5kq4h2top@4ax.com>...
>Duke Normandin wrote:
>
>
>>What would be the hard but efficient path in Perl4?
>
>It's not THAT inefficient. I don't think that any manual emulation would
>be any faster.
Thanks for all your *constructive* input! Reminds me a lot of the
PHP mailing list.
-duke
------------------------------
Date: Tue, 03 Oct 2000 18:54:21 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Regex: Perl5 to Perl4 Problem
Message-Id: <rkaktsooidsq6fqi2ug487ibb0pq95hh9f@4ax.com>
Duke Normandin wrote:
>> if($email =~ /(From|Received|Sender|Return-Path|Date):/) {
>> substr($email, 0, length $`) = "";
>> }
>
>What would be the hard but efficient path in Perl4?
Oh damned, I forgot about split. That is silly, because I have come up
with this alternative myself, a few moons ago.
my($pre, $match, $post) = split
/(From|Received|Sender|Return-Path|Date):/, $email, 2;
if (defined $post) {
$email = "$match:$post";
}
Not tested, I must admit.
--
Bart.
------------------------------
Date: Tue, 3 Oct 2000 12:59:01 -0600
From: "Duke Normandin" <01031149@3web.net>
Subject: Re: Regex: Perl5 to Perl4 Problem
Message-Id: <LYpC5.3271$Jd4.25998@jekyl.ab.tac.net>
Ren Maddox wrote in message ...
>"Duke Normandin" <01031149@3web.net> writes:
>> $email =~s/^.*?(From|Received|Sender|Return-Path|Date):/$:/s;
>
>I would think that something is missing after that dollar sign,
My typo...
>Oh, here is the break-down of what it is doing:
Thanks a bunch for your constructive and illuminating input! I'll
study your post in tandem with the tutorials that I've DLed.
-duke
------------------------------
Date: Tue, 03 Oct 2000 21:03:22 +0200
From: Toralf Lund <toralf@kscanners.com>
Subject: Remote execution (rsh) of Perl script (hanging processes)
Message-Id: <39DA2D79.C77524D5@kscanners.com>
I think I've seen a note on this before somewhere in some kind of Perl
related documentation, but I'm unable to find this now, so here we go:
Quite frequently when I start a perl script via the rsh command, rsh
will hang after the script has exited. There will be two "rsh" processes
left, and they have to be killed the hard way, i.e. using kill -9 .a.k.a
. kill -KILL. Any ideas how to avoid this?
I'm seeing this when two (Red Hat 6.2) Linux hosts are talking to each
other, and I'm using perl version 5.00503, but I seem to remember having
encountered this on other setups, too.
--
Toralf Lund <toralf@kscanners.no> +47 66 85 51 22
Kongsberg Scanners AS +47 66 85 51 00 (switchboard)
http://www.kscanners.no/~toralf +47 66 85 51 01 (fax)
------------------------------
Date: Tue, 3 Oct 2000 21:25:07 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Sendmail/Perl question
Message-Id: <Pine.GHP.4.21.0010032120040.7455-100000@hpplus03.cern.ch>
On Tue, 3 Oct 2000, Rip Curl jeopardized:
> ?????
> Oh no you didn't... This wasn't directed at me right?? Cause nowhere in the
> original post did they mention security.
If you don't understand that there is a security issue involved, and
won't admit it even when it's pointed out, then any advice from you is
even more dangerous than at first appeared.
Fortunately, you're still posting upside-down, which is an almost
sure-fire warning alarm around here.
------------------------------
Date: Tue, 03 Oct 2000 22:53:37 GMT
From: ovallari@tse.com (Oscar Vallarino)
Subject: socket I/O
Message-Id: <rkqC5.34031$Z2.505324@nnrp1.uunet.ca>
Hi folks!
I've been struggling with a couple of "how-to" items, and hope that
someone out there who might have hit these before may lend me a hand.
I have written a TCP server on a Sun solaris system and a TCP client
on a Windows NT machine also written in Perl.
The TCP server was written using Christiansen and Torkington's
Cookbook recipe 17.13, Non-Forking Servers.
My server is peculiar in that once the client connection is accepted,
I only write to each client. Things are working OK. These are the
functions I can't get to work.
(1)
I want to be able to terminate the TCP server using the keyboard
interrupt (Ctl-C) on my X windows screeen to the Sun. When I do this
I invoke a routine that performs the following code:
$SIG{INT} = \&_shutdown;
The shutdown routine does the following:
delete $inbuffer{$client};
delete $outbuffer{$client};
delete $ready{$client};
$select->remove($client);
close ($client);
This works but the system still retains the state of the port being in
use and rejects any further attempts to run my TCP server for some
time.
Attempted to use the call
$server->shutdown(2);
after the close call above to force the shutdown of the socket without
regards of the client's state, but his is rejected by the class with
the error:
Can't locate auto/IO/Socket/INET/shutdown.al in @INC (@INC contains:
/usr/local/lib/perl5/5.00503/sun4-solaris /usr/local/lib/perl5/5.00503
/usr/local/lib/perl5/site_perl/5.005/sun4-solaris
/usr/local/lib/perl5/site_perl/5.005 .) at nonforker.pl line 595
(2)
When things are working and I terminate my Windows NT client with a
Ctl-C, I get this error:
send: Cannot determine peer address at nonforker.pl line 230
and my server program terminates. Line 230 is:
$rv = $client->send($outbuffer{$client}, 0);
unless (defined $rv) {
# Whine, but move on.
warn "I was told I could write, but I can't.\n";
next;
}
The "unless" code never seems to get executed.
I'd greatly appreciate any suggestions about how to handle these two
items.
Thanks in advance,
Oscar
------------------------------
Date: Tue, 03 Oct 2000 19:54:59 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: socket I/O
Message-Id: <x7wvfp4s4t.fsf@home.sysarch.com>
>>>>> "OV" == Oscar Vallarino <ovallari@tse.com> writes:
OV> This works but the system still retains the state of the port being in
OV> use and rejects any further attempts to run my TCP server for some
OV> time.
see the Reuse option to IO::Socket::INET.
OV> Attempted to use the call
OV> $server->shutdown(2);
OV> after the close call above to force the shutdown of the socket without
OV> regards of the client's state, but his is rejected by the class with
hmm, i have never called shutdown on a socket. and calling after closing
the socket makes no sense. just use close. it works. i dunno why
shutdown is not found for you, it is for me.
OV> When things are working and I terminate my Windows NT client with a
OV> Ctl-C, I get this error:
OV> send: Cannot determine peer address at nonforker.pl line 230
OV> and my server program terminates. Line 230 is:
OV> $rv = $client->send($outbuffer{$client}, 0);
OV> unless (defined $rv) {
OV> # Whine, but move on.
OV> warn "I was told I could write, but I can't.\n";
OV> next;
OV> }
OV> The "unless" code never seems to get executed.
install linux over the NT box.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Tue, 03 Oct 2000 21:25:38 GMT
From: jonrasm@my-deja.com
Subject: some questions
Message-Id: <8rdis9$g1f$1@nnrp1.deja.com>
1. Removing characters from string
************************************
I am trying to remove some characters from
strings by using:
foreach $line (@line)
{
$line =~ tr/\"/ /;
}
This results in replacing " with space.
How can I remove " without leaving a space?
2. Empty an array
*****************
I am currently using
$#scores = -1;
to empty the array @scores.
Is there another way of doig it?
Jon
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 03 Oct 2000 18:51:31 GMT
From: ppopour@infoave.net
Subject: Telnet to Cisco AS5200
Message-Id: <8rd9rg$7kd$1@nnrp1.deja.com>
I have a script that captures the 'show modem' and 'show line' data
from a Cisco AS5200 using Net::Telnet. Recently I recieved a request
to clear the modem counters weekly. I modified the script to look and
the DOW and sent the 'clear mod counter' command at the end of the
script on Monday. Doesn't work.
I'm assuming that the
Clear "show modem" counters on all modems [confirm]
prompt I get back is causing the problem.
I have tried using $object->cmd function with a prompt changed to the
above returned string. Followed by a $object->print with a Y
I have tried using $object->print function with a short timeout
followed by another $object->print with a Y
Any suggestions?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 03 Oct 2000 15:29:21 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: Testing for numeric integer
Message-Id: <m3k8bpoehq.fsf@dhcp11-177.support.tivoli.com>
kcivey@cpcug.org (Keith Calvert Ivey) writes:
> Graham Daniell <gdaniell@wt.com.au> wrote:
>
> >Can anyone tell me how I test that a field contains ONLY a number,
> >without any decimal point in it? ie: a number like 1 or 2 or 199? Or
> >where to look to find the answer?
> >
> >It is for a web product ordering application and I want to ensure that
> >the user has entered a valid number of products, so I can multiply by
> >the unit price to get the total price.
>
> I think you'll want a stricter test than that, since "0" and
> "99999999999999999" are presumably not valid inputs. Anyway,
> see perlre, perlop, and perlfaq, along with the answers others
> have given.
Which leads to the way I usually handle this, which is to have an
allowed range and check for that. Then the need to check for a valid
number is completely removed, as the numeric comparison will take care
of that for you (assuming you are excluding 0).
if($number < 1 or $number > 99) {
# out of range
}
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Tue, 03 Oct 2000 21:15:03 +0200
From: Toralf Lund <toralf@kscanners.com>
Subject: The match operator & variables containing regexp-characters
Message-Id: <39DA3037.F5021CDF@kscanners.com>
My perl scripts sometimes exit with a syntax error in constructs of the
form
if($line~=m/$variable/) {
print($line, " matches\n");
}
Because the variable contains regexp special characters like '+' and
'*'. I don't have the error message in front of me right now, but it's
something about nested regexp characters, and I don't know if the
simplified code above would fail, but I think you get the general idea
without a more exact example.
The question is simply: Is there a way a can force the contents of the
variable to be taken literally, why otherwise retaining the regexp
functionality (i.e. I want to be able to prepend or append normal sub
expressions to the (literal) variable expansion)?
- Toralf
------------------------------
Date: Tue, 03 Oct 2000 12:54:27 -0700
From: Jim Cook <jcook@strobedata.com>
Subject: Re: The match operator & variables containing regexp-characters
Message-Id: <39DA3973.5F5DC88@strobedata.com>
> if($line~=m/$variable/) {
> print($line, " matches\n");
> }
>
> Because the variable contains regexp special characters like '+' and
would it work to use index instead? (Following code not tested.)
if (index($line, $variable) != $[-1) { print $line; }
--
jcook@strobedata.com Live Honourably 4/1 - 4/3 + 4/5 - 4/7 + . . .
2000 Tuesdays: Feb/last 4/4 6/6 8/8/ 10/10 12/12 9/5 5/9 7/11 11/7 3/14
Strobe Data Inc. home page http://www.strobedata.com
My home page O- http://jcook.net
------------------------------
Date: 3 Oct 2000 20:10:36 GMT
From: bmetcalf@nortelnetworks.com (Brandon Metcalf)
Subject: Re: The match operator & variables containing regexp-characters
Message-Id: <8rdefs$1qi$1@spinner.corpeast.baynetworks.com>
toralf@kscanners.com writes:
> My perl scripts sometimes exit with a syntax error in constructs of the
> form
>
> if($line~=m/$variable/) {
> print($line, " matches\n");
> }
I'm sure it fails because there is no such operator as ~=.
> Because the variable contains regexp special characters like '+' and
...
> The question is simply: Is there a way a can force the contents of the
> variable to be taken literally, why otherwise retaining the regexp
> functionality (i.e. I want to be able to prepend or append normal sub
> expressions to the (literal) variable expansion)?
if ($line =~ /\Q$variable/) {
...
}
Brandon
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 4509
**************************************
