[7504] in Perl-Users-Digest
Perl-Users Digest, Issue: 1130 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 5 21:17:04 1997
Date: Sun, 5 Oct 97 18:00:36 -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 Sun, 5 Oct 1997 Volume: 8 Number: 1130
Today's topics:
Re: $x = $y || $z - dangerous assumption? (Damian Conway)
Re: A Tricky Question!! (Thomas Wernitz)
Re: accursed error message (Tad McClellan)
Re: Automation of NT 4.0 Workstation Installation <petri.backstrom@icl.fi>
Re: download an HTML site? <rpsavage@ozemail.com.au>
Re: file open (Tad McClellan)
Re: Flock me here flock me there. <petri.backstrom@icl.fi>
Re: Help -- Perl5 with IIS on NT4 <petri.backstrom@icl.fi>
Help w/dereferencing samdie@ibm.net
I need help <yingxue@ee.tamu.edu>
Re: I need help (brian d foy)
Re: Is there a Newsgroup for "Perl for NT and/or IIS"? <petri.backstrom@icl.fi>
Re: libwww for win32 S.O.S <Steve_Kilbane@cegelecproj.co.uk>
Re: MUD's in Perl? <mattias.lonnqvist@-NO-SPAM-.uidesign.se>
Re: Newbie CGI question (Tad McClellan)
Re: Newbie ques: How to concatenate two strings? (Tad McClellan)
Re: Newbie ques: How to concatenate two strings? (Tad McClellan)
Re: Perl and WINNT4.0 <petri.backstrom@icl.fi>
Perl Scripts for use with PGP/solaris rotaylor@stc.net
SGML-SPGrove-0.01: perl module for loading SGML, XML, H <ken@bitsko.slc.ut.us>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 6 Oct 1997 00:05:27 GMT
From: damian@cs.monash.edu.au (Damian Conway)
Subject: Re: $x = $y || $z - dangerous assumption?
Message-Id: <619a07$4fs$1@towncrier.cc.monash.edu.au>
Russ Allbery <rra@stanford.edu> writes:
>Damian Conway <damian@cs.monash.edu.au> writes:
>> Tom Phoenix <rootbeer@teleport.com> writes:
>>>> my $x = shift || $default;
>> Not presuming to second-guess the Perl Gods (:-), but does it need to
>> be anything fancier than:
>> sub first_defined { map { return $_ if defined $_ } @_ }
>> my $x = first_defined(shift, $default);
> That doesn't short-circuit.
Good point. How about this then:
sub try ($) { return defined($_[0]) ? \$_[0] : undef }
my $x = ${ try shift || try $default };
Probably too prolix, huh?
damian
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
who: Damian Conway email: damian@cs.monash.edu.au
where: Computer Science Dept. web: http://www.cs.monash.edu.au/~damian
Monash University quote: "The best form of self-defence is
Clayton 3168, Australia not being there in the first place"
------------------------------
Date: 5 Oct 1997 22:54:39 GMT
From: thomas_wernitz@tait.co.nz (Thomas Wernitz)
Subject: Re: A Tricky Question!!
Message-Id: <6195rf$ktj@gatekeeper.tait.co.nz>
In article <610dek$4ln$1@msunews.cl.msu.edu>,
maclaudi@cps.msu.edu (Claudia Ma) wrote:
>I can't figure out how to make the program "click the submit", and wonder if
>this could be done in Perl.
>
>Any ideas?
Yes. You don't have to click the submit button, but you send the same request
to the server that is sent when the user clicks the button. It will sure look
like this:
http://www.foo.com/cgi-bin/query.pl?search=foobar
This means you have to emulate the search form. This can easily be done with
Perls LWP module. Check it out at CPAN!
>Thanks a lot!
My pleasure.
Thomas
"most people would die sooner than think -- in fact, they do so."
-- Bertrand Russell
------------------------------
Date: Sun, 5 Oct 1997 17:22:02 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: accursed error message
Message-Id: <au3916.v82.ln@localhost>
nectar quash transparent (bkelvis@yakko.cs.wmich.edu) wrote:
: I'll keep this short and sweet. Heres the message.
: Modification of a read-only value attempted at (eval 203) line 11.
The perldiag man page explains diagnostic messages from perl:
-----------------------
=item Modification of a read-only value attempted
(F) You tried, directly or indirectly, to change the value of a
constant. You didn't, of course, try "2 = 1", because the compiler
catches that. But an easy way to do the same thing is:
sub mod { $_[0] = 1 }
mod(2);
Another way is to assign to a substr() that's off the end of the string.
-----------------------
: apparently im mucking with something that doesnt want to be
: mucked with, but where is it at?
: Basically, what does the " at (eval 203) line 11" refer to?
The 11th line of the 203rd execution of an eval().
Investigate your calls to eval().
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 05 Oct 1997 21:56:56 +0200
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: Automation of NT 4.0 Workstation Installation
Message-Id: <3437F108.48B6@icl.fi>
Adriaan wrote:
>
> I have a task of installing Windows NT Workstation on around 50 hard drives.
> I want to be able to start the installation, and then forget about the rest
> of it (allowing for automation). I would like a script which could automate
> NT's installation process while I continue on the other ones. I can't do it
> my self because I don't understand any of the programming languages!
Perl won't help you much with this... Microsoft's installation
can be driven through data files (ending with the .inf extension),
but the normal NT installation doesn't allow you to bypass the
dialogs that ask about accepting the licensing for the O/S and
selecting the video and network controllers/drivers.
Those must be answered by someone at the console.
What you could do is to do an installation, make copy of
the installation disk and use that. However, that'll work
only with machines with the same hardware configuration,
and in addition you have to figure out a way to change the
security ID (SID) that's generated anew for every installation
(machines with the same SID won't work in the same net/domain).
So, give up or try Windows NT related newsgroups for more
assistance.
regards,
...petri.backstrom@icl.fi
ICL Data Oy
Finland
------------------------------
Date: Mon, 06 Oct 1997 10:09:46 +1100
From: Ron Savage <rpsavage@ozemail.com.au>
Subject: Re: download an HTML site?
Message-Id: <34381E3A.23C3@ozemail.com.au>
California Man wrote:
>
> Im new to perl. Im using perl 5.004. How do I open a web address
> and download the html text file?
> [snip]
#!/usr/local/bin/perl -w
# Name:
# xferUrl.pl.
#
# Purpose:
# Get or Put a URL.
#
# Switches:
# -help Display help and exit(1)
# -debug Turn on LWP::Debug::level('+')
# -quiet Stop echo to the screen of document retrieved
# -proxy String My proxy's name
# -agent String My disguise
# -command String GET | PUT
# -protocol String ftp | http
# -site String Where to GET it from or PUT it to
# -username String With PUT, my remote username
# -password String With PUT, my remote password
# -email String My Email address
# -tilde With GET, add ~ from start of -inFile.
# With PUT, add ~ to start of -outFile
# -inFile String What to GET, ie a remote name. This can include directory
# names, and is used to save the document to disk if -outFile
# is undef, so the dir name must exist.
# Also, what to PUT, ie a local name
# -outfile String The local name of GET's target
# The remote name of PUT's target.
# If undef, use -inFile
#
# Usage:
# ...>perl xferUrl.pl -i WebTechniques/col01.html
#
# Author:
# Ron Savage 1.00 rpsavage@ozemail.com.au.
# -------------------------------------------------------------------
use integer;
use strict;
use Getopt::Simple qw(:DEFAULT helpOptions); # One of mine. You could substitute your own.
use LWP::Debug;
use LWP::UserAgent;
# -------------------------------------------------------------------
sub doIt2It
{
LWP::Debug::level('+') if $$switch{'debug'};
# Fabricate myself.
my($userAgent) = new LWP::UserAgent;
# Stop error 500.
# I'm inside bhp.com.au.
if ($$switch{'proxy'})
{
my($proxy) = "http://$$switch{'proxy'}:8080/";
$userAgent -> proxy(['ftp', 'http'], $proxy);
}
# Stop error 501.
# Disguise myself as Netscape.
$userAgent -> agent($$switch{'agent'});
# Give the other party my true etherMail address.
$userAgent -> from($$switch{'email'});
# Fabricate request.
my($url, $request);
if ($$switch{'command'} eq 'GET')
{
$url = new URI::URL("$$switch{'protocol'}://$$switch{'site'}/$$switch{'inFile'}");
}
else
{
$url = new URI::URL("$$switch{'protocol'}://$$switch{'site'}/$$switch{'outFile'}");
$url -> user($$switch{'username'});
$url -> password($$switch{'password'});
}
$request = new HTTP::Request($$switch{'command'}, $url);
my($content);
# Populate the content to send.
if ($$switch{'command'} eq 'PUT')
{
open(INX, $$switch{'inFile'}) || die("Can't open $$switch{'inFile'}: $!");
read(INX, $content, (-s INX) );
close(INX);
$request -> content($content);
}
# Send request.
my($response) = $userAgent -> request($request);
# What?
if ($response -> is_success() )
{
print $response -> content() if (! $$switch{'quiet'});
if ($$switch{'command'} eq 'GET')
{
$content = "../$$switch{'outFile'}";
}
else
{
$content = 'xferUrl.log';
}
open(OUT, "> $content") || die("Can't open > $content: $!");
print OUT $response -> content();
close(OUT);
}
else
{
print $response -> error_as_HTML();
exit(0); # Failure.
}
} # End of doIt2It.
# -------------------------------------------------------------------
sub init
{
my($default) =
{
'help' =>
{
'Type' => '',
'Env' => '-',
'Default' => '',
'Order' => 1,
},
'debug' =>
{
'Type' => '',
'Env' => '-',
'Default' => '',
'Order' => 2,
},
'quiet' =>
{
'Type' => '',
'Env' => '-',
'Default' => '',
'Order' => 3,
},
'proxy' =>
{
'Type' => '=s',
'Env' => '$PROXY',
'Default' => $ENV{'PROXY'} || '',
'Order' => 4,
},
'agent' =>
{
'Type' => '=s',
'Env' => '-',
'Default' => 'Mozilla/3.01', # Aka Netscape.
'Order' => 5,
},
'command' =>
{
'Type' => '=s',
'Env' => 'None. Use GET | PUT',
'Default' => 'GET',
'Order' => 6,
},
'protocol' =>
{
'Type' => '=s',
'Env', => 'None. Use ftp | http',
'Default' => 'http',
'Order' => 7,
},
# These numbers - 1, 2 - under site correspond to the numbers below under file.
#
# 1. www.ozemail.com.au
#
# 2. www.stonehenge.com/merlyn
'site' =>
{
'Type' => '=s',
'Env', => '-',
'Default' => 'ftp.ozemail.com.au',
'Order' => 8,
},
'username' =>
{
'Type' => '=s',
'Env' => '$USER',
'Default' => $ENV{'USER'} || 'rpsavage',
'Order' => 9,
},
'password' =>
{
'Type' => '=s',
'Env' => '-', # Env? No. NOT a good place to put a password.
'Default' => 'password',
'Order' => 10,
},
'email' =>
{
'Type' => '=s',
'Env' => '$EMAIL',
'Default' => $ENV{'EMAIL'} || '',
'Order' => 11,
},
'tilde' =>
{
'Type' => '',
'Env', => '-',
'Default' => '',
'Order' => 12,
},
# Warning: This file name is used to save the document to disk.
# So any directory name here must refer to an existing directory.
#
# 1. rpsavage/index.html
#
# 2. WebTechniques/col01.html
# 2. WebTechniques/col01.listing.txt
'inFile' =>
{
'Type' => '=s',
'Env', => '-',
'Default' => 'rpsavage/index.html',
'Order' => 11,
},
'outFile' =>
{
'Type' => '=s',
'Env', => '-',
'Default' => '', # Default is $$switch{'inFile'} =~ s/~//.
'Order' => 12,
},
};
if (! getOptions($default, "Usage: xferUrl.pl [options]", 1) )
{
exit(0); # Failure.
}
} # End of init.
# -------------------------------------------------------------------
sub validate
{
$$switch{'command'} =~ tr/a-z/A-Z/;
if ($$switch{'command'} !~ /(GET|PUT)/)
{
print "-command takes GET or PUT \n";
helpOptions();
exit(0);
}
$$switch{'protocol'} =~ tr/A-Z/a-z/;
if ($$switch{'protocol'} !~ /(ftp|http)/)
{
print "-protocol takes ftp or http \n";
helpOptions();
exit(0);
}
$$switch{'outFile'} = $$switch{'inFile'} if (! $$switch{'outFile'});
if ($$switch{'command'} eq 'GET')
{
$$switch{'inFile'} = '~' . $$switch{'inFile'} if ($$switch{'tilde'});
}
else
{
$$switch{'outFile'} = '~' . $$switch{'outFile'} if ($$switch{'tilde'});
}
} # End of validate.
# -------------------------------------------------------------------
&init();
&validate();
&doIt2It();
exit(1);
__END__
=head1 NAME
C<xferUrl.pl> - Get or Put a document given a URL.
=head1 SYNOPSIS
xferUrl.pl -tilde
xferUrl.pl -site www.stonehenge.com/merlyn -inFile WebTechniques/col01.html
=head1 DESCRIPTION
C<xferUrl.pl> uses a HTTP GET or PUT command to emulate a browser.
=head1 Command line switches
C<xferUrl.pl> provides these switches:
=over 4
=item *
-help. Display help and terminate with exit(1)
=item *
-debug. Turn on LWP::Debug(+)
=item *
-quiet. Stop echo to the screen of document retrieved
=item *
-proxy. My proxy's name, if I'm behind a firewall
=item *
-agent. My disguise, to keep happy those donors who care
=item *
-command. GET | PUT. This is case-insensitive
=item *
-protocol. ftp | http. This is case-insensitive
=item *
-site. Where to GET the -inFile from or PUT it to
=item *
-username. My remote username, to tell the site who is PUTting
=item *
-password. My remote password, to tell the site who is PUTting
=item *
-email. My Email address, to tell the donor who I am
=item *
-inFile. What to GET or PUT. This can include directory names, and may be used
to save the document to disk, so the dir name must exist
=item *
-outfile. What to save it as. If undef, use -inFile =~ s/~//
=item *
-tilde
=back
=head1 REQUIRED MODULES
=over 4
=item *
Getopt::Simple - one of mine. You could substitute your own
=item *
LWP::UserAgent
=item *
#LWP::Debug qw(+) -
Turn on debugging if error_as_HTML() does not provide sufficient gossip
=back
=head1 RETURN VALUE
C<xferUrl.pl> returns 1 for success, or 0 for failure.
=head1 TO DO
6-Oct-97. I'm uneasy about the handling of source 'v' destination directory
structures. I may change the way this operates.
=head1 AUTHOR
C<xferUrl.pl> was written by Ron Savage I<E<lt>rpsavage@ozemail.com.auE<gt>> in 1997.
=head1 LICENCE
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
------------------------------
Date: Sun, 5 Oct 1997 17:51:20 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: file open
Message-Id: <8l5916.cd2.ln@localhost>
Jeremy D. Zawodny (jzawodn@wcnet.org) wrote:
: [original author automagically cc'd via e-mail]
: On Sun, 5 Oct 1997 13:33:13 -0400, Rostislav Muchnik <muchnik@wpi.edu>
: wrote:
: >I need create a program in pearl that will create a file
: >and write something to it. I have to trigger that program from
: >web page. How can I do that?
: Write it as a CGI script and call it using the proper HTML syntax from
: the page in question.
: You may find the CGI.pm module helpful. You may also want to read some
: introductory material about CGI programming, since it's kind obvious
: that you haven't already done so.
The Perl FAQ, part 9 recommends these:
---------------------------------
=head2 My CGI script runs from the command line but not the browser. Can you help me fix it?
Sure, but you probably can't afford our contracting rates :-)
Seriously, if you can demonstrate that you've read the following FAQs
and that your problem isn't something simple that can be easily
answered, you'll probably receive a courteous and useful reply to your
question if you post it on comp.infosystems.www.authoring.cgi (if it's
something to do with HTTP, HTML, or the CGI protocols). Questions that
appear to be Perl questions but are really CGI ones that are posted to
comp.lang.perl.misc may not be so well received.
The useful FAQs are:
http://www.perl.com/perl/faq/idiots-guide.html
http://www3.pair.com/webthing/docs/cgi/faqs/cgifaq.shtml
http://www.perl.com/perl/faq/perl-cgi-faq.html
http://www-genome.wi.mit.edu/WWW/faqs/www-security-faq.html
http://www.boutell.com/faq/
---------------------------------
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 05 Oct 1997 22:09:03 +0200
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: Flock me here flock me there.
Message-Id: <3437F3DF.BD3@icl.fi>
kiet wrote:
>
> It seems the subroutine for flock() isn't implemented for the Activeware
> version of Perl 5.0003.xxx . Does any1 know about this?
>
> I need the flock() subroutine to carry some of the program under Win '95.
> Any help is much appreciated!
It is implemented and works on Windows NT (but from what I
hear - you can verify by looking at the sources; I'm too
lazy 'cause I don't need to know for sure ;-) - not on
Windows 95).
regards,
...petri.backstrom@icl.fi
ICL Data Oy
Finland
------------------------------
Date: Sun, 05 Oct 1997 22:13:36 +0200
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: Help -- Perl5 with IIS on NT4
Message-Id: <3437F4F0.1EC@icl.fi>
David Lam wrote:
>
> Perl5 with IIS 2.0 on NT4 cannot retrieve filenames in a directory
> (functions as glob, opendir, readdir, while <*.*> {} all do not work). Can
> anybody give me an idea of fixing this problem?
Change the file/directory protections so that the account
IIS runs under by default (usually IUSR_machinename) has
sufficient permissions to access the files/directories
you wish it to access.
regards,
...petri.backstrom@icl.fi
ICL Data Oy
Finland
------------------------------
Date: Sun, 05 Oct 97 18:37:27 -0400
From: samdie@ibm.net
Subject: Help w/dereferencing
Message-Id: <34381ac7$1$fnzqvr$mr2ice@news-s01.ny.us.ibm.net>
I have attempted to create several hash-of-arrays, one of which should contain
references to the others. When I print the elements of the main array,
everything seems to be OK but I can't find an acceptable syntax for
dereferencing so as to look at the secondary hashes. One (of a number of
variations) is shown below with the problem appearing at line# 23 (just before
the quoted error message).
Would somebody please provide an explanation of how I can get at the
referenced hash(es).
use integer; use diagnostics; use strict;
my $This_ACD=""; my($today,%acd,@tables);
sub config_line() { while (<DATA>) {if (!(/^\s*$/)) {chomp; return 1}}}
sub make_HoL() {
my ($n,%h);
while (config_line() and substr($_,0,1) ne "#") {
my($key,@vals)=split /,\s*/; $h{$key}=[@vals]; $n++
}
return ($n,\%h)
}
sub Patch($@) {
my ($n,$HoL,$id,@versions)=(make_HoL(),@_);
foreach my $v (@versions) {
foreach my $a (keys %acd) {
if ($v ne @{$acd{$a}}[0]) {next}
push @{$acd{$a}},$HoL; next if ($id eq "TABs");
next if ($v ne "400"); # limit test output
printf "added [%d]\n",$#{$acd{$a}};
my $h_ref=$acd{$a}->[8]; # $h_ref should refer to TABs HoL
print "$h_ref\n"; # HASH(0x33dd8) - looks reasonable #
print "$$h_ref{$id}\n"; # how to dereference?
# Use of uninitialized value at t line 24, <STDIN> chunk 108 (#1) # What's
STDIN got to do with anything? Is this just that
# Perl got the *program* from STDIN?
}
}
}
sub Configure() {
my ($a,$h);
config_line();
while (substr($_,0,2) eq "# ") {
my($type,@vers)=split(" ",substr($_,2));
if ($type eq "ACDs") {($a,$h)=make_HoL(); %acd=%{$h}; next}
if ($type ne "ENDs") {Patch($type,@vers); next} else {last}
}
}
Configure();
__END__
# ACDs
vrubkwp, 400,tst,1,w07:0001,wp,wbkw,,White Plains Test Group
vruqnwp, 303,tst,1,w07:0010,wp,wqnw,,White Plains Test Group
# TABs 303
ACD, 01,25
NPA, 02,11
RPR, 03,14
# TABs 400
ACD, 01,01
NPA, 02,11
RPR, 03,14
# NPAs 303 400
OHR, 01,01
203, 02,02
212, 03,03
# RPRs 303 400
OHR, 01,1
0091,02,2
0255,03,2
# ENDs
# ACDs global standalone hash w/version in [0]
# @{$acd{$version}}[08]=reference ==> TABs
# @{$acd{$version}}[09]=reference ==> NPAs
# @{$acd{$version}}[10]=reference ==> RPRs
--
-----------------------------------------------------------
samdie@ibm.net 199710050637 -0400
------------------------------
Date: Sun, 5 Oct 1997 18:20:12 -0500
From: Yingxue Li <yingxue@ee.tamu.edu>
Subject: I need help
Message-Id: <Pine.SOL.3.96.971005181652.26931A-100000@ampere.tamu.edu>
Hi, all,
I am a beginner of perl. I wrote a script for BBS. It works in command
line but not in Web( Server Error).
Can anybody tell me something?
Thanks in advance.
Li
------------------------------
Date: Sun, 05 Oct 1997 19:56:33 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: I need help
Message-Id: <comdog-ya02408000R0510971956330001@news.panix.com>
In article <Pine.SOL.3.96.971005181652.26931A-100000@ampere.tamu.edu>, Yingxue Li <yingxue@ee.tamu.edu> wrote:
>I am a beginner of perl. I wrote a script for BBS. It works in command
>line but not in Web( Server Error).
it's difficult to diagnose the problem with the information that yuo
have given.
try going through the steps in
<URL:http://language.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html>
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Sun, 05 Oct 1997 23:15:08 +0200
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: Is there a Newsgroup for "Perl for NT and/or IIS"?
Message-Id: <3438035C.6A80@icl.fi>
Peter Prymmer wrote:
>
> Cameron Dorey wrote:
> ...
> > Windows (my last non-PC computer experience was Fortran on a VAX 780 in
> ...
> I presume you meant a VAX 11-780: a fine machine for number crunching
> ...
I presume you meant a VAX-11/780; the '11' comes from the PDP-11
architecture it extended [VAX = Virtual Address eXtension] and
the '780' from the year 1978 it was introduced (and sold
until 1988).
Allthough, if my memory serves me right, even if the docs
said VAX-11/780, the front panel on the actual box didn't
have the dash; i.e., it was VAX 11/780 (or maybe it was
written in different ways during its lifetime ;-).
cheers,
...petri.backstrom@icl.fi
ICL Data Oy
Finland
------------------------------
Date: Sun, 05 Oct 1997 15:16:00 GMT
From: Steve Kilbane<Steve_Kilbane@cegelecproj.co.uk>
Subject: Re: libwww for win32 S.O.S
Message-Id: <a57cd$f100.27d@news.cegelecproj.co.uk>
In article <34378f16.0@news1.ibm.net>, "Gal Samuel" <nakadina@ibm.net> writes:
> I can't seem to install the libwww group of modules.
(a) Are you using Perl 5.004_01 or later? If not, check the docs
that come with libwww - they reference the home site for the module,
and *that* site has links to scripts that modify earlier an earlier Perl
distribution and libwww for win32 use. But you'd be advised to go
for the new, base release.
> - can anyone describe full installation proccess for it on win95 or NT ?
Just like it says in the docs:
Perl Makefile.PL
make
make test
make install
using whatever moral equivalent of "make" your system supports - you'll
need to have the same compilers etc. that you used to build the base
distribution with.
> - does anyone knows URL's of the libwww for win 32 to download from ?
See the README for libwww.
--
<Steve_Kilbane@cegelecproj.co.uk> - All opinions are mine alone.
Kilbane's law of integration: standardise on protocols and file
formats, and the applications take care of themselves.
------------------------------
Date: Thu, 02 Oct 1997 10:43:23 +0100
From: "Mattias Lvnnqvist" <mattias.lonnqvist@-NO-SPAM-.uidesign.se>
Subject: Re: MUD's in Perl?
Message-Id: <34336CBB.95B8BBA8@-NO-SPAM-.uidesign.se>
Nigel Reed wrote:
> Has anyone written, or started to write, a MUD
> (multi-user dungeon) type game in perl? I'd be
> interested in hearing your experiences.
>
> Regards
> Nigel
So far I've only seen one mud in Perl, Perlmud, which can be found on
http://www.boutell.com/
I've not evaluated it from a mud perspective, since its a tinymud base,
and my experience is in the Diku area.
What you can notice though is that Muds as of today mostly deals with
handling text, something Perl is good at. You might have to watch the
way you store things, for memory consumption though - but that applias
for all languages :)
/Mattias
--
Mattias Lonnqvist * M.Sc. * Software consultant * Remove -NO-SPAM-
from email adress to reply. * no mail-to: link here, sorry.
Unsolicited commercial email is subject to an archival fee of $400.
See <http://www.uidesign.se/~malo/mail.html> for more info.
------------------------------
Date: Sun, 5 Oct 1997 17:36:12 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Newbie CGI question
Message-Id: <so4916.db2.ln@localhost>
David Barr (dbarr@simplex.com) wrote:
: Oh, and please reply by email, as I rarely get time to surf USENET looking
: for responses.
---------------------------------------------
Subject: How to find the right place to post (FAQ)
Date: 11 Jun 1997 17:01:37 -0400
Followup-To: news.newusers.questions
Expires: 9 Jul 1997 21:01:30 GMT
Summary: This article gives some general hints to help you find an
appropriate place to post on a given topic, and gives pointers
to some available resources. A few other new-user topics are
also addressed, mostly through pointers to other FAQs.
[The most recent version of this document is posted periodically in
several newsgroups, including news.newusers.questions, news.groups, and
news.announce.newusers. It can also obtained by anonymous FTP as
ftp://rtfm.mit.edu/pub/usenet/news.answers/finding-groups/general. If
you do not have access to anonymous FTP, you can retrieve it by
sending email to mail-server@rtfm.mit.edu with the command "send
usenet/news.answers/finding-groups/general" in the message.]
[ ... snip ... ]
3) Any article to a newsgroup you do not read
If you do not read a newsgroup, you cannot know what the subject of the
newsgroup is, what the standards of behavior are, what the frequently
discussed topics are. Usenet does not exist to give you a free research
tool. It is also considered incredibly rude to post a question to a
^^^^^^^^^^^^^^^^^^^^^^^^^^
newsgroup you do not read, and ask for replies in e-mail - by doing so,
you are telling the people you want to answer your question that their
issues are not important to you.
---------------------------------------------
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 5 Oct 1997 17:27:25 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Newbie ques: How to concatenate two strings?
Message-Id: <d84916.1a2.ln@localhost>
Chris Russo (news@russo.org) wrote:
: In article <3436ca50.336964@news.one.net>, over@the.net wrote:
: >tadmc@flash.net (Tad McClellan) wrote:
: >
: >
: >>Do you see how folks might get annoyed to see it yet again?
: >
: >Then let someone else answer them.
: Right, and encourage the amount of noise to even higher levels so that the
: people who best understand perl, like Tom C, Randal, Tad, and others don't
: even bother to read this group.
: No thanks.
Thanks for the reply. I do my best to not respond to such fools,
I just ensure that I have a permanent killfile entry for them ;-)
Can't really understand why he would want to cross the regulars here.
I guess he wants answers from hobbiests instead of programmers...
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 5 Oct 1997 18:47:36 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Newbie ques: How to concatenate two strings?
Message-Id: <ou8916.kn2.ln@localhost>
Tad McClellan (tadmc@flash.net) wrote:
: Chris Russo (news@russo.org) wrote:
: : In article <3436ca50.336964@news.one.net>, over@the.net wrote:
: : >tadmc@flash.net (Tad McClellan) wrote:
: : >
: : >
: : >>Do you see how folks might get annoyed to see it yet again?
: : >
: : >Then let someone else answer them.
: : Right, and encourage the amount of noise to even higher levels so that the
: : people who best understand perl, like Tom C, Randal, Tad, and others don't
: : even bother to read this group.
: : No thanks.
: Thanks for the reply. I do my best to not respond to such fools,
: I just ensure that I have a permanent killfile entry for them ;-)
: Can't really understand why he would want to cross the regulars here.
: I guess he wants answers from hobbiests instead of programmers...
Sorry folks.
I thought I was sending an email, not posting.
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 05 Oct 1997 23:29:41 +0200
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: Perl and WINNT4.0
Message-Id: <343806C4.749B@icl.fi>
Scott Balneaves wrote:
>
> I have been told that Perl programming can cause problems on NT 4.0, any
> truth behind this and second of all where is the best place to start
> programming.
Perl (or any) programming can cause problems on any
operating system if you don't know what you're doing,
and have enough privileges to do damage.
Anyway, in that case it isn't Perl that's causing
the problems. ;-)
Other than that, ask the people who told you this
to explain what, exactly, they mean with "problems",
and while you wait for the answer, get Perl and
start learning and using it on Windows NT or
wherever...
Start learning by reading what's on
http://www.perl.com
I also suggest your start with a book such
as "Learning Perl on Win32 Systems" or
"Learning Perl, 2nd Edition" and/or
"Programming Perl, 2nd Edition" published by
O'Reilly: http://www.ora.com
regards,
...petri.backstrom@icl.fi
ICL Data Oy
Finland
------------------------------
Date: Sun, 05 Oct 1997 19:22:50 -0600
From: rotaylor@stc.net
Subject: Perl Scripts for use with PGP/solaris
Message-Id: <876096780.11512@dejanews.com>
I have written some perl scripts to handle data collected by forms. I
would like to now encrypt that data and email it. I have PGP running
in
my domain on my local ISP and I have PGP for my PC. I am new at this
and
would like to know if anyone has a good resource for Perl scripts for
this
purpose.
Thanks
Robert Taylor
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 5 Oct 1997 23:58:10 GMT
From: Ken MacLeod <ken@bitsko.slc.ut.us>
Subject: SGML-SPGrove-0.01: perl module for loading SGML, XML, HTML
Message-Id: <6199ii$ec9$1@news1.teleport.com>
SGML::SPGrove
A Perl 5 module for loading SGML,
XML, and HTML document instances
using James Clark's SP.
Ken MacLeod
ken@bitsko.slc.ut.us
INTRODUCTION
The SGML::SPGrove module links with James Clark's SGML Parser (SP)
to load SGML, XML, and HTML document instances.
This is version 0.01. This release is simple, solid, and usable,
but features to be added over the next few weeks will make it
incredibly more useful. See FUTURE for current status and
upcoming changes.
Newer versions of this module can be found at
<ftp://ftp.uu.net/vendor/bitsko/gdo/>.
Copyright (C) 1997 Ken MacLeod
SPGrove is distributed under the same terms as SP. See the file
COPYING for distribution terms.
OVERVIEW
SGML::SPGrove takes a system identifier and passes it to SP to
parse, as each element is parsed from the document SPGrove builds
Perl objects to match. When done parsing, SPGrove returns an
SGML::SPGrove object that contains the root element of the parsed
document and an array (hopefully empty :-) of parser errors.
Elements of the document are SGML::Element objects. Elements
have a generic identifier (or name), attributes, and the contents
of the element. Attributes are stored as a Perl hash, with the
values as an array of scalars and SGML::SData objects. The
contents of an element may be more Elements, scalars, SData
objects, or processing instruction (PI) objects.
SGML::SData objects are replacements for character entity
references within the document. The Text::EntityMap perl module
can be used to map SData replacements from common character entity
sets to common output formats.
<ftp://ftp.uu.net/vendor/bitsko/entity-map/>
SGML::PI objects are processing instructions contained within the
document.
See the pod/man pages for SGML::SPGrove, SGML::Element,
SGML::SData, SGML::PI for more info.
INSTALLATION
SGML::SPGrove requires Perl 5 and James Clark's SP (from the Jade
distribution). SP requires a C++ compiler.
<http://www.perl.com>
<http://www.jclark.com>
1) SPGrove needs SP's `libsp.a' and include files. SP's `make
install' does not install these [I'm working on that, I should
have an RPM available soon]. Create a workarea for compiling
SP, compile it and keep the workarea until SPGrove is done.
Edit SPGrove's Makefile.PL to point `LIBS' to SP's `lib'
directory and `INC' to SP's three include directories. I've
left my templates in to point the way.
2) standard Perl module after that,
perl Makefile.PL
make
make check
make install
Just so you know, SPGrove's copy of SP's library is included
in the install, that's over a megabyte and a half.
FYI, a statically linked perl executable (`make perl') appears
to run significantly faster, in one test, 17 seconds instead
of 25 seconds.
FUTURE
This release is the first eight hours of work, the next eight
should bring a whole lot more. This module is not a completly new
design but is just part of a larger library I've been working on.
The next two release should support the rest of the ESIS
information that is available and include iterator classes to help
walk around the grove.
Releases after that will be merged back into the library and will
include transformation, formatting, and other utility classes.
------------------------------
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 1130
**************************************
