[13119] in Perl-Users-Digest
Perl-Users Digest, Issue: 529 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 14 17:07:14 1999
Date: Sat, 14 Aug 1999 14: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)
Perl-Users Digest Sat, 14 Aug 1999 Volume: 9 Number: 529
Today's topics:
Re: .htpasswd / .htaccess question <jbc@shell2.la.best.com>
Re: CGI Help (Ronald J Kimball)
Re: code references to builtin functions (Ronald J Kimball)
Re: HARASSMENT -- Monthly Autoemail (Ronald J Kimball)
Re: HTTP redirect..not working <flavell@mail.cern.ch>
Re: HTTP redirect..not working <flavell@mail.cern.ch>
mv UNIX shell command doesn't work? armatage_shanks@my-deja.com
Re: mv UNIX shell command doesn't work? <rick.delaney@home.com>
Re: mv UNIX shell command doesn't work? (brian d foy)
Re: mv UNIX shell command doesn't work? (Malcolm Ray)
Re: mylib.pl now MyLib.pm <rick.delaney@home.com>
Re: mylib.pl now MyLib.pm <nead@neadwerx.com>
Re: mylib.pl now MyLib.pm <rick.delaney@home.com>
New User Q: MultiLine Match <knewman@mcs.com>
Re: Newbie question about $_ (Ronald J Kimball)
Re: Perl penetration into Fortune 500? <bwalton@rochester.rr.com>
Re: Perl/TK issues <ltl@rgsun5.viasystems.com>
Please repost URL encoded directions for protected dire (Steve MacLellan)
Re: Please repost URL encoded directions for protected (brian d foy)
Re: Problem with standard IO::Socket::INET module (Ronald J Kimball)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 14 Aug 1999 20:36:26 GMT
From: John Callender <jbc@shell2.la.best.com>
Subject: Re: .htpasswd / .htaccess question
Message-Id: <37b5d34a$0$202@nntp1.ba.best.com>
Cal Bond <cal@spacemoose.com> wrote:
> I've been scouring faqs looking for info on how to create/access a
> .htpasswd and .htaccess files. Basically the password protection script
> I've downloaded needs me to create these, but I have no idea how. From
> a menu option that says 'create .htaccess' it gives me some lines of
> code and says 'use this as your .htaccess file', but when I save it as
> that in Notepad it's just a text file. I realize this is a very basic
> question, but even if you could just point me to a faq somewhere that
> has this info I'd greatly appreciate it.
Technically, this is more of a server question than a Perl question
(stipulation for c.l.p.m. border guards: for certain very large values
of "more"). Anyway, you'll probably be able to get more help and fewer
flames asking about it in a place like
comp.infosystems.www.servers.unix.
In terms of your "it's just a text file" comment, that's all they are,
is text files. You can use a program like htpasswd to create the
.htpasswd file (under Unix; I don't know what non-Unix equivalents
there may be), or you can get under the hood and do your own encrypting
of the passwords to produce the .htpasswd file directly.
The .htaccess file is just a simple text file containing some
directives that tell the server how you want access restricted.
A good first step would probably be for you to read the documentation
on this that is part of the NCSA server documentation at
hoohoo:
http://hoohoo.ncsa.uiuc.edu/docs/tutorials/user.html
then ask in comp.infosystems.www.servers.unix if you still have
questions.
Good luck.
--
John Callender
jbc@west.net
http://www.west.net/~jbc/
------------------------------
Date: Sat, 14 Aug 1999 17:06:02 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: CGI Help
Message-Id: <1dwj330.12dkca1cw34hsN@p162.tc2.state.ma.tiac.com>
<dodli@my-deja.com> wrote:
> syntax error in file /usr/local/etc/httpd/cgi-bin/pointedit.pl at line
> 121, next 2 tokens "chomp("
> /<!--.*?PointEdit.*?>/: nested *?+ in regexp at
> /usr/local/etc/httpd/cgi-bin/pointedit.pl line 122.
> [Fri Aug 13 17:28:35 1999] access to
> /usr/local/etc/httpd/cgi-bin/pointedit.pl failed for 167.206.207.234,
> reason: Premature end of script headers
>
> Does anyone know what this error means and perhaps be able to suggest a
> way of correcting it.
It means you're running a Perl5 script under Perl4. You or your ISP
should upgrade to perl5.005_03 immediately.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
perl -le 'print "Just another \u$^X hacker"'
------------------------------
Date: Sat, 14 Aug 1999 17:06:04 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: code references to builtin functions
Message-Id: <1dwj47o.4vetl81t4rq9oN@p162.tc2.state.ma.tiac.com>
Abigail <abigail@delanet.com> wrote:
> What's the purpose of the hash? You get an extra level of indirection,
> more characters to type, and you lose many of the features 'use strict;'
> gives you.
>
>
> my %trigtab = (
> sin => sub { sin shift},
> cos => sub { cos shift},
> );
>
> # Oops, didn't create.
> $trigtab {tan} -> ($some_angle);
>
> That gives a runtime error, while the following gives a compile time error:
>
> $sin = sub {sin shift};
> $cos = sub {cos shift};
>
> # Oops, didn't create.
> $tan -> ($some_angle);
Err, but how do you call the function, given that the name was passed in
as a string from the command line?
With your way, you have to use symbolic refs, which means turning strict
'refs' off for that part of the code.
{
no strict 'refs';
${$func}->($some_angle);
}
And, once again, you have a runtime error, not a compile time error.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 14 Aug 1999 17:06:05 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <1dwj6sd.jv4cud11u1tezN@p162.tc2.state.ma.tiac.com>
Uriel Wittenberg <urielw@tiac.net> wrote:
> This comp.infosystems.www.authoring.html participant appears to have
> opted to openly harass me -- by a monthly autoemail of his message --
> in order to make me conform to his idea of correct style in posting.
>
> Regardless of anyone's position on posting style, I would hope just
> about everyone understands the vindictive and antisocial nature of
> such behavior.
>
I am very disappointed in everyone who is defending TomC in this thread.
Yes, posting without trimming the quoted text and interspersing
responses as appropriate is very annoying. However, violating such a
trivial USENET convention hardly grants another user the right to harass
you repeatedly with an auto-generated message via email.
One response in this thread compared such misformated postings to
driving on the wrong side of the road, and Tom's private, monthly
auto-email to honking. A more accurate analogy would be driving with
the brights on, with the result that someone follows you home and shouts
at you in your living room.
Road rage is less dangerous on the Internet, but it's still an immature
and completely inappropriate response. Tom needs to grow up.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 14 Aug 1999 21:34:09 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: HTTP redirect..not working
Message-Id: <Pine.HPP.3.95a.990814212303.5800F-100000@hpplus03.cern.ch>
On Sat, 14 Aug 1999, Arthur Cinader wrote:
> When a form succeeds, I wan to redirect to another url.
Your approach is essentially correct.
> Here is what I am putting now:
>
> print "HTTP/1.0 302 Found\n";
> print "Location: http://www.foo.com/index.html\n\n";
But you are putting out NPH-style headers when you evidently do
not have an NPH-style script.
Please review a CGI tutorial, even the classic one at
http:hoohoo.ncsa.uiuc.edu/cgi/ for details. See also the CGI FAQ
at e.g http://www.htmlhelp.org/faq/cgifaq.2.html#4 et seq.
Your immediate recourse is to remove your first line entirely,
since a Location: header already implies a status 302 response.
If and when you need to control the HTTP status code (nnn) returned from
a non-NPH style script, you should write this CGI header:
Status: nnn some text string
N.B this is a CGI response header (i.e something which your script
sends back to the server), _not_ an HTTP protocol header (something sent
over the 'net as part of an HTTP transaction response).
The server will process this and create the correct HTTP response for
you. This is one important difference between NPH and non-NPH scripts.
With respect, your query was off-topic for both of the groups that you
posted to: it properly belongs on comp.infosystems.www.authoring.cgi
Due to the behaviour of that group's automoderation bot, I do not
believe I can crosspost this article there, but I have prophylactically
set followups there anyway. Good luck.
------------------------------
Date: Sat, 14 Aug 1999 21:54:14 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: HTTP redirect..not working
Message-Id: <Pine.HPP.3.95a.990814214601.5800H-100000@hpplus03.cern.ch>
On Sat, 14 Aug 1999, brian d foy wrote:
> > print "HTTP/1.0 302 Found\n";
> > print "Location: http://www.foo.com/index.html\n\n";
>
> you need a no-parsed header script to do that.
With respect, your answer is ambiguous.
You don't "need a no-parsed header script" to perform a redirection
using a Location: response header. I stand by my recommendation to use
a non-NPH script, and take the extraneous HTTP line out. This will work
with Apache, and with any other server that properly supports the CGI
spec. (Some servers don't, but we aren't dealing with them here).
You do, it's true, "need a no-parsed header script" in order to
successfully write an HTTP response header like that. But there is no
need to write such a header, and if you _do_ insist on using an NPH
script, then it's your responsibility to see that you cut a complete and
accurate set of HTTP protocol response headers.
Sorry to seem cantankerous, but this seems to me an important point
of principle (albeit off topic in this group).
------------------------------
Date: Sat, 14 Aug 1999 20:33:10 GMT
From: armatage_shanks@my-deja.com
Subject: mv UNIX shell command doesn't work?
Message-Id: <7p4jq7$5lo$1@nnrp1.deja.com>
Hello, I am having a little problem with the mv command in the snippet
of code below:
foreach $file (@Filename) {
@newName = split("_", $file);
foreach $list (@List) {
if ($newName[0] =~ /$list/) {
$rightFile = join("_", @newName);
print "Great! $rightFile\n";
`mv $rightFile .$rightFile`;
last;
}else{
print "Ugggg!\n";
print "$newName[0]\n";
}
}
}
When I run my prog. I get this shell error:
mv: missing file argument
Try `mv --help' for more information.
sh: .falcon.txt: command not found
All I am doing is putting the contents of an "ls" command into an array,
splitting the filenames that have an underscore, and matching the first
part of the filename against another list I genarated.
I can use the move command if I specify the names of the file e.g.,
`mv armatage_shanks.txt .armatage_shanks.txt`;
It just won't take when the filenames are variable from the prog. Why
is that? Is it a quirk about Perl I didn't know, or do I have my code
wrong? Please help ASAP! Thanks A Lot!
-armatage shanks
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Sat, 14 Aug 1999 20:57:11 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: mv UNIX shell command doesn't work?
Message-Id: <37B5D810.31588054@home.com>
[posted & mailed]
armatage_shanks@my-deja.com wrote:
>
> `mv $rightFile .$rightFile`;
[snip]
> mv: missing file argument
> Try `mv --help' for more information.
> sh: .falcon.txt: command not found
$rightFile must have a newline at the end. When your shell commands
aren't working, it's usually a good idea to print them and see that
you're running what you think you are.
print qq(`mv $rightFile .$rightFile`);
You might get some use from the builtin rename function.
perldoc -f rename
And check out perlfaq8:
What's wrong with using backticks in a void context?
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Sat, 14 Aug 1999 17:10:14 -0400
From: brian@pm.org (brian d foy)
Subject: Re: mv UNIX shell command doesn't work?
Message-Id: <brian-ya02408000R1408991710140001@news.panix.com>
In article <7p4jq7$5lo$1@nnrp1.deja.com>, armatage_shanks@my-deja.com posted:
> Hello, I am having a little problem with the mv command in the snippet
> of code below:
why not use rename() ?
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 14 Aug 1999 21:00:58 GMT
From: M.Ray@ulcc.ac.uk (Malcolm Ray)
Subject: Re: mv UNIX shell command doesn't work?
Message-Id: <slrn7rbm8a.f53.M.Ray@carlova.ulcc.ac.uk>
On Sat, 14 Aug 1999 20:33:10 GMT, armatage_shanks@my-deja.com
<armatage_shanks@my-deja.com> wrote:
>Hello, I am having a little problem with the mv command in the snippet
>of code below:
>
>
>foreach $file (@Filename) {
> @newName = split("_", $file);
> foreach $list (@List) {
> if ($newName[0] =~ /$list/) {
> $rightFile = join("_", @newName);
> print "Great! $rightFile\n";
> `mv $rightFile .$rightFile`;
> last;
> }else{
> print "Ugggg!\n";
> print "$newName[0]\n";
>
> }
> }
> }
>
>
>When I run my prog. I get this shell error:
>
>mv: missing file argument
>Try `mv --help' for more information.
>sh: .falcon.txt: command not found
>
>
>All I am doing is putting the contents of an "ls" command into an array,
>splitting the filenames that have an underscore, and matching the first
>part of the filename against another list I genarated.
You have forgotten to get rid of the newlines. Before the first line
of the code shown above, add this:
chomp @Filename;
BTW, you ought to read up on the significance of backticks in perlop,
since the line above renaming the file is pretty bogus. In any case,
it would be better to do:
rename($rightFile, ".$rightFile") or die "Error renaming $rightFile: $!";
You might also like to check out the opendir and readdir functions.
Oh, and you've misspelled 'Armitage'!
--
Malcolm Ray University of London Computer Centre
------------------------------
Date: Sat, 14 Aug 1999 20:21:22 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: mylib.pl now MyLib.pm
Message-Id: <37B5CFAB.6E7FBEA3@home.com>
[posted & mailed]
Nick Downey wrote:
>
> use constant CONST_STR1 = "nick";
> use constant CONST_STR2 = " e ";
> use constant CONST_STR3 = "downey";
^^^
=>
> and rather than doing
>
> @EXPORT = qw( &sub1 &sub2 CONST_STR1 CONST_STR2 CONST_STR3 )
>
> I would like to do
>
> @EXPORT = qw( &sub1 &sub2 @list )
This doesn't do what you want because qw is returning the list
'&sub1', '&sub2', '@list'
perldoc perlop
> I have tried
>
> @list = ( CONST_STR1, CONST_STR2, CONST_STR3 ),
I'm not sure what this gains you, since you still have to type them.
Anyway, the goal is to get the symbol names into @EXPORT (though you
really should read what the docs on Exporter have to say about this).
You do this in any way that you get elements in an array.
perldoc perldata
OW:
@list = qw( CONST_STR1 CONST_STR2 CONST_STR3 );
@EXPORT = ( qw( &sub1 &sub2 ), @list );
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 14 Aug 1999 20:34:47 GMT
From: "Nick Downey" <nead@neadwerx.com>
Subject: Re: mylib.pl now MyLib.pm
Message-Id: <01bee694$8efaec30$73463d80@r52h83>
> I'm not sure what this gains you, since you still have to type them.
> Anyway, the goal is to get the symbol names into @EXPORT (though you
> really should read what the docs on Exporter have to say about this).
>
> You do this in any way that you get elements in an array.
Thanks Rick,
Why do I want to do it that way, well style I guess. I want the finished
result to be clean and aesthetically pleasing to people who are going to
use the module down the road.
I have over 50 constant strings and I will gladly take suggestions on how
to format the text of the export statement to accommodate those constants
in a readable fashion.
I appreciate your pointing out my obvious error all the same.
What is "OW", Oh Well?
------------------------------
Date: Sat, 14 Aug 1999 20:48:02 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: mylib.pl now MyLib.pm
Message-Id: <37B5D5EB.29B4CF6E@home.com>
[posted & mailed]
Nick Downey wrote:
>
> What is "OW", Oh Well?
No, I guess I reduced that too far. It's part of
OWTDI
which is part of
TMTOWTDI
which is the Perl motto, as documented at the end of the perl manpage.
perldoc perl
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Sat, 14 Aug 1999 15:23:29 -0500
From: Kevin Newman <knewman@mcs.com>
Subject: New User Q: MultiLine Match
Message-Id: <37B5D041.99668E16@mcs.com>
Hi All,
How can I match the following string:
1
---string---
I've read the Perl FAQ on multiline matching and am still not sure how
to do it.
Here is an attempt
$/ = '';
while ( <> ) {
while ( /^1 /gm )
print "Found a match $.\n";
}
}
Also, since this pattern that I want to match exist withing a file that
I am manipulating, do I have to reset the [INPUT_RECORD_SEPARATOR] $/
back to $/ = \n ?
thanks
kevin newman
------------------------------
Date: Sat, 14 Aug 1999 17:06:07 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Newbie question about $_
Message-Id: <1dwjbvs.14kox9d1c6iqijN@p162.tc2.state.ma.tiac.com>
Uri Guttman <uri@sysarch.com> wrote:
> >>>>> "A" == Abigail <abigail@delanet.com> writes:
>
> ok, the challenge now is to add all the attributions to this lovely
> missive. some are very obvious and other are totally out of mind (and
> english). i will start with the ones i can do with no work.
>
> A> Danger, Will Robinson, danger! Exterminate! Exterminate! Exterminate!
>
> lost in space; nomad the son of kirk space probe;
No, the Daleks in Dr. Who.
> A> May I have ten thousand marbles, please?
Animal House.
> A> I'm afraid I have no choice but to sell you all for medical experients.
Monty Python, Meaning of Life.
> A> Fear is the path
> A> to the dark side. Fear leads to anger. Anger leads to hate. Hate leads
> A> to suffering. I sense much fear in you.
SW: The Phantom Menace.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 14 Aug 1999 16:32:36 -0400
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Perl penetration into Fortune 500?
Message-Id: <37B5D264.9F9B2C3@rochester.rr.com>
> please send
> responses to fortune500@perlmongers.org.
>
> thanks :)
Brian, mail to the above address bounces. Maybe you mean
fortune500@pm.org?
------------------------------
Date: 14 Aug 1999 20:22:49 GMT
From: lt lindley <ltl@rgsun5.viasystems.com>
Subject: Re: Perl/TK issues
Message-Id: <7p4j6p$6q4$1@rguxd.viasystems.com>
In comp.lang.perl.misc Donovan Rebbechi <elflord@news.newsguy.com> wrote:
[snip]
:>>Perhaps you can read more about closures and lexical scoping.
:>OK, I am familiar with scoping. How do closures help ? I know what
:>closures are, but don't really understand how to use them or why
:>they're important.
If you create a widget and you create an anoymous subroutine to give
it as a callback and that anonymous subroutine refers to lexically
scoped variables, then the subroutine is accessing the value of those
variables *at the time the subroutine was created*.
This comes straight out of "perldoc Tk::UserGuide"
use Tk;
my $main = MainWindow->new;
$main->Label(-text => 'Print file')->pack;
my $font = $main->Entry(-width => 10);
$font->pack;
my $filename = $main->Entry(-width => 10);
$filename->pack;
$main->Button(-text => 'Fax',
-command => sub{do_fax($filename, $font)}
)->pack;
$main->Button(-text => 'Print',
-command => sub{do_print($filename, $font)}
)->pack;
MainLoop;
sub do_fax {
my ($file, $font) = @_;
my $file_val = $file->get;
my $font_val = $font->get;
print "Now faxing $file_val in $font_val\n";
}
When the 'Fax' button is created, an anonymous subroutine is also
created.
-command => sub{do_fax($filename, $font)}
That anonymous sub uses 2 lexical variables that are in scope at
the time the anonymous subroutine is created, but not when it is
executed. When the subroutine is executed, it passes to do_fax()
the values that $filename and $font contained at the time the
anonymous subroutine was created. Closures.
:>>You may not need to keep track of your widgets the way you
:>>think you do.
:>Good point. Childless widgets don't need to be kept track of.
I haven't used the methods, but the Tk::Widget documetation
says that all widgets inherit methods that allow finding the
parent widget and all childen. I haven't needed to do so.
I more often use the feature where you can pass an anonymous
array into a "-command" callback. The value of variables
are interpolated into their slots in the array. It seems
less magical than closures when you are still trying to "grok"
closures. The fact that the values happen to be blessed
objects can be considered or ignored as you wish.
sub i_do_something {
my ($w, @parents) = @_;
# whatever
}
while (some condition) {
my $firstlevel = $main->Frame(...)
my $secondlevel = $firstlevel->Frame(...)
my $thirdlevel = $secondlevel->SomeWidget(...)
# For some reason I really want to know the hierarchy of
# this widget when the callback is invoked...
$thirdlevel->configure(-command =>
[\&i_do_something, $thirdlevel, $secondlevel, $firstlevel]);
}
--
// Lee.Lindley /// Programmer shortage? What programmer shortage?
// @bigfoot.com /// Only *cheap* programmers are in short supply.
//////////////////// 50 cent beers are in short supply too.
------------------------------
Date: Sat, 14 Aug 1999 20:39:25 GMT
From: maclell@col.ca (Steve MacLellan)
Subject: Please repost URL encoded directions for protected directories
Message-Id: <37b5b7ea.23722372@news.tor.metronet.ca>
Some one posted here a little while ago how to allow people access to
your protected directories without requiring the user to use the
htaccess login
something like
http://userid:@pasword:www.yourdomain.com/protected_directory/
I spent three hours searching for the answer at Deja.com, but it has
become useless since they have redone everything.
Regards,
Steve MacLellan
_______________________________________
Dog Byte Enterprises
Marketing Solutions and Web
Development for Small Business
http://welcome.to/dogbyte
_______________________________________
------------------------------
Date: Sat, 14 Aug 1999 17:09:31 -0400
From: brian@pm.org (brian d foy)
Subject: Re: Please repost URL encoded directions for protected directories
Message-Id: <brian-ya02408000R1408991709310001@news.panix.com>
In article <37b5b7ea.23722372@news.tor.metronet.ca>, maclell@col.ca posted:
> Some one posted here a little while ago how to allow people access to
> I spent three hours searching for the answer at Deja.com, but it has
> become useless since they have redone everything.
you can get it to act like it did before by making your own search
form and making sure that you select the Deja Classic search
results:
http://www.smithrenaud.com/public/dejanews.html
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Sat, 14 Aug 1999 17:06:09 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Problem with standard IO::Socket::INET module
Message-Id: <1dwjd5y.6a2xe01d2mkytN@p162.tc2.state.ma.tiac.com>
He whom the perl gods have cursed <hughd@screwspam.com> wrote:
> The following mind-numbingly simple script fails to compile:
>
> #!c:\perl\bin\perl.exe
> use strict;
> use IO::Socket::INET;
>
> my $sock = IO::Socket::INET->new(PeerAddr => 'some.nntp.server',
> PeerPort => 'nntp(119)',
> Proto => 'tcp');
>
> Can't locate IO/Socket/INET.pm in @INC
> (@INC contains: C:\PERL\lib C:\PERL\site\lib .) at dummy.pl line 3.
> BEGIN failed--compilation aborted at dummy.pl line 3.
>
> The problem is that C:\Perl\lib\IO\Socket.pm defines IO::Socket::INET as
> well as IO::Socket. I tried creating a subdirectory called Socket and
> putting the code for IO::Socket::INET in it in a filed called INET.pm, but
> then perl complains that it can't find the method register_domain (which
> should be inherited from IO::Socket.)
As you say, IO::Socket::INET is defined in IO/Socket.pm. There is no
IO/Socket/INET.pm. Attempting to 'use' non-existent modules is a sure
path to compilation problems.
Solution:
use IO::Socket;
HTH!
Ronald
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 529
*************************************
