[11676] in Perl-Users-Digest
Perl-Users Digest, Issue: 5276 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 1 11:37:32 1999
Date: Thu, 1 Apr 99 06:00:19 -0800
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, 1 Apr 1999 Volume: 8 Number: 5276
Today's topics:
Re: 'find' for PPT <Philip.Newton@datenrevision.de>
ANNOUNCE: CLC-INTERCAL 0.01 (Charlie Stross)
Re: anything like xemacs for win32? (Jari Aalto+mail.perl)
conditonal statement <alyong@mbox3.singnet.com.sg>
Re: conditonal statement (Sam Holden)
Re: conditonal statement <Philip.Newton@datenrevision.de>
Re: create html <Philip.Newton@datenrevision.de>
Re: DOS system calls <Philip.Newton@datenrevision.de>
Re: Install Perl on win* using cygwin <Allan@due.net>
Monitoring the state of a serial port <lucio@corp.netcom.net.uk>
multi-d array <alyong@mbox3.singnet.com.sg>
Re: multi-d array (Sam Holden)
Re: newb quest about perl builds for win32 -- how to st <frankvdm@diza.nl>
Re: Perl efficiency vs. C++. (Jari Aalto+mail.perl)
Re: Perlshop <N.Oosterwijk@neveru.nl>
pod2html: how to use? <ljnelson@unix.amherst.edu>
Re: quick question... <Philip.Newton@datenrevision.de>
Re: random elements from an array <Philip.Newton@datenrevision.de>
Re: random elements from an array (Randal L. Schwartz)
Re: Sun Microsystems Sponsors Perl Mongers (Chris Tremblay)
Re: Suppressing output from an externally run program.. <Philip.Newton@datenrevision.de>
Re: system ('myproc &'); sstarre@my-dejanews.com
Threads: ready for real applications? Perl Internals. rkc@ll.mit.edu
Re: Validating Email addresses <Philip.Newton@datenrevision.de>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 01 Apr 1999 15:07:35 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: 'find' for PPT
Message-Id: <37036F97.AC2D98F7@datenrevision.de>
David Cantrell wrote:
>
> As no-one else has done it yet, I'm going to have a go at writing a
> 'find' clone. Before I get started, I'd appreciate any comments on
> the following issues, and anything else you can think of.
You do know about 'find2perl', don't you? I believe it comes with
standard Perl distributions. You feed it the same options as find, and
it spits out a Perl script on STDOUT. For example, 'find2perl . -name
foo -print'. So something like eval `find2perl @ARGV` is already a good
emulation of find.
Cheers,
Philip
------------------------------
Date: 1 Apr 1999 12:38:11 GMT
From: charlie@antipope.org (Charlie Stross)
Subject: ANNOUNCE: CLC-INTERCAL 0.01
Message-Id: <7dvpbj$lga$1@play.inetarena.com>
Keywords: INTERCAL Perl Compiler Release Insanity Not-an-April-Fool-Joke-This-Is-Serious
Assurdo Technologies are pleased to announce the release of CLC-INTERCAL
0.01, an entirely new INTERCAL compiler implemented in 100% pure Perl.
CLC-INTERCAL is an abbreviation for "INTERCAL to Perl Compiler".
It can be found at: http://www.assurdo.com/
In terms of Perl integration, CLC-INTERCAL consists of the module
Language::INTERCAL and supporting modules for EBCDIC and Baudot code
processing. It was developed on Perl 5.004 but should run on versions
5.002 and above. Intercal compilers can be embedded in and integrated
into other applications; preliminary work on the INTERCAL ORB is now
in progress.
Our interim goals are to add XML support, browser plug-ins, and full
network awareness so that migratory INTERCAL programs can dump core
safely in a client machine's "litter tray". Our ultimate goal is to
replace Java as the language of choice for distributed applications
development and job security. For portability, bytecode output is
envisaged for the perl virtual machine, java VM, native iBCS2 binary
format, and RedCode.
EXTENSIONS:
The main features of CLC-INTERCAL not found in INTERCAL-72 are:
Input/output has been extensively rethought. While INTERCAL-72's numeric
input/output has been preserved unchanged, there are now two more types
of input/output: alphanumeric i/o which can be used with any EBCDIC text
(it will be automatically converted to/from extended Baudot if
necessary); and binary i/o which can be used with any data whatsoever,
at the price of a minor performance hit when the data is assembled and
disassembled by the INTERCAL runtime to fit it into virtual punched
cards.
Computed COME FROM. You can now cause the program execution to hop
around (or at least jump) in arbitrary ways by using computed COME FROM.
We refer you to the compiler's documentation for details, but can't
resist exhibiting a code fragment which corresponds to what other
languages might call a subroutine invocation:
DO REINSTATE (11)
(10) DO .1 <- #10
(11) DON'T COME FROM (1001)
PLEASE ABSTAIN FROM (11)
...
(1000) DO COME FROM .1
...
(1001) DO .1 <- #0
Arbitrary data structures. While INTERCAL-72 was great for purely
numeric processing, we feel that the use of numeric registers and arrays
doesn't quite lend itself to non-numeric processing. We have therefore
added the basic building blocks for arbitrary data structures by means
of reverse pointers, also known as the BELONGS TO relation. If, for
example, you want to build a tree, then all the leaves will belong to
some node, and nodes belong to other nodes, all the way to the ones
which belong to the root of the tree. Any registers can be linked up in
a graph structure using the BELONGS TO relation, and there are mechanism
to follow the relation while accessing registers.
Network independence. A future version of the compiler will support a
complete networking library, "INTERNET", which simply removes the
restriction that registers belong to a single process or a single
computer, and provides transparent access to data structures on other
parts of the network. Of course, the library will also provide security
and access control features and all the usual stuff. Stay tuned for this
exciting development.
Object-Oriented INTERCAL. The BELONGS TO relation will remind people of
the relation between objects and classes in other languages, and for
some time we have been tempted to extend it to obtain a complete
object-oriented language. However, this would be against the philosophy
of the language. Rather, we introduce a fifth type of register, the
"class register", which are used to define classes. A parenthood
relation between classes is conceptually related to the "inheritance" of
other languages. However, parenthood is not yet implemented in the alpha
version. The association of an object with a class is somewhat related
to the bless operator of Perl, however, instead of specifying the name
of the class (which would not be possible, since the class registers do
not have names), the programmers identifies the class by example. If
more than one class can do the same operations as the example, the
runtime will generate a "CLASS WAR" error.
Finally, minor improvements to the language's syntax allow for more
readable programs. The improvements are backward compatible with
INTERCAL-72.
OBJECT ORIENTATION
Claudio writes:
What is a class? It's something where you go and learn.
What is a method? It's something you learn in class.
So I create a class by defining what an object might learn by being part
of the class. The subjects are numbered, and each subject is taught by a
label in your program.
So, let's define class @2. In there, you can learn #2 by executing label
(1000) and learn #7 by executing label (1100):
STUDY #2 AT (1000) IN CLASS @2 STUDY #7 AT (1100) IN CLASS @2
It is not recommended to study anything at labels before (1000). You
might get a runtime error: "SORRY, WE DON'T ALLOW LECTURES BEFORE 1000".
Now that you have your class, you might want to create objects. What is
an object? It's the same as a student. So the equivalent of Perl's
"bless" is:
ENROL :1 TO STUDY #2 + #7
Assuming no other class teaches #2 and #7, that means that :1 is now an
object of class @2. If more than one class can teach that, you get a
runtime error:
CLASS WAR BETWEEN @2 AND @5
Unlike Perl, you can "unbless" objects:
:1 GRADUATES
Now that you have an object, you might want to do method calls. That's
the easiest thing:
:1 LEARNS #2
Again, you get a runtime error if :1 is not an object (":1 IS NOT A
STUDENT") or if its class does not teach #1 ("#2 IS NOT IN :1'S
CURRICULUM"). If none of these error conditions apply, execution
continues at the appropriate label, in this example (1000), with @2 (the
class register) temporarily enslaved to :1 (so :1 is accessible with the
construct $@2 - the "big money" ($) is the syntax to follow the BELONGS
TO relation). If :1 belongs to a complicated graph structure, and for
example $23$4$2$$:1 is an element of it, then the same element will be
accessible with $$23$4$2$$@2 - nothing could possibly be simpler.
Besides, it's more compact than Perl's array/hash syntax.
To return from the method, use the command:
FINISH LECTURE
Oh, and before I forget... You are familiar with the "ABSTAIN FROM
gerund" form of conditional execution, do you? Essentially, you say
"PLEASE ABSTAIN FROM READING" and any subsequent "READ" just doesn't get
executed. So this would be the only language where one can write a
syntactically correct program which starts with:
PLEASE ABSTAIN FROM STUDYING + GRADUATING
This will obviously be enormously popular with students...
-- RELEASE ENDS --
-- posted by Charlie Stross; developed by Claudio Calvelli
------------------------------
Date: 01 Apr 1999 15:26:53 +0200
From: jari.aalto@poboxes.com (Jari Aalto+mail.perl)
Subject: Re: anything like xemacs for win32?
Message-Id: <ptrbth8cvz6.fsf@blue.sea.net>
paulboldra <pboldra@spam_to_hell.dynamite.com.au> writes:
>
> My recommendation is ultraedit32 ( http://www.ultraedit.com ) it colour
> codes perl, html, VB, C etc... It has a very untuitive win32 interface,
> with regexp find replace capabilities. Even has a ftp client built in,
> so you can edit remote unix scripts almost transparently. Love it.
>
> "Steven T. Hatton" wrote:
>
> > I have found Xemacs is really good for editing perl code on a linux
> > box. I especially like the color syntax highlighting. Is there
> > anything that runs under win32 that will give me color syntax
> > highlighting? I see that a port to win32 is underway for xemacs. It
> > doesn't look like it's there yet. There is a port of emacs, but I
> > don't see a way to get the color syntax highlighting with that.
Don't settle for anything less that to "The True one":
"NT/95 -- Emacs 19.34/20.x port by Geoff Voelker"
.ftp://ftp.cs.washington.edu/pub/ntemacs/
.http://www.cs.washington.edu/homes/voelker/ntemacs.html
.http://www.findmail.com/listsaver/NTEmacs-users/
._Hyperarchive_: http://www.findmail.com/listsaver/NTEmacs-users/
._MailingList_: <NTEmacs-users-request@cs.washington.edu>
"NT XEmacs betas"
http://www.nj1.aae.com/~cwaldman/xemacs/
Fabrice POPINEAU <popineau@esemetz.ese-metz.fr>
ftp://ftp.ese-metz.fr/pub/xemacs/win32 -- Win32
See my page for more:
ftp://cs.uta.fi/pub/ssjaaa/elisp.html
------------------------------
Date: Thu, 1 Apr 1999 20:08:12 -0800
From: "Alvin Yong" <alyong@mbox3.singnet.com.sg>
Subject: conditonal statement
Message-Id: <7dvnn3$up6$1@mawar.singnet.com.sg>
Dear perl experts,
I have a simple but yet mind-boggling question....When I did code 2,
it kept giving me $linktype=Up !!! Why isn't code2 similar to code1 in
functionality ?? Thks for yr help !!!
Code 1
$linktype = ($line = ~/$keyword1/ ? "Down" : "Up");
Code 2
if ($line=~/$keyword1/)
{$linktype = "Down";}
else
{$linktype = "Up";}
alvin
------------------------------
Date: 1 Apr 1999 12:22:27 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: conditonal statement
Message-Id: <slrn7g6p83.ncd.sholden@pgrad.cs.usyd.edu.au>
Alvin Yong <alyong@mbox3.singnet.com.sg> wrote:
>Dear perl experts,
>I have a simple but yet mind-boggling question....When I did code 2,
>it kept giving me $linktype=Up !!! Why isn't code2 similar to code1 in
>functionality ?? Thks for yr help !!!
>
>
>Code 1
>$linktype = ($line = ~/$keyword1/ ? "Down" : "Up");
^^^
That space is _very_ important in this context...
You are doing a bitwise negation and assigning it to $line.
>Code 2
>if ($line=~/$keyword1/)
> {$linktype = "Down";}
>else
> {$linktype = "Up";}
So Code 1 is wrong and Code 2 is right which seems contrary to your
expectations above...
Assuming you wanted a regex match of course...
--
Sam
Simple rule: include files should never include include files.
--Rob Pike
------------------------------
Date: Thu, 01 Apr 1999 15:38:07 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: conditonal statement
Message-Id: <370376BF.6A02A2F0@datenrevision.de>
Alvin Yong wrote:
>
> Dear perl experts,
> I have a simple but yet mind-boggling question....When I did code 2,
> it kept giving me $linktype=Up !!! Why isn't code2 similar to code1 in
> functionality ?? Thks for yr help !!!
>
> Code 1
> $linktype = ($line = ~/$keyword1/ ? "Down" : "Up");
>
> Code 2
> if ($line=~/$keyword1/)
> {$linktype = "Down";}
> else
> {$linktype = "Up";}
Is this code cut-and-pasted? In that case, the difference is that code 1
matches /$keyword1/ against $_, returning a true or false value, which
is then bitwise negated by the ~. If the result of that is true, $line
gets assigned "Down", otherwise "Up". Then, the value of $line is
assigned to $linktype.
In Code 2, /$keyword1/ is matched against $line, and if it matches,
$linktype gets a value of "Down", otherwise $linktype gets a value of
"Up". $line stays unchanged.
Hope this helps.
Cheers,
Philip
------------------------------
Date: Thu, 01 Apr 1999 15:28:20 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: create html
Message-Id: <37037474.F191F621@datenrevision.de>
Ronald J Kimball wrote:
>
> apple <jearanai@science.gmu.edu> wrote:
>
> > Can I create a html file from my perl file without usong CGI?
>
> Yes.
He wanted to create a file, not display one on stdout:
>
> #!/usr/local/bin/perl -w
open HTMLFILE, ">file.html" or die "Error opening file.html: $!"
> print <<EOHTML;
print HTMLFILE <<EOHTML;
> <HTML>
> <HEAD>
> <TITLE>HTML file</TITLE>
> </HEAD>
> <BODY>
> This is an HTML file!
> </BODY>
> </HTML>
> EOHTML
close HTMLFILE or die "Error closing file.html: $!"
Cheers,
Philip
------------------------------
Date: Thu, 01 Apr 1999 14:25:02 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: DOS system calls
Message-Id: <3703659E.972FD84F@datenrevision.de>
Bob Daly wrote:
>
> Is it possible to call MS Word in a Perl script?
Please don't post essentially the same question under two different
thread titles.
Cheers,
Philip
------------------------------
Date: Thu, 1 Apr 1999 08:10:02 -0500
From: "Allan M. Due" <Allan@due.net>
Subject: Re: Install Perl on win* using cygwin
Message-Id: <7dvr7p$ke4$1@camel15.mindspring.com>
Allan M. Due wrote in message <7dtiq9$19j$1@camel25.mindspring.com>...
:neline@pacific.net.sg wrote in message
<3701EDE0.F74B789B@pacific.net.sg>...
::Tried to install Perl on windows using cygwin.
::After running sh Configure it stops and says it needs 'awk'
::Searched cygnus but come up empty handed. Can someone help - do I really
::need awk and if so where do I get it for use with cygwin. (Do I have to
::build awk from scratch?)
::regards
:
:In the latest Perl Journal there is an article describing installing Perl
:and Perl/Tk on Win32 by Steve Lidie. I am pretty sure it talked about
using
:cygwin, you might want to check it out.
Oops, I really meant:
Building Your Own Perl Win32 Binary
in TPJ #13. Sorry for any confusion.
AmD
--
$email{'Allan M. Due'} = ' All@n.Due.net ';
--random quote --
Even if you aren't in doubt, consider the mental welfare of the person who
has to maintain the code after you, and who will probably put parens in the
wrong place.
- Larry Wall in the perl man page
------------------------------
Date: Thu, 01 Apr 1999 14:06:12 +0100
From: Lucio Godoy <lucio@corp.netcom.net.uk>
Subject: Monitoring the state of a serial port
Message-Id: <37036F44.D5EB006B@corp.netcom.net.uk>
Hi All;
I would like to monitor the state of my serial port, for instance:
if port is high or 1 do something and when the port is low or 0 do
something else.
But i dont know how to interact with the serial ports. I use a linux
box, /dev/ttyS0.
How can i do that, plz ?
THank you
Lucci
------------------------------
Date: Thu, 1 Apr 1999 20:09:50 -0800
From: "Alvin Yong" <alyong@mbox3.singnet.com.sg>
Subject: multi-d array
Message-Id: <7dvnq5$4ft$1@mawar.singnet.com.sg>
how do I create an array-of-array or a multi-d array (I only need a 2-d
array) Can I do something similar to what I do in C "Lol [i][j]"
it seems that ALL the references and stuff I read abt multi-dimensional
array has to have to initialised values in each array as show
"
@Lol = (
["fred". "barney"],
["george", "jane", "elroy"],
["homer", "marge", "bart"]
}
"
can't I just create an array with null values and fill in the value with a
counter (eg i)
for (i=0; i < max; i++)
for (j=0; j< max; i++)
{
@Lol[i][j] = "happy"
}
pls I need help !!!
------------------------------
Date: 1 Apr 1999 12:32:51 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: multi-d array
Message-Id: <slrn7g6prj.ncd.sholden@pgrad.cs.usyd.edu.au>
Alvin Yong <alyong@mbox3.singnet.com.sg> wrote:
>how do I create an array-of-array or a multi-d array (I only need a 2-d
>array) Can I do something similar to what I do in C "Lol [i][j]"
>
>it seems that ALL the references and stuff I read abt multi-dimensional
>array has to have to initialised values in each array as show
>"
>@Lol = (
>["fred". "barney"],
>["george", "jane", "elroy"],
>["homer", "marge", "bart"]
>}
>"
If you'd bothered reading the rest of the documentation that you copied
that from, you would have seen an example very similar to your attempt
below (aside from your non-perl code and bug of course).
If you read 'ALL' the documentation that is obviously relevant instead of
stopping at the first little section when it doesn't answer your exact
query.
It also doesn't hurt to try what you want to do and see what perl does...
Unless of course your experimenting with 'unlink'. Or system and strings
with 'rm' in them...
>
>can't I just create an array with null values and fill in the value with a
>counter (eg i)
>for (i=0; i < max; i++)
>for (j=0; j< max; i++)
You can't just use C code as perl code...
Try adding the $s and the {} and it might work...
You may also want to get rid of the infinite loop in the inner for loop...
>{
>@Lol[i][j] = "happy"
^
You sure you don't mean $ ????
>}
What happened when you tried... (after fixing the code to actually be
perl code)?
--
Sam
Of course, in Perl culture, almost nothing is prohibited. My feeling is
that the rest of the world already has plenty of perfectly good
prohibitions, so why invent more? --Larry Wall
------------------------------
Date: 1 Apr 1999 11:58:52 GMT
From: "Frank" <frankvdm@diza.nl>
Subject: Re: newb quest about perl builds for win32 -- how to start?
Message-Id: <01be7c36$2fb630e0$0100a8c0@fra1>
Are you sure there isn't a map called bin, in your perl directory ? There
you can find perl.exe (if the installation went well that is...)
If not, re-install perl and answer yes to all the questions asked during
installation...
Frank.
Davekonz <davekonz@aol.com> schreef in artikel
<19990331202223.15318.00000518@ng-cc1.aol.com>...
> First off I've never used perl before on any platoform...
>
> Now for da question:
>
> I've just downloaded & installed build 509 for win32 from
www.activestate.com,
> ie: a free ware version for windows, cool.
>
> However when I go to Start->Programs->ActivePerl folder that got
installed the
> only item in there is "Onilne Documentation"
>
> So da questions are:
>
> a) does that sound right?
> b) how to I run something like hello world ?
>
> Shouldn't there be an interpreter that I need to start or something?
>
> Told ya I ver a new b :)
>
> Thanks
> Dave Konz
>
------------------------------
Date: 01 Apr 1999 15:35:35 +0200
From: jari.aalto@poboxes.com (Jari Aalto+mail.perl)
Subject: Re: Perl efficiency vs. C++.
Message-Id: <ptraewscvko.fsf@blue.sea.net>
Heng Sun Chao <hschao@crosskeys.com> writes:
>
> Greetings,
>
> I'm a newbie to Perl. I am trying to determine if it worth
> implementing some software in PERL or to maintain C++.
> My main concern is speed and maintenance. I was wondering if there
> are any studies or benchmarks comparing the speeds of the two languages.
Forget C++.
All you can do with C++ you can do with perl.
The difference is that the code needed in Perl is 1/20th of the C++
equivaent. Development time is 1/20th and maintenance time is
1/10th.
In addition, you get platform independency for free.
Yes, C++ runs faster, but in the long run other measures becomes more
important.
jari
------------------------------
Date: 1 Apr 1999 13:07:17 GMT
From: "Nico Oosterwijk" <N.Oosterwijk@neveru.nl>
Subject: Re: Perlshop
Message-Id: <7dvr25$qe7@news3.euro.net>
OK, I'm calling the script file with
<form METHOD=POST ACTION="http://server/cgi-sys/perlshop.cgi">
<input type=SUBMIT NAME=ACTION value="ENTER SHOP">
<input TYPE=HIDDEN NAME=thispage VALUE="page1.html">
<input TYPE=HIDDEN NAME=ORDER_ID VALUE="!ORDERID!">
In the perlshop.cgi file there is a line that I don't understand:
if (lc $unique_id eq '!ORDERID!') || ( $unique_id !~ /\d{$id_length}?/ ))
{&Transmission_error(3);}
I'd always receive the subroutine Transmission_error(3) all the time......
What does the line means:, I think it first checks if !ORDERID! is equal to
the variable $unique_id, but then?
What is || ($unique_id !~/\d{$id_length}?/)) ????
If it is a problem with the variables, I'll check with arpanet, but it's a
free version and support is not guaranteed....
thanks in advance,
Nico Oosterwijk
David L. Cassell <cassell@mail.cor.epa.gov> wrote in message
news:3702CB42.5A2287ED@mail.cor.epa.gov...
> Nico Oosterwijk wrote:
> > Is there anyone out there who can help me with the perlshop.cgi file
from
> > Arpanet? I'm new to perl and need help to resolve an error message.
> > tia,,
> >
> > Nico Oosterwijk
>
> Are you sure it's a Perl error message? All the Perl error messages are
> given (with detailed explanations) in the perldiag manpage. So either
> type 'perldoc perldiag' at a command prompt to scan through it, or use
> the html version of the docs and click on 'perldiag'.
>
> We could be of more help if you told us what the error message *was*,
> you know. It might not be Perl at all. It might be the server, or a
> cgi problem, in which case this really isn't the newsgroup to go to
> for help...
>
> David
> --
> David L. Cassell, OAO cassell@mail.cor.epa.gov
> Senior computing specialist
> mathematical statistician
------------------------------
Date: 1 Apr 1999 08:46:40 -0500
From: Laird Nelson <ljnelson@unix.amherst.edu>
Subject: pod2html: how to use?
Message-Id: <370378c0.0@amhnt2.amherst.edu>
I've read the FAQ, the pod2html usage message, the manpages and the
source, and I still can't figure out how to use pod2html properly
(specifically to get it to make appropriate cross references in the
resultant HTML).
Here's the (very, very simple) situation.
The following files of mine contain pods:
/some/root/bin/spmsbuild
/some/root/bin/spmsmake
/some/root/bin/spmspdesc
/some/root/bin/spmsbtree
/some/root/lib/perl/SPMS.pm
/some/root/lib/perl/SPMS/Tree.pm
/some/root/lib/perl/SPMS/Checkpoint.pm
I can run pod2html from any directory that you kind souls tell me to.
What I'd like to have happen is for pod2html to convert the
documentation for all of these pod-containing files into HTML with as
many cross links as possible (including, if possible, links to the
actual perl documentation as well, where they say things like "see
L<perl>").
It is not normally my style to appeal this pathetically for free
assistance :-) but I really cannot make hide or hair of the pod2html
documentation. Can someone explain to me either (a) how to do all
this or (b) what the difference between libpods, podroot and podpath
is?
Thanks in advance.
Cheers,
Laird
--
laird j. nelson '94 (mailto:ljnelson@unix.amherst.edu)
associate (software engineer), time0 group
perot systems corporation (http://www.perotsystems.com)
101 main street; cambridge, ma 02141; (617) 303-5059
------------------------------
Date: Thu, 01 Apr 1999 15:30:44 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: quick question...
Message-Id: <37037504.17425DB8@datenrevision.de>
apple wrote:
>
> How can I create a HTML file by using Perl in case of I don't want to
> use CGI?
You asked that question already. Don't expect answers in 5 minutes.
Usenet rewards patience. (And comp.lang.perl.misc rewards reading the
docs.)
Cheers,
Philip
------------------------------
Date: Thu, 01 Apr 1999 14:42:47 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: random elements from an array
Message-Id: <370369C7.8866062C@datenrevision.de>
Abigail wrote:
>
> my $i = int rand @array;
> @array [$i, $#array] = @array [$#array, $i];
> my $element = pop @array;
Ooh, clever. No shuffling elements around in memory as you delete
elements only at the end.
Cheers,
Philip
------------------------------
Date: 01 Apr 1999 05:37:03 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: random elements from an array
Message-Id: <m1d81oh37k.fsf@halfdome.holdit.com>
>>>>> "Philip" == Philip Newton <Philip.Newton@datenrevision.de> writes:
Philip> Abigail wrote:
>>
>> my $i = int rand @array;
>> @array [$i, $#array] = @array [$#array, $i];
>> my $element = pop @array;
Philip> Ooh, clever. No shuffling elements around in memory as you delete
Philip> elements only at the end.
Of course, there's no point storing it if you're just going to pop it.
my $i = int rand @array;
$element = $array[$i];
if ($i < @array) {
$array[$i] = pop @array;
} else {
$#array--;
}
print "Just another Perl popper,"
--
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: Thu, 01 Apr 1999 13:27:19 GMT
From: anne@storm.ca (Chris Tremblay)
Subject: Re: Sun Microsystems Sponsors Perl Mongers
Message-Id: <3703741e.38225044@news.storm.ca>
HMMM, what day is today?
On 1 Apr 1999 03:26:02 -0500, ziggy@panix.com (Adam Turoff) wrote:
>brian d foy <comdog@computerdog.com> wrote:
>>SUN MICROSYSTEMS SPONSORS PERL MONGERS
>[...]
>>David Adler, Ruthless Dictator of NY.class [...]
>
>NY has class??!? I thought it was just a bunch of dancing chiuhuahas.
>
>>Adam Turoff,
>>charter member of NY.class and leader of Philly.class, rejoiced
>>in the triumph of the cathedral-style re-organization as he took
>>a break from installing NT on his Beowolf cluster.
>
>Today is as good a day as any to announce our super secret project:
> JPT - J++ POWER TOOLS
> Reimplementing DOS Tools in J++ for Brain Damaged
> Platforms like Linux, FreeSDB, OpenNet, and SolarisOS.
>
> Packages in the first public technology release:
> autoexec.bat.class copy.class command.class config.sys.class
> drvspace.class edlin.class exe2bin.class io.sys.class loadhi.class
> mem.sys print.class rename.class
>
> To turn your slow, tired Linux workstation into a lean, mean,
> high-powered DOS machine, just type
>
> bash % command.class
> JPT - Version 8.98.4063
>
> C>autoexec.bat.class
> Loading DriveSpace...Done.
>
> C>prompt $P$G
> C:\> logout.class
> Bad command or filename
>
> C:\> lo.class
> Bad command or filename
>
> C:\> logout
> Bad command or filename
>
> C:\> ^D
> Bad command or filename
>
> C:\> exit.class
> Bad command or filename
>
> C:\> exit
>
> bash %
>
>
>Z.
------------------------------
Date: Thu, 01 Apr 1999 14:34:37 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Suppressing output from an externally run program...
Message-Id: <370367DD.3020BC3F@datenrevision.de>
Larry Rosler wrote:
>
> It doesn't matter what 'his' shell is, unless it is hiding in /bin/sh.
> From `perldoc -f system`:
>
> If there is only one scalar argument, the argument is checked for shell
> metacharacters, and if there are any, the entire argument is passed to
> the system's command shell for parsing (this is /bin/sh -c on Unix
> platforms, but varies on other platforms).
It does indeed say that. I was wondering how Perl knew which shell to
choose to execute the command. perldoc -f is your friend -- or at least
should have been mine. Thank you for the correction, Larry!
(I can imagine that there might be weird setups with a csh-compatible
shell installed as '/bin/sh' [maybe some Sun places?], but that is
probably rather unusual.)
Cheers,
Philip
------------------------------
Date: Thu, 01 Apr 1999 13:02:55 GMT
From: sstarre@my-dejanews.com
Subject: Re: system ('myproc &');
Message-Id: <7dvqps$16l$1@nnrp1.dejanews.com>
Thanks to everyone for taking the time to reply. Andrew- what you suggest
sounds like the most likely candidate. No WONDER I didn't find any answers in
the perl docs! In this case it seems to be that Perl doesn't behave in the
CGI environment as I would have expected.
I will definitely set up a testcase outside of CGI and see how it runs. I bet
you're right too- it will probably run fine. I suspected this could be an
issue but I didn't see it mentioned in the FAQ's or Camel or in other pages
I'd researched. I did do my homework, just the wrong assignment :)
Ala- "myproc" is a shellscript that does mailing- to thousands of club
members, so I can't have the browser hang aroud for it to complete, hence the
need for &. THe perl CGI writes the shellscript, and from there I try to pass
control to the shellscript as a background process (unix) then return to the
browser. Instead, its waiting for the shellscrip to complete, which only
suceeds in timing out the browser.
You guys are great- thanks again.
In article <F9FxFA.2F9@world.std.com>,
aml@world.std.com (Andrew M. Langmead) wrote:
> sstarre@my-dejanews.com writes:
> Now from the CGI standard documentation, or your server's
> documentation, find out how the server knows that the CGI script is
> done. It does so by determining when the child processes standard
> output stream is closed. Since the program being called from system()
> is inheriting a copy of the parent's filehandles, it is keeping a pipe
> to the server open. Since the server doesn't sees the pipe to the CGI
> script close, it doesn't think that the CGI script is done.
> --
> Andrew Langmead
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 01 Apr 1999 08:41:05 -0500
From: rkc@ll.mit.edu
Subject: Threads: ready for real applications? Perl Internals.
Message-Id: <3703772E.795C2B32@ll.mit.edu>
I would like to write a threaded perl application, but some
documentation that comes with perl 5.00502 indicates that there remain
problems--a memory leak, and some other unlisted bugs. In another
location in the documentation, this capability is listed as
"experimental". I need to write an application that will run for
extended periods of time, and am trying to decide how to proceed. Two
options come to mind:
(1) Write threaded perl code.
(2) Write my own roll-back and sleep code.
I would rather do (1), as it is easier and uses less computation, but I
want to know what the state of the perl threading work is. Is someone
still actively improving this code? Any estimate on when a
non-experimental version might be ready? I'm do know much about perl
internals, so I can't easily muck around to assess the current state, or
make improvements as might be needed.
Any information about current status would be valuable. Thanks,
Rob
------------------------------
Date: Thu, 01 Apr 1999 14:03:54 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Validating Email addresses
Message-Id: <370360AA.EB992F04@datenrevision.de>
Greg Griffiths wrote:
>
> if ($ToEmail=~/\@/)
> {
> $To=$Data{'ContactName'};
> $ToEmail=$Data{'Email'};
First you are checking $ToEmail, then you overwrite it with
$Data{'Email'}. Is this what you intended to do? Or did you really want
to match $Data{'Email'} against /\@/ ?
Cheers,
Philip
------------------------------
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 5276
**************************************
