[7149] in Perl-Users-Digest
Perl-Users Digest, Issue: 774 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 24 20:07:19 1997
Date: Thu, 24 Jul 97 17:00:25 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 24 Jul 1997 Volume: 8 Number: 774
Today's topics:
<<<XXX Password 4 U>>> XXXFREESITES@raksnet.com.tr
?? mail bouncer <alex@darkfire.com>
Re: Apache:: modules broken <dougm@osf.org>
cgi, server side include help <rajk@best.com>
Re: Checking for valid Email... (A. Deckers)
Re: command line perl prob (perl 5.004_01 in shell scri (M.J.T. Guy)
Re: Creating a directory in a Unix1 <sfairey@adc.metrica.co.uk>
Re: DON"T Pay For $ex Site Entry <cskidmore@arcus.net>
Re: How to call a subroutine from a variable? <desilva@netbox.com>
Re: How to include perl header files? <zenin@best.com>
Inputting commands <jefpin@bergen.org>
Installing Perl Modules <serginho@alpha.hydra.com.br>
Re: National Medal of Technology: Let's nominate Larry! (Bob Shair)
Perl 5.004/Sybperl 2.07 on Windows NT <ar@pine.dk>
Re: Perl Headers on Win NT (Brian - DKOnline)
Re: python envy ? <rootbeer@teleport.com>
Re: Q: perl ver of fflush(STDOUT) (dave)
Re: Question: MacPerl & "require" (Paul J. Schinder)
Returning exit status <eatonn@msn.com>
Re: Sorting a database by date <sfairey@adc.metrica.co.uk>
Re: text processing (Sean Dougherty)
Re: Tie a hash of hashes ? <jpm@iti-oh.comNOSPAM>
Re: Too many people in this group are arrogant #*(@# (R (Andrew M. Langmead)
Re: Too many people in this group are arrogant #*(@# (R (Ook!)
Re: turning off "<variable name> used only once" warnin <rootbeer@teleport.com>
Re: Using varaibles from a template file (dave)
Re: WWWlib-perl5 module or a better way? (Danny Aldham)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 Jul 1997 22:33:54 GMT
From: XXXFREESITES@raksnet.com.tr
Subject: <<<XXX Password 4 U>>>
Message-Id: <5r8l8i$lnh@news0-alterdial.uu.net>
This is a multi-part message in MIME format.
--_-=220
Content-type: text/plain; charset="us-ascii"
Content-transfer-encoding: 7bit
Get into 1800+ XXX Sites FREE!
http://205.216.249.18/cgi-shl/dbml.exe?template=/as/signup.dbm&site=st34977
--_-=220
Content-type: text/html; name="sex2.html"
Content-transfer-encoding: base64
PCFET0NUWVBFIEhUTUwgUFVCTElDICItLy9JRVRGLy9EVEQgSFRNTC8vRU4iPg0KDQo8aHRt
bD4NCg0KPGhlYWQ+DQo8dGl0bGU+U0VDUkVUIFBBU1NXT1JEIEZPUiBBRFVMVCBTSUdIVFM8
L3RpdGxlPg0KPG1ldGEgbmFtZT0iR0VORVJBVE9SIiBjb250ZW50PSJNaWNyb3NvZnQgRnJv
bnRQYWdlIDEuMSI+DQo8L2hlYWQ+DQoNCjxib2R5IHRleHQ9IiM4MEZGRkYiIGxpbms9IiNG
RjAwMDAiIHZsaW5rPSIjRkZGRkZGIiBhbGluaz0iI0ZGMDAwMCI+DQo8ZGl2IGFsaWduPWNl
bnRlcj48Y2VudGVyPg0KPHRhYmxlIGNlbGxzcGFjaW5nPTEgd2lkdGg9MTAwJT4NCjx0cj48
dGQgd2lkdGg9MTAwJT48aW1nIHNyYz0iZmlsZTovLy9FOi9TZXggU2l0ZS9tcHBoLmdpZiIg
YWxpZ249Ym90dG9tIHdpZHRoPTYxMCBoZWlnaHQ9ND48ZGl2IGFsaWduPWNlbnRlcj48Y2Vu
dGVyPg0KPHRhYmxlIGJvcmRlcj01IGNlbGxwYWRkaW5nPTIgYmdjb2xvcj0iIzAwMDAwMCI+
DQo8dHI+PHRkIGFsaWduPWNlbnRlciB3aWR0aD0xMDAlPjxmb250IGNvbG9yPSIjRkZGRjAw
Ij48Zm9udCBzaXplPTc+PGI+RlJFRSEgRlJFRSEgRlJFRSE8YnI+DQo8L2I+PC9mb250Pjwv
Zm9udD48Zm9udCBjb2xvcj0iI0ZGMDAwMCI+PGZvbnQgc2l6ZT01PjxiPlRIQVQnUyBSSUdI
VC4uLiBDT01QTEVURUxZIDwvYj48L2ZvbnQ+PGZvbnQgc2l6ZT02PjxiPkZSRUUhITwvYj48
L2ZvbnQ+PC9mb250Pjxmb250IGNvbG9yPSIjMDAwMEZGIj48Zm9udCBzaXplPTU+PGI+PGk+
PGJyPg0KRU5URVIgVEhST1VHSCBBRFVMVFNJR0hUUyAmIzE2OTsgPC9pPjwvYj48L2ZvbnQ+
PGZvbnQgc2l6ZT02Pjxicj4NCjwvZm9udD48L2ZvbnQ+PGZvbnQgY29sb3I9IiNGRkZGMDAi
Pjxmb250IHNpemU9Nz48Yj5JVCdTIEZSRUUhISEhITwvYj48L2ZvbnQ+PC9mb250PjwvdGQ+
PC90cj4NCjwvdGFibGU+DQo8L2NlbnRlcj48L2Rpdj4NCjxwIGFsaWduPWNlbnRlcj48aW1n
IHNyYz0iZmlsZTovLy9FOi9TZXggU2l0ZS9tcHBoLmdpZiIgYWxpZ249Ym90dG9tIHdpZHRo
PTYxMCBoZWlnaHQ9ND48L3A+DQo8cCBhbGlnbj1jZW50ZXI+PGZvbnQgRkFDRT0iQ29taWMg
U2FucyBNUyI+PGZvbnQgY29sb3I9IiMyMjE2NUEiPjxmb250IHNpemU9Nz4gPC9mb250Pjwv
Zm9udD48Zm9udCBjb2xvcj0iI0ZGMDAwMCI+PGZvbnQgc2l6ZT03Pk9ORSBQQVNTV09SRCA8
Zm9udCBGQUNFPSJDb21pYyBTYW5zIE1TIj48YnI+DQo8L2ZvbnQ+PC9mb250PjwvZm9udD48
Zm9udCBjb2xvcj0iIzIyMTY1QSI+PGZvbnQgc2l6ZT01PiA8L2ZvbnQ+PC9mb250Pjxmb250
IGNvbG9yPSIjRkZGRjAwIj48Zm9udCBzaXplPTU+PHN0cm9uZz5HRVRTIFlPVSBVTkxJTUlU
RUQgRlJFRSBBQ0NFU1MgVE8gT1ZFUiANCjE4MDArIE9GIFRIRSBIT1RURVNUIEFEVUxUIFNJ
VEVTIDwvc3Ryb25nPjwvZm9udD48L2ZvbnQ+PC9wPg0KPHAgYWxpZ249Y2VudGVyPjxpbWcg
c3JjPSJmaWxlOi8vL0U6L1NleCBTaXRlL2NoZWVybGRyMS5qcGciIGFsaWduPWJvdHRvbSB3
aWR0aD0xOTAgaGVpZ2h0PTI1OT48L3A+DQo8cCBhbGlnbj1jZW50ZXI+PGZvbnQgY29sb3I9
IiMwMDAwMDAiPjxmb250IHNpemU9NT48c3Ryb25nPklGIFlPVSBBUkUgVElSRUQgT0YgUEFZ
SU5HIFRPIEdFVCBJTlRPIFNFWCANClNJVEVTLi4uPC9zdHJvbmc+PC9mb250PjwvZm9udD48
Zm9udCBjb2xvcj0iI0ZGRkZGRiI+PGZvbnQgc2l6ZT01PjxzdHJvbmc+IDwvc3Ryb25nPjwv
Zm9udD48L2ZvbnQ+PGZvbnQgY29sb3I9IiMwMEZGRkYiPjxmb250IHNpemU9NT5PbmUgUGFz
c3dvcmQgaXMgYWxsIHlvdSBuZWVkISEhPGJyPg0KPC9mb250PjwvZm9udD48L3A+DQo8cCBh
bGlnbj1jZW50ZXI+PGZvbnQgRkFDRT0iQ29taWMgU2FucyBNUyI+PGZvbnQgY29sb3I9IiMy
MjE2NUEiPjxmb250IHNpemU9Nj4gPC9mb250PjwvZm9udD48Zm9udCBjb2xvcj0iI0ZGMDAw
MCI+PGZvbnQgc2l6ZT02PjxzdHJvbmc+TE9PSyBXSEFUIFlPVSBHRVQhPC9zdHJvbmc+PC9m
b250PjwvZm9udD48L3A+DQo8cCBhbGlnbj1jZW50ZXI+PGZvbnQgRkFDRT0iQ29taWMgU2Fu
cyBNUyI+PGZvbnQgY29sb3I9IiMyMjE2NUEiPjxmb250IHNpemU9NT4gPC9mb250PjwvZm9u
dD48Zm9udCBjb2xvcj0iI0ZGRkYwMCI+PGZvbnQgc2l6ZT01PjxzdHJvbmc+VU5MSU1JVEVE
IEZSRUUgQUNDRVNTIFRPIE9WRVIgMTgwMCsgT0YgDQpUSEUgSE9UVEVTVCBBRFVMVCBTSVRF
Uzwvc3Ryb25nPiA8Zm9udCBGQUNFPSJDb21pYyBTYW5zIE1TIj48L2ZvbnQ+PC9mb250Pjwv
Zm9udD48Zm9udCBjb2xvcj0iIzIyMTY1QSI+PGZvbnQgc2l6ZT01PiA8L2ZvbnQ+PC9mb250
PjwvcD4NCjxoMSBhbGlnbj1jZW50ZXI+PGZvbnQgY29sb3I9IiNGRjAwMDAiPjxmb250IHNp
emU9NT48c3Ryb25nPkp1c3QgQSBGZXcgT2YgVGhlIE92ZXIgMTgwMCsgWFhYIFJhdGVkIFNp
Z2h0cyBUaGF0IA0KWW91IENhbiBFbnRlciBDb21wbGV0ZWx5IEZyZWUhPGZvbnQgRkFDRT0i
Q29taWMgU2FucyBNUyI+PC9mb250Pjwvc3Ryb25nPjwvZm9udD48L2ZvbnQ+PC9oMT4NCjxo
MSBhbGlnbj1jZW50ZXI+PGZvbnQgY29sb3I9IiM4MEZGMDAiPjxmb250IHNpemU9Nj48c3Ry
b25nPlRFRU4gU0lURVM8L3N0cm9uZz48L2ZvbnQ+PC9mb250PjwvaDE+DQo8cCBhbGlnbj1j
ZW50ZXI+PGZvbnQgY29sb3I9IiMwMDAwMDAiPjxmb250IHNpemU9ND4xMDAwIEhPVCBBTkQg
TmFLRUQgLSBDZUxlQlJpVGlFUyBBTkQgVEVFTlMgLSAxMDAxIE51ZGUgRXJvdGljIA0KVGVl
bnMgLSAyMCBBbWFUZWVucyAtIDYyMyBOdWRlIENlbGVicml0aWVzIEFuZCBUZWVucyAtIEFB
QSBTTFVUWSANClRFRU5TIC0gQW1hdGV1ciBUZWVucyAtIEFtYXRldXIgVGVlbnMgRnJvbSBB
cm91bmQgVGhlIFdvcmxkIC0gQW1hdGV1ciANClRlZW5zISAtIENvY2sgSHVuZ3J5IFRlZW5z
IC0gQ3VtIERyaW5raW5nIFRlZW5zIC1GaXN0IEZ1Y2tpbmcgVGVlbnMgLSBIb3QgDQpOdWRl
IFRlZW5zIC0gTm90aGluZyBCdXQgVGVlbnMgLSBUZWVucyBJbiBUcm91YmxlIC0gVHdhdCBT
dWNraW5nIFRlZW5zIDwvZm9udD48L2ZvbnQ+PC9wPg0KPHAgYWxpZ249Y2VudGVyPjxmb250
IGNvbG9yPSIjRkYwMDAwIj48Zm9udCBzaXplPTY+PHN0cm9uZz5BU0lBTiBTSUdIVFM8L3N0
cm9uZz48L2ZvbnQ+PC9mb250PjwvcD4NCjxwIGFsaWduPWNlbnRlcj48Zm9udCBjb2xvcj0i
IzAwMDAwMCI+PGZvbnQgc2l6ZT00PkFsbCBBc2lhbiBUZWVuIC0gQXNpYW4gQmFiZXMgLSBB
c2lhbiBCYWJlcyBzaWFuIEJhYmVzISAtIEFzaWFuIEJlbGxlcyAtIEFzaWFuIA0KQm9uZGFn
ZSAtIEFzaWFuIEN1dGUgR2lybHMgLSBBc2lhbiBEZWxpdGVzIC0gQXNpYW4gRXJvcyAtIEFz
aWFuIEZsb3dlcnMgLSBBc2lhbiANCkdvbGQgLSBZb3VuZyBBc2lhbiBXb21lbiAtIEFzaWFu
IEhhcmRDb3JlIEFTSUFOIEhBUkRDT1JFIC0gVEhFIA0KTEVHRU5EIENPTlRJTlVFUyAtIEFT
SUFOIEhvbG9zdWl0ZSAtIEFzaWFuIExvdmUgRG9sbHMgPC9mb250PjwvZm9udD48L3A+DQo8
cCBhbGlnbj1jZW50ZXI+PGZvbnQgY29sb3I9IiNGRjAwRkYiPjxmb250IHNpemU9Nj48c3Ry
b25nPkNFTEVCUklUWSBTSUdIVFM8L3N0cm9uZz48L2ZvbnQ+PC9mb250PjwvcD4NCjxwIGFs
aWduPWNlbnRlcj48Zm9udCBjb2xvcj0iIzAwMDAwMCI+PGZvbnQgc2l6ZT00PiMxIE51ZGUg
Q2VsZWJyaXR5IFBhZ2UgISAtIENlbGVid29ybGQgQWNlJ3MgLSBYWFggQ2VsZWJyaXR5IFBp
Y3MgLSBDZWxlYnJpdHkgDQpDZW50cmFsIC0gQ2VsZWJyaXR5IENoaWNrIFBhdHRpZXMgLSBD
ZWxlYnJpdHkgQ3VtYm94IC0gQ2VsZWJyaXR5IFBpY3R1cmVzIA0KQ2VsZWJyaXR5IFBpY3R1
cmVzIEdvbGQgU2l0ZSAtIENlbGVicml0eSBTa2luIC0gQ2VsZWJyaXR5IFNraW4tQUJDIC0g
RGEgUm9ja3MgDQpudWRlIGNlbGVicml0eSBBcmNoaXZlIC0gTWFya3MgQ2VsZWJyaXR5IFBp
Y3R1cmVzIDIgLSBOdWRlIENlbGVicml0eSBBcmNoaXZlIC0gDQpTdGFyTG9jYXRvciAtIENl
bGVicml0eSBTdXBlclMgLSBUaGUgRGFpbHkgTnVkZSBDZWxlYnJpdHkgUGFnZSAtIFRoZSBN
dXN0IFNlZSANCk5VREUgQ2VsZWJyaXR5IFNpdGUgLSBUaGUgVWx0aW1hdGUgQ2VsZWJyaXR5
IENvbGxlY3Rpb24gPC9mb250PjwvZm9udD48L3A+DQo8cCBhbGlnbj1jZW50ZXI+PGZvbnQg
RkFDRT0iQ29taWMgU2FucyBNUyI+PGZvbnQgY29sb3I9IiNGRjRGQTciPjxmb250IHNpemU9
NT4gPC9mb250PjwvZm9udD48Zm9udCBjb2xvcj0iIzAwODBGRiI+PGZvbnQgc2l6ZT01Pjxz
dHJvbmc+VU5MSU1JVEVEIEZSRUUgQUNDRVNTIFRPIE9VUiBYWFggUkFURUQgDQpDSEFUIFJP
T008L3N0cm9uZz48L2ZvbnQ+PC9mb250PjwvcD4NCjxwIGFsaWduPWNlbnRlcj48Zm9udCBG
QUNFPSJDb21pYyBTYW5zIE1TIj48Zm9udCBjb2xvcj0iI0ZGMDAwMCI+PGZvbnQgc2l6ZT01
PjxzdHJvbmc+R2V0IFlvdXIgQURVTFRTSUdIVFMgQUdFIFZFUklGSUNBVElPTiANCk1FTUJF
UlNISVAgRk9SIE9OTFkgJDEyLjk1LiBJdHMgR29vZCBGb3IgQW4gDQpFbnRpcmUgWWVhciBB
bmQgR2V0cyBZb3UgVU5MSU1JVEVEIEZSRUUgQWNjZXNzIA0KSW50byAxODAwKyBPZiBUaGUg
QmVzdCBBZHVsdCBTaXRlcyBPbiBUaGUgd2ViIEFsbCBZZWFyIA0KQWxsIEZyZWUuIE5ldmVy
IFBheSBBbm90aGVyIERpbWUgVG8gR2V0IEludG8gQSBTZXggU2l0ZSANCkFnYWluLjwvc3Ry
b25nPjwvZm9udD48L2ZvbnQ+PGZvbnQgY29sb3I9IiNGRkZGMDAiPjxmb250IHNpemU9NT48
YnI+DQo8L2ZvbnQ+PC9mb250PjwvZm9udD48Zm9udCBjb2xvcj0iI0ZGMDA4MCI+PGZvbnQg
c2l6ZT03PjxzdHJvbmc+Qk9OVVMhISE8YnI+DQo8L3N0cm9uZz48L2ZvbnQ+PGZvbnQgc2l6
ZT01PjxzdHJvbmc+RlJFRSBYWFggQ2hhdCBSb29tcyEhITwvc3Ryb25nPjwvZm9udD48L2Zv
bnQ+PGZvbnQgY29sb3I9IiMwMEZGMDAiPjxmb250IHNpemU9NT48c3Ryb25nPjxicj4NCjwv
c3Ryb25nPjwvZm9udD48L2ZvbnQ+PGEgaHJlZj0iaHR0cDovLzIwNS4yMTYuMjQ5LjE4L2Nn
aS1zaGwvZGJtbC5leGU/dGVtcGxhdGU9L2FzL3NpZ251cC5kYm0mYW1wO3NpdGU9c3QzNDk3
NyI+PGZvbnQgY29sb3I9IiM4MDAwODAiPjxmb250IHNpemU9Nj48c3Ryb25nPkdldCBZb3Vy
IFBBU1NXT1JEIE5PVzwvc3Ryb25nPjwvZm9udD48L2ZvbnQ+PC9hPjwvcD4NCjwvdGQ+PC90
cj4NCjwvdGFibGU+DQo8L2NlbnRlcj48L2Rpdj4NCjwvYm9keT4NCg0KPC9odG1sPg0K
--_-=220
------------------------------
Date: Tue, 22 Jul 1997 16:16:10 GMT
From: "Alex Matthews" <alex@darkfire.com>
Subject: ?? mail bouncer
Message-Id: <01bc96ba$e84a5400$0701de89@null.bris.ac.uk>
Could anyone make any suggestions where I might find or maybe go about
writing a perl script that bounces incoming mail to my virtual domain if
the To: header does not contain my preferred email address(es).
The reason I am asking is due mainly to the huge amounts of junk mail I get
sent to me with the To: header containing somthing random from these bulk
mailers.
As a rough guess is it possible to run a perl script from the .forward file
and somehow pass the message to the script to decide what to do with it?
Any help would be greatly appreciated. I would be grateful if you could
email any replies to me aswell as posting to the group.
Thanks,
Alex.
--
Alex Matthews
alex@darkfire.com
http://darkfire.com/alex
------------------------------
Date: Thu, 24 Jul 1997 18:19:11 -0400
From: Doug MacEachern <dougm@osf.org>
To: Ken Williams <ken@forum.swarthmore.edu>
Subject: Re: Apache:: modules broken
Message-Id: <33D7D4DF.46D2@osf.org>
Ken Williams wrote:
>
> Hi-
>
> I came back from vacation and found that about half of my perl's Apache::
> modules give a segmentation fault when you attempt to load them. For
> example, this shell command gives a seg fault: perl -MApache::CGI
>
> The following modules work:
> Apache::AccessLimitNum.pm
> Apache::AuthzAge.pm
> Apache::Constants.pm
> Apache::Debug.pm
> Apache::MyConfig.pm
> Apache::Options.pm
> Apache::Status.pm
>
> The following modules fail:
> Apache.pm
> Apache::CGI.pm
> Apache::Include.pm
> Apache::MsqlProxy.pm
> Apache::Registry.pm
> Apache::SSI.pm
>
> I haven't been able to establish any commonality within these groups.
>
> Ostensibly, my sysadmins haven't changed my perl in weeks, and these
> modules worked when I left for vacation. I haven't noticed any problems
> with any other modules. The only thing that might have anything to do
> with this is that we rearranged our file structure and partitions, and
> moved some C library files around. But this shouldn't affect perl unless
> it's recompiled, right?
The `Apache' and `Apache::Constants' modules are linked static with httpd,
as the interface(s) they hook into cannot be seen outside of it. At one
point both were built as shared libraries, but due to problems on certain
systems and no libapache to link against, the default is now to link
static. If your system will let you build these extensions as shared
libaries (try perl Makefile.PL DYNAMIC=1), install them and you can 'perl
-MApache ...', but you can't actually run any apache methods since the
underlying C functions can only be accessed inside httpd. The next version
of mod_perl will eval the bootstrap() calls for those who wish to 'perl -c'
modules and scripts from the command line.
-Doug
------------------------------
Date: Sun, 20 Jul 1997 20:50:24 -0700
From: Raj Kumar <rajk@best.com>
Subject: cgi, server side include help
Message-Id: <33D2DC80.39CF@best.com>
Hello
I am trying to get the time stamp displayed on my web page,
but it isn't working.
I have renamed my html file to index.shtml
and then I put the following in my file:
<!-- #config timefmt = "%I:%M:%S" -->
but it doesn't work.
Any suggestions or comments.
------------------------------
Date: 22 Jul 1997 11:04:35 GMT
From: deckers@man.ac.uk (A. Deckers)
Subject: Re: Checking for valid Email...
Message-Id: <slrn5t94u2.e24.deckers@news.rediris.es>
(followup set)
In <869565507.30614@dejanews.com>,
Maelstrom <maelstrom@deathsdoor.com> wrote:
[...]
>my four hours worth of time. Incidentally I had just come from the FAQ at
>www.perl.com and looking at the section for 'How do validate input' I
>recieved the following gem of information "See the more specific
>questions(numbers, email addresses, etc.) for details". Where? Is there
>some kind of lobotomy you need to have before you can understand Perl
>that takes away any ability to communicate helpful information in written
>english?
Is there some sort of lobotomy that you need to have done to make you
incapable of reading the FAQ with due attention?
$grep 'email address' perl/PerlFAQ.pod
=head2 How do I check a valid email address?
an email address is valid. Even if you apply the email header
=head2 How do I return the user's email address?
Company policies on email address can mean that this generates addresses
users' email addresses when this matters. Furthermore, not all systems
Hmmm... "How do I check a valid email address?" Look's like it's right there.
HTH,
Alain
--
Perl information: <URL:http://www.perl.com/perl/>
Perl archive: <URL:http://www.perl.com/CPAN/>
Perl FAQ: <URL:http://www.perl.com/CPAN/doc/FAQs/FAQ/>
>>>>>>>>>>>>> NB: comp.lang.perl.misc is NOT a CGI group <<<<<<<<<<<<<<
------------------------------
Date: 22 Jul 1997 07:26:58 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: command line perl prob (perl 5.004_01 in shell scripts)
Message-Id: <5r1nc2$f6e@lyra.csx.cam.ac.uk>
In article <33CFB6E6.2C9B@up.net>, Raymond K. Bush <rbush@up.net> wrote:
>This isnt in the documentation. I looked long and hard last night
>before posting. Unfortunately my fingers remember new better than nwe
>and i hadnt even thought that it should need rearranging. Indeed
>moveing the e to the end fixes my scripts!
Turns out it _is_ in the documentation, tho' I failed to find it the first
time I looked. It's classified under "Perl4 to Perl5 Traps" in perltrap,
which is the truth but perhaps not the whole truth.
+ BugFix
Perl 4 would ignore any text which was attached to an -e
switch, always taking the code snippet from the
following arg. Additionally, it would silently accept
an -e switch without a following arg. Both of these
behaviors have been fixed.
perl -e'print "attached to -e"' 'print "separate arg"'
# perl4 prints: separate arg
# perl5 prints: attached to -e
perl -e
# perl4 prints:
# perl5 dies: No code specified for -e.
Mike Guy
------------------------------
Date: Tue, 22 Jul 1997 12:32:10 +0100
From: Simon Fairey <sfairey@adc.metrica.co.uk>
To: Brandon Yoo <byoo@celerity.com>
Subject: Re: Creating a directory in a Unix1
Message-Id: <33D49A39.588ADD97@adc.metrica.co.uk>
Brandon Yoo wrote:
> I'm trying to create a directory in Unix with perl:
>
> mkdir ("xx", 777);
>
> This does not give me a "drwxrwxrwx" access. What mode number should I
>
> have to use ?
>
> Thanks in advance.
>
> byoo@hotmail.com
Try:
mkdir( "xx", 0777 )
Bear in mind that this is subject to modification by your UMASK, look at
your systems manpage on umask for more information regarding this.
Simon
------------------------------
Date: Tue, 22 Jul 1997 11:47:55 -0400
From: Catherine Skidmore <cskidmore@arcus.net>
Subject: Re: DON"T Pay For $ex Site Entry
Message-Id: <33D4D62B.7B03@arcus.net>
David Faciane wrote:
>
> What about @ex, %ex and regex?
>
> :-)
oh stop, you're turning me on.
-catherine
--
Catherine Skidmore
http://www.suck-my-big.org
...feathered by the moonlight falling down on me...
------------------------------
Date: Mon, 21 Jul 1997 13:51:02 -0400
From: Rujith de Silva <desilva@netbox.com>
Subject: Re: How to call a subroutine from a variable?
Message-Id: <33D3A186.3B76@netbox.com>
> use strict;
> foreach $var(@vars){
> $subroutine = "check_$var";
> &$subroutine($arguments);
> }
>
> strict complains it cannot use $subroutine as a subroutine reference.
> Ok, well how DOES this have to be written?
use strict;
foreach $var (@vars)
{
my $subroutine = eval "\\&check_$var";
&$subroutine($arguments);
}
Or more cryptically:
&{eval "\\check_$var"} ($arguments);
Later,
Rujith.
------------------------------
Date: 24 Jul 1997 23:40:39 GMT
From: Zenin <zenin@best.com>
Subject: Re: How to include perl header files?
Message-Id: <5r8p5n$jmr$1@nntp2.ba.best.com>
Ruben Schattevoy <schattev@imb-jena.de> wrote:
> is there another way than using the C preprocessor (which I apparently
> cannot use in combination with a #!/usr/local/bin/perl line) to include
> perl header files into perl code? I mean some more Perl-like
> construction like require("header.pm") or use "header.pm". I get it
> working with this construction:
>snip<
Use the Exporter to export the variables:
$ cat main.pl
#!/usr/local/bin/perl -w
use strict;
use Header;
printf("test = %s\n",$test);
$ cat Header.pm;
package Header;
use strict;
use vars qw(@ISA @EXPORT $test);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw($test);
$test = "abc";
1;
This also allows the calling program the ability to only
import the variables that it wants so as not to cause
unexpected name conflicts:
use Header qw($test); # Only import $test
--
-Zenin
Quake Clan After Shock (Did you feel that?)
The Bawdy Cast - Rocky Horror Picture Show (San Jose, CA)
Zenin's Rocky Archive (http://www.best.com/~zenin/)
zenin@best.com
------------------------------
Date: Thu, 24 Jul 1997 18:41:36 -0400
From: TechMaster Pinyan <jefpin@bergen.org>
Subject: Inputting commands
Message-Id: <Pine.SGI.3.96.970724184006.4144A-100000@davinci.bergen.org>
On Thu, 24 Jul 1997 jtstepni@socs.uts.edu.au wrote:
>I need to telnet to a specified ip address and port number and send
>login prompts, passwords, and exec commands - these vary for different
>routers as well as the login/password prompts so I would need to expect
>different responses.
I'd like some help too, while we're at it.
HOW does one input commands to a program running in a shell?
i.e. how does one pass a login and password to telnet
i.e. how does one enter "I" to PINE to check the INBOX
----------------
| "You have the ability to annoy God!"
| - Joe Holbrook
----------------
Jeff "TechMaster" Pinyan | http://www.bergen.org/~jefpin
HTML/CGI Designer and Consultant and JavaScripter
jefpin@bergen.org | TechMasterJeff@juno.com
Got a JavaScript/CGI/Perl question or problem? Let me know!
webXS - the new eZine for WebProgrammers! webXS@juno.com
Visit us @ http://www.bergen.org/~jefpin/webXS
------------------------------
Date: 24 Jul 1997 19:31:51 GMT
From: "Sergio Stateri Jr" <serginho@alpha.hydra.com.br>
Subject: Installing Perl Modules
Message-Id: <01bc9868$9de0afe0$ca75e7c8@Term104>
Hi ! How can I Install Perl Modules ? I try to run makefile.pl files, but
they say me that there's not a MakeMaker module present. Then I get the
MakeMaker module at CPAN and it say that there's not a manifest module
present... I'm using Perl 5.003 under Windows NT 4.0 Server. What modules
have I to install after installing Perl Language ? (I think that they're
the "defalut modules", aren't they ?
Thanks in advance,
--
--------------------------------------------
Sergio Stateri Jr
Sco Paulo (SP) - Brazil
e-mail: serginho@usa.net
--------------------------------------------
------------------------------
Date: 24 Jul 1997 22:43:28 GMT
From: rmshair@uiuc.edu (Bob Shair)
Subject: Re: National Medal of Technology: Let's nominate Larry!
Message-Id: <5r8lqg$9l6$1@vixen.cso.uiuc.edu>
"Richard K. Downer" <rkd7949@ballard.ca.boeing.com> writes:
>Bob Shair wrote:
>>
>> When you look at the nature of the World-Wide Web, and the role
>> Perl has played, a National medal does seem parochial.
>
>After reading the referenced web page regarding the National Medal of
>Technology, I doubt if Larry Wall qualifies. They're looking for people
>who have benefitted USA businesses, and what Larry did 1) benefits
>people world-wide, 2) doesn't provide any measureable cash to the USA,
>and worst of all 3) is free. They're looking for people who create jobs
>in the USA and bring money into the USA. Perl does neither (since
>everyone using Perl would use something else if Perl did not exist).
Yes, but do them more slowly, and at increased expense.
Time is MONEY, which (as you point out) the Department of Commerce is
focussed on.
>At least, that's how I think the judges will view a Larry Wall nomination,
>if past winners are any indication.
You may be right, but even bureaucrats like to scribble outside of the
lines once in a while. Let's give them the chance!
>I assume from conversations with the likes of Randal Schwartz -- I've
>never met Mr. Wall -- that he is pleased to earn the praise of his
>peers; thus the nomination is still a good idea :-)
I've never met him either. I presume that he's an American citizen, but
don't know for sure.
--
Bob Shair Open Systems Consultant
1018 W. Springfield Avenue rmshair@uiuc.edu
Champaign, IL 61821 217/356-2684
< Not employed by or representing the University of Illinois >
------------------------------
Date: Mon, 21 Jul 1997 09:51:54 +0200
From: "Antony C. Roberts" <ar@pine.dk>
Subject: Perl 5.004/Sybperl 2.07 on Windows NT
Message-Id: <869471567.61436@oak>
Has anybody managed to get Sybperl 2.07 to work with the Perl 5.004
distribution on NT? If so, how?
Cheers in advance,
Antony C. Roberts
PS: Please CC your reply to ar@pine.dk
------------------------------
Date: Tue, 22 Jul 1997 13:27:13 GMT
From: Brian@dkonline.com (Brian - DKOnline)
Subject: Re: Perl Headers on Win NT
Message-Id: <33d6b50c.5182191@pub.news.uk.psi.net>
On Wed, 16 Jul 1997 08:58:28 -0700, Tom Phoenix
<rootbeer@teleport.com> wrote:
>On 16 Jul 1997, Jason Peak wrote:
>
>> I'm trying to get an NT server to run some perl scripts for me.
>> I've discovered that I have to make them .bat files and somehow
>> call the perl.exe with the .bat file.
>>
>> Does anyone know how to do this?
>
>If this isn't covered in the release notes which come with Perl for NT, it
>ought to be. If you can't find it, could you let the developers know?
>Their address should be easy to find in the release notes. Thanks!
If it's IIS you're talking about:
To configure PERL script mapping
WARNING: Using Registry Editor incorrectly can cause serious,
system-wide problems that may require you to reinstall Windows NT to
correct them. Microsoft cannot guarantee that any problems resulting
from the use of Registry Editor can be solved. Use this tool at your
own risk.
1.Start Regedt32.exe and open
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\
Services\W3SVC\Parameters\ScriptMap
2.Click Add Value from the Edit menu.
3.The Value Name is .pl (and .cgi)
4.The Data type is REG_SZ.
5.The String value is <the full path to perl.exe>\perl.exe %s %s
6.Restart the WWW service.
http://www.microsoft.com/kb/articles/q150/6/29.htm
------------------------------
Date: Thu, 24 Jul 1997 14:33:31 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: dumes@nospam.hks.com
Subject: Re: python envy ?
Message-Id: <Pine.GSO.3.96.970724143254.10589C-100000@kelly.teleport.com>
On 24 Jul 1997, Bruce Dumes wrote:
> What seems funny to me, though, is that in my studies, I see the python
> groups constantly comparing python to perl to show why python is the one
> and true scripting language, but I rarely see perl afficianos saying
> that anything python can do, perl can do better.
No, we're too busy saying that anything Java can do, Perl can do better.
:-)
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 24 Jul 1997 22:28:33 GMT
From: over@the.net (dave)
Subject: Re: Q: perl ver of fflush(STDOUT)
Message-Id: <33d7d652.705127@news.one.net>
I think the Camel has a slight preference toward this:
use FileHandle;
.
.
.
STDOUT->autoflush();
.
.
.
print "whatever\n";
Dave
|
| Please visit me at http://w3.one.net/~dlripber
|
| For reply by email, use:
| dlripber@one.net
|________
------------------------------
Date: Thu, 24 Jul 1997 19:41:41 -0400
From: schinder@leprss.gsfc.nasa.gov (Paul J. Schinder)
Subject: Re: Question: MacPerl & "require"
Message-Id: <schinder-2407971941410001@schinder.clark.net>
In article <33D6B9CE.2781@eecs.ukans.edu>, Mousheng Xu
<mxu@eecs.ukans.edu> wrote:
} In UNIX perl, if you want to include a perl file called "common.cgi",
} you write
}
} require("common.cgi");
}
} Everything is OK.
Not if you wrote common.cgi so that it doesn't return a true value. This
is commonly done by putting a
1;
at the end of the file.
} But in MacPerl, I always get an error message
} 'common.cgi' did not return a true value.
} Any help will be highly appreciated.
} Thanks in advance.
The same thing is true of MacPerl. Put 1; at the end of your cgi and it
will stop complaining (that is, if your file is actually a Macintosh
rather than a Unix text file).
}
} m.xu
--
Paul J. Schinder
NASA Goddard Space Flight Center
Code 693, Greenbelt, MD 20771
schinder@leprss.gsfc.nasa.gov
------------------------------
Date: Mon, 21 Jul 1997 00:58:10 -0700
From: "Eaton Family" <eatonn@msn.com>
Subject: Returning exit status
Message-Id: <01bc95ab$c9000820$bcb52399@hp-customer>
Here is the challenge:
To execute a database load concurrently on several other hosts with a Korn
shell script. That was the easy part... there are three other
requirements:
1. display the output from each load
2. get the exit status of each load
3. wait for all background loads to complete and return the highest exit
status
Here is a sample that handles the first requirement (this may be off a wee
bit as I am typing it from memory at home, but it works)...
stmt3="(msg=\$(rksh $host \"cd /tmp; . $HOME/.profile; db \\\"load from
/tmp/$file insert into $table\\\"; rm -f $file\"| grep SQL); echo \"Loading
$file in $table on $host Over with Messages \n \$msg \n\" >> load.log; echo
\"\n Loading $file in $table on $host Over \n\" ) &"
eval $stmt3
There are a couple of things wrong with this. First, using rksh (or rsh)
does not provide the exit status from the remote command. A second pass at
this added code that echo'd the exit status from the load and awk code at
the end of the whole statement that detected whether a non-zero exit status
(or no status at all) showed up in the output and, on identifying this
condition, set a non-sero exit status for the whole statement.
The failure of the second approach is that, like rksh, eval does not return
the exit status of the command executed.
A third attempt seems to get around the problem by dropping the use of eval
and stmt3. By directly executing the statement, the exit status is
reflected in $? as desired. The problem with this, however, is that it
takes piping everything all the way through so that the whole statement is
forked and not just the last part; this results in the output from the load
going in the bit bucket.
BTW, the third requirement was easy. Here is how I handled it...
p=0
for table in $tablelist
do
p=$(($p+1))
remote_command_statement &
PIDs[$p]=$!
done
high_rc=0
for pid in ${PIDs[*]}
do
wait $pid
rc=$?
if [ $rc != 0 ]
then
high_rc=$rc
fi
done
exit $high_rc
Any and all suggestions will be greatly appreciated.
Oh, and a solution in Perl 4.x would not be unwelcome...
=======================================================
Nathan Eaton
=======================================================
------------------------------
Date: Tue, 22 Jul 1997 12:43:11 +0100
From: Simon Fairey <sfairey@adc.metrica.co.uk>
To: Jye Tucker <odeon@mailbox.uq.edu.au>
Subject: Re: Sorting a database by date
Message-Id: <33D49CCE.CD0CA4F1@adc.metrica.co.uk>
Jye Tucker wrote:
> I am only starting out with Perl programming and am writing a script
> that
> sorts entries in a file by date. The entries are in the form;
>
> $key:$day:$month:$year:$band:$venue:$band_url:$venue_url:$info \n
>
> I figured since I was sorting the data, the sort() function would come
> in
> handy, however I am not sure how to use the sort() function (or any
> other
> function for that matter:) to sort the info by the $day, $month and
> $year
> fields. I wish to read the entries from a file, sort the data
> chronologically and then write it back to the file. Any help with this
>
> would be greatly appreciated.
>
> In addition to posting a reply to the newsgroup, could you please also
>
> email me a copy as I only occassionally get to check newsgroups.
>
> Thanks in advance,
>
> Jye Tucker
>
> --
> Odeon Designs - http://www.odeon.com.au
Once you have stored the data then you have numerous options, the
simplest would be to sort by year then month then day. Alternatively you
could do a more complex sort function which works on more than one field
at a time. In this case I suggest you look at the entry in the Perl FAQ
'How do I sort an array' which has an entry on sorting by more than one
field, it also has a pointer to a very useful document on sorting.
If you are still having problems after looking at the above then shout.
Simon
PS: You will also find some useful info if you search DejaNews for 'sort
array comp.lang.perl.misc'.
------------------------------
Date: 24 Jul 1997 21:15:06 GMT
From: sean@cortex.ama.ttuhsc.edu (Sean Dougherty)
Subject: Re: text processing
Message-Id: <5r8gkq$k4d$1@medulla.ama.ttuhsc.edu>
Mehmet Demirkol (demirkol@sgs-server.Stanford.EDU) wrote:
: Hello,
: How can I remove all "^M"s from a piece of text?
: I guess I can use
: $text =~ s/\x??//g;
:
: but what should "??" be? Is there a web page that has a list of those
: substitude values?
: Mehmet Fatih Demirkol
: email: demirkol@sgs-server.stanford.edu
In perl I think you would want:
$text =~ s/\r/ /g;
Remember ^M is a return.
sean
------------------------------
Date: 22 Jul 1997 17:40:13 GMT
From: "Noone Special" <jpm@iti-oh.comNOSPAM>
Subject: Re: Tie a hash of hashes ?
Message-Id: <01bc96c6$46e3da80$36601ec6@bach>
If you find a way to tie the hash, please tell me.
I searched a while back, and was unable to find a solution.
My solution was to make a script that writes the hash into an ASCII file,
then a script that would restore it.
--
Josh,
Gavin Dragon...
Remove NOSPAM from address...
Calle Aasman <calle@studentREMOVETOREPLY.adb.gu.se> wrote in article
<33D4649B.20EF@studentREMOVETOREPLY.adb.gu.se>...
> I would like to put a hash-of-hashes in a DBM, this can't be done, what
> are the options?
> Is there a way to use tie somehow?
>
> If anyone could help me out on this I would be very happy...
>
> /Calle
>
------------------------------
Date: Thu, 24 Jul 1997 23:02:12 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Too many people in this group are arrogant #*(@# (Re: Checking for valid Email...)
Message-Id: <EDuInp.6GL@world.std.com>
"John Bokma" <jbokma@caiw.nl> writes:
>Subject: Re: Too many people in this group are arrogant #*(@# (Re:
> Checking for valid Email...)
Let me just suggest another way of looking at this issue.
A FAQ document is supposed to contain concise, factual, entries taking
care of questions about its subject. If I had a question, I would much
rather someone point out an entry in the FAQ instead of having someone
post an answer.
Checking valid e-mail address is a perfect example why. Every time
this question is asked (especially the first dozen or so times.) there
are a flurry of replies posted. Many of them say "Oh, its easy, just
use ...", with all of the solutions either failing in some manner or
another. Each "solution" also has a varying degree of explanation
(usually pretty poor) to how it works. Then there are a bunch of posts
correcting errors in the first batch, but those solutions have their
own errors. And then Randal will set up an address that is valid but
will not pass the final answers.
And the poor reader who posted the first article doesn't know who to
believe and is more confused than before.
Being able to give an authoritative answer like "the FAQ says..."
stops an awful lot of wrong answers from being posted. Yes, a lot of
questions from the FAQ and man pages are being asked nowadays. Its a
shame the posters didn't do a fair amount of their own work first. I'd
rather read one post that says "the FAQ says ..." than a half dozen
wrong answers.
>Too many people (even some famous ones, yes you know that I mean
>you!) reply
>on too many posting with "Read the FAQ", DejaNews.
The way I think about things, I would much rather have someone point
out to me a specific, verifiable reference, over someone giving an
answer of the top of their head.
As an example. The other day, I was asking a mechanical engineer how
much space there was between the paper sensor and the rubber roller on
a part he designed. I didn't need an exact measurement, just a rough
idea how much further i needed to eject the paper after the sensor to
make sure the paper was grabbed by the pinch roller. He could have
eyeballed it and gave me a guess, but instead he reminded me about the
disk of mechanical drawings he sent.
Two lessons. First, an exact reference is much better than an imformed
opinion. Second, when someone asks a question, and is told that they
have already been provided with the answer, they should be
embarrassed, not upset.
>Or what I really hate, when someone asks "How can I do this without
>using the
>... lib/module?" that the answers is: "Why not? It worked for me.
>Instead of
>answering the original question.
The only case I can think of where I have seen someone ask "how can I
do this without using {fill in library, module or base language
feature here.} is in relation to perl 4. I'm not saying that everyone
should be forced to upgrade to the latest version of every piece of
software, but think about it. Perl 5 was written to correct many
problem inherent in perl 4. If perl 4 lacks the ability to do
something conveniently, it was very likely corrected in perl 5.
Most of the rest of the answers that say "use the xxx module available
at <URL:http://www.perl.com/CPAN/>" are responses to questions where
people just said "how do I do xxx". Its not that they needed a
non-module solution, they were just lucky enough to get one.
If someone as a certain reason for not using a particular libarary,
module or language feature, they can say so. Most people here probably
do enough tinkering so that evan a "I just know how a xxx would work"
is a good enough reason.
Hey, tell you what. Find me a post where someone asks "How can I do
this without using the ... lib/module?"
>If that's the only thing you want to share
>with this group, please don't. There is enough noise already. Stupid
>questions don't
>need stupid answers, just don't answer them
Then you have the group of people who then post "no one answers my
questions here." flames.
You can't win either way.
--
Andrew Langmead
------------------------------
Date: Thu, 24 Jul 1997 14:04:07 -0800
From: Ook!@ook.org (Ook!)
Subject: Re: Too many people in this group are arrogant #*(@# (Re: Checking for valid Email...)
Message-Id: <Ook!-ya02408000R2407971404070001@snews.zippo.com>
No kidding, amen on ALL accounts.
Three other points, regarding the 'bot like arrogant autoFAQ reply types.
(You know who you are, most likely you'll even post a follow up to this and
auto-identify yourselves, and prove every point made in the original post.)
1) What happens if the person doing the query would like to learn something
other than how to use someone else's code? Some of us actually enjoy
broadening our skill sets (chefs) instead of just churning out the order on
the ticket (short order cooks).
2) How in the hell are better modules going to get wriiten if the same old
stuff keeps getting reused? Insanely Great stuff rarely comes out of the
30th revision by the same author. You either have a good original idea the
first time, or you don't.
3) Most of the stuff on CPAN and perldoc is poorly, if not horribly,
documented. People are really supposed to learn from that? I'd be out of a
job if I churned out crap that horribly composed, and seriously consider
firing anyone who expected me to accept it as a final draft.
4) If the question is really beneath your dignity to reply to, climb off
that shining white stallion of yours and ignore it instead of churning out
50 messages a day repeating the CPAN/www.perl.org/stonehenge mantra.
------------------------------
Date: Thu, 24 Jul 1997 14:32:21 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: +jeff <gt5146c@acmez.gatech.edu>
Subject: Re: turning off "<variable name> used only once" warning
Message-Id: <Pine.GSO.3.96.970724142413.10589B-100000@kelly.teleport.com>
On 24 Jul 1997, +jeff wrote:
> Subject: turning off "<variable name> used only once" warning
>
> I've looked every I can think of but can't seem to figure out
> how to do this, any ideas?
Lots of ways, depending upon your task. But arguably the best is to make
your scripts work with 'use strict' in the first place. This will
encourage you to make my() variables whenever possible. (And, since those
are faster, your code will likely run more rapidly!) When you do need to
have global variables, you can 'use vars' to declare them.
It can be a lot of work to retrofit 'use strict' into an older script. If
you're writing anything that's going to grow more than about a screenful
of text, that's the time to put 'use strict' in. So, if you've got an old
script and don't have the time to fix it up, what else can you do?
One way is to simply 'use vars' or use my() as described above, if that
works for your needs. Another way is to deal with certain "used only once"
idioms. For example, if you're used to writing this...
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($filename);
...when you only need some of those, you could use a literal slice...
($uid, $gid) = (stat $filename)[4, 5];
...or, if you need most, you may use undef...
(undef,undef,$mode,$nlink,$uid,$gid,undef,$size)
= stat($filename);
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 24 Jul 1997 22:23:21 GMT
From: over@the.net (dave)
Subject: Re: Using varaibles from a template file
Message-Id: <33d7d48d.252160@news.one.net>
Zenin <zenin@best.com> wrote:
> $template = eval qq(<<"EndOfEval";\n$template\nEndOfEval\n);
>
The eval will also require untainting $template when tainting is
turned on. So I see no advantage over:
$something = "a perl novice";
do "./$template";
--- where $template contains:
print <<EOFP;
I am $something.
EOFP;
Dave
|
| Please visit me at http://w3.one.net/~dlripber
|
| For reply by email, use:
| dlripber@one.net
|________
------------------------------
Date: 22 Jul 1997 10:06:56 -0700
From: danny@lennon.postino.com (Danny Aldham)
Subject: Re: WWWlib-perl5 module or a better way?
Message-Id: <5r2pbg$cn0$1@lennon.postino.com>
Mwebernet (mwebernet@aol.com) wrote:
: Do you know how to retrieve web pages on remote systems with perl? The
: only way I know of is with the libwww module. Is there another way?
The modules really are the way to go, but if you don't want to use
them , and have lynx on your system,try:
#!/usr/bin/perl -w
@page = `lynx -source http://www.domain.com/` ;
print "Page source: @page ";
--
Danny Aldham SCO Ace , MCSE , JAPH , DAD
I don't need to hide my e-mail address, I broke my sendmail.
------------------------------
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 774
*************************************
