[17476] in Perl-Users-Digest
Perl-Users Digest, Issue: 4896 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 15 18:10:35 2000
Date: Wed, 15 Nov 2000 15:10:17 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <974329817-v9-i4896@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 15 Nov 2000 Volume: 9 Number: 4896
Today's topics:
Mail::Tools from activestate doesnt work on win32 ? dtbaker_dejanews@my-deja.com
Re: Mail::Tools from activestate doesnt work on win32 ? <carvdawg@patriot.net>
multithreading help <aplesnia@my-deja.com>
Naming variables with variables, how? <cedarstorm@hotmail.com>
Re: Naming variables with variables, how? <ren.maddox@tivoli.com>
Re: Naming variables with variables, how? <sumus@aut.dk>
Re: Newbee question, help wanted ! <mischief@velma.motion.net>
Newbie File Uploading Problem <tech-removethis-@rch-usa.com>
NEWBIE:HTTPS connections using PERL <manav_agarwal@hotmail.com>
No idea about perl, Long post, short question <siwatkins@iee.org>
Re: No idea about perl, Long post, short question (Randal L. Schwartz)
Re: No idea about perl, Long post, short question <siwatkins@iee.org>
Re: No idea about perl, Long post, short question (Randal L. Schwartz)
Re: Please tell me why this code is wrong (ActiveState <ren.maddox@tivoli.com>
Re: Problems using Perl Win32::OLE & Acrobat --- solved (Fergus McMenemie)
Re: Q: Getting program line number? <mischief@velma.motion.net>
Re: question about reusing a variable from a regex <vandenb@NO.SPAMcistron.nl>
Re: Regex to zero pad an IP address <elijah@workspot.net>
Re: Regex to zero pad an IP address <neutron@jackbert.fc.hp.com>
Re: retrieve URL from text file (=?ISO-8859-1?Q?Test_v=B9_T~D~T_Coalition=AE?=)
Re: Using Perl OLE to edit acrobat annotations. (Fergus McMenemie)
Webpage logging script for number of simulaneous users? vnova94@hotmail.com
Re: What's wrong with the script <gellyfish@gellyfish.com>
Which module do I need? (Matt Daemon)
Win32::ODBC and Oracle stored procedures jvieira13@my-deja.com
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 15 Nov 2000 20:24:02 GMT
From: dtbaker_dejanews@my-deja.com
Subject: Mail::Tools from activestate doesnt work on win32 ?
Message-Id: <8uurco$p8o$1@nnrp1.deja.com>
I am experimenting with different Mail modules, and would like to use
one that would allow portable code... developed on my windows 98 machine
at home, and running on a remote domain host under LINUX.
Apparently, the only module supported by the activestate ppm install is
the MailTools module, which contains the Mail::Send and other modules.
I wrote a quick test following the docs, and it does not run... looks
like it is looking for a mail program to actually send mail which is
UNIX-only?
My questions are:
- Should the ActiveState ppm utility include a binary of the mail
program?
- Is there another module I should have installed in conjunction to make
it work on my win32 machine?
- Should I do an installation of Mail::Sendmail from CPAN, or is there a
different module that might work better for me?
thanx,
Dan
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 15 Nov 2000 17:37:37 -0500
From: H C <carvdawg@patriot.net>
Subject: Re: Mail::Tools from activestate doesnt work on win32 ?
Message-Id: <3A131030.D25CDE59@patriot.net>
have you tried Net::SMTP under ActivePerl? It's part of the libnet package
and so far it works just fine...
dtbaker_dejanews@my-deja.com wrote:
> I am experimenting with different Mail modules, and would like to use
> one that would allow portable code... developed on my windows 98 machine
> at home, and running on a remote domain host under LINUX.
>
> Apparently, the only module supported by the activestate ppm install is
> the MailTools module, which contains the Mail::Send and other modules.
> I wrote a quick test following the docs, and it does not run... looks
> like it is looking for a mail program to actually send mail which is
> UNIX-only?
>
> My questions are:
>
> - Should the ActiveState ppm utility include a binary of the mail
> program?
>
> - Is there another module I should have installed in conjunction to make
> it work on my win32 machine?
>
> - Should I do an installation of Mail::Sendmail from CPAN, or is there a
> different module that might work better for me?
>
> thanx,
>
> Dan
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
--
Q: Why is Batman better than Bill Gates?
A: Batman was able to beat the Penguin.
------------------------------
Date: Wed, 15 Nov 2000 19:03:53 GMT
From: Allan Plesniarski <aplesnia@my-deja.com>
Subject: multithreading help
Message-Id: <8uummk$kph$1@nnrp1.deja.com>
Hi, can someone advise how to do the following:
Oracle has database export and import utilities called exp and imp
respectively. exp produces a .dmp file which is read by imp. The idea
is to multithread imp to take advantage of multiple processors
available on SMP machines.
One proposed method using Perl is to pre-spawn multiple imp processes
with a single perl program. That program would then read the .dmp file
sequentially (it is lf delimited) and direct the contents in a round-
robin fashion to the imp processes. There would need to be a buffer
between the perl program and each imp process to store the contents
while imp takes its time processing it.
Links to sample multithreading code would be helpful.
Thanks,
Allan
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 15 Nov 2000 21:48:30 +0100
From: "Murx Cedarstorm" <cedarstorm@hotmail.com>
Subject: Naming variables with variables, how?
Message-Id: <uJCQ5.682$uV6.16780@zonnet-reader-1>
How can i name a variable using a variable? like:
$number = 3
$variable$number = test
thnx!
------------------------------
Date: 15 Nov 2000 15:15:03 -0600
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: Naming variables with variables, how?
Message-Id: <m3bsvhdjjc.fsf@dhcp11-177.support.tivoli.com>
"Murx Cedarstorm" <cedarstorm@hotmail.com> writes:
> How can i name a variable using a variable? like:
>
> $number = 3
> $variable$number = test
Short answer: Don't do that!!
Long answer: There are lots of reasons to avoid doing that, but if you
really need to you can do something like:
$number = 3;
${"variable$number"} = "test";
print "$variable3\n";
However, what you are almost always better off doing is using a hash:
$number = 3;
$variable{3} = "test";
print "$variable{3}\n";
HTH,
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: 15 Nov 2000 22:36:49 +0100
From: Jakob Schmidt <sumus@aut.dk>
Subject: Re: Naming variables with variables, how?
Message-Id: <itpolxxq.fsf@macforce.sumus.dk>
"Murx Cedarstorm" <cedarstorm@hotmail.com> writes:
> How can i name a variable using a variable? like:
>
> $number = 3
> $variable$number = test
${ "$variable$number" } = "test"; # if you want to combine two variables
# into a varname...
But don\t do it. There\s practically always a better way. Probably you
simply want an array or a hash. Believe me.
--
Jakob Schmidt
http://aut.dk/orqwood
etc.
------------------------------
Date: Wed, 15 Nov 2000 22:57:21 -0000
From: <mischief@velma.motion.net>
Subject: Re: Newbee question, help wanted !
Message-Id: <t1656hgn99op93@corp.supernews.com>
Ray <rvbeek@usa.net> wrote:
> Found it! At least, a part of it.
[ didn't work ]:
> ( $firstref , $remref ) = split(/ /, $refs, 2);
[ worked ]:
> ($firstref , $remref ) = split(' ', $refs, 2);
This is I think what you were looking for in the
original:
( $firstref, $remref ) = split(/\s/, $refs, 2);
I didn't catch the original problem, but I'm willing
to wager that q!/\s/! is easier to spot in one glance
than q!' '! is. It is not, however, exactly the same.
There are places in the standard docs that mention
q!split(' ', $stuff)!, so I'd bet that's the preferred
way to do it.
--
Chris Stith Motion Internet mischief@motion.net
`Whoa.' -- Neo, _The Matrix_
------------------------------
Date: 15 Nov 2000 15:15:48 -0600
From: Randall <tech-removethis-@rch-usa.com>
Subject: Newbie File Uploading Problem
Message-Id: <i2v51tsmk2pm2vqkfalkes0as027a2tk7c@4ax.com>
Haven't programmed for so long couldn't tell ya the diff between a
post and a parse, BUT....
I'm using the Ranson's Upload script, but can't figure out how to have
the file names say the same as they are posted on the site.
I have ul'd the script as I assume all have seen/used it. If not, I
will.
Also is there a way to stuff this into a separate directory for
different clients so that their files are kept within their
subdirectories, considering this uses a common <G> cgi-bin?
------------------------------
Date: Wed, 15 Nov 2000 17:03:02 -0500
From: manav agarwal <manav_agarwal@hotmail.com>
Subject: NEWBIE:HTTPS connections using PERL
Message-Id: <3A130816.86FA029F@hotmail.com>
Hi,
I'm new to Perl and was wondering if there are any modules that I can
use to get data from an HTTPS server.
thanks in advance.
Manav Agarwal
manav_a@yahoo.com
------------------------------
Date: Wed, 15 Nov 2000 19:54:17 -0000
From: "Simon Watkins" <siwatkins@iee.org>
Subject: No idea about perl, Long post, short question
Message-Id: <EOBQ5.1103$X03.23143@news2-win.server.ntlworld.com>
Hi, the short question is:
How can I amend a perl file that generates html to write the tag <base
href="someurl/acatalog/">
The long explanation should you know the answer and be interested is:
I'm customizing Actinic Catalog, and have discovered that their a couple of
problems with a perl file that writes html during the order cart phases.
The perl file rewrites all urls as absolute addresses, but doesn't pick up
on a few key ones like image rollover gifs, CSS files etc. I can fix this
by putting the base href tag directly in the html of the template it uses
for page creation. However, that breaks the local preview mode of the
catalog which relies on document relative links. The problem in the perl
generated pages is that a few of my linked files get broken on an upload,
and
javascript routines for image swaps get broken and are generally troublesome
because of this. However, I can fix the problem by use of <base
href="mydomain/acatalog/"> in the master HTML page because that sorts out
some of the links that the
perl file doesn't substitute absolute paths for - like image rollovers,
external javascript etc. Indeed, if the Perl file were to write that base
href tag to any perl generated pages, it wouldn't even need to write
absolute paths - document relative links would be resolved correctly and
life would be sweet.
But I'm no perl expert. Anyone here advise me on the perl that would need
to included into the perl scripts to write that tag? Even better, would be
to have the modification generic such that it picked up the referring domain
info (based on the url info that the perl file is already using) and wrote
that as part of the base href tag into the document head of the perl
generated document?)
So in summary then, I need the base href tag on server perl generated
pages, but not on local ones. I'm happy with VB, Javascript, c, ADA, macro
assembler, etc etc, but one look at the perl files gave me heart
palpitations!
Simon
------------------------------
Date: 15 Nov 2000 14:23:16 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: No idea about perl, Long post, short question
Message-Id: <m13dgsq3hn.fsf@halfdome.holdit.com>
>>>>> "Simon" == Simon Watkins <siwatkins@iee.org> writes:
Simon> I'm customizing Actinic Catalog, and have discovered that their
Simon> a couple of problems with a perl file that writes html during
Simon> the order cart phases.
So why are you posting here instead of getting support directly from
the company that produces Actinic Catalog?
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Wed, 15 Nov 2000 22:52:26 -0000
From: "Simon Watkins" <siwatkins@iee.org>
Subject: Re: No idea about perl, Long post, short question
Message-Id: <FqEQ5.1742$B02.38178@news6-win.server.ntlworld.com>
Randal,
Thank you for your reply. I can only hope that given your response, that
others more gracious will be still be kind enough to assist.
The reason I posted on the Newsgroup was because I had a query regarding
perl and I have found Newsgroups, in general, very helpful places - the
comp.lang.perl.misc newsgroups seemed to have a number of similar queries,
and most people seemed to be generous in their help (certainly on my
scanning of the last thousand or so messages to see if a similar question
had been asked before). Deja news didn't turn up anything appropriate either
and I didn't find anything appropriate on Altavista, and hence my post. In
answer to your question, I have asked Actinic Support for help. However,
their perl files work just fine with their standard product, but because of
the extensive customization I am doing, I'm taking the product beyond that
for which it was designed; nonetheless, I have found that writing base href
in the header of the documents the perl creates fixes the problem. As I
have already explained in my initial request for help, I do not have the
experience in Perl to write this tag via Perl. And as I am modifying the
product to suit my needs (which goes beyond customer support), I decided to
call upon the help of those more expert than myself in this area. I have
found almost universally that Newsgroups are an excellent medium for this
type of Peer to Peer assistance. There are always exceptions, but
nonetheless, thank you for your courtesy, and help.
Simon Watkins
"Randal L. Schwartz" <merlyn@stonehenge.com> wrote in message
news:m13dgsq3hn.fsf@halfdome.holdit.com...
> >>>>> "Simon" == Simon Watkins <siwatkins@iee.org> writes:
>
> Simon> I'm customizing Actinic Catalog, and have discovered that their
> Simon> a couple of problems with a perl file that writes html during
> Simon> the order cart phases.
>
> So why are you posting here instead of getting support directly from
> the company that produces Actinic Catalog?
>
> --
> Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777
0095
> <merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
> See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl
training!
------------------------------
Date: 15 Nov 2000 14:55:55 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: No idea about perl, Long post, short question
Message-Id: <m1r94cones.fsf@halfdome.holdit.com>
>>>>> "Simon" == Simon Watkins <siwatkins@iee.org> writes:
Simon> Thank you for your reply. I can only hope that given your
Simon> response, that others more gracious will be still be kind
Simon> enough to assist.
Well, for those keeping score at home, we now have:
- user wants help with commercial software
- doesn't disclose that he's already made attempt to get help from vendor,
and was refused
- doesn't know Perl that well himself, so it looks like he's trying to get
replacement brains for free ("gimme a fish please")
- upside down quoter (usually a good clue)
and something you can't know unless I tell you:
- commits usenet error of *** stealth CC *** (on this post)
For those of you with an itchy plonk finger, I hope that's enough.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 15 Nov 2000 12:55:50 -0600
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: Please tell me why this code is wrong (ActiveState build 613 on Winblows)
Message-Id: <m33dgtf4jt.fsf@dhcp11-177.support.tivoli.com>
David Steuber <nospam@david-steuber.com> writes:
> garry@ifr.zvolve.net (Garry Williams) writes:
>
> ' In perl 5.6.0, it seems to be the preference to `use warnings;'
> ' instead of the -w switch. Anyway, either one will work on Windows as
> ' well as Unix.
>
> Would it be a bad thing to use both? I presume they both simply set a
> flag in the compiler to generate the appropriate run time checks.
Well, the biggest advantage of the pragma over the option is that it
is lexical so you can apply it (or its opposite) more strategically.
If you use both, then use lose this advantage.
> I guess I shouldn't presume. It makes a pre out of u and me.
Funny... I often use "presume" in place of "assume" for exactly this
reason.
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Wed, 15 Nov 2000 21:43:46 +0000
From: fergus@twig.demon.co.uk (Fergus McMenemie)
Subject: Re: Problems using Perl Win32::OLE & Acrobat --- solved
Message-Id: <1ek5prl.1jz5veu16p89s0N%fergus@twig.demon.co.uk>
Hello,
Obvious really, but the value of $docTemplate needs to be a full
absolute path name. Acrobat will probably not have the same "current
directory" default as the running perl script!
Fergus McMenemie <fergus@twig.demon.co.uk> wrote:
> I am having problems with a script I wrote. The script opens a PDF
> document and after fiddling around saves it to a new name. The script
> works sometimes!
>
> Generally to make the script work again once its broke. I manually
> invoke Acrobat Exchange, open the source document and save it back to
> itself again. The perl script will then work for a bit! Same effect seen
> on NT and Win98, although Win98 is considerably better. Acrobat version
> is 4.0.5
>
>
> print "Creating arcoexch object\n";
> my $acrobat = Win32::OLE->new("AcroExch.App");
> sleep(2);
> $acrobat->show();
> sleep(2);
>
> print "Opening $docTemplate \n";
> my $tmp = Win32::OLE->new("AcroExch.PDDoc");
> unless ($tmp->Open($docTemplate)) {
> warn("Couldnt open $docTemplate: ".Win32::OLE->LastError()."\n");
> $acrobat->CloseAllDocs();
> $acrobat->exit();
> exit;
> }
>
Rgds Fergus
------------------------------
Date: Wed, 15 Nov 2000 21:40:37 -0000
From: <mischief@velma.motion.net>
Subject: Re: Q: Getting program line number?
Message-Id: <t160ml5iue7a27@corp.supernews.com>
Martien Verbruggen <mgjv@tradingpost.com.au> wrote:
> On 15 Nov 2000 06:35:31 -0700,
> Tom Christiansen <tchrist@perl.com> wrote:
>> In article <8FE866D90quuxi@194.203.134.135>, someone who lacks the
>> personal responsibility to use his own address wrote:
>>
>>>It's a backronym then (as defined in the Jargon file)
>>
>> You mean "retronym". Although one might argue that mixing Latin
But that doesn't rhyme.
> Backronym is actually defined in the jargon file, even though none of my
> other dictionaries have a reference to it.
What other dictionaries matter in this case?
>> into a third genome to make these grow twining and blinking out of
>> a lion's mane to produce a brand new frankenspecies, perhaps something
>> like a "felix lucileguminosus" :-)
At the point of long, twining, blinking plants, I was thinking someone
had an idea about bio-degradable holiday lights just around the time
people are starting to hang Christmas decorations. If one could pull
this off, he'd have either a fortune or a place in some book of humorous
but true stories, I'm not sure which.
> That invokes visuals that are almost exactly, but not entirely, quite
> like migraines.
I'm sure some people developed migraines following the path of procedures
involved in creating such a beast. Remember, though, that Perl is being
used in the genetic engineering and genetic research fields to track
sequences modeled as strings. So somehow everything is at least loosely
tied to Perl.
--
Chris Stith Motion Internet mischief@motion.net
If there's not intelligent life out there, we've been greatly
distracted from matters of preserving the only intelligent life
in the Universe, which would seem to be an important task.
------------------------------
Date: Wed, 15 Nov 2000 20:43:32 +0100
From: "Walter van den Berg" <vandenb@NO.SPAMcistron.nl>
Subject: Re: question about reusing a variable from a regex
Message-Id: <8uuovm$pop$1@faraday.a2000.nl>
Hi group,
"Bart Lateur" <bart.lateur@skynet.be> wrote
> The "alpha" (the match the first time around) is gone forever.
I have a file like this (it's a kind of sgml used by folioviews):
<RD:level>aaaa<
<RD>aaaa<
<RD>aaaa<
<RD>aaaa<
<RD:level>bbbb<
<RD>bbbb<
<RD>bbbb<
<RD>bbbb<
<RD:level>cccc<
<RD>cccc<
<RD>cccc<
<RD>cccc<
And I want it to look like this:
<RD:level><gr:aaaa>aaaa<
<RD><gr:aaaa>aaaa<
<RD><gr:aaaa>aaaa<
<RD><gr:aaaa>aaaa<
<RD:level><gr:bbbb>bbbb<
<RD><gr:bbbb>bbbb<
<RD><gr:bbbb>bbbb<
<RD><gr:bbbb>bbbb<
<RD:level><gr:cccc>cccc<
<RD><gr:cccc>cccc<
<RD><gr:cccc>cccc<
<RD><gr:cccc>cccc<
This is (the relevant part of) my code:
s/<RD:$hoogstenivo>(.*?)</<RD:$hoogstenivo><gr:$1>$1</i;
$x = $1;
s/<RD>/<RD><gr:$x>/i;
And this is what I get:
<RD:level><gr:aaaa>aaaa<
<RD><gr:aaaa>aaaa<
<RD><gr:>aaaa<
<RD><gr:>aaaa<
<RD:level><gr:bbbb>bbbb<
<RD><gr:bbbb>bbbb<
<RD><gr:>bbbb<
<RD><gr:>bbbb<
<RD:level><gr:cccc>cccc<
<RD><gr:cccc>cccc<
<RD><gr:>cccc<
<RD><gr:>cccc<
So as Bart said, $1 is used once, and then is gone forever.
I've tried using $/ = ''; but that put aaaa in all <gr:>'s.
Am I looking in the wrong direction?
Thanks for your time,
Walter.
------------------------------
Date: 15 Nov 2000 19:46:50 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: Re: Regex to zero pad an IP address
Message-Id: <eli$0011151439@qz.little-neck.ny.us>
In comp.lang.perl.misc, Tim Conrow <tim@ipac.caltech.edu> wrote:
> Peter Sundstrom wrote:
> > 192.1.10.1
> > becomes
> > 192.001.010.001
> $ip =~ s/(\d+)(\.|$)/sprintf "%3.3d$2",$1/eg;
> ... but I don't see the advantage, and I think it's harder to read. JMHO.
Not to mention certain standard Unix library calls that are happy
to accept IPs with hexadecimal (denoted by a leading '0x') and
octal (denoted by a leading '0') IP addresses.
$ perl -we 'printf("%d\n", 010); printf("%d\n", 10);'
8
10
That makes 192.1.10.1 much different 192.001.010.001 in such
contexts.
Elijah
------
has seen this problem with NT folk editing Unix /etc/ files
------------------------------
Date: 15 Nov 2000 22:50:04 GMT
From: Jack Applin <neutron@jackbert.fc.hp.com>
Subject: Re: Regex to zero pad an IP address
Message-Id: <8uv3us$5ea$1@fcnews.fc.hp.com>
Tim Conrow <tim@ipac.caltech.edu> wrote:
> You can do it all in a substitute if you want:
>
> $ip =~ s/(\d+)(\.|$)/sprintf "%3.3d$2",$1/eg;
This seemed simpler to me:
$ip =~ s/(\d+)/sprintf "%03d",$1/eg;
> ... but I don't see the advantage, and I think it's harder to read. JMHO.
I agree.
--
Jack Applin
neutron@fc.hp.com
------------------------------
Date: Wed, 15 Nov 2000 12:31:49 -0800 (PST)
From: testversion1@webtv.net (=?ISO-8859-1?Q?Test_v=B9_T~D~T_Coalition=AE?=)
Subject: Re: retrieve URL from text file
Message-Id: <3590-3A12F2B5-7@storefull-622.iap.bryant.webtv.net>
Hmmm... What if you read the file into $_ and put matches into an array
to deal with later? Something like this:
open(LINKS,"file.txt");
$_=3D<LINKS>;
close(LINKS);
@Links =3D /\d:\d:[^\s]+/gi;
foreach $i(@links){
print "$i\n";
}
That should extract everything that's in the format of a single digit,
followed by a colon, then another single digit and another colon,
followed by any number of characters that isn't a whitespace (which
seperates the URLs), then throw it into the @Links array.
Hope that works for ya...
-=86es=86 v=B9
------------------------------
Date: Wed, 15 Nov 2000 21:43:59 +0000
From: fergus@twig.demon.co.uk (Fergus McMenemie)
Subject: Re: Using Perl OLE to edit acrobat annotations.
Message-Id: <1ek5qr2.1bk3hxlmunh7nN%fergus@twig.demon.co.uk>
Aandi,
Thanks yet again for your help. I guess my comments about the obsure IAC
API apply. Using OLE I seem unable to do anything about the "type" of
the annotation. I have however taken seen your other comment about using
FORMS, this works fine.
> >I have a cover page containing a number of annotations,
> >lib-number, title etc that should be visable to the user.
> >These annotations appear as simple text strings on the
> >cover page....
>
> >The GetTitle() works but the SetContents() call appears
> >to have no effect when I look at the saved file. Other
> >changes I make at the same time are saved to the new
> >file OK.
>
> Are your annotations simple text annotations? Unintuitively,
> annotations of type "text" are the simple "post-it" variety. They are
> definitely NOT annotations of text on the page - which are of type
> "FreeText".
> ---------------------------------------
> Aandi Inston quite@dial.pipex.com
> Imposition and booklets for PDF - http://www.quite.com/imposing/
------------------------------
Date: Wed, 15 Nov 2000 21:45:24 GMT
From: vnova94@hotmail.com
Subject: Webpage logging script for number of simulaneous users???
Message-Id: <8uv05i$tgl$1@nnrp1.deja.com>
Does anyone know of a script that will show at any particular time,
what the number of users are currently viewing a webpage?
Thanks,
Matt
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 15 Nov 2000 18:42:12 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: What's wrong with the script
Message-Id: <8uule4$7mn$1@orpheus.gellyfish.com>
On Tue, 14 Nov 2000 13:19:06 -0800 iryna martynenko wrote:
> Can anybody help me with this script.
> When I launch it from the HTML page I got a message "the document
> contain no data"
> What's wrong with it.
Er, you didnt use the CGI module that has come with every recent Perl
distribution ?
<snip>
>
> {print "Location: http://www.blabla.net/page2.html"}
>
<snip>
This look the other similar instances is not a completed header line.
You will almost certainly get a more detailed explanation in the more
appropriate comp.infosystems.www.authoring.cgi or indeed in the CGI
specification but all header lines must end in newline and the last
header line sent must be followed by two.
/J\
--
Jonathan Stowe |
<http://www.gellyfish.com> | This space for rent
|
------------------------------
Date: Wed, 15 Nov 2000 15:52:50 -0600 (CST)
From: matt_daemon@webtv.net (Matt Daemon)
Subject: Which module do I need?
Message-Id: <4143-3A1305B2-56@storefull-245.iap.bryant.webtv.net>
I'm confused. I am using Archive:Tar on my webserver, and have no
problem unzipping a tar file with it. However, I also want to unzip .zip
files with Perl, but am unclear as to what modules I need to be using?
My server doesn't have the info-zip library installed (and command line
arguments for unzipping don't work there), but they do have
Archive::Tar, Archive::Zip, and Compress::Zlib installed. I've looked at
all of these and am still confused.
Compress::Zlib appears to extract .zip and .tar.gz files, but it looks
like you need the info-zip library installed in order to run
Compress::Zlib.
If Archive::Tar unzips tar files without needing the info-zip library,
will Archive::Zip unzip .zip files without needing info-zip? What is the
easiest way to go about unzipping .zip and tar files from a perl script?
I appreciate it any direction in the above matter. --matt
------------------------------
Date: Wed, 15 Nov 2000 22:23:58 GMT
From: jvieira13@my-deja.com
Subject: Win32::ODBC and Oracle stored procedures
Message-Id: <8uv2dl$vij$1@nnrp1.deja.com>
Hello,
I have a perl program that uses the win32::module to run queries and
stored procedures on an MSSQL DB Server. It works fine. Now Iwan't to
be able to do the same thing with an Oracle8i DB Server. I can do
everything but execute a stored procedure and get the returned data.
For MSSQL it's easy the syntax is 'exec stored_proc(parameter);', and
it returns the data no problems. This doesn't work with Oracle. Can
someone give me the correct syntax for executing an Oracle stored
procdure and printing the returned data using the Win32::ODBC module.
I know all about DBI, and I don't want to use it. I don't feel like re-
writing my entire program for just one thing.
Thanks,
Joe
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 4896
**************************************
