[7870] in Perl-Users-Digest
Perl-Users Digest, Issue: 1495 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Dec 17 22:07:22 1997
Date: Wed, 17 Dec 97 19:00:26 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 17 Dec 1997 Volume: 8 Number: 1495
Today's topics:
Re: 6 elementary questions <tchrist@mox.perl.com>
Re: 6 elementary questions <ajohnson@gpu.srv.ualberta.ca>
Re: Access Log (Martien Verbruggen)
Advanced Perl Programming book <achoy@us.oracle.com>
Re: Advanced Perl Programming book <tchrist@mox.perl.com>
Re: Advanced Perl Programming book (brian d foy)
Re: Advanced Perl Programming book <ebohlman@netcom.com>
Re: append to top of file ? (brian d foy)
Re: embedding perl in C (Martien Verbruggen)
Re: error when using OPEN(FILE...) under ms iis 2.0 <rootbeer@teleport.com>
Re: flow control (Charles DeRykus)
getting correct web server headers <rgoldber@uiuc.edu>
Re: HELP! How to use records in Perl? <jlguru@cris.com>
HELP: Incredibly easy question that I just cannot find <james@abgroup.demon.co.uk>
Re: HELP: Incredibly easy question that I just cannot f (brian d foy)
Re: HELP: Incredibly easy question that I just cannot f <ebohlman@netcom.com>
Re: HELP: Incredibly easy question that I just cannot f <reibert@mystech.com>
Re: HELP: Incredibly easy question that I just cannot f <rhodri@wildebst.demon.co.uk>
Re: how to do this from STDIN (Tad McClellan)
How to invoke the Unix VI cmd from perl script to move <amakaram@us.oracle.com>
Re: http socket programming (Martien Verbruggen)
Re: newbie file input question (Tad McClellan)
Re: No Flock! -- Now What? <reibert@mystech.com>
Re: Output redirection under NT <burkhold@donet.com>
Re: Password encription (Martien Verbruggen)
Re: Perl for Win32 and COM Ports (Repost because I got (Don Groves)
Re: perl for Win32 question <tdudek@ncsa.uiuc.edu>
Re: Q Sorting Web access file? <reibert@mystech.com>
Re: Reset of the 'each' iterator with the assignment op <rjk@coos.dartmouth.edu>
Re: Return status after an exit statement <rhodri@wildebst.demon.co.uk>
SARCASTICA - http://homepages.skylink.net/~wavion/comic nobody@nowhere.yet
Socket version error on client/server <ksnyder@us.oracle.com>
Re: Teaching programing (Will Morse)
test (John A. Gesualdi)
Timeout, fork and exec. <alambro@ibm.net>
Re: Which language pays most 17457 -- C++ vs. Java? (Tad McClellan)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Dec 1997 23:53:02 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: 6 elementary questions
Message-Id: <679oku$nu1$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
aml@world.std.com (Andrew M. Langmead) writes:
:(Actually, my biggest disappointment is the disappearance of the
:"common tasks in perl" chapter, which the authors have explained their
:reasons over and over by now. No use beating that dead horse, again.)
The last squeaky wheel on this issue was sent on an overnight to above
the Brooks Range to forcibly review the manuscript that addresses this
issue. They are not back yet, nor are they expected for several months.
Morning is a long, cold time coming up there. :-)
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Interestingly enough, since subroutine declarations can come anywhere,
you wouldn't have to put BEGIN {} at the beginning, nor END {} at the
end. Interesting, no? I wonder if Henry would like it. :-) --lwall
------------------------------
Date: Wed, 17 Dec 1997 10:43:58 -0600
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: 6 elementary questions
Message-Id: <3498014E.5C13ECE7@gpu.srv.ualberta.ca>
Eike Grote wrote:
!
! Hi,
!
! Chip Salzenberg wrote:
! >
! > According to Eike Grote <eike.grote@theo.phy.uni-bayreuth.de>:
! > >Xah wrote:
! > >> # Question: Why does the following returns 4 and 5, not all 5?
! > >>
! > >> @array = (0 .. 9);
! > >> %hash = @array;
! > >> print 0 + %hash, "\n";
! > >
! > >This value is NOT the number of elements (or keys), but has to do
! > >something with the internal usage of the hash (see the camel book
! > >for a short explanantion).
! >
! > Well, it's a string consisting of the number of keys, and a slash,
! > and the number of buckets. As a number, it _is_ the number of keys.
!
! As far as I can count, there are 5 keys, but %hash equals to '4/8' ...
it is not the number of keys: an excerpt from the perldata manpage
gives:
If you evaluate a hash in a scalar context, it returns a
value which is true if and only if the hash contains any
key/value pairs. (If there are any key/value pairs, the
value returned is a string consisting of the number of
used buckets and the number of allocated buckets,
separated by a slash. This is pretty much useful only to
find out whether Perl's (compiled in) hashing algorithm is
performing poorly on your data set. For example, you
stick 10,000 things in a hash, but evaluating %HASH in
scalar context reveals "1/16", which means only one out of
sixteen buckets has been touched, and presumably contains
all 10,000 of your items. This isn't supposed to happen.)
hope it helps
regards
andrew
------------------------------
Date: 17 Dec 1997 22:02:39 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Access Log
Message-Id: <679i5v$aco$1@comdyn.comdyn.com.au>
In article <7xen3ctgyg.fsf@vcpc.univie.ac.at>,
Remove xx <xxTony.Curtis@vcpc.univie.ac.at> writes:
> Re: Access Log, Hans <hvanlint@lodestar.be> said:
>
> Hans> I get the following error: ../logs/access_log:
> Hans> Permission denied
>
> Hans> But I'm sure access_log can be read by everyone:
> Hans> -rw-r--r-- (owner peabody - if I was the owner it
> Hans> would be dbintein)
>
> Hans> And when I try to read it with joe access_log it
> Hans> works!
>
> Hans> Why can't perl read it with open();??
>
> It's probably the directory (or parent) which can't be
> accessed.
Then the 'joe access_log' wouldn't work either (joe is an editor).
Hans> $logfile = "../logs/access_log";
Hans> open(best, $logfile) || "Error"
The open() line you have seems a bit broken. Are you sure that that is
the EXACT code as you have it in your program? if it is, you might
want to fix that to read something like:
open(BEST, $logfile) or die "Cannot open $logfile for reading: $!";
$! will give you the system error message, which will probably explain
why it failed, unless that is the message you included. Make sure that
you are running it as a user who can actually read the file. And this
includes the whole path TO the file.
It is conventional to use upper case letters for file handles. If you
have errors in a program, please always quote the EXACT code that
gives the errors. If you type it, and shorten it the way you did, we
have no idea what you are really trying to do.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | In a world without fences, who needs
Commercial Dynamics Pty. Ltd. | Gates?
NSW, Australia |
------------------------------
Date: Wed, 17 Dec 1997 13:49:26 -0800
From: Allen Choy <achoy@us.oracle.com>
Subject: Advanced Perl Programming book
Message-Id: <349848E6.E0D54461@us.oracle.com>
Hi.
Does anyone have any opinions, good and bad, re: the Advanced Perl
Programming book?
I'm considering purchasing it, but don't know much about it.
Thanks!
Allen
------------------------------
Date: 17 Dec 1997 23:54:26 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Advanced Perl Programming book
Message-Id: <679oni$nu1$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, Allen Choy <achoy@us.oracle.com> writes:
:Does anyone have any opinions, good and bad, re: the Advanced Perl
:Programming book?
:I'm considering purchasing it, but don't know much about it.
Four out of five camels. Definitely a should-buy.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"I think I'll side with the pissheads on this one." --Larry Wall
------------------------------
Date: Wed, 17 Dec 1997 19:24:49 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Advanced Perl Programming book
Message-Id: <comdog-ya02408000R1712971924490001@news.panix.com>
In article <349848E6.E0D54461@us.oracle.com>, Allen Choy <achoy@us.oracle.com> wrote:
>Does anyone have any opinions, good and bad, re: the Advanced Perl
>Programming book?
>I'm considering purchasing it, but don't know much about it.
it's an excellent book.
you can get information about it at
<URL:http://www.oreilly.com/catalog/advperl/>
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Thu, 18 Dec 1997 00:09:24 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Advanced Perl Programming book
Message-Id: <ebohlmanELCz3p.5nH@netcom.com>
Allen Choy <achoy@us.oracle.com> wrote:
: Does anyone have any opinions, good and bad, re: the Advanced Perl
: Programming book?
: I'm considering purchasing it, but don't know much about it.
I find it very readable and to the point. It's really a collection of
chapters that can stand alone for the most part rather than something
that you'd necessarily want to read from start to finish in chapter
order. Each chapter discusses a single topic (or group of related
topic); many of them deal with topics that are also covered in the Camel
book, but they aren't as terse as the Camel descriptions (which in many
cases *had* to be terse to keep the Camel from having to grow an extra
hump); others deal with topics like PerlTk, C interfacing to Perl, and
Perl internals.
If you feel that you have a vague grasp of references, modules and
objects, but want a more in-depth explanation, then the Panther book is
definitely for you. The same if you're in a similar position with
regards to networking and sockets. If you think of Perl as purely a Web
programming language, then it's probably *not* for you; none of the
examples deal with CGI scripting.
------------------------------
Date: Wed, 17 Dec 1997 17:18:46 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: append to top of file ?
Message-Id: <comdog-ya02408000R1712971718460001@news.panix.com>
[you prepend
In article <01bd0b1e$dffa7720$5f7d0cd1@cms>, "Bob Zwick" <cottage@WorldPost.com> wrote:
>Can anyone provide a simple script that add to the top of a file.
>I tried seek, but I must be doing it wrong.
>Don't have perl so I can't do a read doc.
where did you try seek? there might be a newsgroup for that utility.
you could also install perl and make your life easier :)
>Bob Zwick - Cottage Micro Services
>103 Vinyard Drive, WaxahachieTX 75167
i once got kicked out of Waxahachie. seems the sheriff's deputy
didn't like californians.
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 17 Dec 1997 22:06:47 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: embedding perl in C
Message-Id: <679idn$aco$2@comdyn.comdyn.com.au>
In article <3497E819.E4A7C58F@sdrc.com>,
Rakesh Chitradurga <Rakesh.Chitradurga@sdrc.com> writes:
> Content-Type: text/plain; charset=us-ascii
> Content-Transfer-Encoding: 7bit
[snip]
> Content-Type: text/html; charset=us-ascii
> Content-Transfer-Encoding: 7bit
[major snip]
If you post again, please post in plain text only. Your message has to
go all over the world, and be stored on numerous disks. Duplicating
your message in text and html (which most people will not read anyway,
especially not the people you WANT to read your message), puts an
unnecessary load on the networking facilities all over the world.
Some people will not or cannot read MIME messages. It might be a good
idea to get rid of it altogether.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au |
Commercial Dynamics Pty. Ltd. | What's another word for Thesaurus?
NSW, Australia |
------------------------------
Date: Wed, 17 Dec 1997 14:35:20 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: markus.rietzler@rzf.nrw.de
Subject: Re: error when using OPEN(FILE...) under ms iis 2.0
Message-Id: <Pine.GSO.3.96.971217143458.15154C-100000@user2.teleport.com>
On Wed, 17 Dec 1997 markus.rietzler@rzf.nrw.de wrote:
> CGI-ERROR
> the cgi-application doesn't write the complete http-header
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN. Hope this helps!
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Wed, 17 Dec 1997 20:11:42 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: flow control
Message-Id: <ELCo3I.FuF@bcstec.ca.boeing.com>
In article <01bd0afa$d453b7c0$3e03b480@mm>,
Phil R Lawrence <prl2@lehigh.edu> wrote:
> I had a subroutine that checked a user's name and password for Oracle login
> before:
> omitted....
>
> I came up with the following, but can't get it to work right, no matter how
> I push it around. Even tried an anonymous sub (my first attempt at that)
> but couldn't get that to work either.
> Current try:
>
> until (defined (my $dbh)) {
> $dbh = DBI->connect("dbi:Oracle:sa71", $uname, $upass)
> or {
> if ($DBI::errstr =~ /^ORA-1017x?/) {
This's kinda ugly too but try:
until (defined (my $dbh)) {
$dbh = DBI->connect("dbi:Oracle:sa71", $uname, $upass)
or do { ... };
HTH,
--
Charles DeRykus
------------------------------
Date: Wed, 17 Dec 1997 18:16:03 -0600
From: Ray <rgoldber@uiuc.edu>
Subject: getting correct web server headers
Message-Id: <Pine.SOL.3.96.971217175718.4040A-100000@ux7.cso.uiuc.edu>
I wrote a script to check the validity of the links in my bookmarks file.
The main part of the code grabs the headers from a website but this does
not appear to be working in all cases. When I call it with some sites,
such as www.us.pressline.com it returns the 404 not found code. The same
happens when I telnet into the site at port 80 and type in "HEAD /
HTTP/1.0\n\n". But when I use lynx with the -dump -head options it finds
the right headers- so does netscape.
On other sites, such as www.sparc.org, my script times out trying to
connect to the site, whereas lynx -dump -head www.sparc.org finds it right
away.
It does though, apparently work for the majority (~3700) of the links in
my bookmarks file. The section of code in question follows below. It makes
up the majority of the script.
Any assistance is greatly appreciated.
Ray Goldberger
rgoldber at uiuc dot com
http://rayg.home.ml.org
--------------------------------------------------
$timeout = 60;
$SIG{'ALRM'} = sub { die "$step timed out\n"; };
use Socket;
$protocol = getprotobyname('tcp');
while (<IN>) {
next if !(($link) = /<A HREF="([^"]+)/);
$link =~ m|(\w+:/*)?([^:/]+):?(\d*)(.*)|
or &error("Invalid format") and next;
$protocol = ($1 or 'http');
$host = $2;
$port = ($3 or 80);
$file = ($4 or '/');
eval {
alarm $timeout;
$step = 'DNS';
$iaddr = (gethostbyname($host)) or die "No IP address\n";
socket(SOCKET, PF_INET, SOCK_STREAM, $protocol) or die "Socket failed\n";
$paddr = sockaddr_in($port, $iaddr);
$step = 'Connection';
connect(SOCKET, $paddr) or die "Connection refused\n";
# Turn off I/O buffering
select(SOCKET); $| = 1; select(STDOUT);
print SOCKET "HEAD $file HTTP/1.0\n\n";
$step = 'Response';
$header = <SOCKET>;
alarm 0;
};
&error($@) and next if $@;
close SOCKET;
$status = (split ' ', $header)[1];
$status ne '404' or &error("File not found") and next;
}
------------------------------
Date: Wed, 17 Dec 1997 17:05:16 -0700
From: "Jerry L. Gubka" <jlguru@cris.com>
To: gregr@ee.uwa.edu.au
Subject: Re: HELP! How to use records in Perl?
Message-Id: <349868BC.4A607A20@cris.com>
Greg Roberts wrote:
>
> Hi. I'm having some trouble at the moment trying to emulate a Pascal record
> structure in Perl. What I want is something like this:
>
> machine_record {
> hostname,
> IP,
> group,
> traffic,
> cost
> }
>
> So for machine X, I want to be able to go:
>
Others have already suggested hashes which work fine if the data is not
order dependent (hashes still work fine for ordered data, but I find
them unnecessarily complicated/tedious if the order of the data is
important) ... However, many times I want to process things sequentially
so I just use join/split if all the values are strings or integers,
"sprintf" if I need to use real numbers, or pack/unpack to stuff the
record values into a single string. Then I just maintain a simple array
of the string values. By judiciously selecting the order I place the
values in the string, I can easily sort the array by primary/secondary
keys using the common sort methodology. I'm sure there's some loss of
execution speed due to the packing/unpacking operations, but for the
things I do, an execution time difference of 1/2 second doesn't matter
much. Anyway ... works for me.
BTW - you can also use multidimensional arrays to accomplish the same
effect.
Live long, and prosper
Jerry L. Gubka
------------------------------
Date: Wed, 17 Dec 1997 23:00:43 GMT
From: "James East" <james@abgroup.demon.co.uk>
Subject: HELP: Incredibly easy question that I just cannot find the answer to!
Message-Id: <01bd0b3f$96c24080$05efdec2@atticwebdesign.demon.co.uk>
Hi.
Can someone please tell me how to put an or operator in an if statement?
What I want to do is:
if ($graphics eq "no") or ($graphics eq "yes") {
...
}
How do I do this?
Replies to e-mail would be appreciated. Thanks a lot.
James East
------------------------------
Date: Wed, 17 Dec 1997 19:29:37 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: HELP: Incredibly easy question that I just cannot find the answer to!
Message-Id: <comdog-ya02408000R1712971929370001@news.panix.com>
In article <01bd0b3f$96c24080$05efdec2@atticwebdesign.demon.co.uk>, "James East" <james@abgroup.demon.co.uk> wrote:
>Can someone please tell me how to put an or operator in an if statement?
>What I want to do is:
>
>if ($graphics eq "no") or ($graphics eq "yes") {
> ...
> }
close!
you would want to enclose both conditions in the () required for the
if:
if( ($graphics eq "no") or ($graphics eq "yes") ) { ... }
"hope that helps!" - TP
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Thu, 18 Dec 1997 00:20:48 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: HELP: Incredibly easy question that I just cannot find the answer to!
Message-Id: <ebohlmanELCzMo.6LD@netcom.com>
James East <james@abgroup.demon.co.uk> wrote:
: Hi.
: Can someone please tell me how to put an or operator in an if statement?
: What I want to do is:
: if ($graphics eq "no") or ($graphics eq "yes") {
: ...
: }
: How do I do this?
You remove the innermost two parentheses, that's how.
I get this vague feeling that the value of $graphics is coming from user
input somehow. In that case, you ought to do a case-insensitive comparison:
if (lc($graphics) eq "no" or lc($graphics) eq "yes") {
or, since TMTOWTDI:
if ($graphics =~ /^(no|yes)$/i) {
which you can then make even more user-friendly:
if ($graphics =~ /^(no?|y(es)?)$/i {
which will also accept "n" or "y" (but not arbitrary words beginning with
them).
------------------------------
Date: Wed, 17 Dec 1997 16:50:51 -0700
From: "Mark S. Reibert" <reibert@mystech.com>
Subject: Re: HELP: Incredibly easy question that I just cannot find the answer to!
Message-Id: <3498655B.8D430158@mystech.com>
James East wrote:
> Hi.
>
> Can someone please tell me how to put an or operator in an if statement?
> What I want to do is:
>
> if ($graphics eq "no") or ($graphics eq "yes") {
> ...
> }
>
> How do I do this?
if ($graphics eq "no" || $graphics eq "yes") {
...
}
-----------------------------
Mark S. Reibert, Ph.D.
Mystech Associates, Inc.
3233 East Brookwood Court
Phoenix, Arizona 85044
Tel: (602) 732-3752
Fax: (602) 706-5120
E-mail: reibert@mystech.com
-----------------------------
------------------------------
Date: Thu, 18 Dec 1997 00:11:34 +0000 (GMT)
From: Rhodri James <rhodri@wildebst.demon.co.uk>
Subject: Re: HELP: Incredibly easy question that I just cannot find the answer to!
Message-Id: <47fa22e71crhodri@wildebst.demon.co.uk>
In article <01bd0b3f$96c24080$05efdec2@atticwebdesign.demon.co.uk>,
James East <james@abgroup.demon.co.uk> wrote:
> Can someone please tell me how to put an or operator in an if statement?
> What I want to do is:
> if ($graphics eq "no") or ($graphics eq "yes") {
> ...
> }
> How do I do this?
if ($graphics eq "no" || $graphics eq "yes") { ... }
or
if ($graphics eq "no" or $graphics eq "yes") { ... }
or
if (($graphics eq "no") or ($graphics eq "yes")) { ... }
and so on. You just need a pair of brackets around the whole condition
to make the compiler recognise it correctly.
> Replies to e-mail would be appreciated. Thanks a lot.
Read the newsgroup you lazy so-and-so! :-)
--
Rhodri James *-* Wildebeeste herder to the masses
If you don't know who I work for, you can't misattribute my words to them
... Unfortunately we also have the stealth of elephants
------------------------------
Date: Wed, 17 Dec 1997 16:32:31 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: how to do this from STDIN
Message-Id: <vtj976.8h3.ln@localhost>
WOLtetch (woltetch@aol.com) wrote:
: I have the following script:
: #!/usr/local/bin/perl -w
: use diagnostics;
: @list2sort = <STDIN>;
[snip]
: This works fine if I define a test array to sort in the script itself.
: However, in its present form, when I try to have it sort stuff
: entered on the command line, it doesn't work (prints the input, unsorted).
^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^
I'm confused by your confusion ;-)
"input" is accessed as you have above (via the STDIN filehandle).
"command line arguments" are accessed from the @ARGV array.
Which do you really mean?
: What am I doing wrong here?
I think maybe you want the command line arguments to be taken as
filenames, whose contents you want to sort, rather than as a list
of words themselves that you want to sort?
If so, then this should do it:
@list2sort = <>; # use magic
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 17 Dec 1997 23:31:51 -0800
From: Ananth Makaram <amakaram@us.oracle.com>
Subject: How to invoke the Unix VI cmd from perl script to move around in a file.
Message-Id: <3498D167.666F@us.oracle.com>
This is a multi-part message in MIME format.
--------------31892AE57585
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi,
I have done a little Perl coding so far.
I have however, got stuck in a silly problem,
from which I cant seem to get out. Any help/pointers
would be great. Here it is..
I have written a 200 line perl program that
displays the interface/form and also contains the
logic to manipulate the inputs and keep loading the
form again and again. It allows the user to choose
from a list of labels, and then choose from a list
of files for that chosen label. The code than
displays the chosen file in a "TEXTAREA" box, and allows
the user to append to it, in another TEXTAREA box.
Have done it this way, so as to prevent the user to
destroy the file. So, have used the '>>' with the file
handle, while calling the OPEN.
However, instead of just spewing the contents of the
file into the viewing box, I would like to invoke the
unix VI command to the file. This would allow to
move around the file (while inside the box) searching
for certain keywords. NOTE> i dont wish to have a
separate Search/replace/search engine functionality.
I tried the usual perl tricks ....
system ("vi $file"), exec "vi....", and even tried passing
the filehandle as a process ("vi $file|")... no use..
Appreciate any help/pointers ...
Thanks
REgards...
-Ananth Makaram
--------------31892AE57585
Content-Type: text/plain; charset=us-ascii; name="mailgr"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="mailgr"
Received: Sent: DECEMBER 17, 1997 19:03
From: Ananth Makaram <amakaram@us.oracle.com> <UNX03.US.ORACLE.COM:amakaram@us.oracle.com>
To:
Subject: How to invoke the Unix vi cmd from perl script
Cc: amakaram
Reply-to: UNX03.US.ORACLE.COM:amakaram@us.oracle.com
Return-Path: <amakaram@us.oracle.com>
Organization: Oracle
X-Mailer: Mozilla 3.0 (WinNT; I)
MIME-Version: 1.0
Newsgroups: comp.lang.perl
X-Orcl-Charset: us-ascii
Hi,
I have done some Perl coding and so not very new.
However, I have got stuck in this loop here and cant
seem to figure out how to do this. Any help/pointers
will be great. Here is what I want to do...
I have written a 200 page perl script that creates
an interactive form interface and also contains the
logic to manipulate the inputs and outputs. The idea
is to allow the user to choose from a list of product
labels, and choose from a list (html select tag) of
files for each/that label, and then have that file displayed in
one box, while being able to append to the chosen file
after it is displayed.
Now, all this works great. The file to be
be displayed does come up in one "textarea" box. However
I would like to invoke the vi command while displaying
the file, so as to enable the user to move around
this box, like you do in VI editor mode.
I tried the usual perl commands
system ("vi"), exec "vi", and even tried calling a
OPEN command passing the filehandle as a process ("vi $file|").
I cannot make it work right.
Any suggestions..
Thanks in advance..
-Ananth Makaram
---- End of Message ----
--------------31892AE57585--
------------------------------
Date: 17 Dec 1997 22:12:47 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: http socket programming
Message-Id: <679iov$aco$4@comdyn.comdyn.com.au>
In article <cATapIAEAlSGM1-971217104012Z-28449@sgm1.iaea.or.at>,
G.Hood@iaea.org writes:
> I need to find out if certain files (listed in a database) really exist
> on our web server and came up with the following code. I'm a bit out of
For a task this trivial, you shouldn't be trying to deal with the low
level socket operations yourself, especially since other people have
done the work for you.
look at the LWP module on CPAN (http://www.perl.com/CPAN/)
> Is it simply that I need to close and re-open the socket on each loop?
Most likely: HTTP is a stateless protocol, meaning that for every
request, it creates a new connection. The server on the other side
probably has no clue what you're still trying to do on a socket that
it views as having been dealt with :)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I'm desperately trying to figure out
Commercial Dynamics Pty. Ltd. | why kamikaze pilots wore helmets - Dave
NSW, Australia | Edison
------------------------------
Date: Wed, 17 Dec 1997 16:56:15 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: newbie file input question
Message-Id: <fal976.ml3.ln@localhost>
E. Brian Depenbrock (ebd@sunline.net) wrote:
: The easiest way to read in a file, if this will work for you, is to include
: it on the command line.
: foo.pl infile
: that makes it the default infile "STDIN"
No it doesn't.
It invokes a kind of "magic" when foo.pl uses the <> input operator
(search for 'null filehandle' in the 'perlop' man page)
$line = <STDIN>; # in foo.pl will NOT read a line from 'infile'
# when invoked as above
$line = <>; # _this_ will read a line from 'infile'
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 17 Dec 1997 15:02:54 -0700
From: "Mark S. Reibert" <reibert@mystech.com>
Subject: Re: No Flock! -- Now What?
Message-Id: <34984C0E.AEA2BD4D@mystech.com>
Vik Rubenfeld wrote:
> I'm finding that there are PERL installations that neither support nor emulate
> FLOCK. What do you do on a system like that? Surely these systems have some
> way of handling multiple simultaneous attempts to write to a single data file
> -- don't they?
>
> Is it possible to develop something that is strictly PERL code, and can
> provide flock or something like it under any setup?
You can always consider a semaphore! I know this term is pretty well limited to
SYSV IPC, but maybe these other systems have some other equivalent ... and maybe
they have been implemented in the local port of Perl ... and maybe I'm dreaming!
:-)
BTW, what systems are you dealing with?
-----------------------------
Mark S. Reibert, Ph.D.
Mystech Associates, Inc.
3233 East Brookwood Court
Phoenix, Arizona 85044
Tel: (602) 732-3752
Fax: (602) 706-5120
E-mail: reibert@mystech.com
-----------------------------
------------------------------
Date: Wed, 17 Dec 1997 20:19:23 -0500
From: "Doug Burkholder" <burkhold@donet.com>
Subject: Re: Output redirection under NT
Message-Id: <679ts4$j6j$1@usenet88.supernews.com>
Uwe Mirk wrote in message <34979BBB.527BF402@kwu.siemens.de>...
>I have the following problem:
>
>A simple perlscript called foo.pl prints some text
>
>calling this script from the command line by typing foo.pl, everything
>works fine
>(*.pl files are correctly associated)
>
>But now .....
>i want the output in a file.
>typing foo.pl > foo.out creates an e m p t y file
>typing perl foo.pl > foo.out creates a file w i t h some text
>
>I' m running NT 4 SP3 and perl 5 build 313
>TIA
>--
>Aloha ! rust@death never sleeps !
>
>Uwe Mirk, Webmaster Siemens AG KWU
>Freyesleben Str. 1
>91058 Erlangen
>Voice: +49 9131 18 5885
>Email: Uwe@kwu.siemens.de
>
>
This is the only way I've been able to get data to a file:
#usage: foo infile
#note: no foo < infile
open (fh,">foo.out");
while (<>){ print fh; }
close (fh);
------------------------------
Date: 17 Dec 1997 22:09:11 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Password encription
Message-Id: <679ii7$aco$3@comdyn.comdyn.com.au>
In article <882377046.196018186@dejanews.com>,
mgeorgeadis@fallschurch.esys.com writes:
> I'll get right to the point ... I've developed a sequence of html pages
> from perl scripts. The first of these html pages asks the user to enter
> a user name and a password. When the user submits the info the password
> field can be seen in the next page's URL. I need help in correcting this
> problem as well as figuring a way to check the validity of the entered
> password with the corresponding user name. Any advice would be greatly
> appreciated. Thanks.
This is not a perl problem, but a CGI/HTTP/URL problem. People on the
comp.infosystems.www.* groups might be better suited to help you.
If you ask the question there, I might even answer it :)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: Wed, 17 Dec 1997 15:50:36 -0800
From: see@my.sig (Don Groves)
Subject: Re: Perl for Win32 and COM Ports (Repost because I got absolutely no replies to the original)
Message-Id: <MPG.f020529f593b2e98968b@news.europa.com>
In article <3498efb7.8881573@news.demon.co.uk>,
cfoster@cfoster.demon.co.uk says...
> I am trying to chat to a device connected to COM2:. I have tried
> various scripts, starting with
>
> open MODEM,"+>com2:";
> print MODEM "AT\n";
> $input = <MODEM>;
> print $input;
> close MODEM;
>
> then later ..
>
> use IO::Handle;
>
> open MODEM,"+>com2:";
> binmode MODEM;
> MODEM->autoflush(1);
>
> print MODEM "AT\n";
> $input = <MODEM>;
> print $input;
>
> close MODEM;
>
> Neither recieve anyting, though flashing lights on the modem would
> indicate that the print to MODEM is sending something.
>
> I can talk directly to the modem using Hyperterminal without any
> problems, so I must be doing something wrong.
>
> Any help would be appreciated.
>
Try \r instead of \n.
Don
#------------------------------------------------------------
my %sig = (name => "Don Groves", email => "groves\@acm.org");
#------------------------------------------------------------
------------------------------
Date: Wed, 17 Dec 1997 19:20:34 -0600
From: Tim Dudek <tdudek@ncsa.uiuc.edu>
Subject: Re: perl for Win32 question
Message-Id: <34987A61.8776A829@ncsa.uiuc.edu>
You will often need to re-write scripts when porting from win32 to
UNIX. There are
so many differences between the two versions of perl that cause a great
many problems.
Timothy Dudek (tdudek@ncsa.uiuc.edu)
Technology Management Group
National Center for Supercomputer Applications
http://gto.ncsa.uiuc.edu/tdudek
"In a world so hard and dirty
so fouled and confused
searching for a little bit of God's mercy
I found living proof"
'Living Proof'
Bruce Springsteen
SasEz! Publications and Design wrote:
> Hello everyone :)
> I have decided that I would like to expand my knowledge of perl and
> CGI. I downloaded the newest version of perl and was hoping to play
> with it offline for learning purposes. I run Win95 on my local
> machines so I have discovered that I need the win32 version of perl.
> The server that I use for myself and clients is Unix based. My
> question is: If I use the perl for win32 offline to compile and
> debug scripts, will they work on the Unix system also? I assume
> there would be some differences; are there resources around that
> tackle this subject specifically? I have read through the faq, read
> the help/readme files that came with perl, read through the
> newsgroup postings and more but I cannot find any direct information
> on this topic. Any and all help or suggestions would be appreciated
> greatly.
> Thanks!
> Kathy Burns
>
> -
> SasEz! Publications and Design ~ Kathy Burns
> Professional Web Design, Hosting, and Maintenance
> Is your business set up to make money 24 hours a day, 7 days a week?
> http://www.sasezdesyn.com mailto:sase@sasezdesyn.com
> ICQ #828499 ~Check out our Free web design planning guide!~
> -
------------------------------
Date: Wed, 17 Dec 1997 15:26:54 -0700
From: "Mark S. Reibert" <reibert@mystech.com>
Subject: Re: Q Sorting Web access file?
Message-Id: <349851AD.B1E173AB@mystech.com>
Juergen Heinzl wrote:
> In article <199712172036.MAA06716@sirius.infonex.com>, bosch6 wrote:
> >I have a Web server thats logging events in random order. While Im waiting for a patch,
> >I want to sort the existing log files chronologically using Perl. Heres a few sample lines
> >of what an access log looks like
> >
> >207.175.99.82 - - 15/Dec/1997212658 -0500 GET /images/edhome.gif HTTP/1.0 200 203
> [...]
>
> >But all thats not seeing that middle field stuff i.e., 15/Dec/1997212637 which I think
> >will require some sort of hairy regular expression. Unfortunately, Im just starting out with
> >Perl and cant seem to get a handle on how I would approach this. Any hints would be
> >appreciated.
>
> perhaps this is enough already. If $i is your whole line, then ...
>
> $i =~ /\d+\.\d+\.\d+\.\d+ - - (\d+)\/(\w+)\/(\d+) .*/o;
>
> ... will give you $1 (15 for instance), $2 (Dec) and $3 (1997212658).
> Could be tuned probably, but ...
Since your string has not particular pattern, all you can say is that you want the 4th field as
delimited by whitespace. So, how about:
$line = "207.175.99.82 - - 15/Dec/1997212658 -0500 GET /images/edhome.gif HTTP/1.0 200 203";
$date = (split /\s+/, $line)[3];
@fields = split /\//, $date;
$, = "\n";
print @fields;
which prints
15
Dec
1997212658
HTH,
Mark Reibert
-----------------------------
Mark S. Reibert, Ph.D.
Mystech Associates, Inc.
3233 East Brookwood Court
Phoenix, Arizona 85044
Tel: (602) 732-3752
Fax: (602) 706-5120
E-mail: reibert@mystech.com
-----------------------------
------------------------------
Date: Wed, 17 Dec 1997 20:32:17 -0500
From: Chipmunk <rjk@coos.dartmouth.edu>
Subject: Re: Reset of the 'each' iterator with the assignment operator '=' ? Ooops!
Message-Id: <34987D22.4279E428@coos.dartmouth.edu>
Chip Salzenberg wrote:
>
> According to kboutin@magi.com:
> >EXAMPLE 2
> >
> >DOES NOT WORK! Loops infinitely in the first while loop since the 'each
> >iterator' of %a is reset every time the assignment "%b = %a" is done.
>
> "Well, don't do that, then."
>
> It's not a bug. The iterator is documented to be fragile.
Here's what the perlfunc manpage says, in the description of each:
"it can be reset by reading all the elements from the hash"
To copy the hash to another hash, you'd have to read all the elements,
so I guess that's why the each iterator is being reset.
Chipmunk
------------------------------
Date: Thu, 18 Dec 1997 00:18:32 +0000 (GMT)
From: Rhodri James <rhodri@wildebst.demon.co.uk>
Subject: Re: Return status after an exit statement
Message-Id: <47fa238aacrhodri@wildebst.demon.co.uk>
In article <678qj0$2ur$1@news3.Belgium.EU.net>,
Sven Akkermans <sa@denkart.be> wrote:
> This is a multi-part message in MIME format.
Please don't do that on a newsgroup.
--
Rhodri James *-* Wildebeeste herder to the masses
If you don't know who I work for, you can't misattribute my words to them
... I'm sure I had a life around here somewhere
------------------------------
Date: Wed, 17 Dec 1997 16:03:55 -0700
From: nobody@nowhere.yet
Subject: SARCASTICA - http://homepages.skylink.net/~wavion/comics - Awesome weekly comic strip
Message-Id: <171297160355@nowhere.yet>
This is a great color, single panel, unconventional Internet comic strip updated every week.
Check it out!
>=>>=<=<<=<=<==<=>>>
------------------------------
Date: Wed, 17 Dec 1997 15:02:30 -0800
From: Ken Snyder <ksnyder@us.oracle.com>
Subject: Socket version error on client/server
Message-Id: <34985A06.72CC@us.oracle.com>
I've got Perl5004_04 and I'm trying to create the simple client/server
programs from "Advanced Perl Programming" pages 192-193. When running
the client, I get the following error:
/private/ksnyder/perl/class/client1
Socket version 1.3 required--this is only version at
/private/public/lib/perl5/sun4-solaris/5.00404/IO/Socket.pm line 118.
Note that there are two spaces after version in "this is only version
at". Maybe it's not picking up the version number from Socket.pm?
Here's the code I'm running:
[Begin client code]
#!/net/dlsun535/private/public/bin/perl
# I had to do the following unshift to get it to see Handle.pm
# Needed Handle.pm to see the method "autoflush" via package "PeerAddr"
in Socket.pm
BEGIN {
unshift @INC, "/private/public/lib/perl5/sun4-solaris/5.00404/IO";
}
use Carp;
use Handle;
use sigtrap;
use Socket;
use IO::Socket;
$sock = IO::Socket::INET::new (PeerAddr => 'dlsun535',
PeerPort => 2001,
Proto => 'tcp',
);
die "Socket could not be created. Reason: $!\n" unless $sock;
foreach (1 .. 10) {
print $sock "Msg $_: How are you?\n";
}
close($sock);
[End client code]
The server side runs fine:
[Begin server code]
#!/private/public/bin/perl
use IO::Socket;
$sock = new IO::Socket::INET (LocalAddr => 'dlsun535:2001',
Proto => 'tcp',
Listen => 5,
Reuse => 1,
);
die "Could not connect: $!\n" unless $sock;
while ($new_sock = $sock->accept()) {
while (defined ($buf = <$new_sock>)) {
print $buf;
}
}
close($sock);
[End server code]
Thanks in advance,
Ken
------------------------------
Date: 17 Dec 1997 18:42:00 -0600
From: will@Starbase.NeoSoft.COM (Will Morse)
Subject: Re: Teaching programing
Message-Id: <679rgo$6to$1@Starbase.NeoSoft.COM>
In article <3497B586.5CBC099E@biotek.uio.no>,
David Martin <david.martin@biotek.uio.no> wrote:
>Rhodri James wrote:
>
>> This does depend rather on the BASIC being taught. BBC BASIC, for
>> instance, is a proper procedure-based language with moderate typing but a
>> rather loose attitude to pointers (makes a damn good macro assembler,
>> actually, by no accident whatsoever).
>
>I first learnt to program (apart from a very minor dabble on a TRS80)
>with BBC BASIC, so I had a reasonable idea of what a subroutine was,
>what an if statement was and an elder brother who refused to run any
>code of mine that had a GOTO in..
Well, I first learned to program using plugboards on an IBM accounting
machine and then moved up to EasyCoder on a machine I can't even
remember the name of, thence to Basic on a GE-635 and finally to the
ultimate language, which in those days was Fortran-IV. Along the
way I did a megawad or so of various assemblers, and even worse,
shame of it all, a COBOL program or two. Now I am almost exclusively
perl and tcl. For all this, I am not really a programmer.
I would class myself more as a geoscientist.
I think you can make arguements for just about any language teaching
some concept better than others.
I think it is awfully useful as an exercise to learn some really
horrible assembler (the PDP-8 comes to mind) not to use it for a career,
but to understand the difference between a load and a register to
register add and just how much goes into a read and write compared to an
add or subtract. Learn the difference between a short jump and a long
jump and so on.
I don't think, on the other hand, that many 15-year-olds would sit
still for it.
For 15-year-olds, you need to give them something that makes something
they want to see, that they can do in the course of a couple hours,
and preferably something they can start simply with and build on. You
need to hide the lessons of the if and loop and such in the process of
"here's how to make the monstor move, and here's how to tell if he's
at the gate". There was a language for teaching 8-year-olds called,
I believe, "Turtle Graphics" or something like that, based on this idea
only a little simpler yet.
While I think perl is really great for much of what I do, it really is an
expert tool. Especially if you are wnating to draw pictures. I am
of the view that Tcl/Tk, using the canvas widget, lets a novice do
some things he would be proud of. Certainly Tcl/Tk will teach you
about scope.
While, as an old fart, I find perl more intutitive (I find I usually guess
right even if I don't know how, so I skip the RTFM until I've tried it).
On the other hand, I teach both languages, albeit to 40-year-olds, and
I find students get at least something going (and therefore much needed
confidence to go on) much quicker in Tcl/Tk.
I understand what various people have suggested about Pascal, Java, and
what not (I don't recall anyone mentioning python, my newsreader must
be broken). The truth is that with these youth, you are going to have
to capture their interest and build their confidence first. Then teach
them how to do it right. Whatever language you have available that will
do that is what you should be looking for.
Will
--
# Copyright 1997 Will Morse. Internet repost/archive freely permitted.
# Hardcopy newspaper, magazine, etc. quoting requires permission.
#
# Gravity, # Will Morse
# not just a good idea, # Houston, Texas
# it's the law. # will@starbase.neosoft.com
#
# These are my views and do not necessarly reflect anyone else/
=========================================================================
By US Code Title 47, Sec.227(a)(2)(B), a computer/modem/printer
meets the definition of a telephone fax machine. By Sec.227(b)
(1)(C), it is unlawful to send any unsolicited advertisement to
such equipment, punishable by action to recover actual monetary
loss, or $500, whichever is greater, for EACH violation.
=========================================================================
------------------------------
Date: 18 Dec 1997 01:10:15 GMT
From: jgesuald@projo.com (John A. Gesualdi)
Subject: test
Message-Id: <679t5n$pcg$2@pnn.projo.com>
test only
------------------------------
Date: 18 Dec 97 00:57:56 GMT
From: "Christopher Lambrou" <alambro@ibm.net>
Subject: Timeout, fork and exec.
Message-Id: <01bd0b50$3391e310$79706420@akis>
I have a Perl script that takes a long time to finish (it imports an 8meg
file into a mySQL database) and it always produces a "Request Timeout" HTTP
error. Is there a way to bypass the HTTP timeout error?
I tried doing a fork and then an exec to spawn a backround process that I
was hoping would not be subject to the timeout limitation. Unfortunately,
it didn't work.
Would anyone know of another way? I am on Apache and using Perl 5.003.
Thanx,
Chris Lambrou
<chris@cglis.com>
------------------------------
Date: Wed, 17 Dec 1997 16:38:38 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Which language pays most 17457 -- C++ vs. Java?
Message-Id: <e9k976.8h3.ln@localhost>
Mark Framness (framness@EMIRATES.NET.AE) wrote:
: In message <34958D16.190C@gsg.eds.com> - "Shmuel (Seymour J.) Metz"
: <nospam@gsg.eds.com>Mon, 15 Dec 1997 12:03:34 -0800 writes:
: #>
: #>> C provides the needed primitives to do anything you need.
: #>
: #>You got this wrong; C does not have the needed primitives to handle
: #>sets, do string matching, do record-oriented I/O, etc., except in the
: #>trivial sense that anything can be simultated on anything else.
: What do you mean sets? As in the mathematical sense? String matching? Huh?
: what do strcmp, strstr etc do?
^^^^^^ ^^^^^^
Those are not *primitives* (ie. built-in to the language).
Those are library calls (ie. add-ons to the language).
You won't find 'strcmp' in a C compiler's grammar.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
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 1495
**************************************
