[13225] in Perl-Users-Digest
Perl-Users Digest, Issue: 635 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 25 03:07:26 1999
Date: Wed, 25 Aug 1999 00:05:16 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 25 Aug 1999 Volume: 9 Number: 635
Today's topics:
a question before a post <nead@neadwerx.com>
Re: a question before a post (Martien Verbruggen)
Re: a question before a post <nead@neadwerx.com>
Re: Environment variables (Steve Manes)
Re: Environment variables (Martien Verbruggen)
exec problems please HELP alghazn@my-deja.com
Expect remote terminal question (stty issue?) <wookie@star.net>
Re: Help for the newbie <makkulka@cisco.com>
Re: Help! Need to check <madebeer@igc.apc.org>
Re: learning perl from a book,need help <madebeer@igc.apc.org>
Re: Perl a Black Sheep? <wookie@star.net>
Re: Perl Book <wookie@star.net>
Re: Perl don't stop <madebeer@igc.apc.org>
Re: Perl Module Installation <polarbear_8@my-deja.com>
Re: Problem opening a flat-file for read (Steve Manes)
Re: Problem processing form variables in CGI (elephant)
Re: Reading / writing Java serialised objects from PERL <madebeer@igc.apc.org>
Re: Statistics for comp.lang.perl.misc (Philip 'Yes, that's my address' Newton)
use of the Process package, since fork() is not support <baal@c2i.net>
Re: Why $|++ (was: Re: perl system()) (Chris Fedde)
Re: Why use Perl when we've got Python?! <JamesL@Lugoj.Com>
Re: Win32::OLE to read Word file <peterw@innate.co.uk>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Aug 1999 04:39:25 GMT
From: "Nick Downey" <nead@neadwerx.com>
Subject: a question before a post
Message-Id: <01beeeb3$ab30c790$73463d80@r52h83>
If I were to post a question about CGI.pm, Netscape, and cookies would
anyone be willing to aid in this matter, or should I find another group to
ask?
I.e. This is almost a perl question, but in truth a Netscape/cookies issue
(I think).
------------------------------
Date: Wed, 25 Aug 1999 04:50:50 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: a question before a post
Message-Id: <KCKw3.2672$hf4.11188@nsw.nnrp.telstra.net>
In article <01beeeb3$ab30c790$73463d80@r52h83>,
"Nick Downey" <nead@neadwerx.com> writes:
> If I were to post a question about CGI.pm, Netscape, and cookies would
> anyone be willing to aid in this matter, or should I find another group to
> ask?
If the question is about how to use the CGI module, and it's not
answered in the CGI documentation, sure (although maybe clp.modules
might be more appropriate). If the question is about the
Perl language, sure. If the question is about how cookies work, and
how Netscape works, then no, you should ask in a CGI group.
Whenever your question can be asked in a way that the language can be
replaced by another language, then it's not a question for a language
specific forum.
> I.e. This is almost a perl question, but in truth a Netscape/cookies issue
> (I think).
In that case it should probably be asked in one of the
comp.infosystems.www.* groups.
Martien
--
Martien Verbruggen |
Interactive Media Division | For heaven's sake, don't TRY to be
Commercial Dynamics Pty. Ltd. | cynical. It's perfectly easy to be
NSW, Australia | cynical.
------------------------------
Date: 25 Aug 1999 05:11:58 GMT
From: "Nick Downey" <nead@neadwerx.com>
Subject: Re: a question before a post
Message-Id: <01beeeb8$370a7d20$73463d80@r52h83>
Martien Verbruggen <mgjv@comdyn.com.au> wrote in article
<KCKw3.2672$hf4.11188@nsw.nnrp.telstra.net>...
> If the question is about how to use the CGI module, and it's not
nope.
> Perl language, sure. If the question is about how cookies work, and
> how Netscape works, then no, you should ask in a CGI group.
nope.
This piece of code hands a cookie to Internet explorer without a problem. I
have confirmed this by turning on the 'warn before accepting cookies'
option. This piece of code however does not issue cookies to Netscape,
verification attempted via the same method.
#!/usr/bin/perl -w
use lib '/path_to_myModule/';
use strict;
use CGI;
use myModule;
my($cgi) = new CGI;
my($session, $cookie_name, %cookie_data);
$cookie_name = 'nick';
$session = &some_sub_in_myModule_basically_integer
$cookie_data{'sessionid'} = $session;
<there is more to the hash than this, but it is very simple>
$cookie = $cgi->cookie( -name => $cookie_name,
-value => \%cookie_data,
-domain => CONSTANT_IN_myModule
);
print $cgi->header(-cookie=>$cookie);
Here, I'll even put the tags in for you...
<FLAME>
... please insert flame here....
</FLAME>
------------------------------
Date: Wed, 25 Aug 1999 05:23:00 GMT
From: smanes@NOSPAM.HEREmagpie.com (Steve Manes)
Subject: Re: Environment variables
Message-Id: <37c87d29.209959231@news.panix.com>
On Tue, 24 Aug 1999 15:14:32 GMT, lemull@unx.sas.com (Lee Mulleady)
wrote:
>Is there any way to set Environment variables (on Unix), so that they
>stay set after the script ends?
Not from Perl but you can from your shell. Just precede the shell
script with a '.' ... i.e.
> . ./newvars_sh
That forces the shell script to be interpreted by your current shell.
------------------------------
Date: Wed, 25 Aug 1999 06:53:02 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Environment variables
Message-Id: <ipMw3.2733$hf4.14077@nsw.nnrp.telstra.net>
In article <37c87d29.209959231@news.panix.com>,
smanes@NOSPAM.HEREmagpie.com (Steve Manes) writes:
> On Tue, 24 Aug 1999 15:14:32 GMT, lemull@unx.sas.com (Lee Mulleady)
> wrote:
>>Is there any way to set Environment variables (on Unix), so that they
>>stay set after the script ends?
<OFFTOPIC>
> Not from Perl but you can from your shell. Just precede the shell
> script with a '.' ... i.e.
>
> > . ./newvars_sh
>
> That forces the shell script to be interpreted by your current shell.
Oh really?
Have you tried it with csh and tcsh? And besides, it's not the same
thing. '.' in sh derivatives, and source in csh derivative _source_
the file, and run it in the current shell.
</OFFTOPIC>
Martien
--
Martien Verbruggen |
Interactive Media Division | This matter is best disposed of from a
Commercial Dynamics Pty. Ltd. | great height, over water.
NSW, Australia |
------------------------------
Date: Wed, 25 Aug 1999 05:10:00 GMT
From: alghazn@my-deja.com
Subject: exec problems please HELP
Message-Id: <7pvtr2$5c9$1@nnrp1.deja.com>
Hi,
I'm having problems trying to call one of my scripts, say myscript.cgi
from another script, say, mainscript.cgi
Doing this in the mainscript.cgi (as explained by someone earlier)
exec "myscript.cgi?prefix=qwert&&indirect=hello&&criteria=agent";
gives a server error.
If instead I put in the line:
exec ("myscript.cgi" , "qwert100", "hello", "agent");
I still an error.
What doesn't give an error is:
exec ("perl ravtest.cgi \"RA100\" \"hello\" \"agent\" ");
BUT the argumnets are ignored.
Basically, can someone explain how I should format the call so that the
arguments get passed correctly?
thanks
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 24 Aug 1999 22:07:16 -0700
From: Joe Schmoe <wookie@star.net>
Subject: Expect remote terminal question (stty issue?)
Message-Id: <37C37A04.3802A80E@star.net>
Hello, and thanks for seeing if you can help. :)
I'm attempting to convert some old Expect scripts to Perl using the
Expect module
(http://theory.uwinnipeg.ca/scripts/CPAN/authors/id/AUSCHUTZ/Expect.pm-1.07.tar.gz).
In this particular case, I ssh through the firewall and then telnet to
the mail machine. Once there, I want to be able to cd to an arbitrary
directory and execute an arbitrary command (Pine, in this case).
I'm connecting from rxvt or xterm (doesn't seem to matter) in RH Linux
5.1 to a machine running RH Linux 4.2.
All goes relatively well (if a bit slowly) until I get into Pine. I
_should_ see this:
#########
PINE 3.95 MAIN MENU Folder: INBOX 10
Messages
? HELP - Get help using Pine
C COMPOSE MESSAGE - Compose and send a message
I FOLDER INDEX - View messages in current folder
L FOLDER LIST - Select a folder to view
A ADDRESS BOOK - Update address book
S SETUP - Configure or update Pine
Q QUIT - Exit the Pine program
Copyright 1989-1996. PINE is a trademark of the University of
Washington.
? Help P PrevCmd R
RelNotes
O OTHER CMDS L [ListFldrs] N NextCmd K
KBLock
#########
However, what I see is this:
#########
PINE 3.95 MAIN MENU Folder: INBOX 10
Messages
? HELP - Get help using Pine
C COMPOSE MESSAGE - Compose and send a message
I FOLDER INDEX - View messages in current folder
L FOLDER LIST - Select a folder to view
A ADDRESS BOOK - Update address book
S SETUP - Configure or update Pine
Q QUIT - Exit the Pine program
? Help P PrevCmd R
RelNotes
[Folder "INBOX" opened with 10 messages]
#########
As you can see, the last few lines are jumbled / missing. Any fixes
would be appreciated; I'm simply not that knowledgeable about terminal
issues. The script follows below:
#########
#!/usr/bin/perl -w
######################################################################
# expect_ssh_telnet.pl - expect script to establish telnet connection
# via ssh
######################################################################
use strict;
use Expect;
@ARGV >= 5 || die "Usage $0 <ssh_server> <ssh_password>
<telnet_server> <telnet_username> <telnet_password> <target_directory>
<command>\n";
my($ssh_server, $ssh_password, $telnet_server, $telnet_username,
$telnet_password, $target_directory, $command) = @ARGV;
# make sure to have correct prompt for your shell!!
my $prompt = '$';
my $connection = Expect->spawn("ssh $ssh_server") || die "Cannot SSH
$ssh_server $!";
######################################################################
$connection->log_stdout(0);
unless ( $connection->expect(45, 'assword:') ) {
print 'Connection timed-out waiting for ssh password prompt.';
exit(0);
}
print $connection "$ssh_password\r";
unless ( $connection->expect(30, $prompt) ) {
print 'Connection timed-out waiting for ssh server prompt.';
exit(0);
}
print $connection "telnet $telnet_server\r";
unless ( $connection->expect(30, 'ogin:') ) {
print 'Connection timed-out waiting for login prompt.';
exit(0);
}
print $connection "$telnet_username\r";
unless ( $connection->expect(30, 'assword:') ) {
print 'Connection timed-out waiting for password prompt.';
exit(0);
}
print $connection "$telnet_password\r";
unless ( $connection->expect(30, $prompt) ) {
print 'Connection timed-out waiting for prompt.';
exit(0);
}
print $connection "cd $target_directory\r";
unless ( $connection->expect(30, $prompt) ) {
print 'Connection timed-out waiting for prompt at new directory.';
exit(0);
}
print $connection "$command\r";
$connection->interact();
------------------------------
Date: Tue, 24 Aug 1999 21:07:59 -0700
From: Makarand Kulkarni <makkulka@cisco.com>
Subject: Re: Help for the newbie
Message-Id: <37C36C1E.DE0F52A8@cisco.com>
[ Tim Allen wrote:
> Is there a tutorial somewhere that can show me how to manipulate an sql
> database with a perl program?
A new book is just out.
MySQL & mSQL
By Randy Jay Yarger, George Reese & Tim King
1-56592-434-7, Order Number: 4347
504 pages (est.), $34.95 (est.)
Chapter 10 deals with manipulation of databases using PERL dbi.
And you are lucky. This Chapter is online and available to read.
http://www.oreilly.com/catalog/msql/chapter/ch10.html
--Makarand
------------------------------
Date: Tue, 24 Aug 1999 20:19:48 -0700 (PDT)
From: Michael de Beer <madebeer@igc.apc.org>
Subject: Re: Help! Need to check
Message-Id: <APC&1'0'50775d97'4f0@igc.apc.org>
>I want to make a lotto kind of game. I want to choose 6 different
>numbers from 1-49. The random numbers part is ez, but how do I make it
>so no number repeats? (Every number is different)
Lots of ways. this is one way:
You could randomize an array from 1..49, and then take the first six
values from that randomized array.
See the perlfaq 'How do I shuffle an array randomly?',
and then
@array_of_six = @array[0..5];
-Mike
------------------------------
Date: Tue, 24 Aug 1999 19:56:22 -0700 (PDT)
From: Michael de Beer <madebeer@igc.apc.org>
Subject: Re: learning perl from a book,need help
Message-Id: <APC&1'0'50775d96'e16@igc.apc.org>
Should these be put in the FAQ?
- 'what is a string' question and
- 'what is the difference between single and double quotes' question
-Mike
------------------------------
Date: Tue, 24 Aug 1999 22:17:44 -0700
From: Joe Schmoe <wookie@star.net>
Subject: Re: Perl a Black Sheep?
Message-Id: <37C37C78.3DEF4541@star.net>
Disdain? What a shame.
Managers look down on Perl due to its being slower than compiled C.
Perl compilation may change this. In any case, I find the argument
silly in light of how frequently projects change (especially in Internet
work). Why spend months and much $ on programming time for a project
which will change next week? I'd rather take a small performance
penalty, save several weeks, if not months of dev time, and create
something which can be easily changed to fit the changing needs of the
project.
I think a lot of other people dislike the syntax, which they consider
ugly. Perhaps they prefer the simplicity of C being as it has fewer
built-in functions. I guess there's something to be said for creating a
symphony with 4 notes, but I'd rather have a few octaves to draw from.
It really comes down to determining what you enjoy about programming. I
like creation with reasonable challenges, others live for the
challenges, only. To each their own, I guess.
Phil
------------------------------
Date: Tue, 24 Aug 1999 22:21:33 -0700
From: Joe Schmoe <wookie@star.net>
Subject: Re: Perl Book
Message-Id: <37C37D5D.BA7741B8@star.net>
Also consider looking into Mastering Regular Expressions. It really
modified how I approach Perl.
------------------------------
Date: Tue, 24 Aug 1999 21:08:24 -0700 (PDT)
From: Michael de Beer <madebeer@igc.apc.org>
Subject: Re: Perl don't stop
Message-Id: <APC&1'0'50775d99'218@igc.apc.org>
This isn't really a perl language issue, so I doubt you'll get a good
response here. Try comp.infosystems.www.nt or another newsgroup.
-Mike
------------------------------
Date: Wed, 25 Aug 1999 05:49:16 GMT
From: polarbear <polarbear_8@my-deja.com>
Subject: Re: Perl Module Installation
Message-Id: <7q004q$6sf$1@nnrp1.deja.com>
Hi,
Thank you for your response. In this case, do you suggest I re-install
Perl on my system?
Regards.
In article <37C2DEBB.B72F23D0@mail.cor.epa.gov>,
David Cassell <cassell@mail.cor.epa.gov> wrote:
> polarbear wrote:
> >
> > Hi,
> >
> > I am trying to install the perl module, POP3Client, and when I did a
> > 'make install', it gives me the following error message,
> >
> > Perl lib version (5.00502) doesn't match executable version
(5.00503)
> [snip]
>
> It looks like your lib version is 5.005_02 while your
> Perl is 5.005_03. Make sure everything is up to date,
> like your Perl version is.
>
> David
> --
> David Cassell, OAO cassell@mail.cor.epa.gov
> Senior computing specialist
> mathematical statistician
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 25 Aug 1999 05:17:31 GMT
From: smanes@NOSPAM.HEREmagpie.com (Steve Manes)
Subject: Re: Problem opening a flat-file for read
Message-Id: <37c77aee.209388148@news.panix.com>
On Tue, 24 Aug 1999 20:21:45 +0100, news <news@news.news> wrote:
>open(READ, "$database") || die $!;
>while(<READ>)
> {
> ($fieldname,$fieldage,$fieldcountry)=split(/:/);
> $numofpeople++ if $fieldage ==20 and $fieldcountry="foobar";
> }
Two problems with the "condition" following "and". First, it's not a
condition. It's actually setting $fieldcountry to the value "foobar".
Use 'eq' instead. Secondly, you either have to strip the newline from
$_ (using 'chop' or 'chomp') or you have to test for "foobar\n".
------------------------------
Date: Wed, 25 Aug 1999 14:21:40 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: Problem processing form variables in CGI
Message-Id: <MPG.122e1a60b5e31c92989c7f@news-server>
siafhir2@my-deja.com writes ..
>@temp1 = split(/\s/, $fields[$index]);
>$facfull = $temp1[0];
>for ($lc=1;$lc<@temp1;$lc++) {$facfull = $facfull."+".$temp1[$lc];}
while this is a shockingly long way to write
$field[$index] =~ s/\s/+/;
it is still correct and works fine .. what I was really interested in
seeing was the code that accepts the query string from the CGI ..
because that is most likely where your problem is
it would seem that I need to see the code that creates this %form_data
hash that you keep using .. I'd also like to see how the data gets from
that hash into this @fields array that you actually use in your code
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: Tue, 24 Aug 1999 20:24:17 -0700 (PDT)
From: Michael de Beer <madebeer@igc.apc.org>
Subject: Re: Reading / writing Java serialised objects from PERL?
Message-Id: <APC&1'0'50775d98'611@igc.apc.org>
check out http://www.wddx.org/
-Mike
------------------------------
Date: Wed, 25 Aug 1999 04:23:42 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <378ebd3a.35563590@news.nikoma.de>
On Thu, 15 Jul 1999 18:45:36 GMT, grussell@hushmail.com (Gabriel
Russell) wrote:
>On Tue, 22 Jun 1999 02:20:31 -0500, rlb@intrinsix.ca (Lee) wrote:
>
>>Come, now, Abigail. You *are* human.
>>
>>Aren't you?
>
>Hmm, I can't see a single article by Abigail here on SuperNews.
>Does she get filtered off some servers?
<AOL>Me, too!</AOL>
For some reason, I have only seen very few of Abigail's articles on my
server (news.nikoma.de). Next to none. I was wondering something
similar, too.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Wed, 25 Aug 1999 04:44:53 GMT
From: "[L] Vicious!" <baal@c2i.net>
Subject: use of the Process package, since fork() is not supported on Win32 platforms
Message-Id: <9xKw3.2531$nd.180502@juliett.dax.net>
I use Win98 & the latest ActiveState Perl.
OK, so I am trying to make good use of the Process package, since fork() is
not supported on Win32 platforms. But when I checked it out I found this
example & description for it.
Win32::Process::Create($ProcessObj,
"D:\\winnt35\\system32\\notepad.exe",
"notepad temp.txt",
0,
NORMAL_PRIORITY_CLASS,
".")|| die ErrorReport();
=item Win32::Process::Create($obj,$appname,$cmdline,$iflags,$cflags,$curdir)
This whould indicate that Process will run external aplications. Fine, but I
need to do a longrunning sub{} while still updating the Tk-mainwindow (Thus
avoiding a "dead" interface). Is this possible with Process? If not, is
there any other way to solve the problem?
Maybe I ought to credit this newsgroup on my products from now on? (o:
------------------------------
Date: Wed, 25 Aug 1999 04:18:36 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Why $|++ (was: Re: perl system())
Message-Id: <w8Kw3.5774$Pt1.2613@wormhole.dimensional.com>
In article <37C18D50.8F289320@home.com>,
Rick Delaney <rick.delaney@home.com> wrote:
>[posted & mailed]
>
>Abigail wrote:
>>
>
>> That's cargo cult programming, that's far, far worse than script
>> kiddes copying Matt's stuff. It's scary.
>
>Yes, using an idiom because some expert is using it is not a good
>reason, unless the expert has given a logical explanation for it. If
>they haven't explained it, you should have good reasons of your own for
>using it.
>
>For the record, poor typing is not a good reason, especially when
>properly spaced equal signs magically fix the problem.
>
>$| = 1;
>
I just have to contribute one of my favorite aphorisms here...
Good judgment comes from experience, and experience comes from
bad judgment.
-- Fred Brooks
------------------------------
Date: Tue, 24 Aug 1999 21:24:29 -0700
From: James Logajan <JamesL@Lugoj.Com>
Subject: Re: Why use Perl when we've got Python?!
Message-Id: <37C36FFD.7C1501A0@Lugoj.Com>
Xah wrote:
> English has evolved to be extremely
> versatile and useful. It gives you the freedom to express anything in any
> manner or style you want.
Don't know any English; just American <wink>. All that freedom leads to
ambiguity. Great for poetry; shitty for scientific work. So genius, how many
meanings do you think can be formed from the simple spoken phrase "Pretty
little girls school." Note the qualification of "spoken". The ear may hear
"girls," but can't tell if you meant "girl's" or "girls". And you can't
determine it from context. But even if you pick the plural form, I doubt you
could figure out all the meanings. And you are allowed to include only those
meanings that are of high plausibility.
The bottom line is that the English language is just not a good template to
use to design unambiguous languages. (I still don't know about the American
or Canadian languages though....)
> There
> is nothing whatsoever in math symbolism that cannot be expressed better by
> English. For example, a^2+b^2=c^2 can be expressed as "A number multiplied
> by itself plus another number multiplied by itself is equal to a third
> number multiplied by itself". Now, that's the verbose version you are
> thinking of. But look, "Sum of two squared equals one" is a condensed form.
Sorry, could not make sense out of that last sentence. Translated it to
something like 2^2 + ? = 1, which can't be right. So what color is the sky
in your world?
> Further, "Sum two squares is one". Or if you are a power speaker: "s2is1",
> which is more terse than the symbolic form and no information is lost
> because of _context_. (no, pure symbolism cannot do away with context) You
> know what a 'ball' is don't you? But in symbols, it's something like
> a^2+b^2+c^2=d with some elaborate coordinate system and an arcana of
> presumptions.
>
> I suggest that you go to www.perl.com and read Larry's speeches of perl
> conf. Anyone will do.
I just tried that. That man rambles on and on in an almost incoherent
manner.
> It really depends on who's doing the
> reading. If you are a math guy, then perhaps symbols is your thing. Most of
> us would prefer English. Legibility is purely subjective.
I note you say "Most of us," rather than "I". Who else are you writing for?
I insist that you not include me as an unwitting partner in your absurd
tirade.
> Granted that a new language like math symbolism might have little
> theoretical advantage down the road for some theoretical cleanness,
> precision, or maybe expressiveness, but English has been used for literally
> eons.
Surely you could be more precise than "eons". I'm not sure how long a
literal eon lasts. My dictionary says an eon is "an extremely long,
indefinite period of time; thousands and thousands of years." (Useful hint:
many dictionaries actually include a brief history of the English language.)
But I think I now know where you are coming from; I still haven't figured
out the color of the sky on your world though.
> The inertia is strong, the legacy is golden, and no one can stop it.
> As I said before, it has also evolved into perfection. People will use
> English and people will prefer English over any arcane symbolism. It is
> egregious a crime that math text books are littered with arcane symbols
> instead of plain English. It is why no one in the world likes math.
Euler just hated it. So did Gauss. They are both dead, so obviously it
didn't help them any. And thank God the bible was written in English, like
the good Lord intended!
>
> One thing with English is that it has not evolved into a computing language
> yet, thus Perl comes to the rescue. Here's a little history lesson for you:
>
> Larry wanted to process
> some text as his job requires at Jet Propulsion Lab. However, with all
> unix's power and piping shit with sed and awk and baggage but he couldn't do
> it well. Therefore, following the unix tradition, he quickly hacked up his
> own language and put it on the net thinking that he's done human kind a big
> favor. Since unix community consists of largely of morons, they quickly
> picked up Larry's tool without much decision process. Thus, it gradually
> rolls into a snow ball. Perl's success is a direct result of democracy.
Oh; now I get it <wink>. Well, the joke is on me. Don't mind me, I'm a bit
slow on the uptake. I should have read all the way through. And I looked at
your web site. I must admit you write great parody. Anyway, I'll post this
with my comments as I originally started to enter them. Great work.
[Remainder of brilliant work elided.]
------------------------------
Date: Wed, 25 Aug 1999 07:31:28 +0100
From: "Peter Wilkinson" <peterw@innate.co.uk>
Subject: Re: Win32::OLE to read Word file
Message-Id: <935563406.13486.0.nnrp-09.9e983bf8@news.demon.co.uk>
Oh! I think I have just re-invented the wheel, again. I needed
to index a whole bunch of reports in Word so I figured out how
to use the Word object model from Perl Win32::OLE so to as
programmatically save them as .txt files to allow then to
be indexed.
I did not know there was an example.... By the way what is 'Active
Perl'. I think I must have plain old, inactive, perl. It certainly
does not have any menus!
Peter Wilkinson
David Cassell <cassell@mail.cor.epa.gov> wrote in message
news:37C305CA.62D415A5@mail.cor.epa.gov...
> Peter Wilkinson wrote:
> >
> > I would be interested in the example you mention that
> > prints a word file. What exactly do you mean by 'print'?
> > It could mean send to the printer, or show on the screen.
> > Anyhow, a reference to it would be useful.
>
> I assumed the original poster was referring to the detailed
> example in the ActivePerl FAQ. Just go to your Start Menu
> and open the HTML documentation; go to the ActivePerl FAQ
> section "Usiung OLE with Perl" [oddly enough]; and then
> click on the question "How do I print a Microsoft Word
> document?" You'll get a chunk of code which shows how.
>
> HTH,
> David
> --
> David Cassell, OAO cassell@mail.cor.epa.gov
> Senior computing specialist
> mathematical statistician
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. Due to their sizes, neither the Meta-FAQ nor
the FAQ are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq" from
almanac@ruby.oce.orst.edu.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 635
*************************************
