[8980] in Perl-Users-Digest
Perl-Users Digest, Issue: 2598 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 14 16:10:50 1998
Date: Thu, 14 May 98 13: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 Thu, 14 May 1998 Volume: 8 Number: 2598
Today's topics:
Array question <stylinsty@yahoo.comJAVA>
Re: Array question (Mike Stok)
clp.moderated <webmaster@fccjmail.fccj.org>
Re: Compile RE pat only when I change pat? <jsd@gamespot.com>
Re: Dealer locator with zipcodes <webmaster@fccjmail.fccj.org>
Re: Does Perl have a IDE?I don't like command line. <sar@nym.alias.net>
Re: Does Perl have a IDE?I don't like command line. (John Klassa)
Re: Does Perl have a IDE?I don't like command line. (Mark Maurer)
Re: Does Perl have a IDE?I don't like command line. (Chip Salzenberg)
Re: Does Perl have a IDE?I don't like command line. (Ilya Zakharevich)
Re: Does Perl have a IDE?I don't like command line. (Chip Salzenberg)
Re: Does Perl have a IDE?I don't like command line. (Chip Salzenberg)
Re: How can you break out of a 'while... ' loop in a fu (Chip Salzenberg)
image thumbnails <kelby@mplx.com>
Launching a program from perl <matt@eagleweb.net>
Re: Launching a program from perl <yong@shell.com>
mirror.pl and recursion problem <gnielson@charlotte.infi.net>
Re: module "manifest" <walton@kodak.com>
Re: MODULE MANIA STRIKES (Was Re: What does this do?) (Chip Salzenberg)
NT IIS #exec cgi <swilliams@NOSPAM.cshore.com>
NT4 and IIS 4 <swilliams@NOSPAM.cshore.com>
Re: Perl not and ! operator differences (Raul Nohea Goodness)
Perl script for Home Page? <matt@eagleweb.net>
Re: Perl script for Home Page? <upsetter@shore.net>
perl5.004_04 bug/weakness?: tie %hash and scalar(%hash) (Paul Fardy)
Playing with PostgreSQL <swood@TheWild.Com>
Re: removing last line from file <rootbeer@teleport.com>
Seeking perl programmer for quick & simple paid script (Lee Bottemiller)
Re: TIMTOWTDI - regex vs. if (function) <khaines@oshconsulting.com>
Re: TIMTOWTDI - regex vs. if (function) <lr@hpl.hp.com>
while, each & assoc array <lyonsd@atl.hp.com>
Re: while, each & assoc array (brian d foy)
Re: while, each & assoc array (Mike Stok)
Re: while, each & assoc array (John Porter)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 14 May 1998 12:17:17 -0700
From: Stylin <stylinsty@yahoo.comJAVA>
Subject: Array question
Message-Id: <355B433D.A53EE5AC@yahoo.comJAVA>
Im a PERL newbie so if there is a better newsgroup for newbies let me
know.
The length of an array seems to be given by '@arrayname' as well as
'$#arrayname'
My book explains that '$#arrayname' gives you the length as well as the
ability to assign a length to it- thus changing the arrays size.
so $length = @array name
and
$length = $#arrayname
Is there a better time to use either?
I need to count the occurances of strings in a variable that changes in
a loop.
Without hardcoding I figured a good solution would be to add an array
string element and an array count element if the string does not already
exist in the array. If it does just add 1 to the count.
After the loop I can just show the array names and count values.
Anyone have a routine like this handy?
Thanks-
stylinsty@yahoo.comDEX <- Remove DEX for mail
------------------------------
Date: 14 May 1998 19:41:49 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Array question
Message-Id: <6jfhdt$p00@news-central.tiac.net>
In article <355B433D.A53EE5AC@yahoo.comJAVA>,
Stylin <stylinsty@yahoo.comJAVA> wrote:
>Im a PERL newbie so if there is a better newsgroup for newbies let me
>know.
>
>The length of an array seems to be given by '@arrayname' as well as
>'$#arrayname'
>
>My book explains that '$#arrayname' gives you the length as well as the
>ability to assign a length to it- thus changing the arrays size.
$#array gives you the index of the last element in the array (and lets you
set it to resize the array). @array gives you a count of the number of
elements in the array:
DB<1> @array = (1 .. 10)
DB<2> print $#array
9
DB<3> print scalar @array
10
so @array has indices of 0 .. 9 and contains 10 elements.
>Is there a better time to use either?
I usually use $# if I'm resizing or comparing an index.
>I need to count the occurances of strings in a variable that changes in
>a loop.
>Without hardcoding I figured a good solution would be to add an array
>string element and an array count element if the string does not already
>exist in the array. If it does just add 1 to the count.
>
>After the loop I can just show the array names and count values.
>Anyone have a routine like this handy?
Have you considered using a hash (associative array) using the string as a
key and having the count as the data e.g.
$seen{$string}++; # tallt $string's contents
will make $seen{$string} spring into existance when it's needed and
the ++ is the increment operator so it adds 1 to $seen{$string} each
time. When you're done you can say:
foreach $string (sort keys %seen) {
print "$string: $seen{$string}\n";
}
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Thu, 14 May 1998 18:52:26 GMT
From: Bill 'Sneex' Jones <webmaster@fccjmail.fccj.org>
Subject: clp.moderated
Message-Id: <355B3B96.FC8E9E51@fccjmail.fccj.org>
Status?
I was wondering if it was passed and created but my
news server didn't pick it up...
Thx :-)
-Sneex-
____________________________________________________________________________
Bill Jones | FCCJ Webmaster | Voice 1-904-632-3089 | Fax 1-904-632-3007
Florida Community College at Jacksonville | 501 W. State St. | Jax, FL 32202
mailto:webmaster@fccjmail.fccj.org | http://webmaster.fccj.org/Webmaster
------------------------------
Date: Thu, 14 May 1998 11:07:25 -0700
From: Jon Drukman <jsd@gamespot.com>
Subject: Re: Compile RE pat only when I change pat?
Message-Id: <355B32DD.33D50D5A@gamespot.com>
Tom Phoenix wrote:
> sub match {
> my $pat = shift;
> my $match = eval q{ # Yes, just one q!
> sub {
> $_[0] =~ /$pat/o; # Compile each one just once
> }
> };
> die $@ if $@;
> while (<FH>) {
> if ($match->($_)) { ... }
> }
> }
here's a package that was batted about on the mod_perl mailing list a
while ago. it lets you create regular expression objects that are
compiled once and live until you destroy the object.
package Regex;
sub new {
my( $class, $pattern ) = @_;
my $self = bless eval( 'sub { $_[0] =~ /$pattern/o; }' ), $class;
}
sub match {
my $self = shift;
$self->(@_);
}
1;
---------------
to use it:
use Regex;
my $regex=new Regex('^reg.*ion$');
if ($regex->match("regular expression") { print "yep"; }
--
Jon Drukman jsd@gamespot.com
-----------------------------------------------------------------------
Plan: Eat right, exercise regularly, die anyway.
------------------------------
Date: Thu, 14 May 1998 19:06:03 GMT
From: Bill 'Sneex' Jones <webmaster@fccjmail.fccj.org>
Subject: Re: Dealer locator with zipcodes
Message-Id: <355B3EC8.E2C4AB54@fccjmail.fccj.org>
Mark-Jason Dominus wrote:
>
>
> ZIP CODE SEARCHING IS A MISTAKE
>
[snipped unpublished paper]
I have always respected your answers here and within a certain limit
agree with what you say in the "Just say No to Zipcodes" but I feel
that your paper is slanted toward people/applications which rely on it
either singularly or heavily.
Having written a Progress 4GL database for the Jacksonville Housing
Authority
I have had some experience with the ins and outs of Zipcodes, both as
a tracking tool and a key'ing tool. I must say however that with limited,
specific, clearly defined use, zipcodes would prove beneficial to a
software developer. IE, case in point is - "Hello Mr. Jones, may I have
your zipcode please?" "322XX." "Ah, I see you live at such n such street.
Is this correct?" "No, I live here, so forth." "Ah, I've found you.
What can I help you with today, Mr. Jones?" :-) Nice and to the point.
Better than what I have run across sometimes - "Hello Mr. Jones....
Please wait while I look thru the hundreds of Joneses who live in
Jacksonville :-)
2 Cents,
-Sneex- :-)
____________________________________________________________________________
Bill Jones | FCCJ Webmaster | Voice 1-904-632-3089 | Fax 1-904-632-3007
Florida Community College at Jacksonville | 501 W. State St. | Jax, FL 32202
mailto:webmaster@fccjmail.fccj.org | http://webmaster.fccj.org/Webmaster
------------------------------
Date: 14 May 1998 18:46:39 -0000
From: Scott A.Renner <sar@nym.alias.net>
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <19980514184639.8618.qmail@nym.alias.net>
>>> [Mike Gebis]:
>>> Programming languages are not an everyday thing, but help systems
>>> should be. Perldoc is an oddity for non-unix programmers. They can
>>> understand it, but it clashes, and will continue to be ignored
>>> forever.
>> [Tom Christiansen]:
>> Then so too shall they.
> [Mike Gebis]:
> I wish. But what you really meant is, "They shall continue to post
> dumbass questions and they shall continue to receive answers which are
> at worst rude and insulting, and at best are redundant and a waste of
> bandwidth."
True -- until the moderated group finally arrives. Then they're history.
--
Scott A. Renner <sar@nym.alias.net> | If you cannot answer a man's
My organization doesn't want their name | argument, do not panic.
on my articles, disclaimer or no. The | You can always call him names.
mail alias is to hide them, not me. | -- Oscar Wilde
------------------------------
Date: 14 May 1998 19:20:15 GMT
From: klassa@aursgh.aur.alcatel.com (John Klassa)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6jfg5f$2uk$1@aurwww.aur.alcatel.com>
On 12 May 1998 22:18:16 GMT, Tom Christiansen <tchrist@mox.perl.com> wrote:
->Ilya, you are absolutely, irrevocably full of it. I do not accept your
->premise, and thus your conclusion is irrelevant. Why must you continue
->to spread these horrid lies? The documentation is easy to find and
->use and navigate, and those for whom it is not should not be here.
...and then, more importantly:
->*PLONK*
Does this mean I won't get to watch the Ilya/TomC fireworks any longer?
Bummer! :-)
--
John Klassa / Alcatel Telecom / Raleigh, NC, USA <><
------------------------------
Date: 14 May 1998 15:36:31 -0400
From: mwmaurer@mtu.edu (Mark Maurer)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6jfh3v$3c$1@pace1.cts.mtu.edu>
fsg@gallo.ultranet.com wrote:
: mwmaurer@mtu.edu (Mark Maurer) writes:
: >Frank (dont_use_this_ey@hotmail.com) wrote:
: >: Tom Christiansen <tchrist@mox.perl.com> writes:
: >: > See http://www.salon1999.com/21st/feature/ for more on this.
: >A VERY good site, I thought...
: >: This whole discussion makes me sick.
: >???
:
: What's to question? It makes me sick, too. The Salon article is vapid.
I certainly didn't think so. It made a lot of valid points
: >: Using Perl _is_ dumbing down programming. Perl is full of constructs
: >: which behave strange (I think it is called special variables,MAGIC,
: >: context).
:
: >Uhh, no. All useful (and many nonuseful) programming languages contain
: >ideosyncracies. Having the special variables, such as $_, $|, etc does NOT
: >make dumbed-down programming.
:
: How about regular expressions? Dumbed down state machines (you can't
: even get at the internal state nodes). How about the <> operator? Dumbed
: down file operation -- you can't get at the inode directly.
Regular expressions are considered dumbing-down? Hardly. While they may be
easier to implement in Perl than say C, and make it easier to do things, they
seem to be rather difficult in their own right. I've met enough programmers
who couldn't write a regular expression in Perl, much less even have a clue
as to what one was. Clearly, they are an instance of where making things
easier != dumbing-down.
: Let's face it -- the idea of 'dumbed down' is preposterous.
When applied to Perl, yes, I agree. When applied to any language with a
'Visual' in its name, I disagree.
: The entire
: reason why we are writing in Perl is because it does so much for us
: behind the scenes. When we talk of the fact that writing Perl programs
: takes a fraction of the time of writing equivalent C programs, the
: simplification and encapsulation process erroneously tagged 'dumbing down'
: is the responsible entity.
I am getting the idea we are sort of arguing for the same thing, from two
different sides...
: >: Perl is full of wizards (in this context called MODULES) which allow me
: >: to tackle tasks which I should better have avoided. The usage of these
: >: Modules/Wizards will backfire at some point of time.
:
: >Well, they already have for some people. A LOT of people flat out do not use
: >them.
:
: If you're claiming that's because they're clinging to a frontier concept of
: programming and don't want to be namby pamby, I would have to disagree.
: I haven't met a programmer yet who doesn't use them whenever available.
You have now... ;)
But actually, I claim a lot of people don't use them because there are
many of them that have lots of useless code to do easy things (two examples
in my book are the using the File modules to manage filehandles, and using
the CGI module just to read in values from a web page. I have a 12 line perl
snippet that will read in all values, whether a post or get method, and place
them all in a hash. I seriously doubt the CGI mod is that small.)
: >: To give new names to these things does not make them better.
:
: >Well, perl is not just giving these things a new name, they are rather
: >differeint, IMO...
:
: Your opinion is erroneous.
Well now, that's a new one. Sounds like something my mother would say. But
in any case, opinions are neither right nor wrong.
: Despite the name, there is nothing 'magical'
: about a 'wizard' under win32. 'Wizards' just perform a certain templated
: function with a pretty interface on front. The thing that's probably
: closest to 'Wizards' in Perl is makemaker, the tool that lets you type
: 'perl Makefile.PL; make; make install' for all of the Perl modules on CPAN.
IMO, wizards DO dumb-down programming. To many people are just a couple of
mouse clicks away from creating something, and saying that they "programmed"
it, when in reality they couldn't create hello world in said language if
given a text editor and a compiler. You and I and many others may know that
there is nothing magical about wizards, but there are too many people out
there that they are magical. All IMO, of course...
: >: - Perl is one of many ways to do things.
: >In my estimation, usually one of the better ways...
: Here we agree. But don't let religion get in the way of clear thinking.
Not religion, because I can think of (and have done) many things where Perl
is most certainly NOT the right answer... :)
--
Mark Maurer markm@dct.com mwmaurer@mtu.edu
Programmer, Digital Magic Interactive http://www.dminteractive.com
Senior, Michigan Technological University Houghton, MI
-- Views do not represent those of my employer or school
------------------------------
Date: Thu, 14 May 1998 19:53:11 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6jfi69$1il$1@cyprus.atlantic.net>
According to dont_use_this_ey@hotmail.com (Frank):
>I meant the topic that Tom C. addresses constantly: The Perl community
>should not support people using different ways of working.
This is an outrageous misrepresentation of Tom Christiansen.
Tom revels in differences ... among *good* systems.
But he does not tolerate fools ^W Windows fans gladly.
>As far as I can see it the discusion goes in a direction that the
>usage of Perl should be made artificially harder for people with
>nonconfirming views//ways of working//operating systems.
If that's what you see, you need corrective lenses.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: 14 May 1998 19:56:50 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6jfia2$2d2$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Sitaram Chamarty
<sitaram@diac.com>],
who wrote in article <slrn6ljp9t.1ju.sitaram@ltusitaram.diac.com>:
> >If I had source code for the viewer, I would improve it a lot :-( ;-),
> >but even in this form it is infinitely better than nothing (what man +
>
> Precisely. On Unix you usually do have the source code (even if
> using a proprietary Unix, you can still install and use GNU
> tools). If you can change the BOOK viewer, you can certainly
> write a similar one that uses existing *text*-based help files
> (POD, HTML, whetever...).
Broken argument.
> My very modest (internal to my employer's firewalls, fortunately
> for the rest of the world!) web pages have a very modest and quite
> simple search engine that does almost what you described. I'm
> sure there are others that might fit your description better.
See P.S.
> Even if no one no one has done *exactly* what VIEW.EXE can do, the
> fact is that it *can be done*, while on OS/2 you are left wishing
> for the source code.
You are missing the most important point: having VIEW.EXE does not
prohibit me grepping PODs, using *your* improved solutions, etc.
There are places where we do not want solutions which work 99.99% of
times, as VIEW.EXE does. However, access to documentation is so
frequent a need, that a nice fuzzy tool which brings the documentation
to your fingertip in a blink 99.99% of times, but 4 or 5 times a year
forces you to do it the nasty way, makes *tons* of difference.
Ilya
P.S. Since there are so many good CGI programmers around, cannot we
indeed cook a system which access local Perl documentation via CGI,
and has good indices, hierarchical table-of-context, and good search?
(I have no idea how CGI works, so forgive me if I write a complete
nonsense.)
The problem with installing html by default is that one does not know
where to put it. Would not it be easy if the installer would create
an index for crossreferencing *only*, and would run pod2html on the
fly via CGI?
It cannot behave *exactly* like VIEW.EXE, since VIEW used MDI (this is
the *only* application which is uses MDI, and does not annoy me. MDI
is when you have one top-level window, and (possibly) a lot of child
windows inside, it may be emulated by a bunch of windows which are
*always* neighbors in Z-order, so they raise-lower simultaneously).
However, with frames one can get at least the "actionbar"
(forward/backward/up/down in document order,
search/index/table-of-context) which is alway visible (as opposed to
anchored to start/end of page, which is a partial solution too).
------------------------------
Date: Thu, 14 May 1998 19:54:42 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6jfi93$1j6$1@cyprus.atlantic.net>
According to fsg@gallo.ultranet.com:
>mwmaurer@mtu.edu (Mark Maurer) writes:
>>A LOT of people flat out do not use [wizards].
>
>I haven't met a programmer yet who doesn't use them whenever available.
(Chip raises his hand)
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: Thu, 14 May 1998 19:55:58 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6jfibf$1jn$1@cyprus.atlantic.net>
According to fsg@gallo.ultranet.com:
>Perl is a great language for nonprogrammers and programmers alike.
Nonprogrammers can't use Perl, because Perl is a programming language.
What you said makes no sense. So what did you _mean_?
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: Thu, 14 May 1998 19:41:27 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: How can you break out of a 'while... ' loop in a function?
Message-Id: <6jfhg5$1gu$1@cyprus.atlantic.net>
According to ilya@math.ohio-state.edu (Ilya Zakharevich):
> With Gnuinfo and PDF sucking enormously, OS/2 online book not
> allowing third party viewers/searchers (though this need comes
> pretty rare), I just do not understand how people who did not
> learn from Perl4 docs can do anything without a book.
Existence proof: People _do_ learn from the online docs.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: Thu, 14 May 1998 15:10:46 -0400
From: "Kelby Valenti" <kelby@mplx.com>
Subject: image thumbnails
Message-Id: <6jffl0$6ai@aaron.hamilton.edu>
I am wondering if anyone has seen a program which takes an image and shrinks
it down so that it is a smaller file that i can view in thumbnail format. I
have some huge files that need to be seen only occasionally. And a
thumbnail saves a great deal of load time. I would like the program to be
web based.
Thank you,
Kelby
------------------------------
Date: Thu, 14 May 1998 14:26:23 -0400
From: "Matt Durham" <matt@eagleweb.net>
Subject: Launching a program from perl
Message-Id: <355b372e.0@news4.his.com>
I have a program I wish to execute from within a perl script (The program is
a graphics generation program called fly).
I can execute the fly program from a command prompt fine, but I can't seem
to get the syntax correct to execute it from perl.
The command line prompt is something like this with all path statements
included:
c:\fly\fly.exe -i c:\fly\test.bat -o rick.gif
Description of functions:
(c:\fly\fly.exe) complete path of fly execute
( -i c:\fly\test.bat) assigns the sequence of commands in test.bat as input
paramaters
(-o rick.gif) resulting output gif
Thanks for any help you can give me
Richard
------------------------------
Date: Thu, 14 May 1998 14:53:42 -0500
From: Yong Huang <yong@shell.com>
To: Matt Durham <matt@eagleweb.net>
Subject: Re: Launching a program from perl
Message-Id: <355B4BC5.2E61AF20@shell.com>
Just use system "$myprog" or if you don't execute anything after this, exec
"$myprog",
where $myprog is "c:\\fly\\fly.exe -i c:\\fly\\test.bat -o rick.gif".
Yong
Matt Durham wrote:
> I have a program I wish to execute from within a perl script (The program is
> a graphics generation program called fly).
>
> I can execute the fly program from a command prompt fine, but I can't seem
> to get the syntax correct to execute it from perl.
>
> The command line prompt is something like this with all path statements
> included:
>
> c:\fly\fly.exe -i c:\fly\test.bat -o rick.gif
>
> Description of functions:
> (c:\fly\fly.exe) complete path of fly execute
> ( -i c:\fly\test.bat) assigns the sequence of commands in test.bat as input
> paramaters
> (-o rick.gif) resulting output gif
>
> Thanks for any help you can give me
>
> Richard
------------------------------
Date: Thu, 14 May 1998 13:45:40 -0400
From: Gary Nielson <gnielson@charlotte.infi.net>
Subject: mirror.pl and recursion problem
Message-Id: <355B2DC3.59F878E1@charlotte.infi.net>
Hi,
I am feeling embarrassed about posting this question. But I have been
trying to get mirror.pl version 2.8 to work. I have figured out the
mirror.defaults file but I can not get it to recursively drill down
subdirectories on a site.
I simply run mirror from the command line and it successfully logs on
and updates any new files in the wftpxxxxxx/www/ directory but I have
lots of subdirectories that need
mirroring as well and mirror.pl doesn't get them. I have read through
the man pages and
have tried setting command line flags, adding recursive=true (as below)
etc and it isn't
working. Can anyone help me figure out what is wrong? Please email reply
as well.
Gary
Charlotte NC
[root@localhost perl5]# more mirror.defaults
package=sitename
hostname=www.sitename.com
site=www.sitename.com
recursive=true
local_dir=/home/httpd/html/mirror/sitename/www/
remote_dir=/wfpxxxxxx/www/
remote_user=wfpxxxxxx
remote_password=password
update_log=.mirror
------------------------------
Date: Thu, 14 May 1998 14:25:52 -0400
From: Bob Walton <walton@kodak.com>
Subject: Re: module "manifest"
Message-Id: <355B3730.3269@kodak.com>
Bob Walton wrote:
>
> While attempting to install various perl modules (first time I have
> tried this, using perl for win32, version 5.003_07), I get an error
> "Can't locate ExtUtils/Manifest.pm in @INC at (eval 5) line 374.", for
> example. I have looked all over CPAN for Manifest.pm, with no success.
> Is there somewhere where I can get module Manifest.pm? Thank you.
Many thanks to those who replied. Several email-only replies suggested
I try Gurusamy Sarathy's build of perl for win32, rather than the
ActiveState build. That was the solution -- not only was Manifest.pm
there, but so were all the modules I was trying to install! Within a
few minutes of reading the first email, I was up and running with the
first module I wanted to use (LWP)! WOW -- what service! Perl is great
-- and so is this newsgroup!
--
Bob Walton
walton@kodak.com
------------------------------
Date: Thu, 14 May 1998 19:48:09 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: MODULE MANIA STRIKES (Was Re: What does this do?)
Message-Id: <6jfhsq$1hv$1@cyprus.atlantic.net>
According to tina@tech.scandinaviaonline.se:
>In article <6jamen$uf2$1@cyprus.atlantic.net>,
> chip@mail.atlantic.net (Chip Salzenberg) writes:
>>Tina:
>>> Agreed. However, I want to take this one step further: one MAY NOT expect
>>>people to learn good, or even correct, Perl programming by reading module
>>>source code; be those modules everso much from CPAN.
>>
>> No way. Perl code is Perl code. There is no substitute for learning
>> by example.
>
> "I want to learn how to drive!"
> "Well, there's nothing like experience! Go out and look at how its done,
> kid, then come back when you've learned."
Straw man. I didn't say "_only_ by example".
Every great engineer learned a great deal as a youth by taking things
apart and seeing how they worked. Denying that this kind of learning
is good and important for programmers is a serious error, IMO.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: Thu, 14 May 1998 15:15:16 -0300
From: "Scott Williams" <swilliams@NOSPAM.cshore.com>
Subject: NT IIS #exec cgi
Message-Id: <355b4347.0@news3.paonline.com>
Does anyone have experience with <!--#exec cgi= -->.
Here's the source.
exec cgi="/scripts/back.pl" --><BR>
<!--#exec cgi="/scripts/back.pl" --><BR>
Here's the results.
exec cgi="/scripts/back.pl" -->
HTTP/1.1 200 OK
Date: Thu, 14 May 1998 18:09:28 GMT
Server: Microsoft-IIS/4.0
Content-type: text/html
'C:\webhomes\valplus\htdocs\test.stm' script produced no output
It used to work, but when we re-installed IIS I can't remember what we did.
.stm files are calling perlis.dll
Thanks.
Scott Williams
CyberShore, Inc.
------------------------------
Date: Thu, 14 May 1998 15:17:25 -0300
From: "Scott Williams" <swilliams@NOSPAM.cshore.com>
Subject: NT4 and IIS 4
Message-Id: <355b43c8.0@news3.paonline.com>
Does anyone have this working on their server?
<!--#exec cgi="/scripts/back.pl" --><BR>
This is the result on mine:
HTTP/1.1 200 OK
Date: Thu, 14 May 1998 18:09:28 GMT
Server: Microsoft-IIS/4.0
Content-type: text/html
'C:\webhomes\valplus\htdocs\test.stm' script produced no output
This used to work until we had to reinstall NT and IIS.
.stm files are mapped to perlis.dll
Thanks,
Scott Williams
CyberShore, Inc.
------------------------------
Date: Thu, 14 May 1998 19:52:19 GMT
From: raul@homeontheweb.net (Raul Nohea Goodness)
Subject: Re: Perl not and ! operator differences
Message-Id: <355b4688.606859765@news.spacelab.net>
On 14 May 1998 15:30:43 GMT, Tom Christiansen <tchrist@mox.perl.com>
wrote:
> [courtesy cc of this posting sent to cited author via email]
>
>In comp.lang.perl.misc,
> Jari Aalto <jari.aalto@poboxes.com> writes:
>: Can someone give me an example when I have to use ! operator
>: over "not". It seems that the more readable "not" is much
>: better in code that will be maintained in big projects.
>
>You have it entirely backwards.
>
>"!" is to be preferred over "not" in all circumstances.
>"not" should not have been added to the language.
>
[-Long and eloquent explanation here-]
>
>--tom
OK, so I guess you have a good point for not using "word-style"
operators instead of the punctuation style. However, to answer the
question without judging coding style:
The "!" and "not" operators work the same way. However, their
precedence is different. "not" has a lower precedence than "!".
I got bit by this in some earlier scripts I did like this, using an OR
operation:
open INLISTING, $ListingTemplate
|| die "Can't open $ListingTemplate \n";
The "die" side of the expression wouldn't execute when the open
failed. I had to change the code to:
open INLISTING, $ListingTemplate
or die "Can't open $ListingTemplate \n";
... to get it to work. I guess following Tom's example, I should have
used:
( open INLISTING, $ListingTemplate )
|| ( die "Can't open $ListingTemplate \n"; )
Tom, I agree that we shouldn't convert all punctuation to words, but
it's a gray area. I don't think
$a ? $b : $c;
is more maintainable than
if( $a ) {
$b;
}
else {
$c;
}
-Raul
------------------------------
Date: Thu, 14 May 1998 14:29:06 -0400
From: "Matt Durham" <matt@eagleweb.net>
Subject: Perl script for Home Page?
Message-Id: <355b37d3.0@news4.his.com>
Is it possible to launch a perl script instead of the standard default.htm
in Microsoft IIS 3? If so I would like to know the procedures and or syntax
to do this.
I want to display results of a perl script instead of a static page when a
client accesses the home page.
Thanks
------------------------------
Date: 14 May 1998 18:53:01 GMT
From: Art Cohen <upsetter@shore.net>
Subject: Re: Perl script for Home Page?
Message-Id: <6jfeid$auo@fridge.shore.net>
Matt Durham <matt@eagleweb.net> wrote:
: Is it possible to launch a perl script instead of the standard default.htm
: in Microsoft IIS 3? If so I would like to know the procedures and or syntax
: to do this.
: I want to display results of a perl script instead of a static page when a
: client accesses the home page.
It's probably possible, but since this question really has nothing to do
with perl, you'd be better off asking in an IIS-related newsgroup (or
checking the docs!).
--Art
National Ska/Reggae Calendar: www.ziplink.net/~upsetter/ska/calendar.html
Boston Ska Home Page: www.ziplink.net/~upsetter/ska/index.html
------------------------------
Date: 14 May 1998 18:06:29 GMT
From: pdf@morgan.ucs.mun.ca (Paul Fardy)
Subject: perl5.004_04 bug/weakness?: tie %hash and scalar(%hash)
Message-Id: <6jfbr5$rj6$1@coranto.ucs.mun.ca>
A piece of code I've been using for some time under 5.003 isn't
working under perl5.004_04. I used "defined" warily because the
docs (Camel and perlfunc(1)) didn't define what "defined %hash"
meant. The new man page is more clear: use of define on aggregate
types "should probably be avoided"; ... good to know.
But I now find that the test suggested in the man page does not
work for me: not for hashes instantiated by tie(). (It fails under
perl5.003, too.) I guess that the semantics of scalar(%hash) just
haven't been resolved yet. I've included two small perl programs
that demonstrate my problem; the output is also included.
What should I do in the mean time? I could test whether each()
immediately returns an end-of-list indicator, but how do I reset
the iterator? I many keys (10000 to 30000) to deal with.
To fix my original problem, all I need is an efficient means
checking that the tie() succeeded; I could use a flag variable
or, perhaps, I could just use the ref/undef returned by tie().
Thanks in advance,
Paul Fardy
Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration:
Platform:
osname=dec_osf, osvers=4.0, archname=alpha-dec_osf
uname='osf1 porthos.ucs.mun.ca v4.0 878 alpha '
hint=recommended, useposix=true, d_sigaction=define
bincompat3=y useperlio=undef d_sfio=undef
Compiler:
cc='cc', optimize='-O4', gccversion=
cppflags='-std -D_INTRINSICS -D__LANGUAGE_C__'
ccflags ='-std -D_INTRINSICS -D__LANGUAGE_C__'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
voidflags=15, castflags=0, d_casti32=define, d_castneg=define
intsize=4, alignbytes=8, usemymalloc=y, prototype=define
Linker and Libraries:
ld='ld', ldflags =''
libpth=/usr/shlib /shlib /lib /usr/lib /usr/ccs/lib
libs=-ldbm -ldb -lm -lbsd
libc=/usr/shlib/libc.so, so=so
useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-shared -expect_unresolved "*" -O4 -msym -s'
Characteristics of this binary (from libperl):
Built under dec_osf
Compiled at May 11 1998 20:09:32
@INC:
/local/lib/perl5/alpha-dec_osf/5.00404
/local/lib/perl5
/local/lib/perl5/site_perl/alpha-dec_osf
/local/lib/perl5/site_perl
.
-- sample execution --
$ rm -f test.db
$ perl create-db.pl
Before tying the hash: %are = 0
The hash has no values.
keys = ()
After tying the hash: %are = 0
The hash has no values.
keys = ()
After building the hash: %are = 3/8
The hash has values.
keys = (we i you)
$ perl check-db.pl
Before tying the hash: %are = 0
The hash has no values.
keys = ()
After tying the hash: %are = 0
The hash has no values.
keys = (we i you)
After accessing the hash: %are = 0
The hash has no values.
keys = (we i you)
After modifying the hash: %are = 0
The hash has no values.
keys = (we walrus i you)
-- create-db.pl --
#!/local/bin/perl
use DB_File;
use Fcntl;
sub check {
if (%are) {
print " The hash has values.\n";
} else {
print " The hash has no values.\n";
}
print " keys = (", join(" ", keys %are), ")\n";
}
print "Before tying the hash: %are = ", scalar(%are), "\n";
✓
$db = "test";
$file = "$db.db";
$DB = tie %are, "DB_File", $file, O_RDWR|O_CREAT, 0640, $DB_HASH
or die "$0: cannot open $file: $!\n";
print "After tying the hash: %are = ", scalar(%are), "\n";
✓
%are = qw(i you you he you me we all-together); # $are{you} eq ("he" or "me")?
print "After building the hash: %are = ", scalar(%are), "\n";
✓
untie %are;
-- check-db.pl --
#!/local/bin/perl
use DB_File;
use Fcntl;
sub check {
if (%are) {
print " The hash has values.\n";
} else {
print " The hash has no values.\n";
}
print " keys = (", join(" ", keys %are), ")\n";
}
print "Before tying the hash: %are = ", scalar(%are), "\n";
✓
$db = "test";
$file = "$db.db";
$DB = tie %are, "DB_File", $file, O_RDWR, 0, $DB_HASH
or die "$0: cannot open $file: $!\n";
print "After tying the hash: %are = ", scalar(%are), "\n";
✓
print "After accessing the hash: %are = ", scalar(%are), "\n";
✓
$are{"walrus"} = "paul";
print "After modifying the hash: %are = ", scalar(%are), "\n";
✓
untie %are;
------------------------------
Date: Thu, 14 May 1998 14:44:12 -0400
From: Scott Webster Wood - TheWild Webster <swood@TheWild.Com>
Subject: Playing with PostgreSQL
Message-Id: <Pine.LNX.3.96.980514143222.20109D-100000@tre.thewild.com>
I have been trying to compare/contrast various SQL packages for perl. I
have since installed the mSQL and the PostgreSQL stuff on various boxes
for testing. I have found a couple of routines for Perl to talk to them,
but the only ones that I have found thus far (at least at first glance)
utilize an expr routine or something similar to send commands to and from
the SQL server. I was kinda hoping that something would allow me to
create objects that would match the object databases I wanted to create in
the SQL.
Before I spend endless hours trying to find the right combination of
tools, am I on the right track? Or do I need to change my thinking for
using Perl to access SQL data? (I am somewhat new to relational databases
too, BTW)
Basically, I already have a program that builds data in perl objects. The
various properties reflect attributes of files I am storing for regurgence
onto a web index page. It was my hope that I might be able to use the SQL
to dynamically save, recall and search the information about each file.
e.g.
Main object properties
key: unix time stamp from file add time
Name: text
Description: text
Location: 'location' object
File Info: 'fileinfo' object
Location object properties
City/County: text
State: text or a reference to an object array of states
Zip: zip or zip object (for zips with suffixes)
FileInfo object properties:
Size in bytes: int
last atime: timestamp
last ctime: timestamp
etc.
I have already set up an SQL that behaves the way I want (although I am
still getting into learning how to handle the objects within objects
*sigh*). I have just not found anything really descriptive or detailed in
any of the perl routines I have found to date that would let me know the
best way to manipulate the data in these items, no less to search and
recall the information.
I don't want a full how-to, I would just appreciate some starting points
or some ideas what I need to look for....
Scott
--
NOTICE TO BULK E-MAILERS:
Pursuant to US code, Title 47, Chapter 5, Subchapter II, 227;
any and all non-solicited commercial E-mail sent to this address is
subject to a download and archival fee in the amount of $50.
Sending such non-solicited email(s) to this address or any other
address(es) at TheWild.Com without a specific request for said
messages denotes acceptance of these terms.
Furthermore, all materials originating from TheWild.Com and / or
Webster Internet Services are the sole intellectual property of
Scott Webster Wood, Webster Internet Services and their customers.
Any distribution, publication or other replication in any other manner
of such information (including all email addresses, user names or
other resources on TheWild.Com systems) without expressed permission
from Webster Internet Services is forbidden. (and may be in violation
of copyright and/or trademark law where applicable)
TheWild.Com is a commercial (.com) web site - NOT a sales floor. Save
your time, our time, your resources and our resources and DO NOT include
TheWild.Com addresses in your mass mailing lists!!!
--
Scott Webster Wood Webster Internet Services
SWood@TheWild.Com Home of TheWild Web homepage
(313) 913-5511 http://WWW.TheWild.Com
>>> Featuring the Bad Frog Beer homepage and TNUSA of Michigan <<<
------------------------------
Date: Thu, 14 May 1998 18:33:19 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Nervick <nervick@bewellnet.com>
Subject: Re: removing last line from file
Message-Id: <Pine.GSO.3.96.980514113204.21974h-100000@user2.teleport.com>
On Thu, 14 May 1998, Nervick wrote:
> open FILE, "file.txt";
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check the return value after opening a file.
Thanks!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 14 May 1998 18:11:22 GMT
From: leeSPAMKILLER@efn.org (Lee Bottemiller)
Subject: Seeking perl programmer for quick & simple paid script mod
Message-Id: <356533b0.42873458@news.supernews.com>
I've found a freely distributable script that does -almost- exactly
what I need. However, I need a programmer/cgi/apache expert to add
probably about 8-10 lines of MIME type changing code and 1-4 lines of
external browser redirection code.
How would y'all suggest I go about finding this person? He/she
needn't be in my local area.
Many thanks,
Lee
------------------------------
Date: Thu, 14 May 1998 12:34:50 -0600
From: "Kirk D. Haines" <khaines@oshconsulting.com>
To: ward.kaatz@pss.boeing.com
Subject: Re: TIMTOWTDI - regex vs. if (function)
Message-Id: <6jfdab$ejb$1@gte2.gte.net>
Ward Kaatz wrote:
>
> perl mongers,
>
> I am reformatting day and month fields returned from localtime(time) to
> comply with a YYYYMMDD format.
>
> Since localtime(time) will return month/day without a leading zero, I
> have to prefix a single digit month/day with a zero for storage in a
> datafile. my original cut just checked the length of month/day and if
> length is equal to one, concatinates the digit after a leading zero.
> this works just fine.
Here's an easy way to get what you want:
my $date = POSIX::strftime('%Y%m%d',localtime(time()));
Kirk Haines
------------------------------
Date: Thu, 14 May 1998 11:59:09 -0700
From: "Larry Rosler" <lr@hpl.hp.com>
Subject: Re: TIMTOWTDI - regex vs. if (function)
Message-Id: <6jfeth$1dl@hplntx.hpl.hp.com>
Kirk D. Haines wrote in message <6jfdab$ejb$1@gte2.gte.net>...
>Ward Kaatz wrote:
>>
>> perl mongers,
>>
>> I am reformatting day and month fields returned from localtime(time)
to
>> comply with a YYYYMMDD format.
>>
>> Since localtime(time) will return month/day without a leading zero, I
>> have to prefix a single digit month/day with a zero for storage in a
>> datafile. my original cut just checked the length of month/day and
if
>> length is equal to one, concatinates the digit after a leading zero.
>> this works just fine.
>
>Here's an easy way to get what you want:
>
>my $date = POSIX::strftime('%Y%m%d',localtime(time()));
>
>
>Kirk Haines
Do you need a module for something this trivial?
my ($mday, $mon, $year) = (localtime)[3 .. 5];
sprintf '%d%.2d%.2d', 1900 + $year, $mon + 1, $mday;
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: Thu, 14 May 1998 14:16:12 -0400
From: "David A. Lyons" <lyonsd@atl.hp.com>
Subject: while, each & assoc array
Message-Id: <355B34EC.C8C671F0@atl.hp.com>
I'm stumped. Assume I have a good associative array called FORM.
I want to view all values in the array except the one whose "key" is x.
I've tried the following:
while (($key,$value)=each(%FORM))
{
if ( $key != x )
{
print $key $value
}
}
while (($key,$value)=each(%FORM))
{
if ( $key != "x" )
{
print $key $value
}
}
while (($key,$value)=each(%FORM))
{
if ( "$key" != "x" )
{
print $key $value
}
}
while (($key,$value)=each(%FORM))
{
if ( "$key" != x )
{
print $key $value
}
}
while (($key,$value)=each(%FORM))
{
if ( $key != 'x' )
{
print $key $value
}
}
Etc....
I get no output on any of these!
What am I doing wrong?
Thanks.
Dave
------------------------------
Date: Thu, 14 May 1998 14:33:17 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: while, each & assoc array
Message-Id: <comdog-ya02408000R1405981433170001@news.panix.com>
Keywords: from just another new york perl hacker
In article <355B34EC.C8C671F0@atl.hp.com>, lyonsd@atl.hp.com posted:
>I want to view all values in the array except the one whose "key" is x.
>
>I've tried the following:
>
>while (($key,$value)=each(%FORM))
> {
> if ( $key != x )
> {
> print $key $value
> }
> }
while( ($key, $value) = each(%FORM) )
{
next if $key eq 'x'; #use string comparison for strings
print "$key $value\n"
}
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: 14 May 1998 18:28:04 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: while, each & assoc array
Message-Id: <6jfd3k$p00@news-central.tiac.net>
In article <355B34EC.C8C671F0@atl.hp.com>,
David A. Lyons <lyonsd@atl.hp.com> wrote:
>I'm stumped. Assume I have a good associative array called FORM.
>
>I want to view all values in the array except the one whose "key" is x.
>
>I've tried the following:
>while (($key,$value)=each(%FORM))
> {
> if ( $key != 'x' )
> {
> print $key $value
> }
> }
>What am I doing wrong?
using != to compare strings, missing a comma between $key and $value
which may cause perl to interpret $key differently from the way you
intended...
while (($key, $value) = each %FORM) {
print "$key $value\n" unless $key eq 'x';
}
might be closer to what you want.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Thu, 14 May 1998 18:36:06 GMT
From: jdporter@min.net (John Porter)
Subject: Re: while, each & assoc array
Message-Id: <MPG.fc50535ed5615759896c6@news.min.net>
On Thu, 14 May 1998 14:16:12 -0400,
in article <355B34EC.C8C671F0@atl.hp.com>,
lyonsd@atl.hp.com (David A. Lyons) wrote:
>
> I want to view all values in the array except the one whose "key" is x.
>
> I've tried the following:
>
> if ( $key != x )
Did you think carefully about how perl is going to interpret that x?
Generally, if you mean something to be a string literal, quote it
somehow. Perl gives you lots of ways to do it.
Moving on...
> print $key $value
Please read the docs on the print function again.
No commas?!?
(Hint: you're telling it to print to someplace other than stdout...)
> if ( $key != "x" )
That's better: you've quoted "x".
Now, how does one compare strings?
What do your docs say about string comparison operators
vs. numeric comparison operators?
> if ( "$key" != "x" )
Interpolating the $key variable into a string.
I bet you come from a shell-scripting background...
John Porter
------------------------------
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 2598
**************************************
