[13509] in Perl-Users-Digest
Perl-Users Digest, Issue: 919 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 27 10:07:23 1999
Date: Mon, 27 Sep 1999 07:05:11 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <938441111-v9-i919@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 27 Sep 1999 Volume: 9 Number: 919
Today's topics:
Bye Tom? (WAS: Re: injecting "my" varibales into caller (Matthew Bafford)
Re: CGI or JDBC <cw@dwc.ch>
CGI/Perl programmer needed for NT <Webmaster@copscorp.com>
croydon.pm inaugural meeting <david@wirestation.co.uk>
Re: croydon.pm inaugural meeting <blcbubb@hotmail.com>
Re: croydon.pm inaugural meeting <gellyfish@gellyfish.com>
Re: Displaying an image (Sam Holden)
Re: Displaying an image <gellyfish@gellyfish.com>
Filehandling to local harddisk <m.scheferhoff@gmx.de>
Forms and frames <mcalbers@introweb.nl>
Getting record as hash (Paulius)
Re: Getting record as hash (Graham Ashton)
Re: How to create files from CGI script? kdevine@my-deja.com
mod-perl, reference problem <fran@dpi72.de>
Re: mod-perl, reference problem <cw@dwc.ch>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Parsing @argv <abuse@borpin.demon.co.uk>
Re: Replacement "CD" for win32 systems <simon.plant@citrix.com>
Re: Replacement "CD" for win32 systems <gellyfish@gellyfish.com>
Re: Replacement "CD" for win32 systems <gellyfish@gellyfish.com>
running other programs from perl (James Stevenson)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Which Search engine script? <cim@cim-net.com>
Which Search engine script? <cim@cim-net.com>
Re: You should be admired, or What does this have to do <tech@tburg.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 27 Sep 1999 11:29:57 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <slrn7uuk78.k8j.*@dragons.duesouth.net>
Tom Christiansen:
: I don't really think this forum deserves any more help at all, from me,
: or from anyone. You can suffer by yourselves.
Thank you Tom for all you've done for clpm over the years. It's a
shame to see another of the original Perlers drop out; we'll miss you.
See you on ppt. :-)
: --tom
--Matthew
------------------------------
Date: Mon, 27 Sep 1999 12:00:59 +0100
From: Christoph Wernli <cw@dwc.ch>
Subject: Re: CGI or JDBC
Message-Id: <37EF4E6B.BC66CB32@dwc.ch>
Thomas Haenel wrote:
>
> what are the pros and cons of using one technology over another ? I
> don't really want to have to learn PErl but it seems cheaper than paying
> for a good JDBC driver like the one from IDS software. Will CGI continue
> to be used in the future ?
Beware ! perl isn't CGI. It just get's used there sometimes. A much better approach is
http://perl.apache.org
But it depends a lot on what your needs are, which I cannot extract from your posting.
Maybe you want to ask a more specific question ?
-w
------------------------------
Date: Mon, 27 Sep 1999 10:00:57 -0400
From: "Eric Seiler" <Webmaster@copscorp.com>
Subject: CGI/Perl programmer needed for NT
Message-Id: <dNKH3.141$AH1.173369@news.abs.net>
Hello, I am designing a business site that requires more then what I can get
out of pre-written scripts. The sort of scripting I need is pretty
advanced, and only those familar with user management, and ecommerce
scripting need apply. Pay would be dependent on the net profitability of
the website.
Please contact me at webmaster@copscorp.com for more details.
Thanks,
Eric Seiler
Cops, Inc.
------------------------------
Date: Mon, 27 Sep 1999 12:23:12 +0100
From: David Cantrell <david@wirestation.co.uk>
Subject: croydon.pm inaugural meeting
Message-Id: <f1PvN+=TsiMDJ07uMOP8jrCHXVB9@4ax.com>
The inaugural get-together for the Croydon Perl Mongers will take
place on Thursday the 30th of September from 19:30-ish in the Dog and
Bull pub on Surrey Street. If they're being annoying and having
karaoke or something equally silly, we'll go to the Spread Eagle on
Katherine Street
All are welcome.
Future meetings will always be on the last Thursday of each month, but
the venue may change.
Note the followup-to header.
[Copying newsgroup posts to me by mail is considered rude]
--
David Cantrell, part-time Unix/perl/SQL/java techie
full-time chef/musician/homebrewer
http://www.ThePentagon.com/NukeEmUp
------------------------------
Date: Mon, 27 Sep 1999 14:30:58 +0100
From: "blcbubb" <blcbubb@hotmail.com>
Subject: Re: croydon.pm inaugural meeting
Message-Id: <7sns0u$qtg$1@plutonium.btinternet.com>
Keywords: None
David Cantrell <david@wirestation.co.uk> wrote in message
news:f1PvN+=TsiMDJ07uMOP8jrCHXVB9@4ax.com...
> The inaugural get-together for the Croydon Perl Mongers will take
> place on Thursday the 30th of September from 19:30-ish in the Dog and
> Bull pub on Surrey Street. If they're being annoying and having
> karaoke or something equally silly, we'll go to the Spread Eagle on
> Katherine Street
>
The Bull Pub in Surrey Street - karaoke
My times have changed - it used to be a real market pub - I suppose that's
the influence of TV soaps.
------------------------------
Date: 27 Sep 1999 14:48:58 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: croydon.pm inaugural meeting
Message-Id: <37ef75ca_1@newsread3.dircon.co.uk>
In comp.lang.perl.misc blcbubb <blcbubb@hotmail.com> wrote:
>
> David Cantrell <david@wirestation.co.uk> wrote in message
> news:f1PvN+=TsiMDJ07uMOP8jrCHXVB9@4ax.com...
>> The inaugural get-together for the Croydon Perl Mongers will take
>> place on Thursday the 30th of September from 19:30-ish in the Dog and
>> Bull pub on Surrey Street. If they're being annoying and having
>> karaoke or something equally silly, we'll go to the Spread Eagle on
>> Katherine Street
>>
>
> The Bull Pub in Surrey Street - karaoke
>
> My times have changed - it used to be a real market pub - I suppose that's
> the influence of TV soaps.
>
I wouldnt have thought it was big enough for karaoke - mind I havent been
in there for ten years so my memory might be tainted ...
/J\
--
"The chef's salty balls have dropped" - Christopher Price, BBC NEWS 24
------------------------------
Date: 27 Sep 1999 11:47:40 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Displaying an image
Message-Id: <slrn7uumas.h6a.sholden@pgrad.cs.usyd.edu.au>
On Mon, 27 Sep 1999 12:00:02 +0100, Scott Pritchett <scott@salmon.ltd.uk> wrote:
>I am having trouble with this code (it's a bit complicated:)) :-
It's not complicated, and your problem is not with the perl, but with the
HTML. So you would be better off asking in a newsgroup that has something
to do with www and cgi stuff...
<snop code>
><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
><HTML><HEAD><TITLE>Untitled Document</TITLE>
></HEAD><BODY><IMG SRC="d:\apache\cgi-bin\aw.gif"></BODY></HTML>
>
>This works fine in ActivePerl but on the Unix box the picture just will not
>display, the only change is the file name of the image.
Any chance that the web browser is running on the Windows box? I bet it is.
You are giving an a URL which is very very unlikely to exist.
The URL you want is probably something like : /cgi-bin/aw.gif, though
putting images in a cgi-bin directory is very strange, and some web servers
mightn't allow it.
>
>Code on Unix is :-
>
>#!/usr/bin/perl -w
>use strict;
>use CGI qw/:standard/;
>print header,
>start_html,
>img({-src=>'/usr/local/apache/images/aw.gif'}),
>end_html;
>exit;
>
>It seems not to be able to find the picture, when I look at the properties
>of the icon (where the picture is meant to be) it says the protocol is HTTP,
>type GIF Image, and the address
>http://awaaaaaa:8080/usr/local/apache/images/aw.gif
That's what you told it to do. Assuming the page output has a URL like :
http://awaaaaa:8080/<some name>
>Any help appreciated it's driving me mad.
The solution is to give the URL of the image and not the location on the
file system.
How to do this is not a perl question. Ask in a www newsgroup.
--
Sam
We prefer English to remain a rich language, quirky, sloppy, and full
of redundancy. Same for Perl.
--Larry Wall
------------------------------
Date: 27 Sep 1999 13:43:53 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Displaying an image
Message-Id: <37ef6689_2@newsread3.dircon.co.uk>
Scott Pritchett <scott@salmon.ltd.uk> wrote:
> I am having trouble with this code (it's a bit complicated:)) :-
>
> #!/usr/bin/perl -w
> use strict;
> use CGI qw/:standard/;
> print header,
> start_html,
> img({-src=>'d:\apache\cgi-bin\aw.gif'}),
> end_html;
> exit;
>
>
> which generates :-
>
> <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
> <HTML><HEAD><TITLE>Untitled Document</TITLE>
> </HEAD><BODY><IMG SRC="d:\apache\cgi-bin\aw.gif"></BODY></HTML>
>
> This works fine in ActivePerl but on the Unix box the picture just will not
> display, the only change is the file name of the image.
>
> Code on Unix is :-
>
> #!/usr/bin/perl -w
> use strict;
> use CGI qw/:standard/;
> print header,
> start_html,
> img({-src=>'/usr/local/apache/images/aw.gif'}),
> end_html;
> exit;
>
> It seems not to be able to find the picture, when I look at the properties
> of the icon (where the picture is meant to be) it says the protocol is HTTP,
> type GIF Image, and the address
> http://awaaaaaa:8080/usr/local/apache/images/aw.gif
>
Of course this is not a Perl question at all - you simply are supplying
the wrong URL to the image - this is not the same as the path to the
file on your system - it may be relative to your document root or some
other place depending on your servers configuration.
It works on your local PC by pure chance.
If you are not sure how to determine the correct URL then you should
ask in a newsgroup that is concerned with server configuration ...
[followups set]
/J\
--
"I must call a man in - I want to get felt laid down in the loft" -
Graham Norton
------------------------------
Date: Mon, 27 Sep 1999 15:29:46 +0200
From: Michael Scheferhoff <m.scheferhoff@gmx.de>
Subject: Filehandling to local harddisk
Message-Id: <37EF714A.461FCF09@gmx.de>
Hello,
I have to post news over http. To be able to add attachments to my post
I have to encrypt then with MIME::Base64. This works fine if the file is
placed on the machine where my webserver is running, but I want to
encrypt files on my local harddrive with the help of a Perl/CGI script
running on my webserver. To do that I need to be able to open the file
over http and then read the fiel to an array. I don't know how to open
the file over http. Does anybody know how to open a file via http?
Thanks,
Michael
------------------------------
Date: Mon, 27 Sep 1999 13:54:31 GMT
From: Michael C. Albers <mcalbers@introweb.nl>
Subject: Forms and frames
Message-Id: <7snsui$aju$1@nnrp1.deja.com>
Hi,
Can anyone help me with the following problem?
I've have three frames (top, middle and bottom). The top frame isn'nt
important right now.
In the middle frame people can enter some fields.
In the bottom frame are the submit and reset buttons.
How can I get the values given in the middle frame using the buttons ib
the bottom frame?
--
Thanx,
Michael C. Albers
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 27 Sep 1999 12:30:30 GMT
From: kaktusas@usa.net (Paulius)
Subject: Getting record as hash
Message-Id: <8E4E8921Dkaktusasusanet@10.1.1.66>
Hello,
could someone show how to get and use record as hash using DBI?
TIA
------------------------------
Date: 27 Sep 1999 11:58:45 GMT
From: graham@mirror.bt.co.uk (Graham Ashton)
Subject: Re: Getting record as hash
Message-Id: <slrn7uumv6.v3b.graham@wing.mirror.bt.co.uk>
In article <8E4E8921Dkaktusasusanet@10.1.1.66>, Paulius wrote:
>Hello,
>
>could someone show how to get and use record as hash using DBI?
# assume you've already connected and got a $dbh, and setup your $sth
# (statement handle), and that you're SQL select statement asked for 3 columns
# called `id', `bob' and `fred'...
while (my %row_hash = $sth->fetchrow_hash) {
print "id: $row_hash{id}\n";
print "fred is set to $row_hash{fred}, and bob has $row_hash{bob}\n";
}
Is that what you meant? Your question seems a bit vague...
P.S. I've not tested any of that either, but as I don't really know if
it's what you're really asking, it didn't seem worth it. You should get
the idea.
--
Graham
------------------------------
Date: Mon, 27 Sep 1999 13:03:06 GMT
From: kdevine@my-deja.com
Subject: Re: How to create files from CGI script?
Message-Id: <7snpu5$8hr$1@nnrp1.deja.com>
In article <37E4577D.36AC0B72@desertigloo.com>,
"David P. Schwartz" <davids@desertigloo.com> wrote:
> Here is my question: How is it possible to create files from within a
Perl script
> that's being executed from a web page?
>
> The script is beneath the cgi-bin directory, which has 744
permissions. My umask
> setting is 022. I've tried turning on the UID bit (chmod +s ...) on
the perl
> script, but it has no effect.
>
> How the heck can this be done???
>
I have had multiple problems with permissions and such when using Perl
for CGI scripting. I have found that running system commands from Perl
alleviate some of the problems. Executing a system("touch $filename")
may solve the problem instead of expecting the file to be created from
an open(DATA,">$filename") command. This has solved my problem many
times.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 27 Sep 1999 13:21:59 +0100
From: Frauke Voss <fran@dpi72.de>
Subject: mod-perl, reference problem
Message-Id: <37EF6167.98B45DA1@dpi72.de>
Hi,
I'm quite a newbie to perl and I've already tried everything I could
think of - FAQ's, books, references, logfiles, diagnostics ... and I
still have a problem with this. Any help and suggestions would be
greatly appreciated.
I use CGI() to read in form-data, and I use "use strict" because
everything runs on a mod-perl server. I want to upload a user-specified
file to the server. If I don't use "use strict" the program runs fine,
if I do, I get the the comment in the error-log "Can't use string as a
symbol ref while "strict refs" in use".
So instead of
my $form = CGI->new();
my $infile = $form->param('infile');
..
if (defined $infile)
{
while ($bytes = read($infile,$buffer,1024))
{
print OUTFILE $buffer;
}
}
I tried to use
use CGI qw/:standard/;
my $infile = param('infile');
but that generates the error:
"Malformed multipart POST"
Thanks in advance to anybody who can help,
Frauke Voss
--
Frauke Voss
student of Medieninformatik FH Furtwangen 6. Sem
internship: Pixelpark, Berlin
http://www.dpi72.de
mailto: fran@dpi72.de
------------------------------
Date: Mon, 27 Sep 1999 14:34:30 +0100
From: Christoph Wernli <cw@dwc.ch>
To: frauke.voss@pixelpark.com
Subject: Re: mod-perl, reference problem
Message-Id: <37EF7266.96BC3663@dwc.ch>
[posted & mailed]
> I use CGI() to read in form-data, and I use "use strict" because
> everything runs on a mod-perl server.
I assume that your script runs under Apache::Registry.
> I want to upload a user-specified
> file to the server. If I don't use "use strict" the program runs fine,
> if I do, I get the the comment in the error-log "Can't use string as a
> symbol ref while "strict refs" in use".
>
> my $form = CGI->new();
> my $infile = $form->param('infile');
> ..
> if (defined $infile)
> {
my $fh = $form->upload('infile) or die $!;
while (<$fh>) {
print OUTFILE $_;
}
> }
>
This is the recommended way to do it.
-w
------------------------------
Date: 27 Sep 1999 13:52:37 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7snsr5$gmj$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 20 Sep 1999 15:00:44 GMT and ending at
27 Sep 1999 07:49:31 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 243 (49.2% of all posters)
Articles: 382 (22.9% of all articles)
Volume generated: 609.3 kb (21.1% of total volume)
- headers: 282.5 kb (5,864 lines)
- bodies: 323.5 kb (11,081 lines)
- original: 241.6 kb (8,708 lines)
- signatures: 2.9 kb (78 lines)
Original Content Rating: 0.747
Averages
========
Posts per poster: 1.6
median: 1 post
mode: 1 post - 186 posters
s: 2.2 posts
Message size: 1633.3 bytes
- header: 757.2 bytes (15.4 lines)
- body: 867.3 bytes (29.0 lines)
- original: 647.7 bytes (22.8 lines)
- signature: 7.8 bytes (0.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
30 42.4 ( 24.2/ 18.2/ 8.2) mstevens@ashre.demon.co.uk (Michael Stevens)
7 13.4 ( 5.6/ 7.8/ 2.4) Jonathan Teo <jonnyace@magix.com.sg>
6 20.9 ( 3.8/ 17.1/ 17.1) topalli@my-deja.com
6 8.5 ( 4.3/ 3.7/ 1.8) Job-Base <info@job-base.com>
5 18.4 ( 4.2/ 14.2/ 13.0) "R. Brockway" <rockie@apk.net>
5 6.7 ( 4.3/ 2.4/ 1.2) Ala Qumsieh <qumsieh@sympatico.ca>
5 5.8 ( 3.0/ 2.8/ 1.7) "pjd" <duraipPLEEASE__REMOVE_THIIS@extendsys.com>
5 7.6 ( 4.1/ 3.5/ 1.3) Jerry Preston <g-preston1@ti.com>
5 8.3 ( 3.9/ 4.4/ 2.3) c_j_marshall@hotmail.com
5 5.2 ( 3.5/ 1.6/ 1.4) "Daniel Vesma" <daniel@vesma.co.uk>
These posters accounted for 4.7% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
42.4 ( 24.2/ 18.2/ 8.2) 30 mstevens@ashre.demon.co.uk (Michael Stevens)
20.9 ( 3.8/ 17.1/ 17.1) 6 topalli@my-deja.com
18.4 ( 4.2/ 14.2/ 13.0) 5 "R. Brockway" <rockie@apk.net>
13.4 ( 5.6/ 7.8/ 2.4) 7 Jonathan Teo <jonnyace@magix.com.sg>
10.9 ( 2.9/ 8.0/ 4.2) 4 "Burt Hwang" <BurtHwangSPAMSUCKS@SPAMSUCKS.ufsltd.com>
8.8 ( 0.9/ 7.9/ 6.0) 1 Khanh Huynh <huynh@masfsun1.rsc.ray.com>
8.5 ( 4.3/ 3.7/ 1.8) 6 Job-Base <info@job-base.com>
8.5 ( 2.7/ 5.8/ 4.6) 4 jmontany@clarityconnect.com (me)
8.3 ( 3.9/ 4.4/ 2.3) 5 c_j_marshall@hotmail.com
7.6 ( 4.2/ 3.4/ 3.1) 5 Juergen Pabel <juergenp@cc.gatech.edu>
These posters accounted for 5.1% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.6 / 1.6) 4 nallurichandu@my-deja.com
1.000 ( 17.1 / 17.1) 6 topalli@my-deja.com
1.000 ( 1.0 / 1.0) 3 cmmktg@cybermart.com.sg
0.981 ( 3.7 / 3.8) 3 "George Willman" <george.willman@2asc.com>
0.961 ( 2.5 / 2.6) 3 MORRISON DAVIS <MORRY.DAVIS@Sun.COM>
0.919 ( 13.0 / 14.2) 5 "R. Brockway" <rockie@apk.net>
0.897 ( 3.1 / 3.4) 5 Juergen Pabel <juergenp@cc.gatech.edu>
0.854 ( 1.4 / 1.6) 5 "Daniel Vesma" <daniel@vesma.co.uk>
0.849 ( 3.0 / 3.5) 4 sleidy_keinSpam_@_bitte_voicencet.com (Samuel)
0.824 ( 2.1 / 2.6) 3 Frank Husmann <fhusmann@gmt.nl>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.614 ( 2.1 / 3.4) 3 tyarkoni@chat.carleton.ca (Tal Yarkoni)
0.606 ( 1.7 / 2.8) 5 "pjd" <duraipPLEEASE__REMOVE_THIIS@extendsys.com>
0.527 ( 4.2 / 8.0) 4 "Burt Hwang" <BurtHwangSPAMSUCKS@SPAMSUCKS.ufsltd.com>
0.520 ( 1.2 / 2.4) 5 Ala Qumsieh <qumsieh@sympatico.ca>
0.511 ( 2.3 / 4.4) 5 c_j_marshall@hotmail.com
0.494 ( 1.8 / 3.7) 6 Job-Base <info@job-base.com>
0.452 ( 8.2 / 18.2) 30 mstevens@ashre.demon.co.uk (Michael Stevens)
0.377 ( 1.3 / 3.5) 5 Jerry Preston <g-preston1@ti.com>
0.344 ( 1.2 / 3.6) 3 MJA <aslamj@hotmail.com>
0.307 ( 2.4 / 7.8) 7 Jonathan Teo <jonnyace@magix.com.sg>
27 posters (11%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
4 "Daniel Vesma" <daniel@vesma.co.uk>
4 "R. Brockway" <rockie@apk.net>
3 "sephiroth@id-base.com" <sephiroth@id-base.com>
2 "Brian Matchick" <matchick@enteract.com>
2 mauriciowolffNOSPAM@hotmail.com (MauWolff)
2 mstevens@ashre.demon.co.uk (Michael Stevens)
2 webmaster <webmaster@outsource2000.com>
1 Phil Doe <ask_for_my_address_if_you_need_it@earthlink.net>
1 Al Weston <alweston@netcene.com>
1 Kevin Genus <genus@ems.att.com>
------------------------------
Date: Mon, 27 Sep 1999 14:51:01 +0100
From: Brian Orpin <abuse@borpin.demon.co.uk>
Subject: Parsing @argv
Message-Id: <xHXvN=Y2uHGMBWYpVIWWpgQLaA92@4ax.com>
Is there a simple way of parsing @ARGV? I am sure that I have seen a
parse-argv module in the past but can find no reference to it (but may
not have looked in the right place).
Thanks for your help.
--
Brian Orpin **Reply to address is valid***
Selfbuilding and It'll be finished one day.
http://www.borpin.demon.co.uk/
------------------------------
Date: Mon, 27 Sep 1999 11:53:26 +0100
From: "Simon Plant" <simon.plant@citrix.com>
Subject: Re: Replacement "CD" for win32 systems
Message-Id: <7snhtb$1ju$1@kite.ansa.co.uk>
Thanks Isaac,
You've solved the problem ;)
Cheers
Si
Isaac Hepworth <isaac.hepworth@dresdner-bank.com> wrote in message
news:7siprv$lgp6@ln1p0207inf.dresdnerkb.com...
> Jeff Zucker <jeff@vpservices.com> wrote in message
> news:37EC2034.27F26EA1@vpservices.com...
> > Simon Plant wrote:
> > >
> > > I need a replacement "CD" command for windows nt
> > > which will accept the directory to change to with
> > > forward slashes in...
> > >
> > > IE "cd c:/winnt/system
> > >
> >
> > There is nothing wrong with that. It works fine.
>
> Really? Did you test this?
>
> C:\>cd c:/winnt/system32
> C:\
>
> C:\>
>
> It treats the "/winnt" and "/system32" as command-line options, leaving
you
> with "cd c:". Perhaps you meant that it works if you put the argument in
> quotes:
>
> C:\>cd "c:/winnt/system32"
>
> C:\WINNT\system32>
>
> Cheers,
>
> Isaac
>
>
>
------------------------------
Date: 27 Sep 1999 13:03:14 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Replacement "CD" for win32 systems
Message-Id: <37ef5d02_2@newsread3.dircon.co.uk>
Simon Plant <simon.plant@citrix.com> wrote:
> Perhaps you ought to read the FAQ
>
Sorry is that addressed at me ?
>>Try reading the perlfaq8 section called (I kid you not):
>>
>>I {changed directory, modified my environment} in a perl
>>script. How come the change disappeared when I exited the
>>script? How do I get my changes to be visible?
> "Quote from Jeff Zucker,"
>
> then come back to me with a helpfull response.
>
There is no helpful response what you want can not be done.
*plonk*
/J\
--
"I was the chief make-up artist on the Titanic" - Tina Earnshaw, Chief
Make-Up Artist, Titanic
------------------------------
Date: 27 Sep 1999 13:02:05 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Replacement "CD" for win32 systems
Message-Id: <37ef5cbd_2@newsread3.dircon.co.uk>
Simon Plant <simon.plant@citrix.com> wrote:
>
> Jeff Zucker <jeff@vpservices.com> wrote in message
> news:37EC2034.27F26EA1@vpservices.com...
>> Simon Plant wrote:
>> >
>> > I need a replacement "CD" command for windows nt
>> > which will accept the directory to change to with
>> > forward slashes in...
>> >
>> > IE "cd c:/winnt/system
>> >
>> There is nothing wrong with that. It works fine.
>> That is what it is supposed to do.
>>
>> > :( Ayy ideas gratefully received.
>>
>> Try reading the perlfaq8 section called (I kid you not):
>>
>> I {changed directory, modified my environment} in a perl
>> script. How come the change disappeared when I exited the
>> script? How do I get my changes to be visible?
>
> Actually, following Netiquette, I had read that artice before posting, but
> it was (and still is) decidly
> unhelpfull, infact as unhelpful as your response was.
>
> Yes you are right "cd c:/winnt/system" leaves you in the CWD because you are
> essentially saying
>
> "cd c:" with the arguments /winnt and /system.
>
> I know you know what I was getting at, don't be so arogant..
>
Then if you knew that why did you ask a question the answer of which
you already know ? You cannot write a replacement CD with Perl (or
indeed any language) without creating a whole new shell - that is why
CD is invariably a shell builtin of any system that has the notion of
directories such as MSDOS and Unix - well you could but it would involve
exec'ing a new shell after each directory change ...
/J\
--
"The teenage masturbators of today are the television executives of
tomorrow" - Melissa Cabriolet, Drop the Dead Donkey
------------------------------
Date: Mon, 27 Sep 1999 14:25:46 +0000
From: James@linux.home (James Stevenson)
Subject: running other programs from perl
Message-Id: <slrn7uuvja.ksf.James@linux.home>
Hi
i would like to be able to run many programs at once from
perl i would like to know if this is possible and how can i do it?
are there already existing scripts that can do this
or can somebody please point me in the right direction
thanks
James
--
---------------------------------------------
Check Out: http://www.users.zetnet.co.uk/james/
E-Mail: mistral@stevenson.zetnet.co.uk
2:20pm up 10 days, 21:04, 4 users, load average: 1.60, 1.40, 1.27
------------------------------
Date: 27 Sep 1999 13:52:37 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7snsr5$gmj$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 20 Sep 1999 15:00:44 GMT and ending at
27 Sep 1999 07:49:31 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 494
Articles: 1666 (789 with cutlined signatures)
Threads: 411
Volume generated: 2891.4 kb
- headers: 1308.0 kb (25,903 lines)
- bodies: 1440.8 kb (45,950 lines)
- original: 950.7 kb (33,312 lines)
- signatures: 141.0 kb (2,928 lines)
Original Content Rating: 0.660
Averages
========
Posts per poster: 3.4
median: 1.0 post
mode: 1 post - 314 posters
s: 10.4 posts
Posts per thread: 4.1
median: 3 posts
mode: 2 posts - 100 threads
s: 4.9 posts
Message size: 1777.2 bytes
- header: 803.9 bytes (15.5 lines)
- body: 885.6 bytes (27.6 lines)
- original: 584.3 bytes (20.0 lines)
- signature: 86.7 bytes (1.8 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
155 272.3 (113.0/127.5/ 73.6) kragen@dnaco.net (Kragen Sitaker)
99 164.5 ( 76.0/ 76.7/ 38.3) Jonathan Stowe <gellyfish@gellyfish.com>
68 122.0 ( 56.2/ 58.0/ 33.9) David Cassell <cassell@mail.cor.epa.gov>
56 127.7 ( 64.7/ 40.6/ 38.2) abigail@delanet.com
48 76.3 ( 30.6/ 40.2/ 22.7) lr@hpl.hp.com (Larry Rosler)
39 110.5 ( 32.6/ 72.7/ 62.3) tchrist@mox.perl.com (Tom Christiansen)
38 80.7 ( 32.9/ 39.9/ 26.2) mgjv@comdyn.com.au (Martien Verbruggen)
37 89.0 ( 33.2/ 42.0/ 21.1) Uri Guttman <uri@sysarch.com>
34 54.3 ( 35.9/ 18.4/ 10.8) elaine@chaos.wustl.edu
30 42.4 ( 24.2/ 18.2/ 8.2) mstevens@ashre.demon.co.uk (Michael Stevens)
These posters accounted for 36.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
272.3 (113.0/127.5/ 73.6) 155 kragen@dnaco.net (Kragen Sitaker)
164.5 ( 76.0/ 76.7/ 38.3) 99 Jonathan Stowe <gellyfish@gellyfish.com>
127.7 ( 64.7/ 40.6/ 38.2) 56 abigail@delanet.com
122.0 ( 56.2/ 58.0/ 33.9) 68 David Cassell <cassell@mail.cor.epa.gov>
110.5 ( 32.6/ 72.7/ 62.3) 39 tchrist@mox.perl.com (Tom Christiansen)
89.0 ( 33.2/ 42.0/ 21.1) 37 Uri Guttman <uri@sysarch.com>
80.7 ( 32.9/ 39.9/ 26.2) 38 mgjv@comdyn.com.au (Martien Verbruggen)
76.3 ( 30.6/ 40.2/ 22.7) 48 lr@hpl.hp.com (Larry Rosler)
54.3 ( 35.9/ 18.4/ 10.8) 34 elaine@chaos.wustl.edu
42.4 ( 24.2/ 18.2/ 8.2) 30 mstevens@ashre.demon.co.uk (Michael Stevens)
These posters accounted for 39.4% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 17.1 / 17.1) 6 topalli@my-deja.com
0.997 ( 3.4 / 3.4) 5 KernelKlink@webtv.net
0.972 ( 4.2 / 4.3) 8 "Peter Icaza" <picaza@chsi.com>
0.939 ( 38.2 / 40.6) 56 abigail@delanet.com
0.919 ( 13.0 / 14.2) 5 "R. Brockway" <rockie@apk.net>
0.897 ( 3.1 / 3.4) 5 Juergen Pabel <juergenp@cc.gatech.edu>
0.857 ( 62.3 / 72.7) 39 tchrist@mox.perl.com (Tom Christiansen)
0.854 ( 1.4 / 1.6) 5 "Daniel Vesma" <daniel@vesma.co.uk>
0.804 ( 14.0 / 17.4) 8 lee.lindley@bigfoot.com
0.751 ( 4.3 / 5.8) 6 Tom Kralidis <tom.kralidis@ccrs.nrcanDOTgc.ca>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.431 ( 0.6 / 1.5) 6 jerrad pierce <jerrad@networkengines.com>
0.418 ( 1.7 / 4.0) 5 mjtg@cus.cam.ac.uk (M.J.T. Guy)
0.387 ( 2.6 / 6.8) 10 planb@newsreaders.com (J. Moreno)
0.377 ( 1.3 / 3.5) 5 Jerry Preston <g-preston1@ti.com>
0.330 ( 2.2 / 6.8) 6 Dan Sugalski <dan@tuatha.sidhe.org>
0.321 ( 2.3 / 7.1) 5 mrbog@my-deja.com
0.307 ( 2.4 / 7.8) 7 Jonathan Teo <jonnyace@magix.com.sg>
0.295 ( 1.1 / 3.8) 8 Tom Briles <sariq@texas.net>
0.272 ( 1.6 / 6.0) 5 Bob Walton <bwalton@rochester.rr.com>
0.254 ( 1.1 / 4.2) 5 "Rasmus Rimestad" <rasmusr@online.no>
64 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
45 You should be admired
28 REQ: tell-a-friend script
25 CGI sending email with attachment
23 Ad hominem (was Re: perl related question now!)
23 Combining variables - newbie
22 injecting "my" varibales into caller's scope
21 Pass by reference
21 perl related question now!
19 mkdir(). What am I doing wrong?
18 beauty of a Y2K bug
These threads accounted for 14.7% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
102.3 ( 45.3/ 53.2/ 31.0) 45 You should be admired
53.6 ( 19.5/ 32.0/ 13.0) 25 CGI sending email with attachment
50.4 ( 31.5/ 16.2/ 8.5) 28 REQ: tell-a-friend script
43.4 ( 17.7/ 23.8/ 15.3) 22 injecting "my" varibales into caller's scope
42.3 ( 3.9/ 37.8/ 34.7) 5 Positioning the Cursor on a terminal
41.4 ( 16.8/ 21.2/ 14.6) 21 Pass by reference
36.4 ( 18.6/ 16.2/ 8.5) 21 perl related question now!
35.7 ( 21.6/ 11.6/ 6.3) 23 Ad hominem (was Re: perl related question now!)
35.0 ( 13.1/ 20.1/ 11.8) 13 You should be admired, or What does this have to do with Perl?
33.6 ( 14.5/ 16.7/ 9.1) 18 beauty of a Y2K bug
These threads accounted for 16.4% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.917 ( 34.7/ 37.8) 5 Positioning the Cursor on a terminal
0.873 ( 4.3/ 4.9) 5 Preserving file name of uploaded file
0.861 ( 12.3/ 14.3) 5 Regex & URL parsing...
0.854 ( 1.7/ 2.0) 6 Array length
0.848 ( 1.8/ 2.1) 5 LINE into array
0.838 ( 4.6/ 5.4) 7 Calling Mac 'ToolBox' Function via MacPerl
0.817 ( 1.5/ 1.9) 6 Web browers
0.799 ( 3.7/ 4.6) 5 I don't want to extract data from an HTML page.
0.794 ( 2.0/ 2.5) 6 applications of perl ??
0.788 ( 4.0/ 5.1) 5 Compile problem
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.446 ( 1.9 / 4.3) 6 ActivePerl on Windows95 HELP
0.426 ( 1.6 / 3.8) 5 get newest file in a dir and write this filename in a file
0.425 ( 1.3 / 3.0) 7 Setting process name
0.424 ( 2.7 / 6.5) 7 how to put each line of file to a variable?
0.423 ( 3.5 / 8.4) 6 My glob failed
0.407 ( 13.0 / 32.0) 25 CGI sending email with attachment
0.405 ( 0.8 / 2.0) 6 Checking for space
0.383 ( 3.0 / 7.7) 7 how to change order files from readdir
0.354 ( 2.5 / 7.0) 7 Qns about passing by reference, etc
0.337 ( 1.5 / 4.3) 7 How to validate a URL?
107 threads (26%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
29 comp.lang.perl.modules
22 alt.html
15 alt.perl
11 comp.lang.perl
6 comp.lang.javascript
4 comp.security.unix
4 comp.databases.ms-access
4 comp.lang.perl.moderated
3 fr.comp.lang.perl
3 alt.comp.perlcgi.freelance
Top 10 Crossposters
===================
Articles Address
-------- -------
10 David Cassell <cassell@mail.cor.epa.gov>
10 Jonathan Stowe <gellyfish@gellyfish.com>
8 kragen@dnaco.net (Kragen Sitaker)
7 moun@usenix.org (Moun Chau)
5 maas@ensae.fr
4 "R. Brockway" <rockie@apk.net>
4 "Daniel Vesma" <daniel@vesma.co.uk>
3 dillon_rm@magix.com.sg
3 "sephiroth@id-base.com" <sephiroth@id-base.com>
3 "Aleksey Zvyagin" <zal@rest.ru>
------------------------------
Date: Mon, 27 Sep 1999 14:19:24 +0800
From: "van Weelden" <cim@cim-net.com>
Subject: Which Search engine script?
Message-Id: <7snos4$c5m$1@news1.xs4all.nl>
This is a multi-part message in MIME format.
------=_NextPart_000_0025_01BF08F3.4C7870E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I have a homepage with information of different companies. Now I want to =
install a search engine on this homepage, but which script is the best =
and easy to use? It must be possible to search HTML pages with keywords. =
But it must also be possible to look for a specific company name, =
country, etc...
If you know a good script, let me know.
Thanks in advance!
John
------=_NextPart_000_0025_01BF08F3.4C7870E0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>I have a homepage with information of different =
companies. Now=20
I want to install a search engine on this homepage, but which =
script=20
is the best and easy to use? It must be possible to search HTML pages =
with=20
keywords. But it must also be possible to look for a specific company =
name,=20
country, etc...</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>If you know a good script, let me know.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Thanks in advance!</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>John</FONT></DIV></BODY></HTML>
------=_NextPart_000_0025_01BF08F3.4C7870E0--
------------------------------
Date: Mon, 27 Sep 1999 14:45:19 +0800
From: "van Weelden" <cim@cim-net.com>
Subject: Which Search engine script?
Message-Id: <7snose$c6d$1@news1.xs4all.nl>
This is a multi-part message in MIME format.
------=_NextPart_000_0036_01BF08F6.EB61DEA0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I have a homepage with information of different companies. Now I want to =
install a search engine on this homepage, but which script is the best =
and easy to use? It must be possible to search HTML pages with keywords. =
But it must also be possible to look for a specific company name, =
country, etc...
If you know a good script, let me know.
Thanks in advance!
John
------=_NextPart_000_0036_01BF08F6.EB61DEA0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>I have a homepage with information of different =
companies. Now=20
I want to install a search engine on this homepage, but which =
script=20
is the best and easy to use? It must be possible to search HTML pages =
with=20
keywords. But it must also be possible to look for a specific company =
name,=20
country, etc...</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>If you know a good script, let me know.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Thanks in advance!</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>John</FONT></DIV></BODY></HTML>
------=_NextPart_000_0036_01BF08F6.EB61DEA0--
------------------------------
Date: Mon, 27 Sep 1999 08:06:12 -0400
From: "Robert W. Byrd" <tech@tburg.net>
Subject: Re: You should be admired, or What does this have to do with Perl?
Message-Id: <37EF5DB4.1FEB0BB6@tburg.net>
Uri Guttman wrote:
> that hasn't happened yet. we rarely see new regulars here who can answer
> questions well. occasionally newbies or intermediates try and they tend
> to post bugs or worse. so the next generation hasn't matured yet (and
> who knwos if they will ever do that).
I think I resent that.
--
Robert W. Byrd | Completely Computer Friendly
tech@tburg.net | 67-B Oxford St., Tillsonburg, ON CA N4G 2G3
------------------------------------------------------------
Nothing clever here }|{ ereh revelc gnihtoN
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 919
*************************************
