[9291] in Perl-Users-Digest
Perl-Users Digest, Issue: 2886 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 16 19:07:23 1998
Date: Tue, 16 Jun 98 16:00:30 -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 Tue, 16 Jun 1998 Volume: 8 Number: 2886
Today's topics:
Re: Accessing an array of hash with foreach <merlyn@stonehenge.com>
Re: Accessing an array of hash with foreach (Allan M. Due)
Re: Accessing an array of hash with foreach (Abigail)
Re: Forking, SIG handlers, etc. (Long) <gabriele@kollwitz.doit.wisc.edu>
Re: Getting perldb to honor #line directives (M.J.T. Guy)
Re: grep question <*@qz.to>
Re: grep question <probavm@h8mail.laf.cat.com>
Re: Have we got a good free Perl manual? <craig@onshore.com>
Re: HELP!!!!!! bidirectional sockets problem (M.J.T. Guy)
Re: How to delete a character from a string? <aqumsieh@matrox.com>
Re: How to delete a character from a string? (Patrick Timmins)
Re: Large files (>2GB) on Solaris 2.6 (M.J.T. Guy)
Loop / Parsing Newbie Question <tolson@ball.com>
Re: making perl5.004_4 error (M.J.T. Guy)
Missing module - IO::File (Mark Thompson)
Re: Newbie looking for help with text manipulation (Thomas Wernitz)
Re: perl cgi generated html with java app "class not fo (David Innes)
PERL/CRON problem (Mike Mesnier)
Re: PERL/CRON problem <*@qz.to>
Re: PERL/CRON problem (Mike Mesnier)
Re: Perl5 and the X11 libraries. <sfarrell@farrell.org>
Pod::Text -- Unix only? pehanna@my-dejanews.com
Re: Problem with MOMSpider (Leslie Mikesell)
Problem with pattern matching (Win32) <michael_mongeau@stratus.com>
Problems Building Perl on Win95 <cassbrothers@erols.com>
Referring to another computer <webmaster@briefcasegolf.com>
Re: REVIEW: Perl CGI Programming - No Experience Requir rpearce@my-dejanews.com
Re: simple expression matching problem <aqumsieh@matrox.com>
starting and killing pppd from a script <Philip@Antoniades.com>
Re: Undefined subroutine CGI::pram <bowlin@sirius.com>
use strict; 755 permissions and file writing <rapark1@pop.uky.edu>
using Perl's Authen::PAM (Matthew Ahrens)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 16 Jun 1998 21:06:36 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Accessing an array of hash with foreach
Message-Id: <8cg1h5hx9q.fsf@gadget.cscaper.com>
>>>>> "PSI" == PSI <dan_smeltz@novaeon.com> writes:
PSI> I've got an array of hash. How do you acces this using the foreach
PSI> statment? Here's an example of what I'm trying to do:
PSI> %hash1 = {
PSI> fld1=>'a',
PSI> fld2=>'b',
PSI> };
I'm not sure this is what you are trying to do. You're making
a hash with a key of something like "HASH(0x4a5b6c)" and a value
of undef. Maybe you waht this instead:
%hash1 = ( fld1 => 'a', fld2 => 'b', );
Note the parens instead of the braces. Very Different operation.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 76 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 16 Jun 1998 21:22:35 GMT
From: due@murray.fordham.edu (Allan M. Due)
Subject: Re: Accessing an array of hash with foreach
Message-Id: <6m6nmr$fd9$0@206.165.146.29>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <6m6jr0$gen$1@client3.news.psi.net>, PSI
(dan_smeltz@novaeon.com) posted...
|I've got an array of hash. How do you acces this using the foreach
|statment? Here's an example of what I'm trying to do:
Does this work for you? I think those {} should be (), but it could be
me.
|%hash1 = {
| fld1=>'a',
| fld2=>'b',
|};
|
|%hash2 = {
| fld1=>'y',
| fld2=>'z',
|};
|
|push @array, {%hash1};
|push @array, {%hash2};
|
|# this print out nothing
|foreach (@array) {
| print $_{fld1};
|}
|
|# this prints fine
|for ($i = 0; $i < @array; ++$i) {
| print $array[$i]{fld1};
|}
|
|Why won't foreach work?
|
Well it will, you just need to dereference, try:
foreach (@array) {
print $_->{fld1};
HTH
AmD
--
Allan M. Due
Due@Murray.Fordham.edu
The beginning of wisdom is the definitions of terms.
- Socrates
------------------------------
Date: 16 Jun 1998 22:36:51 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Accessing an array of hash with foreach
Message-Id: <6m6s23$jhi$1@client3.news.psi.net>
PSI (dan_smeltz@novaeon.com) wrote on MDCCL September MCMXCIII in
<URL: news:6m6jr0$gen$1@client3.news.psi.net>:
++ I've got an array of hash. How do you acces this using the foreach
++ statment? Here's an example of what I'm trying to do:
++
++ %hash1 = {
++ fld1=>'a',
++ fld2=>'b',
++ };
++
++ %hash2 = {
++ fld1=>'y',
++ fld2=>'z',
++ };
You probably mean
%hash1 = (fld1 => 'a', fld2 => 'b');
%hash2 = (fld1 => 'y', fld2 => 'z');
Or:
$hash1 = {fld1 => 'a', fld2 => 'b'};
$hash2 = {fld1 => 'y', fld2 => 'z'};
push @array, $hash1;
push @array, $hash2; # Or even push @array, $hash1, $hash2;
++
++ push @array, {%hash1};
++ push @array, {%hash2};
++
++ # this print out nothing
++ foreach (@array) {
++ print $_{fld1};
++ }
++
++ # this prints fine
++ for ($i = 0; $i < @array; ++$i) {
++ print $array[$i]{fld1};
++ }
That's because you left out the ->! Don't do that, you will only confuse
yourself.
$_{fld1}
is the value stored at key 'fld1' in the hash %_. What you want in the
first loop is:
$_ -> {fld1};
And in the second loop, you can write:
$array [$i] -> {fld1};
which is far less confusing.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Tue, 16 Jun 1998 16:01:26 -0500
From: "Gabriele R. Fariello" <gabriele@kollwitz.doit.wisc.edu>
To: Nathan Torkington <gnat@frii.com>
Subject: Re: Forking, SIG handlers, etc. (Long)
Message-Id: <Pine.LNX.3.96.980616155922.7883A-100000@kollwitz.doit.wisc.edu>
On 15 Jun 1998, Nathan Torkington wrote:
> Here's the relevant bit from The Perl Cookbook (by Tom Christiansen
> and Nathan Torkington, to be published by O'Reilly and Associates in
> August, plug plug :-):
>
[Snip]
Wow! Thanks a lot for all the information. I still don't understand most
of the signal processing issues, but this made sense to me. I guess I'll
once again be getting an O'Reilly book ;-).
-Gabriele
------------------------------
Date: 16 Jun 1998 21:06:34 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Getting perldb to honor #line directives
Message-Id: <6m6moq$k7m$1@pegasus.csx.cam.ac.uk>
Daniel E. Doherty <ddoherty@sprintmail.com> wrote:
>I am using noweb to write a perl program. noweb is like Knuth's
>tangle, in that it takes a noweb document and generates both a TeX
>document explaining the program and a perl script that can be run.
>
>I would like to be able to run the debugger and get it to step through
>the noweb source (so I can edit in place). When I include the #line
>directives in the generated perl program, the debugger does something
>really weird: it steps through the dired buffer for the current
>directory and never seems to associate the perl program with any
>legitimate source file.
>
>One concern I have is that I sinned and used a perl rpm package
>instead of compiling perl natively. Could this possible make a
>difference? Does the debugger claim to honor #line directives?
They work OK for me.
Mike Guy
------------------------------
Date: 16 Jun 1998 21:23:43 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: grep question
Message-Id: <eli$9806161641@qz.little-neck.ny.us>
In comp.lang.perl.misc, Bryan Camp <b-camp@students.uiuc.edu> wrote:
> I have a simple question about executing
> a grep statement within a perl script.
An odd thing to do. Perl has a much nicer RE engine than grep.
> What I'm trying to do is prompt the user
> for input, and then search the current directory
> for all occurrences of this input.
>
> So far I have:
>
> $input = <STDIN>;
> $output = `grep $input *.par > outfile`;
>
> The second line works fine from the command line,
chmod($input) unless you really want a \n in your search
pattern -- then probably you have some sort of PATH/permission/current-
working-directory problem.
> and from my understanding, one can execute command
> line statements by placing backquotes around it.
Yes.
> However, when I view the outfile, it is blank,
> even though there are occurences of the user input
> within many files in the directory.
Maybe the pattern with a \n doesn't match the files?
> Can someone perhaps tell me what I'm doing wrong,
> or give advice on a different approach to take?
Code everything in perl and avoid grep altogether.
#!perl
chomp($input = <STDIN>);
@files = <*.par>; # requires csh to be around
die "Bad RE: $input\n"
unless defined(eval "\$input =~ /$input/");
if (open OUT,'>outfile') {
foreach $file (@files) {
if (open F,$file) {
while(<F>) {
print O "$file:$_" if /$input/o;
}
} else {
warn "Couldn't open $file: $!"
}
}
} else {
die "Couldn't open outfile: $!"
}
__END__
Elijah
------
finds himself rewriting grep often
------------------------------
Date: Tue, 16 Jun 1998 16:21:54 -0500
From: "Vincent M. Probasco" <probavm@h8mail.laf.cat.com>
Subject: Re: grep question
Message-Id: <3586E1F1.43749285@h8mail.laf.cat.com>
Try ,
system("grep $input *.par > outfile");
HTH
Bryan Camp wrote:
> Hello,
>
> I have a simple question about executing
> a grep statement within a perl script.
> What I'm trying to do is prompt the user
> for input, and then search the current directory
> for all occurrences of this input.
>
> So far I have:
>
> $input = <STDIN>;
> $output = `grep $input *.par > outfile`;
>
> The second line works fine from the command line,
> and from my understanding, one can execute command
> line statements by placing backquotes around it.
> However, when I view the outfile, it is blank,
> even though there are occurences of the user input
> within many files in the directory.
>
> Can someone perhaps tell me what I'm doing wrong,
> or give advice on a different approach to take?
> Thank you.
>
> Bryan
------------------------------
Date: 16 Jun 1998 16:38:40 -0500
From: Craig Brozefsky <craig@onshore.com>
Subject: Re: Have we got a good free Perl manual?
Message-Id: <877m2h9gdb.fsf@duomo.onshore.com>
John Porter <jdporter@min.net> writes:
> Todd Lehman wrote:
> >
> > Is it RMS's place/business at all to tell Perl folks what to do when he
> > hasn't even taken the time to learn the language? No wonder he hasn't
> > succeeded in motivating anyone to write a free book for Perl -- no fire
> > in his belly w.r.t. Perl. He would rather frump than put some actual
> > effort into it.
>
> Of course: he is contra-interested; don't forget about Guile.
Whatever dewd.
on second thought...
Why do you think it's called Guile and Scheme? 8)
--
"Less matter, more form!" --Bruno Schulz
------------------------------
Date: 16 Jun 1998 21:09:21 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: HELP!!!!!! bidirectional sockets problem
Message-Id: <6m6mu1$kf8$1@pegasus.csx.cam.ac.uk>
Dwight S. Durmon <dsdurmon@ntr.net> wrote:
>
>This is probably an easy question for all of the perl guru's in this group,
>however it has left me completely at a loss. I am trying to write a perl
>script which will allow me to read data from <STDIN> and send it through a
>socket to the client on the other end. I also want to read data from the
>socket and send it to <STDOUT>. Is there a way to open a socket (or maybe 2
>sockets) to do this and keep them open until the word "QUIT" is recieved
>either on the server or client side? I have tried the scripts in the Camel
>book, but they only seem to work sending data from the Server to the client,
>not both directions.
perldoc perlipc contains examples of bidirectional communication.
Mike Guy
------------------------------
Date: Tue, 16 Jun 1998 17:29:59 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: How to delete a character from a string?
Message-Id: <3586E3D7.D4E5B5B@matrox.com>
Alex T wrote:
> Hi!
>
> I have a variable, for example "$xy". If the first character is "0", the
> character should be
> deleted.
> How can I compare and delete a character from a string???
>
> Please help!!
>
> alex (hamburg germany)
Try a regexp:
$xy =~ s/^0//;
--
Ala Qumsieh | No .. not just another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: Tue, 16 Jun 1998 22:44:09 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: How to delete a character from a string?
Message-Id: <6m6sfp$qj0$1@nnrp1.dejanews.com>
In article <3586AC8A.3F33C91A@pixelfilm.com>,
Alex T <at@pixelfilm.com> wrote:
>
> Hi!
>
> I have a variable, for example "$xy". If the first character is "0", the
> character should be
> deleted.
> How can I compare and delete a character from a string???
>
> Please help!!
>
> alex (hamburg germany)
>
>
$xy =~ s/^0//;
Read perldoc perlre.
Patrick Timmins
U. Nebraska Medical Center
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 16 Jun 1998 21:13:19 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Large files (>2GB) on Solaris 2.6
Message-Id: <6m6n5f$kgd$1@pegasus.csx.cam.ac.uk>
Barry Roomberg <broom@voicenet.com> wrote:
>Issue:
> Large file access (>2GB) via PERL on Solaris 2.6.
>
> What I've tried:
> FAQ
> CPAN
> DejaNews - found a note from
> Mike Mondy nospam-mmondy@sugarland.unocal.com
> who gave a patch to pp_sys.c and referered to "lfcompile".
>
> I told perl during the compile to "-D_FILE_OFFSET_BITS=64"
> based on the lfcompile man page. This allows the "open" not
> to fail on a 3GB file, but there still seems to be a lot
> more I need to do. "seek()" fails on >2GB, as well as the
> "-s file_name" operator.
>
> Does anyone currently have perl running under Solaris 2.6 and
> is handling large files well, or are there so many issues
> concerning this that I'm going to have to wait for the next
> major release?
>
> Or are there 64bit call within perl that I should be using?
> (seek64, -s64, etc?).
You should realise that even if Perl used the appropriate library
calls, there would still be problems because Perl stores file positions
in integers, which on Solaris 2.6 will be 32 bit.
There is discussion going on on making Perl properly 64 bit, but don't
hold your breath.
Mike Guy
------------------------------
Date: Tue, 16 Jun 1998 14:51:02 -0600
From: Tim Olson <tolson@ball.com>
Subject: Loop / Parsing Newbie Question
Message-Id: <3586DAB6.91334AE3@ball.com>
--------------40475842D36DA0CBF928D077
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I am relatively new to Perl and the newsgroup. My question involves
searching through an ASCII text file for certain matches. A section of
the file to be searched is shown below:
%NAME KJ888
%SYMB REF_6PIN default
gate1 GND V_OUT TEMP TRIM VIN O/P_SEL
%VEND AD494OP/SSS default
%INTERNAL 5962-9463601MPA default
%COMP nc_gate 1
nc_gate 7
gate1 4 6 3 5 2 8
%TOPCELL DIP8 <---------------------
%DESC "IC, AD780"
%CPROP ALTSHAPE=DIP8S
%CPROP matspec=DESC 5962-94636
%CPROP cage=14933
%CPROP notes=F7
%CPROP Cellname=DIP8 <------------------
%CPROP Part no=AD780
%CPROP voltage =
%CPROP Component tol=0.2%
I need to see if the properties following "%TOPCELL and %CPROP
Cellname" match (pointed to above). I have figured this out, but it
gets more complicated it there are multiple %VEND declarations in one
file. There is a different "%TOPCELL and %CPROP Cellname" under each
declaration that need to be compared and logged to a file. How do I
loop through each %VEND declaration, one at a time? I have tried the
following code, but it never enters the second while loop:
while($inline = <INP>){
while($inline =~ /%VEND\s+(\S+)/){
# Parses the %TOPCELL Value
if ($inline =~ /%TOPCELL\s+(\S+)/) {
$topcell = $1;
print("Processing %TOPCELL $topcell\n");
}
# Parses the Cellname Value
if ($inline =~ /%CPROP\s+Cellname/){
($a,$cellname) = split('\=',$inline,2);
$cellname =~ s/\n//;
#print ("Cellname = $cellname\n");
}
}
}
I hope I have made my problem somewhat clear. Thank you in advance for
any help and please respond via email.
Tim Olson
Ball Aerospace and Technologies Corp.
303-939-4276
tolson@ball.com
--------------40475842D36DA0CBF928D077
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
I am relatively new to Perl and the newsgroup. My question involves
searching through an ASCII text file for certain matches. A section
of the file to be searched is shown below:
<P>%NAME KJ888
<BR>
<BR> %SYMB REF_6PIN default
<BR> gate1 GND V_OUT TEMP TRIM
VIN O/P_SEL
<BR>%VEND AD494OP/SSS default
<BR> %INTERNAL 5962-9463601MPA default
<BR> %COMP nc_gate
1
<BR>
nc_gate 7
<BR>
gate1 4 6 3 5 2 8
<BR> %TOPCELL DIP8
<---------------------
<BR> %DESC "IC, AD780"
<BR> %CPROP ALTSHAPE=DIP8S
<BR> %CPROP matspec=DESC
5962-94636
<BR> %CPROP cage=14933
<BR> %CPROP notes=F7
<BR> %CPROP Cellname=DIP8
<------------------
<BR> %CPROP Part no=AD780
<BR> %CPROP voltage =
<BR> %CPROP Component tol=0.2%
<P>I need to see if the properties following "%TOPCELL and %CPROP
Cellname" match (pointed to above). I have figured this out, but
it gets more complicated it there are multiple %VEND declarations in one
file. There is a different "%TOPCELL and %CPROP Cellname" under
each declaration that need to be compared and logged to a file. How
do I loop through each %VEND declaration, one at a time? I have tried
the following code, but it never enters the second while loop:
<PRE>while($inline = <INP>){</PRE>
<PRE>while($inline =~ /%VEND\s+(\S+)/){</PRE>
<PRE> # Parses the %TOPCELL Value</PRE>
<PRE> if ($inline =~ /%TOPCELL\s+(\S+)/) {</PRE>
<PRE> $topcell = $1;</PRE>
<PRE> print("Processing %TOPCELL $topcell\n");</PRE>
<PRE> }</PRE>
<PRE> # Parses the Cellname Value</PRE>
<PRE> if ($inline =~ /%CPROP\s+Cellname/){</PRE>
<PRE> ($a,$cellname) = split('\=',$inline,2);</PRE>
<PRE> $cellname =~ s/\n//;</PRE>
<PRE> #print ("Cellname = $cellname\n");</PRE>
<PRE> }</PRE>
<PRE> }</PRE>
<PRE>}</PRE>
I hope I have made my problem somewhat clear. Thank you in advance
for any help and please respond via email.
<P>Tim Olson
<BR>Ball Aerospace and Technologies Corp.
<BR>303-939-4276
<BR>tolson@ball.com</HTML>
--------------40475842D36DA0CBF928D077--
------------------------------
Date: 16 Jun 1998 20:55:33 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: making perl5.004_4 error
Message-Id: <6m6m45$jpv$1@pegasus.csx.cam.ac.uk>
-bill- <bill@TechServSys.com> wrote:
>when I get to "make" after the configure for perl5.004_04
>
>I get the following error:
>
> ./miniperl configpm tmp
> sh mv-if-diff tmp lib/Config.pm
>File lib/Config.pm not changed.
> AutoSplitting perl library
[ snip ]
You are obviously not running make on a clean distribution. Have
you previously built Perl for some different configuration or something?
Either start with a new distribution, or run "make realclean" and
delete config.sh, then run Configure again.
Mike Guy
------------------------------
Date: Tue, 16 Jun 1998 22:50:56 GMT
From: mark-lists@webstylists.com (Mark Thompson)
Subject: Missing module - IO::File
Message-Id: <3586f0fc.12292384@news.alt.net>
Hi,
I just installed a module called Image::Size and it has a dependency on
another module called IO::File. From everything that I read, IO::File is
something that should already be in a standard install of Perl 5.004 but
we're running Perl 5.003 (and I don't know if it was standard then too).
My problem is that I can't find IO::File on our system anywhere (I checked
for it in the normal Perl Library place as well as used the locate command we
have on our system.
According to Image::Size, it says that if it's not on the system that we need
to find it and install it. Does anyone know of a place where I can find it
by itself without reinstalling Perl 5.004?
Thanks,
Mark
------------------------------
Date: Tue, 16 Jun 98 21:35:10 GMT
From: NOSPAM.thomas_wernitz@tait.co.nz (Thomas Wernitz)
Subject: Re: Newbie looking for help with text manipulation
Message-Id: <6m6s4n$90v$1@wolfman.xtra.co.nz>
In article <6m5tcf$9at$1@flex.london.pipex.net>, Schristie@rnib.org.uk (Christie, Sara) wrote:
>My problem is how to (if you can) identify a word after a tag, remove
>the tag and put the word into a variable so that it can be inserted
>into the text document again at regular intervals. This would occur
>until the next tag wherupon the word would be updated.
Hi,
here you go:
while(<>) {
...
if (/<SECTION>\s*(\w+)/) { # find tag
$section = $1; # store word in variable
next; # read next line
}
... # use variable wherever, however you want
}
I hope you get the idea!
Thomas
"most people would die sooner than think -- in fact, they do so."
-- Bertrand Russell
------------------------------
Date: Tue, 16 Jun 1998 17:56:23 -0400
From: news@ravenstar.com (David Innes)
Subject: Re: perl cgi generated html with java app "class not found"
Message-Id: <MPG.ff0b41663f802f4989681@news.telerama.com>
In article <6m5n3n$ud2$3@mainsrv.main.nc.us>, scott@softbase.com says...
> David Innes (news@ravenstar.com) wrote:
> > Could use some help on this one, relatively new to perl.
>
> > I have a perl script which reads an existing html document and creates
> > another one from it, with minor changes. The newly created html document
> > can not find the Lake.class (which the java needs) while running in the
> > perl script. The new html doc runs fine on it's own with the Lake.class
> > in the same directory.
>
> > Any suggestions would be appreciated.
>
> For the twenty billionth time: WHEN YOU RUN A CGI PROGRAM, THE DEFAULT
> URL IS RELATIVE TO THE CGI DIRECTORY!!! Usually that's
> http://what.ever.com/cgi-bin. Your class file is most likely not in
> that directory, but you are most likely not prefixing it with the full
> URL, you're just saying "foobar.class". Use the full http:// URL to the
> class file, or change the default URL in the <head> section.
>
> Scott
> --
> Look at Softbase Systems' client/server tools, www.softbase.com
> Check out the Essential 97 package for Windows 95 www.skwc.com/essent
> All my other cool web pages are available from that site too!
> My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
>
I apoligize Scott but I had already done a search on the most recent
1,000 postings and nothing found before I posted this question. Thanks
for your input.
------------------------------
Date: 16 Jun 1998 22:02:17 GMT
From: mesnier@lyle.cs.uiuc.edu (Mike Mesnier)
Subject: PERL/CRON problem
Message-Id: <6m6q19$rn5$1@vixen.cso.uiuc.edu>
Any idea why:
open(handle, "date |");
while (<handle>) {
print;
}
if (!close(handle)) {
print "bad exit: $?\n";
} else {
print "good exit: $?\n";
}
works just fine from the shell:
Tue Jun 16 14:53:28 PDT 1998
good exit: 0
but when run from cron fails:
Tue Jun 16 14:53:00 PDT 1998
bad exit: -1
when cron is invoked like this:
* * * * * /usr/bin/perl /home/mesnier/test.pl
And this error only seems to occur on:
Linux 2.0.31 #1 Sun Nov 9 21:45:23 EST 1997 i686 unknown
On other machines I've had no problems.
Thanks for any ideas - Mike
------------------------------
Date: 16 Jun 1998 22:09:13 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: PERL/CRON problem
Message-Id: <eli$9806161807@qz.little-neck.ny.us>
In comp.lang.perl.misc, Mike Mesnier <mesnier@lyle.cs.uiuc.edu> wrote:
> Any idea why:
> open(handle, "date |");
You are not checking the return value of open.
> Thanks for any ideas - Mike
Is date on the PATH cron uses?
Elijah
------
*always* check the return from open; *never* trust $PATH
------------------------------
Date: 16 Jun 1998 22:19:07 GMT
From: mesnier@lyle.cs.uiuc.edu (Mike Mesnier)
Subject: Re: PERL/CRON problem
Message-Id: <6m6r0r$suk$1@vixen.cso.uiuc.edu>
Hi Elijah,
The problem's worse than a bad PATH. Because "date" *is* found:
Tue Jun 16 17:11:59 CDT 1998
bad exit: -1
but "close" thinks it failed for some reason. I encountered this
problem on a Linux machine after I noticed that anything started up
via cron returned a bad exit code, even though the script ran
successfully... Here's a simpler script I tested:
open(handle, "date |") || die "bad open!\n";
while (<handle>) {
print;
}
close(handle) || die "bad date!\n";
and still got:
bad date!
Tue Jun 16 15:18:00 PDT 1998
-Mike
In article <eli$9806161807@qz.little-neck.ny.us>, Eli the Bearded <*@qz.to> writes:
> In comp.lang.perl.misc, Mike Mesnier <mesnier@lyle.cs.uiuc.edu> wrote:
> > Any idea why:
> > open(handle, "date |");
>
> You are not checking the return value of open.
>
> > Thanks for any ideas - Mike
>
> Is date on the PATH cron uses?
>
> Elijah
> ------
> *always* check the return from open; *never* trust $PATH
------------------------------
Date: Tue, 16 Jun 1998 21:00:26 GMT
From: stephen farrell <sfarrell@farrell.org>
Subject: Re: Perl5 and the X11 libraries.
Message-Id: <87n2bdoydx.fsf@couatl.uchicago.edu>
kfox@pt0204.pto.ford.com (Ken Fox) writes:
> Thomas Resing <tresing@globalscape.net> writes:
> > I have a question regarding security and Perl. For security reasons,
> > the X11 libraries are restricted from normal users of our linux server.
>
> I'm a little confused how the X *libraries* can cause a security risk.
There are suid root executables like xterm that link against them.
--sf
------------------------------
Date: Tue, 16 Jun 1998 21:59:40 GMT
From: pehanna@my-dejanews.com
Subject: Pod::Text -- Unix only?
Message-Id: <6m6psc$m5o$1@nnrp1.dejanews.com>
Is there any particular reason why Pod::Text uses "stty -a 2>/dev/null" as a
one of its means of determining the screen width? Is there a portable
alternative?
--
Phil Hanna
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 16 Jun 1998 16:18:24 -0500
From: les@MCS.COM (Leslie Mikesell)
Subject: Re: Problem with MOMSpider
Message-Id: <6m6nf0$oh3$1@Mars.mcs.net>
In article <35863E6A.F8F3FC89@dux.dundee.ac.uk>,
James Sutherland <jasuther@dux.dundee.ac.uk> wrote:
>OK, so I can:
>1. Install Perl4
>2. Convert MOMSpider to Perl5
>3. Ditch MOMSpider and write my own link-checker.
>
>1. I can't really install Perl4 again on the WWW server.
>2. Hmm. Big undertaking, but then that's what I thought when I fixed
>WebCopy to handle redirects.
>3. Write my own checker? No thanks. That would be a BIG job and a half..
>
>OK, so I'll re-write MOMSpider to use Perl5. If anyone out there has
>started on this, or has any info on porting 4->5, please let me know!
>
>James Sutherland
Did you follow the link for the perl5 version of libwww
at http://www.ics.uci.edu/pub/websoft/libwww-perl/ to
http://www.linpro.no/lwp/?
I think that's all you need.
Les Mikesell
les@mcs.com
------------------------------
Date: Tue, 16 Jun 1998 17:08:27 -0400
From: "Michael Mongeau" <michael_mongeau@stratus.com>
Subject: Problem with pattern matching (Win32)
Message-Id: <6m6mol$r9@transfer.stratus.com>
Perl for Win32 (Build 316) appears to have a problem matching an escaped
bracket. I'm just scanning a text file looking for strings enclosed in
square brackets:
open (FH,"file.txt") || die;
while (<FH>) {
if (/\[/) { do something }
}
This generates a "Missing right bracket at line xx" error. Am I doing
something wrong ? Thanks.
Mike Mongeau
------------------------------
Date: Tue, 16 Jun 1998 18:12:17 -0400
From: Cassbrothers <cassbrothers@erols.com>
Subject: Problems Building Perl on Win95
Message-Id: <3586EDC1.6531E0A4@erols.com>
I'm new to this newsgroup and new to Perl. (Please bear with me.)
I am trying to build Perl on my Windows 95 system. I downloaded the
standard distribution (5.004 - I think). In one of the "readme" files,
the author says that installing on a Windows 95 system can be done but
it's difficult because of the inferior command shell (compared to NT).
Finally, he says something like "consider a Windows 95 system
unsupported".
Ultimately, I'm hoping to use my PC as a server for running CGI scripts.
Before I forge ahead, I'm hoping to get some advice. If it's not worth
my time, please let me know - I'll get some space on a server.
Any comments?
- Bryant
Fairfax, VA
------------------------------
Date: 16 Jun 1998 21:38:22 GMT
From: "Caleb Newville" <webmaster@briefcasegolf.com>
Subject: Referring to another computer
Message-Id: <01bd996f$16bc4a20$4685d4d1@newville>
I am new to perl and found an auto-responder. I have the following line:
$mailprog = '/usr/bin/sendmail';
and I need it to go to 'yoda.fdt.net/usr/bin/sendmail' Anyone know how to
do this?
------------------------------
Date: Tue, 16 Jun 1998 21:32:50 GMT
From: rpearce@my-dejanews.com
Subject: Re: REVIEW: Perl CGI Programming - No Experience Required
Message-Id: <6m6oa2$ip1$1@nnrp1.dejanews.com>
I hope this isn't a stupid question, but what is meant by "decode the form by
hand"? I've been using what I thought was a fairly common snippet I've seen
over and over: Read the Post output, tr/+/ /, change the %## back to ascii
and assign the name/value pairs to a hash. Is this 'by hand'? I like it
because I can make other minor changes as needed without relooping the hash.
Thanks,
Rick....
In article <6lsl68$jtr$1@csnews.cs.colorado.edu>,
tchrist@mox.perl.com (Tom Christiansen) wrote:
>
> Review of Perl CGI Programming - No Experience Required
>
> Title: Perl CGI Programming - No Experience Required
> ISBN 0-7821-2157-8
> Author: Erik Strom
> Publisher: Sybex (1998)
> Pages: 412pp + xviii
> Size: 9" W 7 1/2" W 1"
> Price: US $29.99
> Rating: Two Camels [So-So]
>
> ------------------------------------------------------------------------
>
> Capsule Review
>
> Even though this is really just a CGI book, not one that
> actually teaches Perl, this book is one that I would like to
> like. The prose reads easily enough and it's not a typesetting
> abominations. The author seems to have the right background; he
> knows K&R--the true Bible of any good programmer--and knows a lot
> of Perl history. Unfortunately, it has too many strange technical
> mistakes as is. It needs someone who knows Perl better to fix it.
> I think it could make 3 camels.
>
> ------------------------------------------------------------------------
>
> Detailed Review
>
> The ``no experience required'' is a give-away that the book hopes to address
> rank beginners. In fact, it says you don't have to be a programmer (p xvii).
> Then later (p26) it says that we're all ``computer nerds'' so won't mind
> using I as a verb. This seems contradictory. (It also forgets that the OED
> documents -- and Fowler/Birchfield bless, this usage.)
>
> He suggests acquiring the ActiveState version of Perl for Windows, rather
> than the Standard Port. I wonder whether this was written before the
> standard port (which is much better at nearly everything) existed.
> ------------------------------------------------------------------------
>
> Specific Errors and Omissions
>
> Here are the chapters, and their problems.
>
> 1. Introducing Perl and CGI
>
> The book mentions ``Perl-CGI'' repeatedly.
> This bogus neologism misleads the world into confusing the two. It
> shouldn't exist. We don't talk about C-TCP. I feel like there must
> be a book out there called Introducing Your Car and the Highway
> System, or Teach Yourself Automobile-Interstate in 20,000 Leagues
> Around the World.
> ``All code lines in Perl must end in semicolon.'' [p19]
> No, semicolons separate statements.
> Claims that a list is a ``number of scalars stored sequentially in one
> variable. [p22]
> No, that's not true. A list isn't an array. Never was, never will
> be. He's thinking of an array, and even then it's wrong due to
> things like [1,2,3].
> He compounds his transgression on p24 where he claims that ``a Perl
> list is the equivalent of an aray in Visual, Basic, C++, and many other
> languages. The terms will be used interchangeable in this book.''
> The author obviously doesn't understand the difference between
> lists and arrays, and misleads the reader into the same iniquity.
> His braces are very badly indented. Everywhere.
> This flies in the face of the perlstyle(1) manpage and all the
> included examples.
>
> 2. Bringing Perl to the World Wide Web
>
> print "Content-type: text/html", "\n\n"; # MIME header
> Problems: (this occurs many places)
> + Why the comma?
> + That's an HTTP header, not a MIME header.
> + The "\n\n" won't work on a Mac. Oh well. I've done the same
> thing myself. :-( For the record, the persnickety correct
> thing is "\015\012\015\012", which certainly gets old, fast.
> Uses htmlend.pl for a library file, and hellowww.pl for a program file.
> [p52]
> Don't use the same extension for both! They aren't the same.
> Uses "\n\n" after every line output, including regular HTML. [p54]
> This is silly. He does it all over the book.
> Alfred Packer [p62]
> No, that's actually Alferd.
>
> 3. Connecting Perl to the World Wide Web
>
> 4. Using Perl and CGI in the Real World
>
> ``Think, don't code!'' sounds nice.
> Pictures of girls. [p90 et al.]
> This is gratuitous and annoying. Remind me to put some centerfolds
> in my next book.
> A hit counter [90-106]
> What a useless, stupid, vain, and in fact, evil application!
> Didn't anyone ever tell you that you can't count the number of
> times your page is viewed? Plus it's full of mistakes. No error
> checking is done on the system calls, and worst of all, there's no
> file locking. No file locking!? Drivel and dreck, useless to heck.
>
> 5. Creating Real-World HTML Forms with Perl and CGI
>
> The sins begin to compound.
> o He doesn't explain the real difference between GET and POST
> (idempotency, caching, read vs write).
> o He teaches people to decode the form by hand. Wicked. Bad.
> Naughty. This makes him teach tr and s///g and many inappropriate
> things. Then we get lost in regular expressions. BAD!
>
> 6. Perl and the Complex Web Page
>
> o More confusion about GET vs POST.
> o He decodes the post by hand, and wrongly!. Failing grade for the
> whole book here. Why must people keep recreating the wheel, and
> wrongly! This is just plain bad programming.
>
> 7. Creating a Guest Book for Your Web Site
>
> 8. Creating Dynamic Web Pages: More Tools
>
> 9. Monitoring Web Site Activity
>
> 10. The Language of the Web
>
> 11. Platforms of the World Wide Web
>
> 12. Advanced Perl-CGI Tricks
>
> 13. Security on Your Web Site
>
> Appendices
>
> The mandatory list of all functions in Perl can be found here, but full
> of mistakes. He hardcodes AF_UNIX. He makes incorrect assertions about
> local.
>
> And he mis-stems supersede (to sit over) as supercede (to pass over).
> Sitting and passing are not the same. Get thee to an etymologist - and
> I'm not talking about bugs.
>
> ------------------------------------------------------------------------
>
> Copyright 1998 Tom Christiansen.
> All rights reserved.
> --
> X-Windows: Let it get in YOUR way.
> --Jamie Zawinski
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Tue, 16 Jun 1998 17:18:20 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: simple expression matching problem
Message-Id: <3586E11C.EA3E3FCF@matrox.com>
gulam.faruque@csfp.co.uk wrote:
> Hi..
>
> I'm trying to write a replace script in perl.
> for example. scriptname filename string1 string2
That's a one-liner!
> This will search for string1 in filename and replace it with
> string2 and print the results to the console.
> The problem is string1 and string2 can contain any characters such as \.*[]{}
> I dont want the person running the script to enter a \ before each special
> character.
You might want to check out the quotemeta() function .. as well as the \Q and \E
constructs for regexps.
> How is this done?
> Will I have to scan the strings first to insert a \ in front of any special
> characters before I do the replacement ?
No .. quotemeta() does this for you!
> I am using win32-perl v5.004 on NT4
Poor you!
> Thanks
>
You can easily do that from the command prompt:
perl -p -i.bak -e 's/\Qstring1\E/string2/g' filename
where string1 and string2 can contain any characters. This also creates a backup
file of your original file with the extension .bak
--
Ala Qumsieh | No .. not just another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: Tue, 16 Jun 1998 17:25:34 -0400
From: Philip Antoniades <Philip@Antoniades.com>
Subject: starting and killing pppd from a script
Message-Id: <3586E2CE.DBA7259C@Antoniades.com>
i have 2 problems in a sys admin script i am writing for linux with perl
5.
the first is starting pppd, and getting it's pid so that i can kill it
later. system will launch it without returning the pid, fork will not
launch it at all.
the second is that, even if i use system (and thus successfully start
it), this command will not be executed when crond runs the script. the
line
system( "/usr/sbin/pppd" ) or die "could not execute pppd: $!";
is glossed over, no error printed, no ppp connection initiated. yet
this works from the command line.
any ideas on these?
------------------------------
Date: Tue, 16 Jun 1998 15:06:05 -0700
From: Jim Bowlin <bowlin@sirius.com>
To: Dave <hannum@oak.cat.ohiou.edu>
Subject: Re: Undefined subroutine CGI::pram
Message-Id: <3586EC4D.D57BAF9D@sirius.com>
Dave wrote:
>
> Why do I get this error and what does it mean?
>
> Undefined subroutine CGI::pram
>
> My program parses the contents of one form into the fields of another form.
> I do this because I am generating selections boxes based upon the input from
> the previous form. I believe I'm calling all the needed CGI modules:
> use CGI qw(:standard :html3);
> use CGI::Carp qw(fatalsToBrowser);
> CGI::ReadParse;
> my $form = new CGI;
>
> I'm using the following format to define the parsed variables:
> $variable = $form->pram('variable');
> I do this because this info is being inserted into another form which will
> be executed as well.
>
> I am not all that familiar with CGI modules and don't know quite what to do
> next, short of writing a parse_form_data subroutine. Please help.
>
> Dave
> hannum@oak.cats.ohiou.edu
apply s/pram/param/g to your source code.
-- Jim Bowlin
------------------------------
Date: Tue, 16 Jun 1998 18:24:08 -0400
From: Rick Parks <rapark1@pop.uky.edu>
Subject: use strict; 755 permissions and file writing
Message-Id: <6m6rbn$70$1@news-1.news.gte.net>
Hi Everyone,
I just started to write my cgi scripts using "-Tw" and "use strict;"
pragma. Naturally, this caused some relearning of perl on my part.
But, it did force me to write decent code, I guess.
I wrote an SSI counter script a while back, before "-Tw" and "use
strict;". I extracted the calling page and directory from
$ENV{DOCUMENT_URI} (Say /~rapark1/test.shtml). From this I extracted
"test" and concatenated it with ".count" and got my counter file. All
good so far. In my first writing, I could create a file in a directory
with 755 permissions, but after implementing "-Tw" and "use strict;", I
cannot. Can anyone tell me why?
I thought about using the stat function to read the permissions of the
directory, changing them to 777, creating the counter file, and changing
the permissions back to whatever they were before. But, in my only perl
book, Teach Yourself Perl by David Till(please don't laugh at me), it
says that (stat($file))[2] is the permissions for $file. My directory
is 755 as I said, but this returns 16877. Is there a way to confidently
extract 755 from this number? This number is apparently more than what
my book claims it to be. The perl documentation that came with the
interpreter claims that this is "mode file mode (type and
permissions)". Can you explain this a bit for me?
I wanted to be able to create the counter files on the fly instead of
making the user create one for each page that they wish to use this
with, but it looks like it might be too much trouble.
I really appreciate all your help. Thanks a bunch,
Rick Parks
rapark1@pop.uky.edu
------------------------------
Date: Tue, 16 Jun 1998 16:53:49 -0500
From: matthew_ahrens@brown.edu (Matthew Ahrens)
Subject: using Perl's Authen::PAM
Message-Id: <matthew_ahrens-1606981653490001@ip12.macwizards.com>
I'm trying to use PAM authentication from Perl. I'm using the Authen::PAM
module. However, I can't get it to work, even following the example given
in the perldoc. For example, I tried:
use Authen::PAM;
$login_name = getlogin || getpwuid($<);
$retval = pam_start("passwd", $login_name, $pamh);
if ($retval) {print pam_strerror($pamh, $retval), "1\n";}
$retval = pam_chauthtok($pamh);
if ($retval) {print pam_strerror($pamh, $retval), "2\n";}
$retval = pam_end($pamh);
if ($retval) {print pam_strerror($pamh, $retval), "3\n";}
but the only output that i get is
Permission denied2
indicating that pam_chauthtok failed. If anyone can help me out by sending
a working example, or pointing out what I am doing wrong here, I would
greatly appreciate it. Eventually, I want to get this to authenticate
users from a web page and let them change their passwords and other
things. I know that I need to deal with the conversation function, but i
can't even get this basic script to work.
please cc: replies to Matthew_Ahrens@brown.edu
thanks,
--matt
------------------------------
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 2886
**************************************
