[13688] in Perl-Users-Digest
Perl-Users Digest, Issue: 1098 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 17 06:05:28 1999
Date: Sun, 17 Oct 1999 03:05:08 -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: <940154708-v9-i1098@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 17 Oct 1999 Volume: 9 Number: 1098
Today's topics:
Re: "Protecting" Perl source code <gellyfish@gellyfish.com>
Re: Connecting SQL Server from Perl <Latha.Sudharshan@compaq.com>
Re: encryption and crypt() ? (Martin Vorlaender)
getting variable values from another script <gainuae1@emirates.net.ae>
Re: getting variable values from another script (Abigail)
Re: getting variable values from another script <marcel.grunauer@lovely.net>
hashes <frankhale@trespass.net>
Re: hashes (Martien Verbruggen)
Re: hashes <frankhale@trespass.net>
Re: hashes (Michael Budash)
Re: How to socket <gellyfish@gellyfish.com>
Re: ied/fep in perl? <gellyfish@gellyfish.com>
Re: panic: leave_scope inconsistency <gellyfish@gellyfish.com>
Re: Perl script taking regex as argument? <gstoll@rice.edu>
Re: pod2html: simple how-to question <gellyfish@gellyfish.com>
Re: Problem adding module for SCO Unixware 2.13 <gellyfish@gellyfish.com>
Re: retrieve url from hypertext <gellyfish@gellyfish.com>
Re: Running Perl script locally on a win98 machine <gellyfish@gellyfish.com>
Re: Running Perl script locally on a win98 machine <gellyfish@gellyfish.com>
Re: Seeking PERL employment <gellyfish@gellyfish.com>
Re: shifting a hash <gellyfish@gellyfish.com>
Re: Substitute for Net::SSL? <gellyfish@gellyfish.com>
Re: Testing CGI scripts on win 98 <gellyfish@gellyfish.com>
Re: Testing CGI scripts on win 98 <gellyfish@gellyfish.com>
Uses of # <beaumontsystems@netscapeonline.co.uk>
Re: Uses of # (Abigail)
Re: Uses of # (Martien Verbruggen)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Oct 1999 08:58:50 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: "Protecting" Perl source code
Message-Id: <7uc34a$3nm$1@gellyfish.btinternet.com>
In comp.lang.perl.misc Craig Vincent <webmaster@webdream.com> wrote:
>
> the underworld webmaster market
>
I get this picture of evil webmasters smacking their ho^H^Hprogrammers
and sending them back out on the street ...
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Fri, 15 Oct 1999 17:17:39 -0700
From: "Latha Sudharshan" <Latha.Sudharshan@compaq.com>
Subject: Re: Connecting SQL Server from Perl
Message-Id: <7u8gc3$h9p$1@mailint03.im.hou.compaq.com>
Hi,
I do have the table named "members" in my database.
I am not sure why it is not recognizing it. There is already
a System DSN name set on my machine which I am using
now. Do I have to create another DSN for my database for
this specific application? I tried giving both sql and Sql in the
query. But it didn't help. I have modified the script below but
the output is the same. Any input is appreciated.
Thanks,
Latha
ec wrote in message <3806E56E.FDEAA9DD@post3.tele.dk>...
>Hi
>The second qustion,: remember that this is case sensitive use sql instead
of
>SQL.
>The first qustin indicates that there is no table named members
>
>mvh
>EC
>
>Latha Sudharshan wrote:
>> I am faced with the problem of inserting the HTMLform data into the SQL
>> database. I am using MS ODBC SQLServer driver ( which is already
installed
>> on my Windows NT 4.0 machine ). I am using Microsoft SQL Server 6.5 and
Perl
>> version 5.005_03 built from ActiveState.com. I am trying to insert the
data
>> using CGI script with Perl on the server side. I even tried installing
>> Win32::ODBC module. I guess I get the connection to the ODBC driver. I
get
>> the error as :
>>
>> C:\PERL>perl test.pl
>> Connection number returned is:1
>>
>> Excecuting connection 1
>> sql statement: "SELECT * FROM members"
>>"208[Microsoft][ODBC SQL Server Driver][SQL Server]Invalid object
>> name 'members'.10"
>> --------------------
>>
>> I have a snippet of my perl script as:
>>
***************************************************************************
>> #!/perl
>>
>> use Win32::ODBC;
>>
>> $DSN = dsnname";
>> if(!($db = new Win32::ODBC("dsn=$DSN;UID=****;PWD=****")))
>> {
>> print "Error connecting to $DSN since handle returned is:$db\n";
>> print Win32::ODBC::Error();
>> exit;
>> }
>> $connectnum = $db->Connection;
>> print( "Connection number returned is:$connectnum\n" );
>> print LOG qq(Current connection: "), $db->GetDSN, qq("\n);
>> if( $db->Sql("SELECT * FROM members" ))
>> {
>> print( $db->Error() );
>> $db->Close();
>> exit(1);
>> }
>> $db->Close;
------------------------------
Date: Sun, 17 Oct 1999 08:36:32 +0200
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: encryption and crypt() ?
Message-Id: <38096e70.524144494f47414741@radiogaga.harz.de>
Tom Phoenix (rootbeer@redcat.com) wrote:
: Martin Vorlaender wrote:
: > OK. Should it be Crypt::UnixCrypt?
:
: Fine by me. It should probably use a prototype of ($$)
Done.
: and do some
: parameter checking, so as to be more compatible with the built-in.
This is where I'm having problems. I intended to check extreme cases
using my Linux system, but haven't been able to locate crypt()'s
source code to have a look into it. So I'm just experimenting:
mv@pcmv2:~ > perl -e 'print crypt('ncc1701d',q()),"\n"'
mv@pcmv2:~ > perl -e 'print length crypt('ncc1701d',q()),"\n"'
0
mv@pcmv2:~ > perl -e 'print length crypt('ncc1701d',undef),"\n"'
0
# Okay. So much for an empty/undefined salt.
mv@pcmv2:~ > perl -e 'print crypt(undef,q(00)),"\n"'
00as1wm0AZG56
mv@pcmv2:~ > perl -e 'print crypt(q(),q(00)),"\n"'
00as1wm0AZG56
# ...seems it treats an undefined plaintext string like ''.
mv@pcmv2:~ > perl -e 'print crypt(q(ncc1701d),q(AA)),"\n"'
AAkSuDhYONdHQ
mv@pcmv2:~ > perl -e 'print crypt(q(ncc1701d),q(A)),"\n"'
AAu40TYnLJxWA
mv@pcmv2:~ > perl -e 'print crypt(q(ncc1701d),qq(A\000)),"\n"'
AAu40TYnLJxWA
# ...so it uses "A\000", but outputs "AA"??!
The results also differ when using non-permissible characters for the salt:
mv@pcmv2:~ > perl -e 'print crypt(q(ncc1701d),q(__)),"\n"'
__Qq0MiTZXuYI
versus:
mv@pcmv2:~ > perl -MCrypt::UnixCrypt=crypt -e \
'print crypt(q(ncc1701d),q(__)),"\n"'
__zdDqwaXhXpc
Should one just warn against such violations of the calling standard,
or try to do something about it?
: And it
: should not export crypt() if the built-in is there (except maybe as a
: special debugging option).
Done. It's regulated by $Crypt::UnixCrypt::OVERLOAD_BUILTIN (must be set
to true if $Config{d_crypt} to get the module's crypt function), or by
explicitely demanding the export of crypt().
IMHO, it's more than a debugging option: On VMS, the built-in crypt()
is built on VMS' password hash algorithm. So the module could be useful
when trying to communicate an encrypted password to a Unix system.
: The docs need a touch of tidying, and we ought
: to have a test suite and Makefile.pm and all.
Done, though the test suite contains just the load test and one real
password check now. How many empiric tests would be enough?.
: I'd do this all myself, you understand.... :-)
Yup. Sometimes it helps to be located in good ol' Europe ;-)
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
OpenVMS: When you | work: mv@pdv-systeme.de
KNOW where you want | http://www.pdv-systeme.de/users/martinv/
to go today. | home: martin@radiogaga.harz.de
------------------------------
Date: Sun, 17 Oct 1999 10:07:13 +0400
From: Ali Al Ashban <gainuae1@emirates.net.ae>
Subject: getting variable values from another script
Message-Id: <7ubpf0$1ub3@news.emirates.net.ae>
Hi there,
recently I downloaded a shopping cart script and was installed properly
- it was customised in most part and is working perfect.
Now, the only problem with the cart is that, it just have set values for
the shipping cost. This is a drawback when you talk about e-commerce.
the shipment would be to anywhere in the world. So, it has to calculate
using the weight.
I have made it upto adding the weights of the products. The shopping
cart script - I should say scripts, b'cos there are a lot of them - is
already messed up with lot of variables and all.
I would like to get the value for the 'shippiment charges' variable from
another script, which has to work (in principle) this way:
1. From the select option, the visitor chooses the country.
2. If the country is xyz then (Refering to a database .txt) the zone is
abc.
3. Now, if the total weight is def, then it will have to open the
zone.txt flat file database and look for a less than or equal to (<=)
category and the value (the shipment cost) from the db.
The database for the zone would look like is for eg:
weight|cost
500gms|10.00
1000gms|20.00
1500gms|25.00
2000gms|30.00
4. There would be five zones in total
It would be of great help and I would really appreciate it. If you need
any other info, please post it on so that I could reply forth.
Thanks in advance,
Susan
------------------------------
Date: 17 Oct 1999 03:53:28 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: getting variable values from another script
Message-Id: <slrn80j3jl.q8s.abigail@alexandra.delanet.com>
Ali Al Ashban (gainuae1@emirates.net.ae) wrote on MMCCXXXVIII September
MCMXCIII in <URL:news:7ubpf0$1ub3@news.emirates.net.ae>:
??
?? I would like to get the value for the 'shippiment charges' variable from
?? another script, which has to work (in principle) this way:
?? It would be of great help and I would really appreciate it. If you need
?? any other info, please post it on so that I could reply forth.
So, you have a commercial site, and now you want people to write
programs for you for free? Perhaps you want to post in a group
that has 'jobs.offered' in its name.
?? Thanks in advance,
??
?? Susan
Susan? Or Ali Al Ashban?
Confusing....
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 17 Oct 1999 08:52:44 GMT
From: Marcel Grunauer <marcel.grunauer@lovely.net>
Subject: Re: getting variable values from another script
Message-Id: <pZsJOB14SjcEy3dksLtsBiAtx9Ef@4ax.com>
On Sun, 17 Oct 1999 10:07:13 +0400, Ali Al Ashban
<gainuae1@emirates.net.ae> wrote:
> recently I downloaded a shopping cart script and was installed properly
> - it was customised in most part and is working perfect.
>
> Now, the only problem with the cart is that, it just have set values for
>
> the shipping cost. This is a drawback when you talk about e-commerce.
> the shipment would be to anywhere in the world. So, it has to calculate
> using the weight.
>
> I have made it upto adding the weights of the products. The shopping
> cart script - I should say scripts, b'cos there are a lot of them - is
> already messed up with lot of variables and all.
>
[snip requirement]
>
> It would be of great help and I would really appreciate it. If you need
> any other info, please post it on so that I could reply forth.
Yes, but what is your Perl question?
If you are looking for someone to write or modify your script, you
should hire a programmer. But you already seem to know what you have
to do to make your script work (be prepared for a long session if the
undoubtedly copious copyright comments near the top of the scripts
include the names "Matt Wright" or "Selena Sol"). If you run into any
Perl-related problems while writing your program, please ask again!
--
Marcel, Perl Padawan
sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Perl_Hacker;
------------------------------
Date: Sun, 17 Oct 1999 03:09:56 -0500
From: Frank Hale <frankhale@trespass.net>
Subject: hashes
Message-Id: <38098454.9254FB38@trespass.net>
Okay I got a hash which stores usernames with there login times. Problem
is I don't want a duplicate key in the hash. For instance say user
"john" logs in at 13:22 and then logs in again at 13:45, I don't want
him in the hash 2 times. How can I test for this and
only enter him in the list once?
--
From: Frank Hale
Email: frankhale@yahoo.com
ICQ: 7205161
------------------------------
Date: 17 Oct 1999 07:12:29 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: hashes
Message-Id: <slrn80itno.t82.mgjv@wobbie.heliotrope.home>
On Sun, 17 Oct 1999 03:09:56 -0500,
Frank Hale <frankhale@trespass.net> wrote:
> Okay I got a hash which stores usernames with there login times. Problem
> is I don't want a duplicate key in the hash. For instance say user
> "john" logs in at 13:22 and then logs in again at 13:45, I don't want
> him in the hash 2 times. How can I test for this and
> only enter him in the list once?
Use the username as a key.
Martien
--
Martien Verbruggen |
Interactive Media Division | In the fight between you and the world,
Commercial Dynamics Pty. Ltd. | back the world - Franz Kafka
NSW, Australia |
------------------------------
Date: Sun, 17 Oct 1999 03:20:52 -0500
From: Frank Hale <frankhale@trespass.net>
Subject: Re: hashes
Message-Id: <380986E4.FC126A71@trespass.net>
Martien Verbruggen wrote:
>
> On Sun, 17 Oct 1999 03:09:56 -0500,
> Frank Hale <frankhale@trespass.net> wrote:
> > Okay I got a hash which stores usernames with there login times. Problem
> > is I don't want a duplicate key in the hash. For instance say user
> > "john" logs in at 13:22 and then logs in again at 13:45, I don't want
> > him in the hash 2 times. How can I test for this and
> > only enter him in the list once?
>
> Use the username as a key.
>
I am. It still allows the key to be in the hash.
--
From: Frank Hale
Email: frankhale@yahoo.com
ICQ: 7205161
Webpage: http://sapphire.penguinpowered.com <- Dynamic IP, Online when
I am online
------------------------------
Date: Sun, 17 Oct 1999 00:52:49 -0700
From: mbudash@sonic.net (Michael Budash)
Subject: Re: hashes
Message-Id: <mbudash-1710990052500001@adsl-216-103-91-123.dsl.snfc21.pacbell.net>
In article <380986E4.FC126A71@trespass.net>, Frank Hale
<frankhale@trespass.net> wrote:
>Martien Verbruggen wrote:
>>
>> On Sun, 17 Oct 1999 03:09:56 -0500,
>> Frank Hale <frankhale@trespass.net> wrote:
>> > Okay I got a hash which stores usernames with there login times. Problem
>> > is I don't want a duplicate key in the hash. For instance say user
>> > "john" logs in at 13:22 and then logs in again at 13:45, I don't want
>> > him in the hash 2 times. How can I test for this and
>> > only enter him in the list once?
>>
>> Use the username as a key.
>>
>
>I am. It still allows the key to be in the hash.
>
martien's suggestion could have been more complete by saying:
Use the username as the hash's key, and the login time as that hash's
value for that key:
$logins{'john'} = '13:22';
then, $logins{'john'} = '13:45';
resulting in only one occurrence of 'john'
hth-
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: 17 Oct 1999 06:49:35 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How to socket
Message-Id: <7ubrhv$39g$1@gellyfish.btinternet.com>
On Sat, 16 Oct 1999 11:21:18 +0900 "ÃÖÇö½Ä" wrote:
> Hi
>
> I have some question.
>
> l'd like to check whether daomon port is alive.
>
> So, l read from Socket , but I don't wirte to Socket.
>
> How do I write socket descripter?
>
> I have sample code for socket.
>
> Please, I need your help.
>
>
> $port = shift || 25; # random port
<snip code from perlipc>
> # print SOCK ("quit\n"); <------ It's wrong
>
> Please, Fill in correct code.
>
I assume by your changing the port number in the example that you intend
talking to an SMTP server. You could use the module Net::SMTP to do this
without having to implement SMTP yourself.
I am not quite sure what you mean by "It's wrong" as 'quit' is a perfectly
valid SMTP command.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 07:42:50 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: ied/fep in perl?
Message-Id: <7ubulq$3gk$1@gellyfish.btinternet.com>
In comp.lang.perl.misc kommu@hotmail.com wrote:
>
> I'm looking for a way to control interactive programs like bc, ftp or
> crash. I want to add history and such features to these programs.
> That's what exactly ied does. Is there a way I can implement this in
> perl? Are there any pseudo tty modules?
>
Expect.pm
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 07:42:01 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: panic: leave_scope inconsistency
Message-Id: <7ubuk9$3gh$1@gellyfish.btinternet.com>
On Fri, 15 Oct 1999 14:17:30 -0400 Mayer, Shane wrote:
> A cron job I have written (perl 5.00401) occasionally dies with the
> error message:
>
> panic: leave_scope inconsistency
>
Upgrade your Perl.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 17 Oct 1999 02:39:36 -0500
From: Gregory Stoll <gstoll@rice.edu>
Subject: Re: Perl script taking regex as argument?
Message-Id: <38097D38.ECCDD0E5@rice.edu>
Abigail wrote:
> Of course. "man perl".
Thanks! (can't believe I didn't think of that! :-)
-Greg
--
-----------------------
Gregory Stoll
gregstoll@earthling.net
"I know who I am."
Check out Greg's Bridge Page!
http://www.math.swt.edu/~gs39947/bridge.html
------------------------------
Date: 17 Oct 1999 07:26:21 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: pod2html: simple how-to question
Message-Id: <7ubtmt$3ge$1@gellyfish.btinternet.com>
On Fri, 15 Oct 1999 21:08:49 GMT Jim Garrison wrote:
> Repost: Apologies in advance if this is a duplicate. My ISP
> is having trouble configuring nntp correctly.
> ====================
>
> Very simply:
>
> I have a Perl installation with a bunch of stuff added
> from CPAN (using the CPAN module), and I would like to
> (re-)generate a complete set of HTML documentation.
>
> Can someone please post the command sequence one would
> issue, from which directory, to accomplish this. The
> usage instructions that come with pod2html are insufficient
> for this task. (Perl installed in /usr/lib/perl5)
>
pod2html wont do this - you will need to run it for each file in your
library directories.
You might want to use File::Find and Pod::HTML instead.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 08:41:42 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Problem adding module for SCO Unixware 2.13
Message-Id: <7uc246$3ni$1@gellyfish.btinternet.com>
On Fri, 15 Oct 1999 18:21:42 +1000 Vin wrote:
> Hi, I'm trying to install the NET::Daemon module on Perl 5.00503
> I'm logged in as root
>
> and when I do the 'make test'
> I get the following:
> t/config............Cannot open Syslog: Can't locate syslog.ph in @INC (did
> you run h2ph?) (@INC contains: blib/arch blib/lib blib/lib blib/arch
>
Well did you run h2ph ?
H2PH(1) Perl Programmers Reference Guide H2PH(1)
NAME
h2ph - convert .h C header files to .ph Perl header files
SYNOPSIS
h2ph [-d destination directory] [-r | -a] [-l]
[headerfiles]
DESCRIPTION
h2ph converts any C header files specified to the
corresponding Perl header file format. It is most easily
run while in /usr/include:
cd /usr/include; h2ph * sys/*
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 09:39:33 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: retrieve url from hypertext
Message-Id: <7uc5gl$3t4$1@gellyfish.btinternet.com>
On Sun, 17 Oct 1999 02:41:39 GMT Howard Sun wrote:
> In article <7u9cg3$vmm$1@nnrp1.deja.com>,
> Howard Sun <hxshxs@my-deja.com> wrote:
>> just started learning Perl. not sure how to do the following,
>>
>> extract all URLs within the hypertext.
>>
> now I can get first URL by
> if($line=~/<a href=\"?(.*?)\"?>/i)
> {
> push (@link, "$1");
> print @link, "\n";
> }
>
> But how do I get the second url on the same line $_ ? how to do the loop
> here?
>
while( $line =~ /<A HREF="?(.*?)"?>/ig)
{
push @link,$1;
}
Of course this is unlikely to work if have an 'a' tag with multiple
attributes - the href attribute could be in any position in that list - so
this could be improved to :
#!/usr/bin/perl -w
use strict;
my $html = do { local $/; <STDIN> };
my @link;
while( $html =~ /<A .*?HREF="?(.+?)"?[\s>]/sig)
{
push @link,$1;
}
{local $, = "\n"; print @link};
But I would be far from claiming that this could deal with all possibilities
and knowing that the attempt was in vain stopped with that ..
> if you know how to do this by CGI::Parser module, please let me know.
> thanks.
The module is HTML::LinkExtor.
#!/usr/bin/perl -w
use strict;
require HTML::LinkExtor;
my @links;
my $page = shift or die "$0: No file name given\n";
my $blah = HTML::LinkExtor->new(\&grablinks);
sub grablinks
{
my ($tag, %links) = @_;
push @links,$links{href} if ($tag eq 'a' )
}
$blah->parse_file($page);
{ local $, = "\n"; print @links; }
It is left as an exercise to the reader to limit this to http: schemes if
that is what is required.
There are further examples in the HTML::LinkExtor manpage.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 07:54:55 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Running Perl script locally on a win98 machine
Message-Id: <7ubvcf$3go$1@gellyfish.btinternet.com>
On 16 Oct 1999 05:00:42 GMT gert-jan@souverein.tmfweb.nl wrote:
>
> Erik van Roode wrote:
>>
>>
>> Martin Cloutier <martinc@propage.qc.ca> wrote:
>> > I am trying to run my scripts Locally on my win 98 machine using
>> > Netscapo or Explorer as the user interface.
>> > and cannot seem to make it work.
>> > I am calling the CGI scrip from a form, but am not getting an answer
>> > from the Script (although the script works well on the internet.
>>
>>
>>You can't run Perl scripts locally because it's an interpreted language.
>> The reason it runs fine on the internet is because there is a Perl
> interpreter installed on your ISP's webserver ! Perhaps it can be done by
> installing a Perl interpreter on your local machine. I don't know if this
> is possible or where to get this program.
Er, sorry ?
<http://www.activestate.com>
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 07:56:18 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Running Perl script locally on a win98 machine
Message-Id: <7ubvf2$3gr$1@gellyfish.btinternet.com>
On Sat, 16 Oct 1999 10:01:59 GMT Mat Tillett wrote:
> You need to be running some web server s.ware, try Xitami
> (www.xitami.com) I find this best and then if you are on a local
> machine, you can use the loopback dns to see your perl output
> (127.0.0.1). Dont forget to configure Xitami to look a directory for
> it's root path..!
>
I recommend talking about this stuff in
comp.infosystems.www.servers.ms-windows
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 08:37:37 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Seeking PERL employment
Message-Id: <7uc1sh$3n6$1@gellyfish.btinternet.com>
On Fri, 15 Oct 1999 06:07:35 -0500 charles zezulak wrote:
> Greetings, if any one out there can use a perl programmer- I am available. I
> go back to Apple II days in programming experience.
<snip>
You might find the jobs mailing lists run by Perl Mongers <http://www.pm.org>
useful as indeed you might find contacting your local Perl Mongers group
(find it via the same URL).
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 06:34:43 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: shifting a hash
Message-Id: <7ubqm3$38h$1@gellyfish.btinternet.com>
On Sat, 16 Oct 1999 10:04:22 -0400 Tom Kralidis wrote:
> Hi,
>
> I've been working on script to correct data files. The script does
> corrections based on a hash:
>
<snip>
>
> For each iteration of this process, I would like to shift (delete the
> first value) the has so that the script looks for a value that has not
> been zero-weighted in the previous loop. I have tried:
>
I think you want 'delete'
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 07:19:43 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Substitute for Net::SSL?
Message-Id: <7ubtaf$3g0$1@gellyfish.btinternet.com>
On Sat, 16 Oct 1999 04:55:59 GMT Mike Watkins wrote:
>
> Now, I tried using the libwww-perl module to do this, but in order to
> communicate with a SSL server using LWP, you need to have the Net::SSL
> module installed, which contains a ".xs" file which makes it harder to
> install. I don't want to have to make everyone install a Perl module on
> their server for this one script.
>
I fail to understand what is difficult about
perl makefile.PL
make
make install
If you are distributing code that requires external modules you could
provide a configure script that will install all the prerequisites as
well.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 07:07:20 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Testing CGI scripts on win 98
Message-Id: <7ubsj8$3fs$1@gellyfish.btinternet.com>
On Sat, 16 Oct 1999 13:11:01 +0100 Martin Elliott wrote:
> Is there another way to test CGI scripts without installing server
> software??
>
You can run them from the command line. Though of course eventually you
will want to test it in the environment it will be run.
> If installing the software is my only hope, what is best and where do I get
> it from??
You ask that in comp.infosystems.www.servers.ms-windows
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 17 Oct 1999 08:32:24 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Testing CGI scripts on win 98
Message-Id: <7uc1io$3n3$1@gellyfish.btinternet.com>
On Sat, 16 Oct 1999 14:35:19 -0500 Dan Baker wrote:
>
>
> Martin Elliott wrote:
>>
>> Is there another way to test CGI scripts without installing server
>> software??
> --------------
>
> dont be afraid.... the xitami server from www.imatix.com is small, fast,
> and easy to configure. runs right out of the box. for future cgi issues,
> you should probably post to comp.infosystems.www.authoring.cgi
>
And for the discussion of the merits of various web-servers:
comp.infosystems.www.servers.ms-windows
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 16 Oct 1999 23:15:56 +0100
From: "beaumontsystems" <beaumontsystems@netscapeonline.co.uk>
Subject: Uses of #
Message-Id: <38097b0b@plato.netscapeonline.co.uk>
I want to write a utility that takes a Perl script and compresses it to a
single line
(or a few lines), removing leading spaces on lines, all comments, etc.
I will need to strip out comments that begin '#......', but are there any
other uses
of # ? I am aware of $# ... but are there any more ?
--
----------------------------------------------------------------------------
-----------------------------------
Andrew Fry. E-mail: andrewf@beaumontsystems.netscapeonline.co.uk
"Time flies like an arrow. Fruit flies like a banana". (Groucho Marx)
------------------------------
Date: 17 Oct 1999 04:01:21 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Uses of #
Message-Id: <slrn80j42e.q8s.abigail@alexandra.delanet.com>
beaumontsystems (beaumontsystems@netscapeonline.co.uk) wrote on
MMCCXXXVII September MCMXCIII in <URL:news:38097b0b@plato.netscapeonline.co.uk>:
'' I want to write a utility that takes a Perl script and compresses it to a
'' single line
'' (or a few lines), removing leading spaces on lines, all comments, etc.
Why? Perhaps you should just get a lawyer.
'' I will need to strip out comments that begin '#......', but are there any
'' other uses
'' of # ? I am aware of $# ... but are there any more ?
Oh, many.
" foo # bar ";
s#foo#bar;
@# = 1 .. 4;
%# = (foo => 'bar');
qw #one two three four#;
And notice the difference between:
s/fo #
/bar/;
and
s/fo #
/bar/x;
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 17 Oct 1999 09:04:43 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: Uses of #
Message-Id: <slrn80j4a8.t82.mgjv@wobbie.heliotrope.home>
On Sat, 16 Oct 1999 23:15:56 +0100,
beaumontsystems <beaumontsystems@netscapeonline.co.uk> wrote:
> I want to write a utility that takes a Perl script and compresses it to a
> single line
> (or a few lines), removing leading spaces on lines, all comments, etc.
>
> I will need to strip out comments that begin '#......', but are there any
> other uses
> of # ? I am aware of $# ... but are there any more ?
$some_regexp = qr#(.*)#;
$some_other_regexp = qr/(#.*)/;
$string = "This is a string with # in it";
$string = 'This is another string with "#" in it';
$string =~ m#$some_regexp#;
And all the other operators that take any character as delimiter. see
perlop.
And there are probably others.
Martien
--
Martien Verbruggen |
Interactive Media Division | Begin at the beginning and go on till you
Commercial Dynamics Pty. Ltd. | come to the end; then stop.
NSW, Australia |
------------------------------
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 1098
**************************************
