[9133] in Perl-Users-Digest
Perl-Users Digest, Issue: 2751 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 28 16:07:24 1998
Date: Thu, 28 May 98 13:00:35 -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, 28 May 1998 Volume: 8 Number: 2751
Today's topics:
Re: 500 Internal Server Error (newbie) <rootbeer@teleport.com>
Adduser script fails in Solaris2.5.1 <t_asondh@qualcomm.com>
ARGV? <alcazar@netcomp.net>
ASP+Perl and PerlCon2 submissions - was ASPvsCGI mike808@my-dejanews.com
Re: backgrounding a daemon program <rootbeer@teleport.com>
Bad file # when trying to create a socket. ("Rick Bauman")
Re: Clearly define "free software" (Thomas Bushnell, n/BSG)
Re: cron job via perl ?? <rootbeer@teleport.com>
Re: Don't Know how to decrypt using PERL <lr@hpl.hp.com>
Re: Don't Know how to decrypt using PERL (Nathan V. Patwardhan)
Re: Email address checker - comments welcome (Michael J Gebis)
Free Documentation (was: Re: GNU attacks on the open so <celtschk@physik.tu-muenchen.de>
Re: Getting rid of carriage returns (Chris Nandor)
Re: GNU attacks on the open software community <celtschk@physik.tu-muenchen.de>
Re: Have we got a good free Perl manual? (Greg Lindahl)
Re: Have we got a good free Perl manual? (Tina Marie Holmboe)
Re: Have we got a good free Perl manual? (Tina Marie Holmboe)
Re: Have we got a good free Perl manual? (Chris Nandor)
Re: help on stat <rootbeer@teleport.com>
Re: help on stat (Mark-Jason Dominus)
Re: How to create nonblocking socket in Perl ? <jay@rgrs.com>
Larry Wall to Speak at Silicon Valley Linux User's Grou <bwoodard@cisco.com>
LWP::UserAgent timeout jk@y4.com
Re: More double standards out of the FSF (Jonathan Ellis)
Re: Net::FTP and passwords <dk@parka.winternet.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 28 May 1998 18:00:22 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: 500 Internal Server Error (newbie)
Message-Id: <Pine.GSO.3.96.980528105945.29051P-100000@user2.teleport.com>
On 27 May 1998 dirt@xworld.com wrote:
> Subject: 500 Internal Server Error (newbie)
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN.
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 28 May 1998 11:55:56 -0700
From: Arun Sondhi <t_asondh@qualcomm.com>
Subject: Adduser script fails in Solaris2.5.1
Message-Id: <356DB338.CBBD5D43@qualcomm.com>
Hi,
I am a new user of perl and I found a script called adduser
to add users in CPAN sysadmin scripts. This script is supposed to set quotas
for the newly added users.
I am successful in adding users but the quota can not be set. The SYS_quota
syscall is not working. Is the system call SYS_quota not supported on Solaris2.5.1
How can I find out, if it is supported? Where to look for is it going to be
in /usr/include/sys/syscall.h or somewherelse?
------------------------------
Date: Thu, 28 May 1998 14:48:50 -0500
From: "Ric Alcazar" <alcazar@netcomp.net>
Subject: ARGV?
Message-Id: <eM5HbGni9GA.180@upnetnews02.moswest.msn.net>
Hello all,
I'm relatively new to perl and have a few questions maybe you could help
me with. <ARGV>? What it is and how is it used? What is a minimalist
script? I'm seem to be extremely confused with these terms.
Ric.
------------------------------
Date: Thu, 28 May 1998 18:53:34 GMT
From: mike808@my-dejanews.com
Subject: ASP+Perl and PerlCon2 submissions - was ASPvsCGI
Message-Id: <6kkbre$udt$1@nnrp1.dejanews.com>
Jaime Metcher wrote:
> Neil Marshall wrote:
>>It would refect a decision making to choose the right
> > programming language to suit with user and system requirements.
See the code below and you decide. I have a more polished production version
and combined with DBI, CGI, and LWP, there's not much that can't be done
easily, quickly, and under budget vs. any other environment I've run across.
I built a functional community system / ActiveUser / personalization system /
my.whatever-domain.com system from scratch over the weekend. Plus, you can
tell your HTML editor that you are playing with ".ASP" files, but write the
code part with perl instead of VB. The HTML editors don't do script language
syntax checking anyway.
Short message: my PerlASP routine + HomeSite + Samba makes constructing, and
maintaining complex apps in a heterogenous environement (e.g. Unix and NT) a
breeze. You get the best of both worlds. The popular ease-of-use tools on NT
and the get-things-done RealWork(tm) on Unix. [ This is NOT an endorsement of
the mentioned products, just a personal observation that a few well chosen
tools (Perl among them, and not necessarily the ones I've chosen) can be more
powerful than a raft of ActiveX components and a bookshelf of
Learn-the-widget-API-v8.3-in-21-days books locking you into a proprietary
platform. ]
[ diatribe mode: on ] I submitted this idea of "Constructing Web
Applications with ASP for Perl" as a paper to the PerlCon people, but never
heard back from them - not even a "thank you very much, but you were not
chosen" - Are you listening Chip?
Shouldn't the "Best Module" award be renamed "Best Paper _about_ a Module"?
The submission requirements were heavily slanted to academia despite a weak
statement to the contrary in the RFP, and did not seem to promote
presentations of areas where Perl has excelled over other development efforts
in other competing languages. I'd hate to see Perl drift into the arena of
"niche" languages when practically the entire WWW runs on it. [ diatribe
mode: off ]
# (C) Copyright 1998, Michael King
# Bang Plus One Software, St. Louis, MO, USA
# The following code can be used under the same terms as perl itself.
sub ASP_exec
{
# Perform ASP-like fixups in the target document
my $html = shift;
# Replace <%= perl code %> in tags
my $asp1 = '[ \t]*<%=\s*.*?%>[ \t]*';
my $asp2 = '`[^`]*?`';
# Build the list of matches once
my @matches = $html =~ m/$asp1/sgo;
foreach my $match (@matches) {
# Grab the perl code
my ($expr) = $match =~ m/<%=\s*(.*?)%>/s;
next unless $expr;
# Setup our package to run in
my $expression = "package " . (caller)[0] . ";\n" . $expr;
# Make sure we have a complete statement
$expression =~ s/[^;]\s*$/$&;/s;
my $value = eval $expression;
die "CGI/ASP:\r\n{\r\n$expression\n}\n\ndied: $@" if $@; # Punt
# Translate undef to the empty string
$value = "" unless defined $value;
$html =~ s/\Q$match\E/$value/m; # Make the switch
}
$html;
}
--- end of code ---
I plan on presenting this (obviously in more polished and presentable form)
to the inaugural meeting of the local PerlMongers group here in St. Louis or
at the SLUUG LinuxSIG in the next month or two.
Apologies and acknowledgement if Micro$oft has trademarked the three letter
combination A followed by S followed by P.
If you use this code, I'd like to hear how it goes. I'm thinking about
writing this as a drop-in ASP environment for WWW apps made for perl, and it
will probably make its way to CPAN as a module one day.
Or if you just want me to explain how this one function can revolutionize
your web app development, send me an email.
Michael.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Thu, 28 May 1998 17:57:27 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: backgrounding a daemon program
Message-Id: <Pine.GSO.3.96.980528105704.29051O-100000@user2.teleport.com>
On Wed, 27 May 1998, Tom Wells wrote:
> Subject: backgrounding a daemon program
Is this what you need? Good luck!
perlfaq8.pod:=head2 How do I fork a daemon process?
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 28 May 1998 14:39:49 +0000
From: rick@internetx.net ("Rick Bauman")
Subject: Bad file # when trying to create a socket.
Message-Id: <19980528183104.AAA18269@rick.internetx.net>
When I run the following code I get the error:
You couldn't create a socket, because Bad file number at ./serverscript.pl line 8.
where does the file Number come in?
thanks
rick
use IO::Socket;
$sock = new IO::Socket::INET (LocalHost => 'dns1',
LocalPort => 5465,
Proto => 'tcp',
listen => 1,
Reuse => 1
);
die "You couldn't create a socket, because $!" unless $sock;
while ($new_sock = $sock->accept()) {
while (defined ($buf = <$new_sock>)) {
print $buf;
}
}
close ($sock);
Rick Bauman
System Administrator/Internet Express
rick@internetx.net www.internetx.net
finger rick@internetx.net for pgp public key
http://www.lowcountry.net/
Lowcountry Free Software Archives
------------------------------
Date: 28 May 1998 14:05:24 -0400
From: tb@mit.edu (Thomas Bushnell, n/BSG)
Subject: Re: Clearly define "free software"
Message-Id: <u1hlnrm6zkr.fsf@opus.MIT.EDU>
pudge@pobox.com (Chris Nandor) writes:
> I would contend that a program is more than ideas, and mathematical
> constructs are ideas. Take this program:
>
> #!perl
> print 2+2;
>
> This program has lots of components by the time it is executed, but we can
> break it down to at least two:
>
> 1. Mathematical construct
> 2. Directive to do something with data (e.g., output result)
>
> Even if it simply calculated and did nothing else, you would still have
> lots in the guts of the program that are not strictly mathematical
> constructs (by the time it is compiled and executed), unless you want to
> define "mathematical constructs" loosely enough to include every string of
> 0s and 1s on a computer, no matter what its purpose.
What nonsense!
On the one hand, not every programming language is imperative.
Consider, for example, declarative languages like the one you write
Makefile's in. (It's possible to eliminate the imperative content of
the "rules" part of Makefiles and obtain a purely declarative
language.)
On the other hand, mathematics is more than capable of representing
directives as mathematical constructs; consider for example the
following definition of a Turing machine:
A Turing Machine is a structure <Syms,States,Stop,F> where
Syms is a finite set
States is a finite set
Stop is an element of States
F is a function mapping Syms x States -> Syms x States x {-1,0,1}
An instantiation of a Turing Machine is a structure <T,Tape,P>
where T is a Turing Machine
Tape is a mapping Z -> T.Syms
P is in Z
State is in T.States
Define Cycle as a function from the set of instantiations of Turing
Machines into itself, such that
Cycle(foo).T == foo.T
Cycle(foo).Tape(foo.P) == first of foo.T.F(foo.Tape(p),foo.State)
for all other values n != foo.P, Cycle(foo).Tape(n) == foo.Tape(n)
Cycle(foo).State == second of foo.T.F(foo.Tape(p),foo.State)
Cycle(foo).P == foo.P + third of foo.T.F(foo.Tape(p),foo.State)
Now we can define, for example, that an instatiation I terminates if
there exists an n in Z such that Cycle^n(I).State == I.T.Stop.
Thomas
------------------------------
Date: Thu, 28 May 1998 18:08:10 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: cron job via perl ??
Message-Id: <Pine.GSO.3.96.980528110619.29051R-100000@user2.teleport.com>
On Wed, 27 May 1998, Kerem Yaman wrote:
> I want to run a cron job on my Linux box to connect to the web at a
> certain time every morning go to my favorite web journals and print out
> some pages off these.
> Shall I try to write a script that starts Netscape and tries to
> replicate Netscape's print instructions after searching for the text I
> need, or a script that directly accesses the net?
Either one (or both) might be what you want. The LWP module can fetch
remote web pages, but maybe you want them rendered by Netscape for
printing. Start with LWP and see what it does for you. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 28 May 1998 12:10:04 -0700
From: "Larry Rosler" <lr@hpl.hp.com>
Subject: Re: Don't Know how to decrypt using PERL
Message-Id: <6kkcqs$8mh@hplntx.hpl.hp.com>
brian d foy wrote in message ...
>In article <1d9plpi.cto6hok4lup8N@slip166-72-108-10.ny.us.ibm.net>,
kpreid@ibm.net (Kevin Reid) posted:
>
>>Kevin Buhr <buhr@stat.wisc.edu> wrote:
>>
>>> > result = crypt(plaintext , salt) ;
>
>>What is the purpose of the salt?
>
>see the man page for crypt(3) which (definatively) explains all of
this.
>
>good luck :)
>
>--
>brian d foy <comdog@computerdog.com>
>CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
>Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
>Perl Mongers T-shirts! <URL:http://www.pm.org/tshirts.html>
I was about to do the Kevins the courtesy of cutting and pasting the
relevant paragraph out of `man 3 crypt` when Mark-Jason Dominus posted
his far more complete and persuasive (and definitive) response.
<RANT ON>
I sympathise with those who answer questions here by RTFM or RTFFAQ or
even point to DejaNews (provided they provide suitable pointers for how
to do so). But I am astounded by an answer that says RTF Unix manual!
As far as I know, that is neither part of any Perl distribution nor
available on line (if so, where is the suitable pointer in your
response?).
In addition to the Windows 95 notebooks and desktops at home, I have a
Windows NT system next to the Unix workstation in my office. I can
telnet from any of the Windows systems to the Unix system if I need to
RTF Unix manual, and at work I can take the manual down from where it is
gathering dust on my bookshelf. But I am the exception, I'm quite sure.
Unix is OK; Windows XX sucks; I don't know much about Apple Mac. But
Perl is greater than any of them. If wider use will make it greater
yet, contributors to newsgroups such as this must get their noses out of
the Unix manual and sniff the real world. (Or do you really want to
keep others out of the Perl priesthood^H^H^H^H^H^H^H^H^H^Hclub? Let
them stick to Visual Basic...)
<RANT OFF>
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: 28 May 1998 19:24:18 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Don't Know how to decrypt using PERL
Message-Id: <6kkdl2$ek3@fridge.shore.net>
Kevin Reid (kpreid@ibm.net) wrote:
: What is the purpose of the salt?
It attracts deer. :-)
--
Nate Patwardhan|root@localhost
"Fortunately, I prefer to believe that we're all really just trapped in a
P.K. Dick book laced with Lovecraft, and this awful Terror Out of Cambridge
shall by the light of day evaporate, leaving nothing but good intentions in
its stead." Tom Christiansen in <6k02ha$hq6$3@csnews.cs.colorado.edu>
------------------------------
Date: 28 May 1998 17:59:03 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Email address checker - comments welcome
Message-Id: <6kk8l7$g2j@mozo.cc.purdue.edu>
"Larry Rosler" <lr@hpl.hp.com> writes:
}Michael J Gebis wrote in message <6ki3ou$rhv@mozo.cc.purdue.edu>...
}...
}>It is, of course, possible to reject things that can't possibly work.
}...
}The following simple regex falls in that category. It makes very few
}assumptions about what precedes the '@' and requires a Fully Qualified
}Domain Name (liberally defined) after the '@'. The shortest string that
}matches it is 'w@x.yz'. Comments welcome.
}/^ [^\s@?]+ @ (?: \w[^\s.]* \. )+ \w\w+ $/x
Ian Goldberg (n@ai) has a problem with your solution.
http://ai./
(I need the dot, you might not)
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Thu, 28 May 1998 21:03:09 +0200
From: Christopher Eltschka <celtschk@physik.tu-muenchen.de>
Subject: Free Documentation (was: Re: GNU attacks on the open software community)
Message-Id: <356DB4ED.411DA01E@physik.tu-muenchen.de>
Tom Christiansen wrote:
>
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc, trd@cs.mu.oz.au (Tyson Richard DOWD) writes:
> :No, they are worried that a very popular tool is documented in a
> :proprietry fashion, and that it makes the tool itself somewhat
> :proprietry.
>
> They are wrong. Perl's documentation is free. They're making this
> whole thing up.
>
After having read the thread a while, and having read this statement
again and again, with repeated explanations by others following about
the usage of the word "free", I'll try to put the whole case in words
avoiding this term (and others which can have overloaded meaning).
The Perl documentation has the following features:
- has no cost
- may be distributed electronically by everyone
- may not be modified without explicit permission
- nobody may make profit from it without explicit permission
The FSF wants documentation that
- may be distributed in any way by abyone
- may be modified by anyone
- may be used for profit by anyone
- if you get it for no cost is irrelevant for them (but the
first three points assure that you will be able to get it
at least very cheap by normal market forces)
Now, your documentation doesn't meet their goals. Therefore they
want to write their own (independent) documentation which meets
their goals.
Now, they are certainly allow to write anything about Perl they want
(the same as anyone may write a book about Windows programming
without having to ask Microsoft if they may do so). Including their
own manual. Equally certain is that they may not use anything
from your documentation for this, since you explicitly forbid
what they want to achieve.
> :Have you read your own license recently? It is not legal to copy code
> :examples from the perlfaq to use in commercial code without prior
> :written authorization. Nowhere do you allow people to use the coding
> :examples -- except that you can distribute the document in part for
> :non-commercial use. Starting with a coding example and modifying it
> :is of course illegal, as modification is not allowed.
>
> I am talking about the prose, not the code. It was addressing the prose
> thieves who've been robbing me. If you look at my other licence, the
> one in perltoot, this spells things out clearly. I'll have to merge them.
>
> While it is copyright by me with all rights reserved, permission
> is granted to freely distribute verbatim copies of this document
> provided that no modifications outside of formatting be made, and
> that this notice remain intact. You are permitted and encouraged
> to use its code and derivatives thereof in your own source code for
> fun or for profit as you see fit.
>
> See that? "For fun or for profit as you see fit". That, sir, is true
> freedom -- freedom to let the user make their own choice. I want them
> to be able to use that code WITHOUT HINDRANCE. No strings attached.
But you don't allow the same with the text around the code.
> I know that's very anti-FSF of me to give something away so freely without
> strings, but it's what I want to do. I think that's what Perl wants to do.
No, it's very anti-FSF that you attach certain strings to the
rest of the document, namely denying the right to change it, and
denying the right to make profit from it. (Note that they don't
have any problem with your right to be identified as author of it).
> I really hate to see folks making others' decisions for them. It's morally
> repugnant. I also don't want them violating my own artistic rights. This
> too is a moral concern.
Well, nobody does make a decision for your docs but yourself
(others can tell you which desicion they would *like* you to
make, but it's just your decision to make). However, if the FSF
wants an *alternate*, *independent* doc *of* *their* *own*,
it is solely their desicion, and doesn't violate your artistic
rights any more than, say, a book about C++ violates
Bjarne Stroustrup's artistic rights.
------------------------------
Date: Thu, 28 May 1998 19:47:47 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Getting rid of carriage returns
Message-Id: <pudge-2805981542120001@dynamic265.ply.adelphia.net>
In article <6kk50j$jbc$1@nnrp1.dejanews.com>, pinetree@my-dejanews.com wrote:
# Try $submittedText =~ s/\r\n/\<br\>/g; instead. (UNIX, Mac, and Win all define
# line breaks differently).
... which is exactly why your code is wrong. Better:
/\015?\012/
\n is not always \012, and \r is not always \015. Never, ever, ever use
\n to mean newline in network code. Unless you can guarantee its value
will not change (and it does on different machines), you are going to get
bit.
Anyway, sometimes \015\012 is sent, sometimes it is just \012. So
/\015?\012/ is usually a safe bet. On the off chance you might be using a
non-ASCII machine, all bets are off; see CGI.pm 2.37 or later for some
tips on handling EBCDIC newlines.
Your code above will match \015\012 on Unix, \012\015 on a Mac, and will
fail if only \012 makes is used, as is often the case.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Thu, 28 May 1998 21:15:17 +0200
From: Christopher Eltschka <celtschk@physik.tu-muenchen.de>
Subject: Re: GNU attacks on the open software community
Message-Id: <356DB7C5.331F40E3@physik.tu-muenchen.de>
Christopher Seawood wrote:
[...]
> Each of the documents you posted refer to software which perl documents,
> although in electronic format, are not. Even the GPL has a similar
> no-modify copyright, so how can anyone behind the GNU project say that
> the no-modify copyright is ok for the GPL but not for perl documentation?
> Sounds a bit hypocritical, IMO.
The GPL is not mere documentation, it is a legal document. And for
legal documents it is IMHO essential that they may *not* be altered
by everyone.
[...]
------------------------------
Date: 28 May 1998 17:17:26 GMT
From: lindahl@pbm.com (Greg Lindahl)
Subject: Re: Have we got a good free Perl manual?
Message-Id: <6kk676$jn9@news3.newsguy.com>
tina@scandinaviaonline.se (Tina Marie Holmboe) writes:
> Pardon me, Sir, for then not having the faintest clue as to what is
> being debated. Is it possible that someone actually wants to have good,
> free (no cost) and 'free' Perl documentation, where the latter means that
> anyone is able - and allowed - to fubar the same documentation ?
Hypothetically speaking, what happens if the copyright owner for this
may-not-be-modified Perl documentation is hit by a truck? I hope he
has a well-worded will, or his heirs know what perl is...
Hypothetically speaking, what happens if someone wants to heavily
modify Perl, and release modified documentation to go with this
heavily modified Perl? Perl itself is covered by the GPL or Artistic
license, so it's clear how to follow these licenses. The documentation
under the no-modify restriction... well, the copyright owner would
have to agree, or the modified-Perl authors would have to re-do a lot
of work. [ The copyright owner is welcome to use whatever license he
likes, of course, but he shouldn't be surprised that he will never
meet everyone's needs. ]
These are the usual scenarios people bring up about anything
distributed under a "may not modify" license. I'm surprised that you
aren't familiar with them.
To forstall the next set of questions, the reason people question "no
commercial distribution" licenses is because it's often not clear if
these documents/programs can be distributed on commercial CD's. You
can see a spirited discussion about this going on right now in one of
the cross-posted discussions.
Now wasn't that simple?
-- g
------------------------------
Date: 28 May 1998 18:35:13 GMT
From: tina@scandinaviaonline.se (Tina Marie Holmboe)
Subject: Re: Have we got a good free Perl manual?
Message-Id: <6kkap1$dqq$3@news1.sol.no>
In article <wsnn2c21fw1.fsf@harper.uchicago.edu>,
robert havoc pennington <hp@pobox.com> writes:
> licenses, which apparently cover most of Perl, including most of the
> docs, except for maybe perlfaq and perltoot. And yes, this implies the
> right to fubar it as well as improve it, though presumably the fubar'd
> copy would not see wide distribution since people would not be
> interested.
Exactly what I wanted to know - thankyou.
> own projects." Everyone should just get over it.
My sentiments exactly.
--
Tina Marie Holmboe
Application Developer (Geeks'R'Us) [tina@tech.scandinaviaonline.se]
Scandinavia Online AB Development Dept. (+46) 08 587 81000 (switchboard)
(+46) 08 587 81189 (direct)
------------------------------
Date: 28 May 1998 18:31:50 GMT
From: tina@scandinaviaonline.se (Tina Marie Holmboe)
Subject: Re: Have we got a good free Perl manual?
Message-Id: <6kkaim$dqq$2@news1.sol.no>
In article <6kk27v$240@news1.newsguy.com>,
lindahl@pbm.com (Greg Lindahl) writes:
> You seem to be assuming that people are only talking about money when
^^^^
Exactly. I *seem* to be doing that. I have, however, gotten the
reply I was after from a third party who did not try to secondguess me
one way or the other.
--
Tina Marie Holmboe
Application Developer (Geeks'R'Us) [tina@tech.scandinaviaonline.se]
Scandinavia Online AB Development Dept. (+46) 08 587 81000 (switchboard)
(+46) 08 587 81189 (direct)
------------------------------
Date: Thu, 28 May 1998 19:41:25 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Have we got a good free Perl manual?
Message-Id: <pudge-2805981535510001@dynamic265.ply.adelphia.net>
In article <wsnk9761ej2.fsf@harper.uchicago.edu>, robert havoc pennington
<hp@pobox.com> wrote:
# I should note that it would be a bigger deal if *all* the Perl docs
# were non-free (opensource.org sense), but since it's only two man
# pages AFAICT it's not especially important.
Technically more. perlfaq is split up into 10 documents. perltoot makes
it go to 11. That's one more, innit?
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Thu, 28 May 1998 18:26:12 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: help on stat
Message-Id: <Pine.GSO.3.96.980528112115.29051T-100000@user2.teleport.com>
On Thu, 28 May 1998, Sean Litherland wrote:
> I am running the stat command
Do you mean 'function'?
> and when I look at the file information which is suppose to have
> permissions and type of file, it gives me a large number, which I cannot
> decifer.
It's the number from stat(2), which is a bitmask. To see the "traditional"
permissions, do a bitwise and with 0777, then convert to octal, perhaps
like this.
# $perms has the value from stat
printf "The octal permission bits say %04o.\n", ($perms & 0777);
If you need to understand the other bits, check the stat(2) manpage. But,
mostly, you should simply use the filetests like -d instead of looking at
the other bits. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 28 May 1998 15:12:03 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: help on stat
Message-Id: <6kkcu3$hhs$1@monet.op.net>
Keywords: exothermic Hawkins my spiritual
In article <356D831A.C8A10138@mco.edu>,
Sean Litherland <slitherland@mco.edu> wrote:
>I am running the stat command and when I look at the file information
>which is suppose to have permissions and type of file, it gives me a
>large number, which I cannot decifer.
If you don't know how to decipher the mode, you can use the
Stat::lsMode module, available from
http://www.plover.com/~mjd/perl/lsMode/
You can ask it for the mode of a file, or you can give it the large
number that you get from `stat', and it'll give back something like
-rw-r--r--
which means that it is readable and writable by its owner, and
readable by everyone else. The format is identical to what is
generated by the `ls -l' command.
------------------------------
Date: 28 May 1998 14:49:26 -0400
From: Jay Rogers <jay@rgrs.com>
To: sunq@ERE.UMontreal.CA
Subject: Re: How to create nonblocking socket in Perl ?
Message-Id: <82u36axmbt.fsf@shell2.shore.net>
John Chambers <jc@ral1.zko.dec.com> writes:
> Sun Qinghe wrote:
> > I want to modify the sample client program in Programming Perl so that
> > I can set timeout for connect(). i.e., if the server doesn't respond in
> > (say) 4 seconds, then I will give up the connection to avoid deadlock.
> >
> > Any help would be really appreciated.
>
> And it would be helpful if answers would be posted rather than emailed.
> I've been working on the same problem for ages, and haven't yet found a
> good solution.
Use the force - read the source! Both Net::Telnet and
IO::Socket::INET implement a timeout on connect.
If you use a Win32 machine, no such mechanism exists. You'll have to
wait for a threaded perl on Win32 machines.
--
Jay Rogers
jay@rgrs.com
------------------------------
Date: Thu, 28 May 1998 19:02:31 +0000
From: Ben Woodard <bwoodard@cisco.com>
Subject: Larry Wall to Speak at Silicon Valley Linux User's Group
Message-Id: <356DB4C7.9B7920FB@cisco.com>
On June 3rd, Larry Wall will speak to the Silicon Valley Linux Users
Group at 7pm. Larry Wall is the original author of several free
programs such as Perl, patch, and rn. He is also the one of the
coauthors of Programming Perl. He will speak about the way he used
X10, Perl, and Linux to control his home.
Everyone is invited to the meeting.
This meeting will be held at the Gateway Conference Center, Building
J, Cisco Systems. The address of the conference center is
255 W. Tasman Drive
San Jose, CA 95134
Maps and directions are at http://www.svlug.org/meetings.shtml.
Our main web page is http:///www.svlug.org
We hope to see you there.
Afterwards we'll all go out to eat.
Coming up events include...
June 20 installfest and workshop
July 1 at 7pm...Mitch Wyle on Vim and Ben Wing on XEmacs
July 18 installfest and workshop
To get announcements about the group regularly please go to
http://www.svlug.org/mdstuff/lists.shtml
------------------------------
Date: Thu, 28 May 1998 18:12:20 GMT
From: jk@y4.com
Subject: LWP::UserAgent timeout
Message-Id: <6kk9e3$qa9$1@nnrp1.dejanews.com>
Hello,
I have a small libwww based client that gathers information from numerous
sites.
Problem:
LWP::UserAgent times out wonderfully when it can't connect.
However, if the connection completes and then terminates mid-transmission, or
if the transmission stalls, LWP::UserAgent's timeout doesn't (seem to)
activate
and the client hangs (i.e. it doesn't continue on its merry way to the next
site).
Anyone run into this and devise a solution?
Can one put a timer around the request? If so, what would some sample code be?
my $req = HTTP::Request->new(GET => $url);
Thanks for your help!
Jerry
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 21 May 1998 21:29:46 GMT
From: ellisj@whip.cs.byu.edu (Jonathan Ellis)
Subject: Re: More double standards out of the FSF
Message-Id: <6k26ca$6fb$1@acs2.byu.edu>
Tom Christiansen (tchrist@mox.perl.com) wrote:
: You cannot "modify" Perl in some way to make it not work like the standard
: release and still call it by that name.
But, hypothetically, if someone were to send you a patch that
greatly extended the functionality of Perl, along with suggested
modifications to the docs to reflect this, would you include it in the
next standard release?
If so (and correct me if I'm wrong) we have the following
possibilties when Joe Hacker modifies Perl:
Joe figures nobody else would have any use for his diffs and
doesn't distribute them.
Joe sends the diffs to Tom. Tom includes them and updates the
docs.
Joe sends the diffs to Tom. Tom rejects them because they're
really not worth including in Perl (even though Joe apparently thought
highly of them). Joe is still free to send his diffs to anyone else who
wants them, or even to make them publicly available--but not to distribute
the entire code base as "Perl II."
Seems fair to me.
-Jonathan
------------------------------
Date: 28 May 1998 19:37:51 GMT
From: Dave Kenny <dk@parka.winternet.com>
Subject: Re: Net::FTP and passwords
Message-Id: <6kkeef$s0o$1@blackice.winternet.com>
FWIW, in a script I use to interact with my VAX account, I get the uid
and password stuff from environment variables I export (from the prompt
in my login shell.) Once I set them there I do not have to keep reentering
them, and at least they are not hardcoded in my script.
(Of course, this about as secure as replacing a doorlock with a sign that
says "Please don't come into our living room just yet, even though we
don't have shotguns...")
------------------------------
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 2751
**************************************
