[12318] in Perl-Users-Digest
Perl-Users Digest, Issue: 5918 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 8 06:07:18 1999
Date: Tue, 8 Jun 99 03:00:21 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 8 Jun 1999 Volume: 8 Number: 5918
Today's topics:
A Problem about ActivePerl...... Thanks! toddyip@my-deja.com
Re: Accessing MS SQL Server from UNIX Perl... <eyounes@aol.com>
Re: Associative Array: isKey() function (Tramm Hudson)
Re: Brackets and comparisons <hal9000@fetchmail.com>
Re: Determining height and with of uploaded Graphic fil <fruffet@kaptech.com>
Re: Get Date in Perl <fruffet@kaptech.com>
Re: Get Date in Perl <gellyfish@gellyfish.com>
Re: Help needed and much appreciated <gellyfish@gellyfish.com>
Re: Help using Win32::Shortcut <gellyfish@gellyfish.com>
how can i do this? smnayeem@my-deja.com
How do I interface with the Microsoft Index Server. (Nick Foster)
Re: Interpreter. (Andrew Johnson)
Re: Looking for a Command Line E-Mailer for NT <c4jgurney@my-deja.com>
Re: ModPerl and memory consumption (Scott Hess)
Re: Perl "constructors" armchair@my-deja.com
Re: Perl "constructors" armchair@my-deja.com
Re: Perl "constructors" armchair@my-deja.com
Re: Perl module to read Rich Text Format files? <fruffet@kaptech.com>
Re: Perl module to read Rich Text Format files? (Reini Urban)
Perl script to purge old messages in mailboxes ? <perrot@francenet.fr>
Re: REQ:>> How do the components know how to communicat <jde222RemovethiS@iname.com>
Re: rounding to a certain decimal place <fruffet@kaptech.com>
Re: Split <fruffet@kaptech.com>
Re: Strip "http" from URL's (Philip 'Yes, that's my address' Newton)
Using hash keys <derek@realware.com.au>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 08 Jun 1999 08:45:17 GMT
From: toddyip@my-deja.com
Subject: A Problem about ActivePerl...... Thanks!
Message-Id: <7jil6s$fqb$1@nnrp1.deja.com>
Hi, I use ActivePerl and PWS4 to run my server. When I run program
with extension .pl (e.g. hello.pl), it takes several seconds before
closing the perl even though all program lines are already finished.
It does not happen when I use extension .cgi (e.g. hello.cgi) with
exact same codes. I have tried to re-map ".pl" -> "PerlIS.dll" in
registry (since I use perl in web only) but it didn't work. Could
anyone tell me how to cut these annoying waiting times?
Thanks a lot!
Todd ^.^
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 8 Jun 1999 11:45:39 +0200
From: "Ysteric's" <eyounes@aol.com>
Subject: Re: Accessing MS SQL Server from UNIX Perl...
Message-Id: <7jio8r$7na@news.vtcom.fr>
You can make a try with the DBD::Sybase (it was the same kernel) ...who
knows !
I heard about an ODBC possibility with the new redhat distribution...perhars
a solution ?
Eric
Steve Gilbert a icrit dans le message <375C7ADD.6E759368@redcloud.org>...
>Is this possible? I know there's an ODBC module for WIN32 perl, but is
>it possible for Perl, say on my Linux box, to access my SQL Server on a
>remote NT box?
>
>- Steve
>
>Steve Gilbert
>MCSE
>Production Systems Manager
>The Charlotte Observer
>
------------------------------
Date: 8 Jun 1999 02:35:30 -0600
From: hudson@swcp.com (Tramm Hudson)
Subject: Re: Associative Array: isKey() function
Message-Id: <7jikki$65d@llama.swcp.com>
Yes, I realize that everyone else has already answered this
question. I am just amazed at the number of times the answer
appears in the question. Let's see:
robert.bowen@mubimedia.com wrote:
> Does such a function exist, that checks for the existence of a given
... ^^^^^ ^^^^^
> if ($myarray{$key} ne '') then {do something} #key exists...
... ^^^^^^
> reference a non-existent key in an associative array, and it failed.
... ^^^^^
> function that takes a key and checks to see if it exists (has a value)
... ^^^^^^
So I count five uses of the term "exist" in the question. Clearly
the function is well named. It all comes down to reading the docs,
as usual.
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
Ah... what an ironic slogan.
Tramm
--
o hudson@swcp.com tbhudso@cs.sandia.gov O___|
/|\ http://www.swcp.com/~hudson/ H 505.266.59.96 /\ \_
<< KC5RNF @ N5YYF.NM.AMPR.ORG W 505.284.24.32 \ \/\_\
0 U \_ |
------------------------------
Date: Tue, 08 Jun 1999 11:33:48 +0200
From: hal9000 <hal9000@fetchmail.com>
Subject: Re: Brackets and comparisons
Message-Id: <375CE37C.B226BCB6@fetchmail.com>
outlaw_torn wrote:
>
> Hey all
>
> My comparison code goes something like:
>
> if ($line1 =~ /$line2/) {
> ...
> }
>
> Now the problem is that $line2 occasionally has a string with brackets
> (). When it happens, the perl says mismatched ()'s or something to that
> effect.
>
> So I did the obvious:
>
> $line2 =~ s/\(//g;
> $line2 =~ s/\)//g;
This removes all the brackets from $line2...
> But, it didn't make a difference...the braces remain.
... so that is strange! That is not what my Perl does. Do
you have an example $line2?
BTW If you want to match the brackets in $line2 you could
use something like:
$line2 =~ s/\\/\\\\/g;
$line2 =~ s/\(/\\(/g;
$line2 =~ s/\)/\\)/g;
--
~hal9000
------------------------------
Date: Tue, 8 Jun 1999 10:46:52 +0200
From: "Fred Ruffet" <fruffet@kaptech.com>
Subject: Re: Determining height and with of uploaded Graphic files
Message-Id: <7jila7$nim$1@gatekeeper.ornano.kapt.com>
>it's not easier. for someone to know that it's the nth byte, they
>have to know how to get at the nth byte, decode what it means, and
>translate it into a number.
>
>using a module such as Image::Size requires only a function call and
>no knowledge of the image format, *and* works for other image formats
>as well. this way, the poster won't have to come back with additional
>questions as he re-invents the wheel, although if he would like to try
>it on his own, he has some code to look at.
That's what I've understood with the answers I had. I think it's right, but
I didn't thought about it. I apologize for this... Next time, I'll give a
module name. OK, OK, That's OK... So why didn't you end your post here ?
>however, instead of simply complaining about the community which you
>have recently joined, why don't you answer the question in the way you
>think it should be answered? when you do it for the hundredth time,
>report back on how willing you are to do it for the hundredth and first
>time.
It's true that I'm rather new to this group (...new this
group...newsgroup...Isn't it funny ? ... Ok, I know... :-), but I don't
understand some of the habits people have right here. People seems not to
know anything about courtesy. I've already said that, and I still say it. I
don't understand why people in this group always try to proove others are
wrong, why they always accuse people of being off-topic (being off-topic
themselves), why did you made this answer to me... That's all. You say :
"why don't you answer the question in the way you think it should be
answered ? " That's what I did ! If he had answered to my question, I would
have try to show him a site where the format is described.
Before you post this for me, people were explaining me which error I did. I
think that was fine. If I change my attitude, that will be due to them, and
only to them.
Fridiric Ruffet - fruffet@kaptech.com
"Seach for perfection is all very well,
But to look for Heaven, is to leave here in hell." G.M.Summer
------------------------------
Date: Tue, 8 Jun 1999 10:15:16 +0200
From: "Fred Ruffet" <fruffet@kaptech.com>
Subject: Re: Get Date in Perl
Message-Id: <7jijev$mp9$1@gatekeeper.ornano.kapt.com>
Have you ever thought that the world is reading your posts ? You're a joker
? Hum, it's well. I don't mind. It's true that some people are always ready
to get furious about off-topic discusions or errors in answers, and spend
their time doing as off-topic posts as the one they criticize... (no, no,
that's not what I'm doing :-)
I've two things for you :
.Could you make a sentense without a "fuck" or a "ass" ?
.You say people would better say "There is an error, and let's correct
it..." than telling you "you really stupid, you're spreading errors...". So,
why don't you say "Yes, I did an error..." instead of entering a game you
know they don't understand ?
Fridiric Ruffet - fruffet@kaptech.com
"Seach for perfection is all very well,
But to look for Heaven, is to leave here in hell." G.M.Summer
------------------------------
Date: 8 Jun 1999 10:30:50 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Get Date in Perl
Message-Id: <375ce2ca@newsread3.dircon.co.uk>
Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "ot" == outlaw torn <outlaw_torn@mailexcite.com> writes:
> ot> Share what you know. Learn what you don't.
>
> what a crock. when's the last time we have seen a good answer from a
> deja posting. (stowe in london being excepted. why are you using deja?)
>
Do you mean me ? Shurely shome mishtake - never posted from Deja in my
life. But then say might say I've never done a good answer either ...
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: 8 Jun 1999 10:12:20 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Help needed and much appreciated
Message-Id: <375cde74@newsread3.dircon.co.uk>
Stuart Wright <stuw@dial.pipex.com.remove.everything.after.com> wrote:
> On 7 Jun 1999 14:22:12 +0100, Jonathan Stowe <gellyfish@gellyfish.com>
> wrote:
>
>>Stuart Wright <stuw@dial.pipex.com.remove.everything.after.com> wrote:
>>> On 8 Jun 1999 01:39:58 GMT, hasant@trabas.co.id (Hasanuddin Tamir) wrote:
>>>
>>>>On Mon, 07 Jun 1999 08:48:38 GMT,
>>>>Stuart Wright <stuw@dial.pipex.com.remove.everything.after.com> wrote:
>>>>
>>>>> [snip]
>>>>> (I don't - I have to do perl programming about twice a year. I avoid it
>>>>> wherever possible !
>>>>
>>>>I avoid to do non-perl programming whenever possible.
>>>
>>> It's not actually possible to create a full blown windows 32 bit GUI stock
>>> control system connecting to an SQL database from start to finish in 3 days
>>> using Perl, now is it?
>>> With Powerbuilder, it's a snip.
>>>
>>
>>Why not ? If you can do it with Powerbuilder you can certainly do it
>>with Perl ? What kind of GUI do you want and to what database do you
>>want to connect ?
>
> You can't do it with Perl because Perl is not a GUI application development
> platform. Unless you can produce an .exe which runs on windows without any
> third party software (like internet explorer). The database is Oracle BTW.
>
Sorry are you suggesting that you cant develop GUI applications with Perl
because if you are you'd be wrong.
/J\
------------------------------
Date: 8 Jun 1999 10:05:42 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Help using Win32::Shortcut
Message-Id: <375cdce6@newsread3.dircon.co.uk>
Crud Mucosa <crud@free.net> wrote:
> Hello out there!
>
> Does anyone have any useful examples showing how to properly use
> the Win32::Shortcut module? I've been banging my head against the
> wall trying to get it working with no luck. . .
>
I posted this self same snippet awhile back:
#!perl -w
use strict;
use Win32::Shortcut;
my $LINK=new Win32::Shortcut();
$LINK->Load('p:\NEWEDT~1.lnk');
print "Shortcut to: $LINK->{'Path'} $LINK->{'Arguments'} \n";
open (LINKFILE,$LINK->{'Path'}) || die "Cant open - $!\n";
$LINK->Close();
# etc ...
close(LINKFILE);
where the filename in the Load method is one on your system ...
/j\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Tue, 08 Jun 1999 08:03:42 GMT
From: smnayeem@my-deja.com
Subject: how can i do this?
Message-Id: <7jiioq$f52$1@nnrp1.deja.com>
I cant work out how to access each element of an array of array using
two for loops.
heres my code :
1 my $header = [[a,b,c],[d,e,f],[g,h,i],[j,k,l]];
2 for ($i = 0;$i <= $#$header; $i++) {
3 for ($j = 0;$j <= $#[$header->[$i]];$j++) {
4 print ($header->[$i][$j],"\t");
5 }
6 print "\n";
7 }
(please remove the line numbers)
when i run it it shows :
a
d
g
j
so as it looks, the problem is in line 3 where i used $#[$header->[$i]]
for getting the count of the array. I also tried $#$header->[$i] but
that doesnt work either, can someone shed some lights here pls.
any help would be greatly appreciated.
thanks.
smnayeem
smnayeem@agni.com
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 7 Jun 1999 19:32:18 +0100
From: nick@foster.newnet.co.uk (Nick Foster)
Subject: How do I interface with the Microsoft Index Server.
Message-Id: <MPG.11c620909fd6c16998968b@cumulonimbus>
Hi,
I am writing a script to run on an NT4 server for a web site the company
I work for hosts. The idea behind it is to combine four separte search
engines scripts into one. I am not having any problems a incorporating
the the first three perl scripts into my new one, the problem comes when
I try to make it work along side with Microsoft Index Server.
The site at present has Microsoft Index Server working the entire site
and so it is all setup and configured to index the site and then return
results when a question is typed in to the web page. My script is
interrigating the three other perl scripts but not the Index server I
can't see how to interface with it. From what I can gather I have to pass
the query string, which I can format in the perl script, to the index
server script the script is then run under CGI and I need to listen for
the results and then be able to interprete them and decode the index
servers output and translate it so I can display it.
But how do I do that????
Does any one know how to do this? Do I have to use a 'system LIST' call?
If so how? I have looked in the perl book by O'reilly, Programming Perl
if I remember. I didn't really understand it.
Thanks.
--
Best wishes,
Nick. mailto:nick@foster.newnet.co.uk
mailto:nick@weblocust.co.uk
------------------------------
Date: Tue, 08 Jun 1999 09:13:25 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: Interpreter.
Message-Id: <V8573.143$8a.1594@news2.rdc1.on.home.com>
In article <375C6B3E.9C5D2D0@centropolisfx.com>,
Fabrice Ceugniet <fabrice@centropolisfx.com> wrote:
!
! The Perl application I am writing would need an interpreter.
! Does anyone have an idea of what already exist in Perl. Is there
! any lex/yacc equivalent in Perl ? Is it possible to give Perl a
! grammar ?
! Thanks for the input,
check out the Parse::RecDescent module on CPAN, (also available
are Parse::Yapp and libparse and probably others). The RecDescent
module comes with a large pod manual, and there is an article by its
author (Damian Conway) in the Winter 1998 issue (vol 3 no 4) of the
Perl Journal.
regards
andrew
------------------------------
Date: Tue, 08 Jun 1999 07:44:03 GMT
From: Jeremy Gurney <c4jgurney@my-deja.com>
Subject: Re: Looking for a Command Line E-Mailer for NT
Message-Id: <7jihk2$es6$1@nnrp1.deja.com>
In article <375C6D91.B6B49CD4@algonquinc.on.ca>,
Jason Sova <sova0001@algonquinc.on.ca> wrote:
> Does anybody here know where I could find a nice comand line based
> E-Mailer that I could use with perl to send the results of a online
> form? My OS is NT.
>
> Thanks
> Jason
> sova0001@algonquinc.on.ca
You can find several at
http://www.winfiles.com/apps/nt/mail-command.html
Personally I use mailto.exe by Scott Beasley.
HTH
Jeremy Gurney
SAS Programmer | Proteus Molecular Design Ltd.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 7 Jun 99 12:59:03
From: scott@nospam.doubleu.com (Scott Hess)
Subject: Re: ModPerl and memory consumption
Message-Id: <SCOTT.99Jun7125903@slave.doubleu.com>
In article <375C0D05.BCD5601F@drtech.co.uk>,
Clinton Gormley <clint@drtech.co.uk> writes:
I have recently built mod_perl with apache 1.3.6 using DSO.
I have been suprised by how much memory each httpd process
consumes. Maybe I'm just misunderstanding this?
<...>
I thought that Perl modules which you loaded at the beginning were
supposed to be shared between all the child processes (ie without
consuming more memory)
Of course, the module will consume memory in _each_ process' memory
map. Which is what ps is reporting. Depending on your OS, that
memory very well might be copy-on-write, meaning that each process is
seeing the same physical pages.
I have just noticed that if I do "apachetctl restart", it seems to
add about 2.5 meg onto each process (so 7.5 becomes 10 becomes 12.5
etc) This seems to be caused by the Perl modules that I load in my
startup file.
That does seem odd. restart should cause all existing processes
(excepting the parent) to die, and new children are forked off.
What's likely happening is that the parent process is adding
additional memory on restart, rather than reusing existing memory,
memory usage which the children are all going to inherit.
Later,
--
scott hess <scott@doubleu.com> (408) 739-8858 http://www.doubleu.com/
<Favorite unused computer book title: The Compleat Demystified Idiots
Guide to the Zen of Dummies in a Nutshell in Seven Days, Unleashed>
------------------------------
Date: Tue, 08 Jun 1999 08:36:52 GMT
From: armchair@my-deja.com
Subject: Re: Perl "constructors"
Message-Id: <7jikn4$flv$1@nnrp1.deja.com>
In article <7jggjn$n81$1@nnrp1.deja.com>,
John Porter <jdporter@min.net> wrote:
> In article <7jakjq$3h4$1@nnrp1.deja.com>,
> armchair@my-deja.com wrote:
> > Assembly does not have the same if and while/for logic as
C/C++/Perl.
>
> "Same"? Of course it's not the same. But it has them in some form.
If it ain't the same or equivalent, it ain't gonna help your case, or
the posters. Note: Painting fence with toothbrush is a form of painting
a fence, but not the same as higher level methods.
> And you're making a mistake to be lumping C/C++ with Perl.
Did you forget to add "in a Perl newsgroup" to the above sentence?
>
> > Assembly does not have arithmetic expressions and variable
> > declaration/naming and assignment like C/C++/Perl.
>
> "Like C/C++/Perl"? Of course not. But has them, in some form.
If it ain't the same or equivalent, it ain't gonna help your case, or
the posters. Note: Painting fence with toothbrush is a form of painting
a fence, but not the same as higher level methods.
>
> > And Assembly does not
> > have IO statements like print and printf and read/write like
> C/C++/Perl.
>
> These are not statements in C/C++, they're library functions which
> make the corresponding system calls. Asm can do that too.
I see. Would you be so kind as to give me the Asm eqivalent to
printf("The number of trucks was %d all of the color %s\n",
numTrucks, color);
as well as:
int returnCode = read(data,int,10,myFilePtr);
Thanks in advance.
>
> C is a low-level language; it's merely a portable "assembly" language
> with a well-defined standardized function library. ANYTHING you can
> do in C, you can do in asm. The mapping is so obvious (to anyone
> with a clue, at least).
To anyone with a clue, C is much easier to use than assembly, much
higher level, and not "merely a portable assembler". Perhaps you should
take out your map and study it some more.
> C++ is a little different. A lot of complex
> baggage was added. Not that I'm complaining...
Complex baggage like a string? Like iostream? Like classes? Not complex
at all (to anyone with a clue, at least).
>
> > And Assembly does not have the portability/standardization of
> > C/C++/Perl.
>
> Obviously! So what.
Uh, the previous post you will note that the Perl advocate was trying to
make a case for Assembly being no closer to Perl than C++. You might
want to give it a re-read.
>
> > can you do this in Assembly?:
> >
> > TextArray a;
> > returnCode = a.LoadFromTextFile("input.txt");
> > a.RemoveBlankLines();
> > cout << a;
>
> Of course. It would just be a lot more work.
> The invention of C was not totally in vain, after all.
Well, my my, in one breath we get "C is just a portable assembler
(anyone can see the mapping who has a clue)" , and in the next we get
"It is a lot more work to use". Perhaps you can work on those a bit.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 08 Jun 1999 08:24:24 GMT
From: armchair@my-deja.com
Subject: Re: Perl "constructors"
Message-Id: <7jijvk$fep$1@nnrp1.deja.com>
In article <375b8d49.229245978@news.insnet.net>,
NukeEmUp@ThePentagon.com (David Cantrell) wrote:
> On Sat, 05 Jun 1999 07:46:02 GMT, armchair@my-deja.com said:
>
> >can you do this in Assembly?:
> >
> >TextArray a;
> >returnCode = a.LoadFromTextFile("input.txt");
> >a.RemoveBlankLines();
> >cout << a;
>
> Of course. How do you think your compiler does it? With pixie magic?
Not in 4 lines of source text, my friend (unless you would care to
provide it). I gather you would argue that if I paint my fence with a
sprayer, and you do yours with a toothbrush, than the two were equal.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 08 Jun 1999 08:49:41 GMT
From: armchair@my-deja.com
Subject: Re: Perl "constructors"
Message-Id: <7jilf3$fr5$1@nnrp1.deja.com>
In article <7jgfum$n16$1@nnrp1.deja.com>,
John Porter <jdporter@min.net> wrote:
> In article <7il6ge$ruq$1@nnrp1.deja.com>,
> armchair@my-deja.com wrote:
> > In article <7i3spi$u50$1@nnrp1.deja.com>,
> > John Porter <jdporter@min.net> wrote:
> > > In article <7i2to7$83g$1@nnrp1.deja.com>,
> > > armchair@my-dejanews.com wrote:
> > >
> > > > I never left C++. Unlike some, I have not yet fallen in love
with
> a
> > > > programming language. But maybe you are right, Perl can only be
> > > > understood by geniuses, where as C++ is the language of the
common
> > > man.
> > >
> > > ROFL. The real difference is, C++ is a low-level language, and
> > > Perl is a high-level language. Each has its strengths, and its
> > > peculiar idiom. Some aspects of Perl's idiom can seem bizarre to
> > > people who are used to C++ (not to mention toy languages like VB).
> >
> > Since the looping and decision constructs of Perl are the same as C
>
> Superficially.
Do elaborate on what you see as the major difference.
>
> > C++, and since C++ now has a string class,
>
> Having a string class makes C++ a HLL? ROFL again.
Do elaborate on what makes a language a HLL (after you get off the floor
that is).
>
> > perhaps it is the dynamic
> > arrays and dynamic hashes that have you ROFL.
>
> Not.
I guess that would leave the <> operator. Not much to stand on my
friend.
>
> > Well, via the Standard Template Library (STL), those data
> > structures also exist in C++ as well (few, if any vendors are not
> > shipping the STL with their compiler). What then puts Perl
> > at a higher
> > level than C++?
>
> If simply having the ability to create ADTs makes a language a HLL,
> then every language in current usage -- including asm -- is a HLL,
> because they're all Turing-equivalent. Were you sick they day they
> talked about this in class? Perl is a HLL (relative to C and any
> of its bastard children) because these data structures and their
> operators are intrinsic to the language. Tell me, what is GC like
> in C++? Partial evaluation? Rewriting?
Above you said that dynamic hashes and arrays were, to quote you - Not -
the reason that Perl was in your opinion, a high level language. Now it
appears, they are the reason. And Vector and Map are not just something
one can create in C++, they have been created, standardized, and ship
with compilers. And do give me your source code for creating dynamic
hashes and arrays in Assembler, or were you sick the day they
supposedly talked about that in class? A big difference.And do you have
any defense of Perl as a higher level language versus C++ not being one
that doesn't involve the red herring of dragging in Assembly? It's odd
that you can't just point out what is in Perl but not in C++ (and we
haven't even got into what is in C++ but not in Perl).
Before I can answer your question on GC, you will have to tell me what
you are using GC as an abbreviation for.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 8 Jun 1999 09:41:09 +0200
From: "Fred Ruffet" <fruffet@kaptech.com>
Subject: Re: Perl module to read Rich Text Format files?
Message-Id: <7jihf0$lt4$1@gatekeeper.ornano.kapt.com>
Michael,
I don't know if it's really what you want, but it seems to match : there's a
RTF::Base module on the CPAN pages. It might work for you.
Regards,
Fred
------------------------------
Date: Tue, 08 Jun 1999 08:25:41 GMT
From: rurban@xarch.tu-graz.ac.at (Reini Urban)
Subject: Re: Perl module to read Rich Text Format files?
Message-Id: <375cd040.2943352@judy>
mloll@wam.umd.edu (Michael Loll) wrote:
>Hi, I was wondering if there was a perl module that could read and write
>Rich Text Format documents? If not, would something like this interest
>people?
i wrote a few years ago a writer module (pod2rtf.pl) with winhelp-like
footnotes and formatting style for links and chapter defs. (to convert
pod to winhelp).
this was later planned to be incorporated into some kind POD::Rtf.pm
module, but it apparently didn't work out.
pod2rtf.pl was at CPAN and is at my webpage. based on this are also a
lot of other non-free winhelp generating scripts.
i also wrote a small rtf reader but it just strips unnecessary
formatting from bloated winword rtf's. i could put it on my page as well
if someone needs it.
but this was of no practical usage, the winhelp compiler does the same
and winword bloats the rtf again when you reopen it.
i once planned to write a rtf2html converter but the existing c-based
programs worked fine for me and the table code was too hard.
it would have been nice to have a better converter than the awful
winword html exporter (alos used by the ms html helpworkshop), but it
highly depends on winword internals changing every year or so, so i just
wrote a couple of very short scripts which fixes the html generated by
winword 7 and 8. nothing module or CPAN worthy.
>Is RTF format copyrighted?
no.
you cannot copyright a format. you can only copyright a work, like a
reader or writer.
---
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html
------------------------------
Date: 08 Jun 1999 11:18:18 +0200
From: Gildas PERROT <perrot@francenet.fr>
Subject: Perl script to purge old messages in mailboxes ?
Message-Id: <rd4skj82zp.fsf@localhost.francenet.fr>
Hi,
I am looking for a script which is able to first warn the user that
some messages are too old.
Thanks in advance for your help. Gildas.
--
Gildas PERROT, perrot@francenet.fr __o
FranceNet, 28 rue Desaix, 75015 Paris ---_ \<,_
http://www.francenet.fr ---- (_)/ (_)
------------------------------
Date: Tue, 8 Jun 99 09:53:39 GMT
From: "Euro Jake" <jde222RemovethiS@iname.com>
Subject: Re: REQ:>> How do the components know how to communicate... (-ej-)
Message-Id: <7jiot8$ifh$1@news3.Belgium.EU.net>
Thank u Dan
Probs getting solved
Have looked on your page and found the missing links:))
Ive linked ur site on my home page referenced as
Easy reading, human understandable website documentation
allowing this to be useful for many others
> Dan's Web Tips: http://www.softdisk.com/comp/dan/webtips/
Nice work.. thanks again
--
Euro Jake
>RemovethiS< in next line...
Anti spam email jde222RemovethiS@iname.com
------------------------------
Date: Tue, 8 Jun 1999 09:35:01 +0200
From: "Fred Ruffet" <fruffet@kaptech.com>
Subject: Re: rounding to a certain decimal place
Message-Id: <7jih3g$lkg$1@gatekeeper.ornano.kapt.com>
Hello Dan.
To print exactly what you want (if $price is your variable), try :
printf("%4.2f\n",$price);
f for a float, 4 digits at all, 2 digit after the comma.
Regards,
Fred
------------------------------
Date: Tue, 8 Jun 1999 09:57:05 +0200
From: "Fred Ruffet" <fruffet@kaptech.com>
Subject: Re: Split
Message-Id: <7jiicr$m68$1@gatekeeper.ornano.kapt.com>
Bob,
I believe you're on a M$-DOS Platform, so you need to separate on backslash.
Backslash is the character used to consider the following not as a control
character (for example not to consider $ as the begining of a variable, il
you want he $ char). So, in your expression, the backslash prevents the
interpretation of the /.
So you must use :
split (/\\/,$dir)
(with a double \)
Regards,
Fred
------------------------------
Date: Tue, 08 Jun 1999 08:49:09 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Strip "http" from URL's
Message-Id: <375cd815.47213351@news.nikoma.de>
On Mon, 07 Jun 1999 21:17:51 GMT, Kurt Gray <grayku@my-deja.com>
wrote:
> if ($URL =~ /http:\/\/([\w\.]+)(\/?\S*)$/i) {
Warning! Warning! LTS detected!
What's wrong with using alternative delimiters such as m||, m## or
similar? Looks much nicer IMHO.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Tue, 08 Jun 1999 19:13:28 +1000
From: Derek Lavine <derek@realware.com.au>
Subject: Using hash keys
Message-Id: <375CDEB7.B96644A1@realware.com.au>
Hi,
Probably simple, but i am new to perl
I want to pass a function a hash, thus
%data = ( field1 => "field1 data",
field2 => "field2 data",
field3 => "field3 data"
etc.
)
then I want to pass this to a function along with a list of required
field names
e.g.
$reqfields = "field1, field3"
iscomplete ( \%data, $reqfields );
iscomplete needs to return 'true' if %data does indeed contain non empty
entries for the keys specified in $reqfields
I guess in general I am asking things like how do I get individual keys
or all the keys from a hash.
What is an easy way to step through a string like "field1, field2,
field3" etc. so that on each iteration I have "field1", "field2" etc. to
work with
Also is it possible to use the value of a string, $str, as an L_Value so
if $str="myvar1" I would like to be able to set $myvar1 (the real
variable) via $str, something like
${$str} = "this is going to be placed in the var called myvar1";
NOTE: (I am using the '{' and '}' to indicate what I need, not that I
think this is the way to do it)
Thanks for taking the time to read this, and for any help you can offer
Derek
------------------------------
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 5918
**************************************
