[12262] in Perl-Users-Digest
Perl-Users Digest, Issue: 5862 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 2 14:07:18 1999
Date: Wed, 2 Jun 99 11:00:16 -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 Wed, 2 Jun 1999 Volume: 8 Number: 5862
Today's topics:
Re: A Newbie needs HELP! <cassell@mail.cor.epa.gov>
Re: answering my own question <dhenders@cpsgroup.com>
connection and X25 communication <pbm@iotp.demon.co.uk>
Re: free computer5 (at)
Re: Help Win32::OLE Word <cassell@mail.cor.epa.gov>
Re: microso?t perl <cassell@mail.cor.epa.gov>
Re: microso?t perl (Greg Bacon)
Re: microso?t perl <dgris@moiraine.dimensional.com>
Re: microso?t perl (Andrew Johnson)
Re: micros~1 perl (Larry Rosler)
Re: Newbie - would appreciate a hand to get started - T <jde222RemovethiS@iname.com>
Re: Newbie Q: how to build html table w/ cgi.pm (Ken Bass)
Re: Newbie Q: how to build html table w/ cgi.pm (Chris)
Re: Newbie Q: how to build html table w/ cgi.pm (Randal L. Schwartz)
Perl 5.003 launching a DOS window - Can I stop this? <rossid@aseco.net>
Re: String extraction problem - please help? (Larry Rosler)
system call to a Java app from perl <shaykevi@ptolemy.arc.nasa.gov>
The artistic license and perl: <gbartels@xli.com>
Re: undesired result with .* in s command (Larry Rosler)
Re: Win32 NetShareGetInfo (Larry Rosler)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 02 Jun 1999 10:07:27 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: JJ <pathfinder@innocent.com>
Subject: Re: A Newbie needs HELP!
Message-Id: <375564CF.C09C8B57@mail.cor.epa.gov>
[courtesy cc sent to poster]
[alt.perl removed from reply]
JJ wrote:
>
> I have to admit that I know nothing at all about Perl or other programming
> languages. However, I've come to realize that to accomplish certain things
> in HTML, you really have to use a script like Perl.
Good. One picky point here: 'scripts' are text programs, and
Perl [capital P] is a programming language. I'm telling you
this as a metaphor. When you start learning a programming
language, you'll find that precision is *crucial*. Being
off by a letter, or a semi-colon, or even capitalization
can be enough to make your script (or program) choke.
> So I fully intend to
> begin learning Perl, but meanwhile I'm stuck with this problem.
Okay. But if you want to do this with Perl (perhaps one of
your better bets, IMHO), you'll need to learn at least a little
Perl. You can go to this URL to get an on-line tutorial on
a lot of what you want:
http://www.netcat.co.uk/rob/perl/win32perltut.html
And, if you didn't munge up your e-mail address, you'll get
a nice note from gnat's autobot about learning and writing
Perl. Save that e-mail! Everything in it is useful.
And you'll be surprised to learn that with every install of
Perl come hundreds of pages of on-line docs free. Since you're
using M$ Lookout! Express, I'm guessing you're on a win32
box. So you can go to www.activestate.com and get Perl
for win32 which installs like a dream on a win32 box. Then
you'll have (almost) all the docs in an HTML tree which
you can access from your Start menu. Convenient, huh?
> Rather than include the HTML in this message, I've posted a page on the web
> which is an example of what I'm trying to do. You can look at it, and view
> the HTML source at:
>
> http://members.aol.com/bayvideos/example.html
I appreciate the conservation of bandwidth.
> What I want to do is to arrange all the listings on the page alphabetically
> by (in this case) the name of the auction. The problem is that each auction
> has a description, and I have to make sure when the HTML is rearranged, that
> the matching description and anchor are moved together with the name. I've
> got about 300 HTML files arranged exactly like this one (and many of them
> much longer), so you can see why I don't want to do it manually!
>
> I don't know if this is difficult to do with Perl, or if it's a breeze for
> someone who knows the language, but I sure would appreciate any
> help/suggestions/advice you can offer.
Okay, here are a couple more hints. After you read through
the web tutorial, you'll know how to read in a file. Look
up the special $/ variable in the perlvar section of your
HTML tree [or type 'perldoc perlvar' to read it at the command
prompt]. Perl will let you slurp your whole file into
an array in paragraph mode if you set $/ = "";
Then you can slurp the whole file into an array and sort
it using the sort() function. Since what you want to do is
sort alphabetically starting with the first characters, the
default for sort() should do what you want.
Then you can output the sorted file using the print()
function.
Once you can do this for one file, you can read about
opendir(), readdir(), and closedir() so you can get
all the files in a directory. Then use your above technique
on each of them in turn.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 02 Jun 1999 11:35:23 -0500
From: Dale Henderson <dhenders@cpsgroup.com>
Subject: Re: answering my own question
Message-Id: <873e0a5zn8.fsf@camel.cpsgroup.com>
>>>>> "Clinton" == Clinton Pierce <cpierce1@ford.com> writes:
Clinton> On Tue, 01 Jun 1999 10:30:41 -0400, Greg Bartels
Clinton> <gbartels@xli.com> wrote:
>> public domain - no copyright, can be copyrighted thereby taking
>> what was once public domain out of the public domain. **not
>> good**
Clinton> Tell me how I can copyright Shakespeare, please! I'll
Clinton> give you a cookie.
Reminds me of the time I downloaded a copy of the Confederate
constitution. On the bottom was a copyright notice. Apparently
the distributor didn't know that the only part of the document he
could copyright was the notice! So I just removed the notice. :)
------------------------------
Date: Wed, 2 Jun 1999 17:28:27 +0100
From: In off the Post <pbm@iotp.demon.co.uk>
Subject: connection and X25 communication
Message-Id: <$zgbzCAruVV3EwZY@iotp.demon.co.uk>
I need to write some software which connects to a freephone
number in the UK and then receives and transmits data using the X25
protocol. Is this possible in Perl? Or would another language be better?
Ideally, I'd like to call a cgi-script which could make the
connection and communicate, however my website is hosted on a third-
party server so I can't really see how it's possible. Any help
whatsoever appreciated.
Thanks in advance,
--
willa
------------------------------
Date: Tue, 1 Jun 1999 17:26:01 -0400
From: "John" <John_B52 (at) hotmail.com>
Subject: Re: free computer5
Message-Id: <37544fdd@news5.newsfeeds.com>
what sounded the dumbest was the 5th anniversary bit, especially since dell
has been around since 1984.
I check to make sure on their web page, noticed they are factory installing
RED HAT Linux 6.0 on their computers now, anyone else doing that? bye bye
bill gates.
webmaster wrote in message <7eg4sd$bsp$1@iceman.tac.net>...
>Free Computer at http://giveaways.arecool.net
>
>DELL IS GIVING AWAY 500 FREE PENTIUM 500 Computers to celebrate their 5th
>anniversary.
>
>Hurry and if you are one of the first 500 people you win a new computer!!!
>
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 02 Jun 1999 10:30:21 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: maas@ensae.fr
Subject: Re: Help Win32::OLE Word
Message-Id: <37556A2D.343C0BB2@mail.cor.epa.gov>
[courtesy cc to poster]
Olivier Maas wrote:
>
> hello, going loco trying to use word to save different docs as texts.
>
> [snip of code] > >$res=$document->SaveAs('c:\temp\testtest.txt','WdFormatText',
undef,undef,undef,undef,undef,undef,undef,undef,undef);
>
> #or: $document->SaveAs(undef,{FileName => "testtest.txt", FileFormat=>
> "WdFormatText"});
> #(tried plenty of combinations quotes, double quotes,etc... save as
> works but just with 1 arg like:
> #$res=$document->SaveAs('c:\temp\testtest.txt');
> # the name is then correctly changed, but the file is still a word
> file...
>
> [some more snips]
I really think that you'll have better luck posting this to
the perl-win32-users listserv.. to which you already belong,
as I have seen your posts there before. Part of the problem
is the arcane aspects of the SaveAs method, largely due to
the way M$ implemented this.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 02 Jun 1999 10:14:22 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: microso?t perl
Message-Id: <3755666E.FD163941@mail.cor.epa.gov>
Daniel Grisinger wrote:
>
> [subject line intentionally munged to avoid my killfile :-)]
heh.
> This worries me.
>
> http://www.activestate.com/press/releases/Microsoft.htm
To transliterate (not translate): mah nishtanah haleilah hazeh.
ActiveState has *always* had not-for-free products, with
the free stuff as sort of 'teasers' and 'promotional material'.
This looks like more of the same. No sweat.
Now if the note said that Bill was *buying* ActiveState,
I'd be a little concerned. But it's not as if win32-
specific features are ever going to get rolled into the
core.
> dgris
> - thinking about python :-|
<Viennese accent>
Do you often think of snakes? Would you like to talk
to Eliza about this?
</Viennese accent>
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 2 Jun 1999 17:21:50 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: microso?t perl
Message-Id: <7j3p7e$kat$1@info2.uah.edu>
In article <m37lpmh9tr.fsf@moiraine.dimensional.com>,
Daniel Grisinger <dgris@moiraine.dimensional.com> writes:
: Well, of course everything added to the core will be open sourced,
: the artistic license assures that.
Not necessarily:
3. You may otherwise modify your copy of this Package in any way,
provided that you insert a prominent notice in each changed file
stating how and when you changed that file, and provided that
you do at least ONE of the following:
[...]
c. rename any non-standard executables so the names do not
conflict with standard executables, which must also be
provided, and provide a separate manual page for each
non-standard executable that clearly documents how it differs
from the Standard Version.
Greg
--
I can please only one person per day.
Today is not your day.
Tomorrow isn't looking good either.
-- Dogbert
------------------------------
Date: 02 Jun 1999 11:31:30 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: microso?t perl
Message-Id: <m3r9nufr0t.fsf@moiraine.dimensional.com>
David Cassell <cassell@mail.cor.epa.gov> writes:
> > This worries me.
> >
> > http://www.activestate.com/press/releases/Microsoft.htm
>
> To transliterate (not translate): mah nishtanah haleilah hazeh.
>
> ActiveState has *always* had not-for-free products, with
> the free stuff as sort of 'teasers' and 'promotional material'.
> This looks like more of the same. No sweat.
Yes, it looks like more of the same. :-(
What I don't get is how they think that the benefits of and
arguments for open source don't apply to the rest of their
products. RedHat is the right model here, not Activestate.
> Now if the note said that Bill was *buying* ActiveState,
> I'd be a little concerned. But it's not as if win32-
> specific features are ever going to get rolled into the
> core.
It looks to me like many of the enhancements _will_ be
in the core. Those are allright, though, we get the source.
I'm more worried about extensions and proprietary add-ons.
> > dgris
> > - thinking about python :-|
>
> <Viennese accent>
> Do you often think of snakes? Would you like to talk
> to Eliza about this?
> </Viennese accent>
<grin type='sheepish'>
The code for my brand-new, all-improved perl website (which may be
publically available as early as this weekend) is actually split about
60/20/15/5 between python, lisp, perl, and c.
</grin>
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Wed, 02 Jun 1999 17:40:41 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: microso?t perl
Message-Id: <t0e53.39422$tE.357437@news2.rdc1.on.home.com>
In article <7j3p7e$kat$1@info2.uah.edu>,
Greg Bacon <gbacon@itsc.uah.edu> wrote:
! In article <m37lpmh9tr.fsf@moiraine.dimensional.com>,
! Daniel Grisinger <dgris@moiraine.dimensional.com> writes:
! : Well, of course everything added to the core will be open sourced,
! : the artistic license assures that.
!
! Not necessarily:
[snip Artistic section 3, para c]
Indeed, looks like AS & MS have full freedom to
apply the embrace and extend philosophy to Perl
if they so choose. It'll be a sad day if Larry's
generosity in the Artistic is used in such a way.
regards
andrew
--
Andrew L. Johnson http://members.home.com/andrew-johnson/
Some people, when confronted with a problem, think 'I know,
I'll use regular expressions.' Now they have two problems.
-- Jamie Zawinski, on comp.lang.emacs
------------------------------
Date: Wed, 2 Jun 1999 10:33:27 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: micros~1 perl
Message-Id: <MPG.11bf0ac2fe4e8f00989b56@nntp.hpl.hp.com>
In article <3755548a@cs.colorado.edu> on 2 Jun 1999 09:58:02 -0700, Tom
Christiansen <tchrist@mox.perl.com> says...
In article <m3lne2hcmx.fsf@moiraine.dimensional.com> on 02 Jun 1999
08:59:18 -0600, Daniel Grisinger <dgris@moiraine.dimensional.com>
says...
> :[subject line intentionally munged to avoid my killfile :-)]
>
> And mine. :-)
Keep your heads buried, guys! The problems will go away if you ignore
them.
Now I know how to slip stuff past you into this newsgroup. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 2 Jun 99 17:47:28 GMT
From: "Euro Jake" <jde222RemovethiS@iname.com>
Subject: Re: Newbie - would appreciate a hand to get started - Thanks in advance
Message-Id: <7j3qeh$q4i$1@news3.Belgium.EU.net>
On 2-Jun-1999, moseley@best.com (Bill Moseley) wrote:
> jde222RemovethiS@iname.com says...
> > I would like to get this working to get me started:
> > A simple .html file, which i start with ie5 browser, calling a simple .pl file,
> > which produces just a print "hello" and passes control back to the .html thing
> > Once this runs, i think i would be able to build on it further
>
> Do you have a web server running on your PC?
>
> No? There are a lot of options. Try www.apache.org for one.
No i have not...
As far as i understood, active perl would let me develop and test stand alone
I guess the server question would popup a bit later, and
as my provider turns solaris, guess would need to know a bit solaris too...
I have a home page where i would like to gain some experience.. :))
Thanks for ur reply
--
Euro Jake
>RemovethiS< in next line...
Anti spam email jde222RemovethiS@iname.com
------------------------------
Date: Wed, 02 Jun 1999 16:58:08 GMT
From: Barista@End.Of.Universe (Ken Bass)
Subject: Re: Newbie Q: how to build html table w/ cgi.pm
Message-Id: <375561f2.481001@nntp1.ba.best.com>
It is a good example, but, unfortunately, does not work in my case.
Specifically, I don't know what the row values will be (or even how
many) until runtime. So how would I replace the three "td([..])" with
some form of loop?
On Tue, 01 Jun 1999 20:05:24 GMT, dave@dave.org.uk (Dave Cross) wrote:
>On Tue, 01 Jun 1999 18:26:02 GMT, Barista@End.Of.Universe (Ken Bass)
>wrote:
>
>>This has got to be a simple question:
>>
>>I want to output a table, where each row in the table is generated at
>>run time. I have looked through the docs, and found the "table"
>>function. But it seems (at least to me) that each row has to be
>>specified individually.
>>
>>Did I miss something? Do I need to just generate the tags myself? Can
>>(should?) this be done with some format statements?
>>
>>Could someone give me some sample code to just spit out a table
>>(possibly with a header) that has, say, three columns ( 'a', 'b', 'c')
>>and a few rows of dummy values? I would be much obliged.
>
>There's a pretty good example in the CGI.pm docs.
>
>print table({-border=>undef},
> caption('When Should You Eat Your Vegetables?'),
> Tr({-align=>CENTER,-valign=>TOP},
> [
> th(['Vegetable', 'Breakfast','Lunch','Dinner']),
> td(['Tomatoes' , 'no', 'yes', 'yes']),
> td(['Broccoli' , 'no', 'no', 'yes']),
> td(['Onions' , 'yes','yes', 'yes'])
> ]
> )
> );
>
>Dave...
>
>--
>Dave Cross <dave@dave.org.uk>
><http://www.dave.org.uk>
ken bass
kbb@SoftSteps.com
------------------------------
Date: Wed, 02 Jun 1999 17:17:09 GMT
From: chris@cjx.com (Chris)
Subject: Re: Newbie Q: how to build html table w/ cgi.pm
Message-Id: <23278D13FBD8D1B1.1296C80E997A2D07.857332F77D8AC11C@lp.airnews.net>
Barista@End.Of.Universe (Ken Bass) wrote:
>I want to output a table, where each row in the table is generated at
>run time. I have looked through the docs, and found the "table"
>function. But it seems (at least to me) that each row has to be
>specified individually.
>
Both Tr() and td() take a list reference, so you can do this sort
of thing:
------
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard :html3);
my($head,$row1,$row2,$row3,$row3data,@rows);
$head = th(['foo','bar','foobar']);
$row1 = td(['chris','john','fred']);
$row2 = td(['jane','helen','mary']);
$row3data = [1..3];
$row3 = td($row3data);
push @rows,($head,$row1,$row2,$row3);
print header, start_html(-title=>'Test');
print table({-border=>1},Tr(\@rows));
print end_html;
* You find a scroll labelled THARR
------------------------------
Date: 02 Jun 1999 10:34:34 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Newbie Q: how to build html table w/ cgi.pm
Message-Id: <m14skqtsk5.fsf@halfdome.holdit.com>
>>>>> "Ken" == Ken Bass <Barista@End.Of.Universe> writes:
Ken> Could someone give me some sample code to just spit out a table
Ken> (possibly with a header) that has, say, three columns ( 'a', 'b', 'c')
Ken> and a few rows of dummy values? I would be much obliged.
Try the following:
use CGI::Pretty qw(:all);
$table = [[qw(heada headb headc)], [qw(a1 b1 c1)], [qw(a2 b2 c2)]];
{ my @body = @$table; my $head = shift @body;
print table(Tr(th($head)), map Tr(td($_)), @body) }
If CGI::Pretty doesn't work, "use CGI" instead. If you don't want
the first row to be headers, use this instead:
{ my @body = @$table;
print table(map Tr(td($_)), @body) }
instead.
print "Just another Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Wed, 02 Jun 1999 17:29:12 GMT
From: "Dario Rossi" <rossid@aseco.net>
Subject: Perl 5.003 launching a DOS window - Can I stop this?
Message-Id: <IRd53.41$PC1.4718535@client.news.psi.net>
Hello,
I am running Peer Web Services (PWS) on NT4.0 SP4. I installed Perl 5.003.
If I access the the server from any other machine the perl scripts execute
just fine. When I access the perl scripts from the machine that perl and
the PWS is installed on , when the perl script is accessed, a dos window
pops up and then disappears quiclky for each script that is executed. This
only happens on the machine that Perl is installed on.
Is there a way to stop this??
Any help woul be appreciated.
Dario
------------------------------
Date: Wed, 2 Jun 1999 10:50:58 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: String extraction problem - please help?
Message-Id: <MPG.11bf0eddfe28437b989b57@nntp.hpl.hp.com>
In article <u96756wp0e.fsf@wcl-l.bham.ac.uk> on 02 Jun 1999 17:22:57
+0100, Brian McCauley <B.A.McCauley@bham.ac.uk> says...
> Andrew Collington <webmaster@avert.org> writes:
...
> > I know it would be something like 'if ($line =~
> > /(something)archive(something)/)' to extract the require strings, but I
> > just don't know regular expression enough (at all!) to do that. Though
> > I know you would use $1, $2, etc as the strings matched, but.. well, you
> > get my problem... :)
>
> Your problem is inability to read man pages.
I doubt that anyone could readily learn about regular expressions from
the perlre man page. There are several expressly tutorial man pages,
but none on regular expressions and their use.
Does anyone know of a good on-line tutorial on regular expressions to
which we can refer people in the future?
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 02 Jun 1999 10:28:00 -0700
From: Alex Shaykevich <shaykevi@ptolemy.arc.nasa.gov>
Subject: system call to a Java app from perl
Message-Id: <3755699F.6FA53548@ptolemy.arc.nasa.gov>
Hi,
I'm writing a perl module and it needs to open a pipe to a java app. and
get back the results. Something
like:
open("IN", "java myapp |");
while(<IN>) {
# do stuff with $_
}
close(IN);
While this kind of thing would work just fine with, say, an 'ls',
there's a big problem getting it to work
with java since "java" itself is a big shell script. The problem
appears to be that Java takes over piping
so that the IO streams between Java and Perl never get established. I'm
running in IRIX 6.3, BTW.
I really have to get this done soon and would appreciate any help. Has
anyone had success running Java
stuff from within a perl process this way?
Thanks.
-- Alex Shaykevich
NASA Ames Research Center
------------------------------
Date: Wed, 02 Jun 1999 12:48:07 -0400
From: Greg Bartels <gbartels@xli.com>
Subject: The artistic license and perl:
Message-Id: <37556047.AD9614AF@xli.com>
Daniel Grisinger wrote:
>
> Jerome O'Neil <jeromeo@atrieva.com> writes:
>
> > What's this all about?
> >
> > > Q: Will the work be Open Source?
> > >
> > > A: Most of the work will be released as Open Source. Part of
> > > our business model is to sell value add, proprietary components.
> > > Rest assured though, that everything added to core Perl will be
> > > released under the same terms as Perl.
>
> Well, of course everything added to the core will be open sourced,
> the artistic license assures that.
It seems that the artistic license aint so great after all:
following text available at:
http://www.oreilly.com/catalog/opensources/book/perens.html
===clip===
The Artistic License
Although this license was originally developed for Perl, it's since
been used for other software. It is, in my opinion, a sloppily-worded
license, in that it makes requirements and then gives you
loopholes that make it easy to bypass the requirements. Perhaps that's
why almost all Artistic-license software is now dual-licensed, offering
the choice of the Artistic License or the GPL.
Section 5 of the Artistic License prohibits sale of the software, yet
allows an aggregate software distribution of more than one program to
be sold. So, if you bundle an Artistic-licensed program with a
five-line hello-world.c, you can sell the bundle. This feature of the
Artistic License was the sole cause of the "aggregate" loophole in
paragraph 1 of the Open Source Definition. As use of the Artistic
License wanes, we are considering removing the loophole. That would
make the Artistic a non-Open-Source license. This isn't a step we would
take lightly, and there will probably be more than a year of
consideration and debate before it happens.
The Artistic License requires you to make modifications free, but then
gives you a loophole (in Section 7) that allows you to take
modifications
private or even place parts of the Artistic-licensed
program in the public domain!
===end clip===
that last sentence or two seems to say that the artistic licence
does NOT require that everything added remain open source.
the concern should therefore be around a modification being made to perl
that either Microsoft of Activestate holds as proprietary.
this could lead to a 'fork' in the perl language, one is open source,
and one is proprietary, and neither are compatible.
that is my understanding of how the bazzillion or so incompatible
unixes came about, proprietary forks in the operating system that
led to incompatible versions of UNIX. (someone, oh please, correct
me if I'm wrong) ;)
the only way to force this from NOT happening would be to close the
loopholes in the perl license. I dont know who could even do that.
anyone know a good lawyer? Someone get Larry Wall on the phone.
Of course, this shouldn't be a problem, since Microsoft has such
a long history of supporting open standards, open source code,
and just playing nice with the rest of the world. They have,
after all, given so much back to the computing world.
.....THUD.....
sorry, my nose just grew into the monitor....
Greg "pinochio" Bartels
> Of course that doesn't stop an evil, monopolistic company from
> offering proprietary extensions. It doesn't stop a company with no
> interest or standing in the perl community from exploiting years
> of hard work, donated by a cast of thousands, for its own gain.
>
> It's already started with Activestate releasing binary-only slaveware
> such as their debugger and their perlex engine. It won't stop there,
> of course, if they enjoy any success.
>
> Before you know it perl on windows will be a twisty little maze
> of incompatibilites and extensions only available in a slick,
> install-wizard based package for those with the money to pay. Those
> without money--well, do they really matter?
>
> Down that path lies code-forking (witness HipPerl), wasted
> effort, and bad feelings. We shouldn't go there.
>
> There is, fortunately, a simple solution. Don't use activeperl.
> Don't recommend activeperl. If you'd like to help the POBs get
> perl give them the urls for egcs and for the perl souce kit.
>
> Use only real perl, compiled from source code that you have,
> modifiable by anyone.
>
> Eschew slaveware, use only real perl.
>
> > More importantly... should I care?
>
> Only you can answer that question.
>
> dgris
> --
> Daniel Grisinger dgris@moiraine.dimensional.com
> perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
> m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Wed, 2 Jun 1999 10:12:37 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: undesired result with .* in s command
Message-Id: <MPG.11bf05e015326db9989b54@nntp.hpl.hp.com>
In article <874skq61fu.fsf@camel.cpsgroup.com> on 02 Jun 1999 10:56:37 -
0500, Dale Henderson <dhenders@cpsgroup.com> says...
> >>>>> "Larry" == Larry Rosler <lr@hpl.hp.com> writes:
> Larry> [Posted and a courtesy copy mailed.] In article
> Larry> <7j1hpq$8hn$1@autumn.news.rcn.net> on 1 Jun 1999 21:02:50
> Larry> GMT, Steve <stevenh@erols.com> says...
> >> I am new to Perl, and I'm having a problem with the .*
> >> expression in the substitute function.
> >>
> >> I am trying to strip the middle portion out of a string where I
> >> don't know what that portion is. For example, <p
> >> align=center>, I would like to have just <p>. To do that, I
> >> tried $var =~ s/<p.*>/<p>/ig;
> >>
> >> That didn't work since the .* matches the longest possible
> >> pattern. ...
>
> Larry> .*? matches the shortest possible pattern. Read about
> Larry> 'non-greedy quantifiers' in perlre.
>
> another (more complex) posibility is /<p[^>]*>/
Yes, it is. And for those who like to spare their CPUs from doing any
unnecessary work, and don't want to mess with <pre> tags, for example,
and who want to take into account tags split across lines, these are
even better:
$var =~ s/<p\s.+?>/<p>/igs;
$var =~ s/<p\s[^>]+>/<p>/ig;
But often the simplest, most direct answer to a beginner's specific
question is the best. Then they can learn the rest themselves, as need
be.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 2 Jun 1999 10:23:27 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Win32 NetShareGetInfo
Message-Id: <MPG.11bf086b5b22f39a989b55@nntp.hpl.hp.com>
In article <37555DCC.EA070BBB@mail.cor.epa.gov> on Wed, 02 Jun 1999
09:37:32 -0700, David Cassell <cassell@mail.cor.epa.gov> says...
> Trevor Crisp wrote:
...
> > How do you modify the share and security permissions with Win32
> > functions in a perl script? How do you retrieve and view this info as
> > well?
>
> This ng tends to be fairly unix-centric, so you may not get a
> good answer here.
If it were so, it was a grievous fault...
(Julius Caesar, Act 3 Scene 2)
> If that is the case, then you may want to
> go to a listserv which is primarily win32-centric instead.
> Go to http://www.activestate.com/support/mailing_lists.htm
> to subscribe to the perl-win32-users list. Then ask there.
It probably is so, and it is a grievous fault. But in fact, the
question is not a Perl question, so OS-specific sources are probably
best. (Similarly for Unix questions :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5862
**************************************
