[8857] in Perl-Users-Digest
Perl-Users Digest, Issue: 2474 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri May 1 17:07:48 1998
Date: Fri, 1 May 98 14:00:32 -0700
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, 1 May 1998 Volume: 8 Number: 2474
Today's topics:
Re: @ARGV in Win32 johnnie@NOPERSONALMAIL.edu
Re: \D fails when [^0-9] doesn't <danboo@negia.net>
Re: \D fails when [^0-9] doesn't (Mark-Jason Dominus)
Re: \D fails when [^0-9] doesn't (Charles DeRykus)
Re: ActiveWare PerlIS.dll <@sofnet.com>
Re: Adding 600 users to a Linux password file <zenin@archive.rhps.org>
Re: Adding 600 users to a Linux password file <rootbeer@teleport.com>
Re: Adding 600 users to a Linux password file <lr@hpl.hp.com>
Re: alarm otis@POPULUS.net
Any Ideas on netgroup editing? <charudatta@hotmail.com>
Bizarre copy of HASH in debugger <jflood@qsun.ho.att.com>
Re: Bizarre copy of HASH in debugger (John Porter)
Re: Code works on Unix, and MacPerl. Why not Win32? <grinch@whoville.com>
Re: Code works on Unix, and MacPerl. Why not Win32? <rootbeer@teleport.com>
Re: Evaluation of hex character representation in doub <jdf@pobox.com>
Re: How do I print a string that is in a certain format <alpaca@iname.com>
Re: How to Schedule Program Execution <ahdiii@webspan.net>
Re: how to write error log msg when using multiple modu (Mark-Jason Dominus)
HTML::Parser carruda@propub2.com
Re: HTML::Parser (John Porter)
Re: http Reg Exp <joneil@cks.ssd.k12.wa.us>
Man...I really need to get 'The Camel Book' this weeken <ahdiii@webspan.net>
Re: Man...I really need to get 'The Camel Book' this we <jdf@pobox.com>
Re: Man...I really need to get 'The Camel Book' this we (John Porter)
Re: Man...I really need to get 'The Camel Book' this we <alpaca@iname.com>
Re: need help with hashtable size/memory (Mark-Jason Dominus)
Re: need help with hashtable size/memory <rootbeer@teleport.com>
Perl for VMS <feck@fre.fsu.umd.edu>
perlembed query anranga@blr.vsnl.net.in
Re: Personal Web Server and Perl <robmoral@cisco.com>
problem reading DB_File on win32 platform (Wing Choy)
Re: Ref to an LVALUE??? I expected a simple SCALAR ref (Mark-Jason Dominus)
Re: Safest way to read from a socket? (Mark-Jason Dominus)
Re: Safest way to read from a socket? <zenin@archive.rhps.org>
Re: seg fault when matching long string <rootbeer@teleport.com>
Test httpd server status (Robert Watkins)
useing functions in other perl programs via 'require' (Gecko)
Re: useing functions in other perl programs via 'requir (John Porter)
Re: Using executable pathname to define include path <rootbeer@teleport.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 May 1998 14:14:21 -0600
From: johnnie@NOPERSONALMAIL.edu
Subject: Re: @ARGV in Win32
Message-Id: <6idaet$3ubq@holly.ColoState.EDU>
How about this? :)
--- Code starts
print "@ARGV\n";
--- Code ends
I just found the Win32 FAQ last night so only throw me an answer
is ya know. :) Thanks!
- Johnnie B
--
- Johnnie Blanco Jr.
- "Just can't sit. Gotta get jiggy wit it, mmm, that's it!"
- Will Smith [Gettin Jiggy Wit It]
------------------------------
Date: Fri, 01 May 1998 15:31:06 -0400
From: Dan Boorstein <danboo@negia.net>
Subject: Re: \D fails when [^0-9] doesn't
Message-Id: <354A22FA.D76F11E6@negia.net>
Terrence Brannon wrote:
>
> #!/usr/bin/perl
>
> $file_style="(.+)(,PID=[0-9]+)";
>
> opendir(DOT, './');
> GetOptions ( 'ignore-headers!' => \$opt_ignore_headers );
>
> #$ignore_header_re="^[^0-9]+"; # THIS DOES NOT!!!!!!
> $ignore_header_re="^\D+"; # <-------- THIS FAILS!!!!!!!!!
i think running this snippet of code should elucidate the problem:
$ignore_header_re1 = "^\D+";
$ignore_header_re2 = '^\D+';
print "$ignore_header_re1\n";
print "$ignore_header_re2\n";
a good rule of thumb is that, if your string does not need
interpolation then don't wrap it in double quotes.
hope this helps,
--
Dan Boorstein home: danboo@negia.net work: danboo@y-dna.com
"THERE IS AS YET INSUFFICIENT DATA FOR A MEANINGFUL ANSWER."
- Cosmic AC
------------------------------
Date: 1 May 1998 16:08:17 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: \D fails when [^0-9] doesn't
Message-Id: <6ida3h$n94$1@monet.op.net>
Keywords: coco fold incurrer officiate
In article <lbogxh6dzw.fsf@seal.usc.edu>,
Terrence Brannon <brannon@lnc.usc.edu> wrote:
>$ignore_header_re="^\D+"; # <-------- THIS FAILS!!!!!!!!!
Backslash is special in double-quoted strings. The value you just
assigned to $ignore_header_re has three characters, not four. Try
$ignore_header_re='^\D+';
or $ignore_header_re="^\\D+";
------------------------------
Date: Fri, 1 May 1998 19:52:44 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: \D fails when [^0-9] doesn't
Message-Id: <EsAn7w.BwI@news.boeing.com>
In article <lbogxh6dzw.fsf@seal.usc.edu>,
Terrence Brannon <brannon@lnc.usc.edu> wrote:
>
>
>#!/usr/bin/perl
>
>$file_style="(.+)(,PID=[0-9]+)";
>
>opendir(DOT, './');
>GetOptions ( 'ignore-headers!' => \$opt_ignore_headers );
>
>#$ignore_header_re="^[^0-9]+"; # THIS DOES NOT!!!!!!
>$ignore_header_re="^\D+"; # <-------- THIS FAILS!!!!!!!!!
>
Either of these:
$ignore_header_re = "^\\D+"; # the perils of "" type processing
$ignore_header_re = '^\D+'; # single ' if "" processing unneeded
HTH,
--
Charles DeRykus
------------------------------
Date: Fri, 1 May 1998 14:49:13 -0500
From: "Kevin" <@sofnet.com>
Subject: Re: ActiveWare PerlIS.dll
Message-Id: <354a274f.0@newscene>
Most likely, you need to add the following as the first line of output to
the browser followed by a blank line:
Content-type: text/html
Brian Schoenhofer wrote in message <6id2gc$3d0$1@news.interlog.com>...
>I am trying to get PerlIS.dll to work with NTW 4.0 service pack 3 and
>personal web server. I believe it is setup correctly but I have 1 problem.
>I have a file "test.cgi" in a scripts directory. It looks like this:
>
>select(STDOUT);
>print("<H1>Hello</H!>");
>
>When I hit it with the browser I get a blank page. When there is a syntax
>mistake (like forgetting a semi-colon) I get a message saying "the script
>did not produce any output.". This indicates that the PerlIS dll is
running
>and checking syntax but not sending any output.
>
>Any ideas?
>
>Thanks.
>Brian
>
>
------------------------------
Date: 1 May 1998 19:25:40 GMT
From: Zenin <zenin@archive.rhps.org>
Subject: Re: Adding 600 users to a Linux password file
Message-Id: <894051193.171473@thrush.omix.com>
[posted & mailed]
Wiebe de Wolf <wiebe@worldcom.nl> wrote:
: I have to add 600 users (abo's) to a Linux password file. I have a list
: with the users and the passwords I like to use as a parameter.
: My idea was to use htpasswd in a perl script, but Perl is rather new to
: me
HTTPD::UserAdmin found in the HTTPD-Tools-0.55.tar.gz package of
your local CPAN. I found this in 5 seconds doing a search for
'htpasswd' on the WAIT search engine:
http://amaunet.cs.uni-dortmund.de/projects/ir/SFgate/CPAN/
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Fri, 01 May 1998 19:43:02 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Wiebe de Wolf <wiebe@worldcom.nl>
Subject: Re: Adding 600 users to a Linux password file
Message-Id: <Pine.GSO.3.96.980501123828.2859E-100000@user2.teleport.com>
On Fri, 1 May 1998, Wiebe de Wolf wrote:
> My idea was to use htpasswd in a perl script, but Perl is rather new to
> me
I believe that there's a module to deal with htpasswd files; you should be
able to find it on CPAN. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 1 May 1998 13:28:48 -0700
From: "Larry Rosler" <lr@hpl.hp.com>
Subject: Re: Adding 600 users to a Linux password file
Message-Id: <6idba8$lgi@hplntx.hpl.hp.com>
Brian Mathis wrote in message <3549E279.7D8BA4A0@kodak.com>...
...
> $str =
>'qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890./';
> $len = length($str);
> srand( time^($$ + ($$<<15)) );
> $salt = substr($str, rand($len), 1) . substr($str, rand($len), 1);
...
>ps: if anyone can come up with a better way to define $str, let me
>know..
This is an even better way, I think:
> $len = @str = ('a' .. 'z', 'A' .. 'Z', '0' .. '9', '.', '/');
...
> $salt = $str[rand $len] . $str[rand $len];
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: Fri, 01 May 1998 15:38:58 -0600
From: otis@POPULUS.net
Subject: Re: alarm
Message-Id: <6idbt3$dpm$1@nnrp1.dejanews.com>
You have to specify the subroutine to be called when ALRM SIGnal comes up.
Here is how:
# declare the subroutine to get called - \& means a reference to a subroutine
$SIG{'ALRM'} = \&signal_handler;
# now implement that sub any way you want, for example
sub signal_handler
{
local($sig) = @_;
print "CAUGHT SIGNAL: $sig \n";
if ($sig eq 'ALRM') {
print "Alarm...\a\n";
}
else {
print "$O received SIG$sig\n";
print "Aborting....\n";
exit(0);
}
}
helps?
Otis
In article <3549DEA1.4CF231B8@huron.net>#1/1,
Stephen Hill <buck@huron.net> wrote:
>
> I want to call a subroutine, but have a time limit on the routine. If
> the limit is hit, it exits the routine and continues with the rest of
> the script. Below is my attempt to do it, but when the alarm reaches 5
> seconds it exits the whole script, I want it to go back to the script
> and keep working away.
>
> & SubThingy;
> print "It didn't kill the whole script, just the subroutine";
> exit;
>
> sub SubThingy{
> alarm(5);
> sleep 40;
> print "hello world";
> }
>
> Any suggestions?
>
> buck@huron.net
>
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Fri, 01 May 1998 14:45:44 -0400
From: Charudatta Deodas <charudatta@hotmail.com>
Subject: Any Ideas on netgroup editing?
Message-Id: <354A1858.5DA346C7@hotmail.com>
Hello All,
I am planning to add a module to the Adduser (NIS) script. As a part of
the script I need to add user (as (-, user, -) tripplet) to the
/etc/netgroup. The operator is going to decide the group for the user,
which is going to be user input it the script.
Is there any way to know the string length of the string? As I can't
concat the triplet to the respective group entry due to the limitation
of 1024 characters. In that case I'll have to
do a lot of juggling (like creating a new sub-group, like group01 and
breaking the line etc....).
Is there anyway to find string length? Any suggestions of doing this
task?
Thanks in advance.
Charu [datta Deodas]
------------------------------
Date: Fri, 01 May 1998 16:25:55 -0400
From: Jerry Flood <jflood@qsun.ho.att.com>
Subject: Bizarre copy of HASH in debugger
Message-Id: <354A2FD3.A71604E2@qsun.ho.att.com>
I'm not sure if my code is wrong or there is a bug in the debugger.
Code:
my %hash;
$hash{key} = value;
$hashref = \%hash;
print "${%$hashref}{key}\n";
results:
perl xxx.pm
value
perl -d xxx.pm
Stack dump during die enabled outside of evals.
Loading DB routines from perl5db.pl patch level 0.94
Emacs support available.
Enter h or `h h' for help.
main::(xxx.pm:2): my %hash;
DB<1> r
Bizarre copy of HASH in leave at xxx.pm line 5, <IN> chunk 1.
Is it me or the debugger ?
Thanks
Jerry Flood
jerryflood@att.com
--
M. J. Flood Email: jerryflood@att.com
AT&T Data Services Development Phone: +1 732.949.9706
Room 2G-214, 101 Crawfords Corner Rd Alt: +1 732.866.1602
Holmdel, NJ 07733-3030 http://qweb.ho.att.com/~jflood
------------------------------
Date: Fri, 01 May 1998 20:43:48 GMT
From: jdporter@min.net (John Porter)
Subject: Re: Bizarre copy of HASH in debugger
Message-Id: <MPG.fb3ff96cc09c31b98969b@news.min.net>
On Fri, 01 May 1998 16:25:55 -0400,
in article <354A2FD3.A71604E2@qsun.ho.att.com>,
jflood@qsun.ho.att.com (Jerry Flood) wrote:
> I'm not sure if my code is wrong or there is a bug in the debugger.
>
> Code:
>
> my %hash;
> $hash{key} = value;
> $hashref = \%hash;
> print "${%$hashref}{key}\n";
>
> results:
> perl xxx.pm
> value
>
> perl -d xxx.pm
> Stack dump during die enabled outside of evals.
>
> Loading DB routines from perl5db.pl patch level 0.94
> Emacs support available.
>
> Enter h or `h h' for help.
>
> main::(xxx.pm:2): my %hash;
> DB<1> r
> Bizarre copy of HASH in leave at xxx.pm line 5, <IN> chunk 1.
>
> Is it me or the debugger ?
Well, it's your code, so....
Try
${$hashref}{key}
instead of
${%$hashref}{key}
and everything will be peachy.
John Porter
------------------------------
Date: Fri, 1 May 1998 14:59:47 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: Code works on Unix, and MacPerl. Why not Win32?
Message-Id: <6id52k$mqc@fridge.shore.net>
Pamela Culpepper wrote in message <6icp4h$prb@gazette.bcm.tmc.edu>...
>I am attempting to port Perl scripts that execute
>correctly using Perl on Solaris2 and MacPerl on the
>Mac to Win32 Perl.
>
>The following sub works fine on Unix and the Mac,
>but not on Win32.
>
> print("Enter sequence file name (wildcard okay, return when done): ");
> $_ = <STDIN>; &do_exit(0) unless $_; chop;
I think 'chop' may be causing you some problems. On both UNIX & the Mac,
newlines are represented by one ASCII character, but on Win32, it's actually
a two-character sequence.
Try using 'chomp' instead of 'chop' to avoid the problem. Where 'chop'
removes the last character of the string without regard to what that
character may be, 'chomp' removes a trailing newline, taking platform
differences into account.
-grinch
--
-----
"It's not real coffee unless the sugar cubes float." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Fri, 01 May 1998 20:41:55 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Pamela Culpepper <culpep@bcm.tmc.edu>
Subject: Re: Code works on Unix, and MacPerl. Why not Win32?
Message-Id: <Pine.GSO.3.96.980501132848.2859J-100000@user2.teleport.com>
On 1 May 1998, Pamela Culpepper wrote:
> Subject: Code works on Unix, and MacPerl. Why not Win32?
You've got a lot of code. Can you cut it down to just a few lines which do
something different on Win32? That would be a big help.
> @_ = &glob_files($_);
Generally, assigning to @_ as a whole is not done in Perl programs. That
is, @_ is a special-purpose array; if you need a general-purpose array,
you should usually create a my() variable. (It'll be faster, too.) I don't
_think_ this is the problem in your application, though.
> # Keep this at the end of the file, the globbing part throws off perl-mode
> # in emacs.
There's always one more bug... :-)
> sub glob_files
> {
> local($_) = @_;
> local(@a);
Should probably use my(), but I don't _think_ that's the bug.
> @a = <${_}>;
Hmmm... That's okay, but you might be able to avoid confusing emacs's
formatter if you use the glob function, instead. Of course, however you
call it, globbing is done differently on Win32 than on other systems, but
I don't _think_ that's your problem.
> grep(-f, @a);
> }
It might be better to write that code to use readdir, to avoid the
vagaries of globbing. I think there's a module which may be able to help.
You may discover something from examining some of those variables while
stepping through your code in the Perl debugger. Then again, you may not!
:-)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 01 May 1998 15:40:13 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: "Glenn Morgan" <gmorgan@photogrpahics.co.uk>
Subject: Re: Evaluation of hex character representation in double quoted strings
Message-Id: <u379zpw2.fsf@mailhost.panix.com>
[posted and mailed]
"Glenn Morgan" <gmorgan@photogrpahics.co.uk> writes:
> %entities = ('&', '\x26', '∧', '\xDEm1', '*', '*', .........)
#!//c/perl/bin/perl -w
my %entities = ('&', '\x26', '∧', '\xDEm1', '*', '*');
$_ = "This has an &, an *, and an &undefined; character.\n";
s/(&[a-zA-Z.]+;)/exists $entities{$1} ? qq{"$entities{$1}"} : qq{"$1"}/gee;
print;
__END__
I don't know if this fits your criterion of "a neat way," but it
works...
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: 1 May 1998 20:25:05 GMT
From: "Allan M. Due" <alpaca@iname.com>
Subject: Re: How do I print a string that is in a certain format?
Message-Id: <6idb31$8ra$0@206.165.146.151>
John Porter wrote in message ...
># parse it up into a table (2-d array):
>@dd = map { /^\((.*)\)$/ ? [split(/:\s*/,$1)] : [$_] } split(/,\s*/,$a);
>
Yoeks!
Ok, I know what the above is doing, because I know how to use the print
command :-). However, I am a bit vague the hows. I have just read the map
material in the perlfunc manpage and scoured my books on the map function
(and I have to say the implementation of the Schwartzian Transform leaves me
a bit baffled too) and I am still not clear on what is happening above. If
anyone is willing to illuminate this pithy bit of code I would be eternally
grateful (well at least till the end of the month). I under stand the
basics but just not seeing how the above works.
Just to be clear, I get the matching in the front (looking for the
perens), if they are found you do what is before ?, if not you do what is
after the :, and this is all being done with the split at the end, and I
understand the split parts. I just don't see how this ends up in a
multi-dimensional array.
I have only been working on learning Perl for 4 weeks now, three weeks
reading the clp.misc newsgroup. It has been fascinating. You can learn so
much reading the questions, trying to figure it out on your own and then
checking your solution against the ones posted. Very cool. I have a
background in programming and Matrix Algebra so I get the ideas it is the
implementation that is obscure at times. Now if we were doing this in Gauss
I would know what was going on <grin>. Other resources regarding map would
be appreciated.
Anyway, just want to say thanks for a great educational experience so
far.
AmD
Allan M. Due
Due@discovernet.net
Due@WhiteCrow.net
"There are two major products that come out of Berkeley: LSD and UNIX. We
don't believe this to be a coincidence."
-Jeremy S. Anderson
------------------------------
Date: Fri, 01 May 1998 16:02:44 -0400
From: Arthur Dardia <ahdiii@webspan.net>
Subject: Re: How to Schedule Program Execution
Message-Id: <354A2A64.5ADC177F@webspan.net>
The program would only run when the visitor hits the site. This means
that he will trigger the update? Then he won't get the nightly update.
:) But, that might be the only way to do it.
Rick Alber wrote:
> I run a site, www.drscience.com, which is automatically updated each
> night via a PERL script. The script is triggered by a crontab program
> running on my ISP's Apache server. Unfortunately, I soon won't be able
> to use a crontab program and would like to figure out a way to trigger
> the program each night using PERL or javascript. If anyone out there
> has any ideas I'm all ears.
>
> The program needs to run sometime between midnight and 3am each night.
> I get plenty of traffic on the Dr. Science site, so I can count on
> many visitors hitting the home page during that time. My thought was
> to run a small program each time a visitor hit the home page that
> checked to see whether it was between midnight and 3am and, if the
> program had not already been run that evening, to call the updating
> program.
>
> Does this make sense? Or is there another approach that would be more
> efficient? Any ideas are welcome.
>
> Thanks.
>
> ---- Rick Alber
------------------------------
Date: 1 May 1998 16:27:38 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: how to write error log msg when using multiple modules
Message-Id: <6idb7q$nd4$1@monet.op.net>
Keywords: aristocracy floor glisten oratorical
In article <6icudg$7sq$1@ocean.cup.hp.com>,
Aaron Kushner <akushner@cup.hp.com> wrote:
>I am working on a project that has several modules and would like to
>have error messages written to a common log file. I had been using the
>'die' command, but the program will be running as a daemon now, and I
>would rather log error messages that occur within the different modules
>instead of halting the program.
The STDERR filehandle is always in the main package, so
You could have the main package do
open STDERR, ">> $ERR_FILE" or die ...;
once, and then any module that does
warn ...;
or print STDERR ...;
will send the message to the error log file.
Alternatively, you could have the modules call
main::log_error(.....);
And then write main::log_error to do whatever you like. This is a
more flexible solution because `log_error' can have all sorts of
interesting semantics:
sub log_error {
my $severity = shift;
return if $severity < $verbosity;
print STDERR @_;
}
If calling a function in another package gives you the willies for
some silly reason, you can have the module do
*log_error = \&main::log_error;
to import it; then log_error(...) will be the same as main::log_error(...);
------------------------------
Date: Fri, 01 May 1998 15:14:08 -0600
From: carruda@propub2.com
Subject: HTML::Parser
Message-Id: <6idaef$bm6$1@nnrp1.dejanews.com>
I'm having problems getting the output from the
HTML Parser module. I get "HTML::Parser=HASH(0x7432b4)"
as the result.
How do I get the output from the code below to be readable as
a group of variables (i.e. $tag,$attr,$attrseq,$origtext)?
I've tried the sample code from the "readme" file
and it has the same results.
###################
use HTML::Parser;
$p = HTML::Parser->new;
$chunk = "<b>fff</b>";
print $p->parse($chunk);
###################
I'm using the Win32 port of perl 5.004_04.
Thanks.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Fri, 01 May 1998 20:38:03 GMT
From: jdporter@min.net (John Porter)
Subject: Re: HTML::Parser
Message-Id: <MPG.fb3fe40d30f572098969a@news.min.net>
On Fri, 01 May 1998 15:14:08 -0600,
in article <6idaef$bm6$1@nnrp1.dejanews.com>,
carruda@propub2.com (carruda@propub2.com) wrote:
> I'm having problems getting the output from the
> HTML Parser module. I get "HTML::Parser=HASH(0x7432b4)"
> as the result.
>
> ###################
> use HTML::Parser;
>
> $p = HTML::Parser->new;
> $chunk = "<b>fff</b>";
> print $p->parse($chunk);
The docs state that the return value of the parse()
method is the parse object (namely $p, in this case)
-- obviously not suitable for printing.
Did you see where it says:
In order to make the parser do anything interesting, you
must make a subclass where you override one or more of the
following methods as appropriate:
declaration
start
end
text
comment
Did you create a subclass of HTML::Parser? If not, then
you can't possibly expect to get anything interesting to print.
A better approach, if you're new at this (as I am), is to use
HTML::TreeBuilder instead. It subclasses HTML::Parser, and
also HTML::Element. It's very easy to use.
hth,
John Porter
------------------------------
Date: Fri, 01 May 1998 13:10:51 -0700
From: Jerome O'Neil <joneil@cks.ssd.k12.wa.us>
To: ? the platypus {aka David Formosa} <dformosa@st.nepean.uws.edu.au>
Subject: Re: http Reg Exp
Message-Id: <354A2C4B.ABD3E518@cks.ssd.k12.wa.us>
? the platypus {aka David Formosa} wrote:
> >If you hadn't conveniently snipped the examples I put in my post, you
> >would have known what I meant. How do you extract the following URLs?
>
> >URL1: http://myserver.com/dir/file.
> >URL2: http://myserver.com/dir/file
>
> These are not URLs. urls start with <URL: and end with a >
>
What? I think you need to go back and re-read the RFC.
The Appendix discusses the use of URL and < > as aids in context. They are not part of
the URL, and are recomended for clarity.
In fact, here it is.
For this purpose,
is recommended that angle brackets ("<" and ">"), along with the
prefix "URL:", be used to delimit the boundaries of the URL. This
wrapper does not form part of the URL and should not be used in
contexts in which delimiters are already specified.
Jerome
------------------------------
Date: Fri, 01 May 1998 16:00:24 -0400
From: Arthur Dardia <ahdiii@webspan.net>
Subject: Man...I really need to get 'The Camel Book' this weekend.
Message-Id: <354A29D7.E8B5CB98@webspan.net>
Here is my code:
--- start my code ---
print("Multiplcation Tables in Perl.\n");
$m1 = 2;
$ma;
$mb;
$mc;
$ma = m1*1;
$mb = m1*2;
$mc = m1*3;
print(" 1 2 3\n");
print("$m1 $ma $mb $mc\n");
chop($m1);
chop($ma);
chop($mb);
chop($mc);
--- end my code ---
okay...this is the first version of my first program. It's supposed to
output the first 3 numbers in the 2nd multiplication table (2,4,6).
But, it just prints out:
C:\Program Files\Perl\eg>perl hank
Multiplcation Tables in Perl.
1 2 3
2 0 0 0
C:\Program Files\Perl\eg>
How do I make it print out numbers instead of 0? Am I defining the
variables wrong?
This weekend I'm going to get 'Learning Perl' and then 'Programming
Perl' whenever I finish with the first one. But until then can someone
help me with this easy-to-solve, newbie problem?
Hank
PS - After this version, I'm going to make it run from a command line,
so that if u do "perl hank 6" it'll find the first 3 numbers in the 6th
multiplcation table (6,12,18).
------------------------------
Date: 01 May 1998 16:25:18 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: ahdiii@webspan.net
Subject: Re: Man...I really need to get 'The Camel Book' this weekend.
Message-Id: <d8dxof9d.fsf@mailhost.panix.com>
Arthur Dardia <ahdiii@webspan.net> writes:
> --- start my code ---
> print("Multiplcation Tables in Perl.\n");
You're missing the most important line of all
#!perl -w
which would have caused perl to warn you about your error, coming
up...
> $ma = m1*1;
There's no such thing as m1. You meant $m1.
> chop($mb);
Why are you chopping variables that you've already printed, and that
you're not using anymore, and that never had newlines at the end?
"You keep using that word. I do not think it means what you think it
means."
C:\> perldoc -f chop
> This weekend I'm going to get 'Learning Perl'
Then you've saved me the trouble of recommending it! Good luck, and
have fun with the Llama.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Fri, 01 May 1998 20:27:31 GMT
From: jdporter@min.net (John Porter)
Subject: Re: Man...I really need to get 'The Camel Book' this weekend.
Message-Id: <MPG.fb3fbcbfd58b662989699@news.min.net>
On Fri, 01 May 1998 16:00:24 -0400,
in article <354A29D7.E8B5CB98@webspan.net>,
ahdiii@webspan.net (Arthur Dardia) wrote:
> Here is my code:
>
> --- start my code ---
> print("Multiplcation Tables in Perl.\n");
>
> $m1 = 2;
> $ma;
> $mb;
> $mc;
What do you suppose those last three lines are doing?
Declaring the variables? Not so.
Perl variables spring into existence as needed, rather
like in Basic. So delete those three lines; they're
not doing anything.
> $ma = m1*1;
> $mb = m1*2;
> $mc = m1*3;
There's your problem: shouldn't m1 be $m1, with a dollar sign?
> print(" 1 2 3\n");
> print("$m1 $ma $mb $mc\n");
> chop($m1);
> chop($ma);
> chop($mb);
> chop($mc);
And what do suppose these chops are doing?
chop is a string operator; you probably don't want to use it
on numbers.
If you want to reset a numeric variable to 0, or to an
undefined value, you can do either of these:
$ma = 0;
$mb = undef;
as you see fit.
Here's a helpful tip: run perl with the -w commandline
switch. It would have told you about the missing dollarsigns.
Hope this helps,
John Porter
------------------------------
Date: 1 May 1998 20:35:50 GMT
From: "Allan M. Due" <alpaca@iname.com>
Subject: Re: Man...I really need to get 'The Camel Book' this weekend.
Message-Id: <6idbn6$a1v$0@206.165.146.151>
Hi Arthur,
You seem to be missing some $. You might want to try:
$ma = $m1*1;
$mb = $m1*2;
$mc = $m1*3;
and don't going chopping thinks without a reason. It can get you in
trouble. Chomp is much safer. Lastly, no need to intialize the vars like
>$ma;
>$mb;
>$mc;
Hope you enjoy the llama book
Allan M. Due
Due@discovernet.net
alpaca@iname.com #in honor of Perl
"There are two major products that come out of Berkeley: LSD and UNIX. We
don't believe this to be a coincidence."
-Jeremy S. Anderson
>
------------------------------
Date: 1 May 1998 16:21:35 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: need help with hashtable size/memory
Message-Id: <6idasf$nb7$1@monet.op.net>
Keywords: Bantu blastula septate voice
In article <3549E32B.803D4B0A@globin.bio.warwick.ac.uk>,
Caroline Hadley <hadley@globin.bio.warwick.ac.uk> wrote:
>I'm creating 3 hashtables in my program, 2 of which have about 450,000
>'keys' and associated values. The other one is smaller. I'm having huge
>problems with the size of the program - most of the time it just crashes
>after reaching about 120+Mb. I can't understand why it's getting this
>big when the hashtables aren't that large.
Me neither. I just tested it by loading in a file with 270,000 keys
and about 2.8MB of real data, and the perl process only got to consume
about 40MB of VM. I think there must be something going on here
that's relevant that you didn't think to mention.
>I'm trying to incorporate the Tie::SubstrHash module, but so far
>haven't managed to get it to work.
That will probably make the problem worse, not better.
> Is there any alternative??
Put the data into a DBM file. A DBM file has the same interface as a
hash, but the data is stored on disk instead of in memory. You can
write a small program that does:
use DB_File;
tie %db => DB_File, "data.db", O_RDWR | O_CREAT, 0666
or die "Couldn't create database: $!; aborting";
while (<>) {
...
$db{$key} = $value; # Store in database
}
untie %db;
Then run this program once on your data to construct the database.
Now, back in the real program, if you have
tie %db => DB_File, "data.db", O_RDONLY, 0666;
%db will be appear populated with all the appropriate data, but very
little real memory will be consumed because data are fetched from the
disk as needed.
If your Perl doesn't have DB_File, you can use SDBM_File or one of the
others.
------------------------------
Date: Fri, 01 May 1998 20:25:34 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Caroline Hadley <hadley@globin.bio.warwick.ac.uk>
Subject: Re: need help with hashtable size/memory
Message-Id: <Pine.GSO.3.96.980501131952.2859I-100000@user2.teleport.com>
On Fri, 1 May 1998, Caroline Hadley wrote:
> I'm trying to incorporate the Tie::SubstrHash module, but so far haven't
> managed to get it to work. Is there any alternative??
Getting it to work might be a good alternative. :-) Or, you could use a
different kind of tie, such as the ones from the dbm* routines. Hope this
helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 01 May 1998 16:13:36 -0500
From: "Teresa J. Feck" <feck@fre.fsu.umd.edu>
Subject: Perl for VMS
Message-Id: <354A3ADB.25B0@fre.fsu.umd.edu>
Does any one know of a source to for VMS Perl version 5.003?
Thanks in Advance,
Teresa Feck
------------------------------
Date: Fri, 01 May 1998 13:53:02 -0600
From: anranga@blr.vsnl.net.in
Subject: perlembed query
Message-Id: <6id5me$4ec$1@nnrp1.dejanews.com>
Hi,
I need some help with embedding perl.
I have enclosed a sample
application for unix. I compile this and generate the binary say inter.
Then invoke it as "inter emb.pl". emb.pl is a one line perl script that
does use Fcntl;
I get the following error.
Can't find 'boot_Fcntl'
symbol in /usr/perl_soft/lib/perl5/auto/Fcntl/Fcntl.sl at emb.pl line 1
BEGIN failed--compilation aborted at emb.pl line 1.
When I try to run the
same thing as "perl emb.pl", I have no problems. When I built perl, I said
I wanted to use dynamic loading, and also have created all the extension
modules(including Fcntl) to be dynamically loadble(this was the default
choice). I tried this out on a HP machine.
regards
Ranganath
******************************ENCLOSURE
BEGIN********************************** #ifdef __cplusplus
extern "C" {
#endif
#include <stdio.h>
#include <EXTERN.h> /* from the Perl distribution
*/#include <perl.h> /* from the Perl distribution */
#ifdef __cplusplus
}# define EXTERN_C extern "C"
#else
# define EXTERN_C extern
#endif
static PerlInterpreter *my_perl; /*** The Perl interpreter ***/
/* Do not
delete this line--writemain depends on it */EXTERN_C void boot_DynaLoader
_((CV* cv));
static void
xs_init()
{
char *file = __FILE__;
{
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); }
}
int
main(int argc, char **argv, char **env){
my_perl = perl_alloc();
perl_construct(my_perl); perl_parse(my_perl, xs_init, argc, argv, env);
perl_run(my_perl); perl_destruct(my_perl);
perl_free(my_perl);
}
******************************ENCLOSURE END
**********************************
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Fri, 01 May 1998 15:24:09 -0400
From: Roberto Morales <robmoral@cisco.com>
To: Brian Mathis <brianm@kodak.com>
Subject: Re: Personal Web Server and Perl
Message-Id: <354A2159.F3B2E865@cisco.com>
Your script is fine. Your server does not know what to do with the
script or does not have rights to execute scripts....
I forget if PWServer has an administration utillity, but if it does you
need to find the directory in question (webshare/cgi-bin?) and allow
execution of scripts.
I honestly think that you should scrap the PWS and instead use OMNIHttpd
instead. It installs in a flash and is totally Perl ready!
various links that might help you:
http://www.indio.com/perl/req.htm
-roberto
Brian Mathis wrote:
>
> Abdul Nasar wrote:
> >
> > I have successfully installed Perl on my W95 PC . I wrote a cgi script on MS
> > Personal Web Server and a submit form(which calls this script) gives an
> > error
> > "HTTP 1.0 / 501 NOT SUPPORTED"
> > I have associated .pl files to execute perl.exe (as I got the information
> > from this news group few days back). If I double-click the above script it
> > is executed(it was intented to create a txt file)
> >
> > I am new to perl and so can anybody tell me in detail
> >
> > Nasar
>
> This is not a perl problem, but a problem with your web server set up.
> I suggest looking up information about how to set up your web server to
> deal with CGI. This topic has been discussed before, and you can
> probably find some pretty good answers searching www.dejanews.com.
>
> Brian Mathis
> orev
------------------------------
Date: 1 May 1998 19:10:13 GMT
From: whc@mink.att.com (Wing Choy)
Subject: problem reading DB_File on win32 platform
Message-Id: <6id6ml$7uv@newsb.netnews.att.com>
I have installed the DB_File extension on Windows NT.
I am not having any success trying to read a DB_File
created on Unix on the Windows NT machine.
I failed right in the beginning trying to tie to the
DB_File. If the DB_File is created in the NT, it
seems it can read or write with no problem.
Have anyone run into such problem? Was there some
special handling which need to be done in order to
read the DB_File created in Unix?
Thanks for any pointer.
Wing
------------------------------
Date: 1 May 1998 16:33:51 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Ref to an LVALUE??? I expected a simple SCALAR ref!
Message-Id: <6idbjf$nfp$1@monet.op.net>
Keywords: diopter Ferdinand FM monogamous
In article <35494042.4CE0A7D7@zeegee.com>, Eryq <eryq@zeegee.com> wrote:
>Using 5.00401 on Linux, and 5.00404 on HP/UX:
>Somehow, on occasion (not always) the code...
>
> sub var {
> my ($self, $var, $val) = @_;
> if ($val) {
> print "REF is " . ref(\$val) . "\n";
> }
> }
>
>When invoked as:
>
> $obj->var(@twoValues);
>
>Prints:
>
> REF is LVALUE
That's really peculiar, and it makes me wonder if the code is truly
what you say it is, because in this case \$val; is clearly a reference
to a scalar---the scalar being the lexical variable $val.
>What's going on? I've never seen a ref to an LVALUE before... where
>do they come from, in this case?
The only way I know to make them is by taking a reference to a substr,
pos, or vec expression. Are you really telling us the truth about the
code?
------------------------------
Date: 1 May 1998 16:05:52 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Safest way to read from a socket?
Message-Id: <6id9v0$n7v$1@monet.op.net>
Keywords: immunoelectrophoresis Kidde monies skiddy
In article <6icdec$1m1$1@nnrp1.dejanews.com>,
Joel Horowitz <horowitz@ulb.ac.be> wrote:
> while (<SOCKET>) { ... } is not good, cause it seems to block when
>no data is coming...
They all do that.
>I guess the best way would be to make a sort of 'background process' of
>while (<SOCKET>) { ... }, and still be able to execute other
> commands.
No, that sucks ebcause then you have to synchronize the two processes.
The easiest way is
1. Use the `select' command to detect whether or not the
socket has data waiting to be read, and
2. If so, read it with `sysread'. You don't need to know how
much data you're expecting; you only need to know the
maximum possible amount. The return from `sysread' tells
you how much was actually read.
If select says there's data to read, then the sysread will not block.
There are two totally unrelated `select' functions: one gets one
argument and one gets four. You want the one with four arguments.
IO::Select is supposed to provide a nicer interface to `select' if you
don't like the examlpes in the man page.
>I think fork does something like this, but I could not find newbie
>documentation to the 'fork' function...
That is because `fork' is not a newbie feature.
------------------------------
Date: 1 May 1998 20:43:52 GMT
From: Zenin <zenin@archive.rhps.org>
Subject: Re: Safest way to read from a socket?
Message-Id: <894055885.300474@thrush.omix.com>
[posted & mailed]
Joel Horowitz <horowitz@ulb.ac.be> wrote:
: while (<SOCKET>) { ... } is not good, cause it seems to block when
: no data is coming...
perldoc -f select
Use the 4 argument form of select() to see if there is any data
waiting on the socket before you try to read from it. For full
details, also see select(2).
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Fri, 01 May 1998 20:52:58 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: PGS Fluendy <madf02@holyrood.ed.ac.uk>
Subject: Re: seg fault when matching long string
Message-Id: <Pine.GSO.3.96.980501134319.2859K-100000@user2.teleport.com>
On 1 May 1998, PGS Fluendy wrote:
> From: PGS Fluendy <madf02@holyrood.ed.ac.uk>
> Reply-To: NmOaSdPfA0M2@holyrood.ed.ac.uk
Honestly, there's no point in munging your address in only one place and
not another, unless you're trying to make it difficult for the people who
want to help you.
> When trying to perform the following:
>
> $input =~ s/{\\fonttbl(.|\n)+;}}//;
>
> on a string of about 13000 characters it works fine, but when on a
> string of about 70000 I get a segmentation fault. Why?
Although it shouldn't segfault, it's a limitation of some quantifiers.
(The plus sign is the quantifier in this case.) You could probably get
around it (and speed the match considerably) by re-writing the
substitution like this:
$input =~ s/{\\fonttbl.+;}}//s;
Jeffrey Friedl's justly famed Hip Owls book has good info; highly
recommended.
Mastering Regular Expressions (the Hip Owl Book):
ISBN 1-56592-257-3 (English)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 01 May 1998 20:28:38 GMT
From: r-watkinsNOSPAM@worldnet.att.net (Robert Watkins)
Subject: Test httpd server status
Message-Id: <6idbdp$su1@bgtnsc03.worldnet.att.net>
Okay, I'm stuck on this one.
I want to write a Perl script that telnets to port 80 of an httpd server,
sends the command "HEAD / HTTP/1.0\n\n" and loads the output to a variable.
The idea behind this is to then read that variable to see which http response
is contained in the line beginning HTTP: if it is 200, great, if not, I will
have an e-mail sent to me so that I know something is up. We have, you see, 6
web servers running on various boxes under various flavors of Unix, and I want
to make this a cron job so that I don't have to worry about checking the
server status manually. This is the plan: if there's an easier way to ge the
same result, I'ld be quite happy to hear it.
Where I'm stuck is being able to pass the request to the telnet process. Once
you have put in 'telnet www.someserver.com 80' you get a response that then
waits for input (GET ...). How do I write to this?
Robert Watkins
Supervising Web Developer
Springer-Verlag NY, Inc.
http://www.springer-ny.com/
http://www.copernicus-ny.com/
http://www.telospub.com/
http://journals.springer-ny.com/chedr/
http://link.springer-ny.com/
http://www.springer.co.uk/
rwatkinsNOSPAM@springer-ny.com
------------------------------
Date: Fri, 01 May 1998 19:33:35 GMT
From: "Bill (Gecko) Rude" <resolute@votiv.com>
Subject: useing functions in other perl programs via 'require'
Message-Id: <Pine.LNX.3.95.980501151754.23232B-100000@top2.votiv.com>
my situation:
i have a file wich contains a few sub routines wich does error checking...
this file is called:
checkput.pl
in 'checkput.pl' i have a few routines wich accept variables, then
evaluates if the statement is true or false, and returns 0 if true, and
anything else is false (just like c :).
anyways, i know enough about perl to do some script work, but this one
issue kinda stumps me. in c or cpp it just returns the value, and the
calling routine would be assigned the returnvalue... but in this
situation...
<snippit>
------------------
if (!(&IVD($d))) {
print <<EOM;
Content-type: text/html
<HTML><HEAD><TITLE>sample web page</TITLE></HEAD>
<BODY BGCOLOR=#FFFFFF>
sample error message . . . <br>
</BODY></HTML>
EOM
die;
-------------------
anyways, what happens is, this error checking pritns out the error message
when it should be printing out the actual web page.
i was wondering if i'm going about this all wrong, and that i might have
modularized this code too much? should i keep all error checking in that
file?
i'm stumped :/
-=-Bill-=-
------------------------------
Date: Fri, 01 May 1998 19:38:49 GMT
From: jdporter@min.net (John Porter)
Subject: Re: useing functions in other perl programs via 'require'
Message-Id: <MPG.fb3f05b69802488989698@news.min.net>
On Fri, 01 May 1998 19:33:35 GMT,
in article <Pine.LNX.3.95.980501151754.23232B-100000@top2.votiv.com>,
resolute@votiv.com (Bill (Gecko) Rude) wrote:
>
> in 'checkput.pl' i have a few routines wich accept variables, then
> evaluates if the statement is true or false, and returns 0 if true, and
> anything else is false (just like c :).
[Smack upside the head]
0 is not true -- not in C or Perl.
But anyway, forget about C.
In Perl, 0, '0', '', and undef all mean False,
and anything else means True.
Now go fix your code.
hth,
John Porter
------------------------------
Date: Fri, 01 May 1998 20:18:15 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Andy Glew <glew@cs.wisc.edu>
Subject: Re: Using executable pathname to define include path
Message-Id: <Pine.GSO.3.96.980501125621.2859H-100000@user2.teleport.com>
On Fri, 1 May 1998, Andy Glew wrote:
> Can the following can be done in Perl:
> discovery of the pathname of the executable,
On Unix-type systems, this (generally) can't be done, no matter what the
language.
> for use in defining module paths?
>
> The perennial issue of software installations is "What is the path to the
> libraries?" If you don't want to rely on user environment variables or
> rc files, you typically hardwire them into an isolated submodule.
If you've got perl installed on many different machines, but there's no
consistent place to find that isolated submodule (or its moral
equivalent), you're going to have problems with _any_ program which needs
to configure itself on each machine, not just perl.
Of course, if perl is properly installed on each machine, it may be able
to find some configuration module via @INC. That's what I'd probably use.
> Please respond by email; I don't read this group.
You can't mean that how it sounds. This is like dropping in on a potluck
dinner to say that you have nothing to contribute, but that you'd like
four large plates, to go, please! :-) I'm sure that you didn't mean to
ask for the regular participants in this newsgroup to stop helping each
other just so that we could each write individual replies to you. Although
each reply might help you, it would help no one else. Maybe what you meant
to say was that you'd welcome emailed courtesy copies of posted replies,
like this one. Or maybe you meant to say that you'd be glad to gather
emailed responses and summarize them in a message to the newsgroup. Of
course, even if you're not a regular reader, you can search the newsgroup
with one of the popular Usenet archive services.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 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.
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 V8 Issue 2474
**************************************
