[10646] in Perl-Users-Digest
Perl-Users Digest, Issue: 4238 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 17 10:07:17 1998
Date: Tue, 17 Nov 98 07:00:27 -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 Tue, 17 Nov 1998 Volume: 8 Number: 4238
Today's topics:
[Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
Can ActivePerl talk to a dll? DrDreff@my-dejanews.com
Re: Can ActivePerl talk to a dll? <ebohlman@netcom.com>
Re: cgi faq program (Joergen W. Lang)
Re: cgi question <postmaster@localhost.net>
Re: COBOL to PERL translator scott@softbase.com
Re: Convert to Perl? <jhi@alpha.hut.fi>
Re: create variable name from a variable in perl <prauz@sprynet.com>
Re: Getting the URL (David Jacoby)
Re: Holy Abounding Books, Batman! <donot@email-please.com>
Re: How do i trim a string in Perl?? (Andrew M. Langmead)
Re: how to get `date` in perl for win32 (newbie) <barnett@houston.Geco-Prakla.slb.com>
Re: how to get `date` in perl for win32 (newbie) (Mike Stok)
Re: installing PERL on NT, IIS 4.0 <perlguy@technologist.com>
Re: Need to find binary data <r28629@email.sps.mot.com>
Re: Not to start a language war but.. (Andrew M. Langmead)
NT4 - SP4 affects perl and desktop menu? <CHorton@STSSystems.com>
Re: Parsing Pickle <barnett@houston.Geco-Prakla.slb.com>
Perl script wanted <katigaebler@hotmail.com>
Re: Perl vs C (Nathan V. Patwardhan)
Re: Perl vs C (Mike Stok)
Re: Perl_for_Win32_FAQ <perlguy@technologist.com>
Shell or shell - Can't locate shell.pm in @INC at k lin <mark.c.hamlin@bt.com>
Re: Somthink don`t know~!PLS Help me <prauz@sprynet.com>
Re: Somthink don`t know~!PLS Help me (Tony)
Re: Somthink don`t know~!PLS Help me (Tony)
Re: Somthink don`t know~!PLS Help me <r28629@email.sps.mot.com>
Re: test for.t failure due to bad rounding everybodydies@my-dejanews.com
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 17 Nov 1998 11:24:01 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage911301841.19775@news.teleport.com>
Archive-name: perl-faq/finding-perl-faq
Posting-Frequency: weekly
Last-modified: 10 Sep 1998
[ That "Last-modified:" date above refers to this document, not to the
Perl FAQ itself! The last major update of the Perl FAQ was in Summer of
1998; of course, ongoing updates are made as needed. ]
For most people, this URL should be all you need in order to find Perl's
Frequently Asked Questions (and answers).
http://cpan.perl.org/doc/FAQs/
Please look over (but never overlook!) the FAQ and related docs before
posting anything to the comp.lang.perl.* family of newsgroups.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Beginning with Perl version 5.004, the Perl distribution itself includes
the Perl FAQ. If everything is pro-Perl-y installed on your system, the
FAQ will be stored alongside the rest of Perl's documentation, and one
of these commands (or your local equivalents) should let you read the FAQ.
perldoc perlfaq
man perlfaq
If a recent version of Perl is not properly installed on your system,
you should ask your system administrator or local expert to help. If you
find that a recent Perl distribution is lacking the FAQ or other important
documentation, be sure to complain to that distribution's author.
If you have a web connection, the first and foremost source for all things
Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
CPAN also includes the Perl source code, pre-compiled binaries for many
platforms, and a large collection of freely usable modules, among its
560_986_526 bytes (give or take a little) of super-cool (give or take
a little) Perl resources.
http://cpan.perl.org/
http://www.perl.com/CPAN/
http://cpan.perl.org/doc/FAQs/FAQ/html/
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/
You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
selected FTP sites is especially good for you, a full list of CPAN sites
is in the SITES file within CPAN.)
California ftp://ftp.cdrom.com/pub/perl/CPAN/
Texas ftp://ftp.metronet.com/pub/perl/
South Africa ftp://ftp.is.co.za/programming/perl/CPAN/
Japan ftp://ftp.dti.ad.jp/pub/lang/CPAN/
Australia ftp://cpan.topend.com.au/pub/CPAN/
Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
Switzerland ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
Chile ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/
If you have no connection to the Internet at all (so sad!) you may wish
to purchase one of the commercial Perl distributions on CD-Rom or other
media. Your local bookstore should be able to help you to find one.
Another possibility is to use one of the FTP-via-email services; for
more information on doing that, send mail to <mail-server@rtfm.mit.edu>
(not to me!) with these lines in the body of the message, flush left:
setdir usenet-by-group/news.announce.newusers
send Anonymous_FTP:_Frequently_Asked_Questions_(FAQ)_List
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Comments and suggestions on the contents of this document
are always welcome. Please send them to the author at
<pfaq&finding*comments*@redcat.com>. Of course, comments on
the docs and FAQs mentioned here should go to their respective
maintainers.
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 17 Nov 1998 13:12:05 GMT
From: DrDreff@my-dejanews.com
Subject: Can ActivePerl talk to a dll?
Message-Id: <72rsn5$kep$1@nnrp1.dejanews.com>
I have been looking and looking all through the Faqs and messages and nowhere
can I find a simple answer to this simple question....
How would I pass variables to an ActiveX dll with ActivePerl?
Am I just missing it??
If you know how to do this or exactly were I can find that info please let me
know!
thanx
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 17 Nov 1998 13:36:18 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Can ActivePerl talk to a dll?
Message-Id: <ebohlmanF2KJ4I.IvC@netcom.com>
DrDreff@my-dejanews.com wrote:
: I have been looking and looking all through the Faqs and messages and nowhere
: can I find a simple answer to this simple question....
: How would I pass variables to an ActiveX dll with ActivePerl?
You might try Win32::OLE if the particular ActiveX control is written
appropriately. Failing that you could try Win32::API.
------------------------------
Date: Tue, 17 Nov 1998 14:25:25 +0100
From: jwl@_munged_worldmusic.de (Joergen W. Lang)
Subject: Re: cgi faq program
Message-Id: <1din42a.8bg0pj1m50o1sN@host019-210.seicom.net>
Timmy <timmy98@jps.net> wrote:
> Hi,
> I've seen lots of websites that has a cgi/perl program that allows users
> to post and reply messages. I want to do something like that so that
> people can post and get answer from my website. can someone help me to
> start on this? i am new to cgi and perl too. or if anyone know where i
> can just get a program, i'll be really appreciated. thanks.
> the following is a site where i've seen a faq on:
> http://www.cermak.com/techguy/forum/messages/8/8329.html
> Timmy
Maybe you want to check the FAQs/Docs regarding CGI :-)
Here's two:
http://language.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.boutell.com/openfaq/cgi/
And here's a newsgrop that's dedicated to CGI questions:
comp.infosystems.www.authoring.cgi
Also, there's _heaps_ of websites that offer ready-made scripts. A good
starting point might be:
http://www.cgi-resources.com
hope this helps,
Joergen
--
To reply by email please remove _munged_ from address Thanks !
-------------------------------------------------------------------
"Everything is possible - even sometimes the impossible"
HOELDERLIN EXPRESS - "Touch the void"
------------------------------
Date: 17 Nov 1998 15:05:48 +0300
From: Sergei S. Laskavy <postmaster@localhost.net>
Subject: Re: cgi question
Message-Id: <nqogq6r0bn.fsf@Peru.Gambit.Msk.SU>
"Matt Heusser" <matt@pcr7.pcr.com> writes:
> Martin -
> Put your script in the CGI/BIN directory of your NT machine, and
> execute that via SSI.
NT machine usually is not a web server, check www.nt.com for details
--
FreeBSD Project: http://FreeBSD.org/docproj/ Vim: http://www.vim.org/
$_='$6C86:P$^P|2D<2GJPl=2D<2GJp82>3:E^>D<^DFn';tr#P-~\x20-O#\x20-~#;print
------------------------------
Date: 17 Nov 1998 14:14:06 GMT
From: scott@softbase.com
Subject: Re: COBOL to PERL translator
Message-Id: <365184ae.0@news.new-era.net>
Oliver Muthig (oliver.muthig@ubs.com) wrote:
> is there anything like a COBOL to PERL translator ?
No.
I wrote some COBOL parsing code in Perl once. It was ugly.
Scott
------------------------------
Date: 17 Nov 1998 13:22:58 +0200
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: Convert to Perl?
Message-Id: <oeek90ubm25.fsf@alpha.hut.fi>
Stephan Jakoubek <jakoubek@mozilla.net> writes:
> Hi!
>
> I have the following source-code. (It's a passwort-encryption)
> Is it possible to convert it to perl?
Yes.
> Thanks for your help!
You are welcome.
> -Stephan
--
$jhi++; # http://www.iki.fi/~jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
Date: Tue, 17 Nov 1998 11:56:13 +0000
From: Balazs Rauznitz <prauz@sprynet.com>
Subject: Re: create variable name from a variable in perl
Message-Id: <3651645D.6E8AFEEF@sprynet.com>
dave@mag-sol.com wrote:
>
> In article <3650D0C7.39565420@us.oracle.com>,
> Brian Jackson <bjjackso@us.oracle.com> wrote:
> > Hi-
> >
> > I have a list of items and want to create a new variable name that
> > incorporates the name of the original variable.
> >
> > Example:
> >
> > let's say I have variables called $item1, $item2. I want a new variable
> > called $item1_blah and $item2_blah.
> >
> > basically I want to attach a predefined string name to the end of the
> > variable, and still retain part of the original variable name in the new
> > variable name.
> >
> > any thoguhts?
> >
> > thanks in advance
>
> How about storing this stuff in a hash that's named using the bit you want to
> add to the variable name.
>
> e.g. From your example
>
> my %blah;
>
> $blah{$item1} = 'something';
> $blah{$item2} = 'something else';
I agree, that it's a better solution, though he can still say:
$varname = $item1 . "_blah";
$$varname = 42;
presuming of course "no strict 'vars'".
But I don't advise you doing what I just wrote, unless you have _very_
good reason for it.
Hope it's useful:
Balazs
------------------------------
Date: 17 Nov 1998 07:18:26 GMT
From: jacoby@harbor.ecn.purdue.edu (David Jacoby)
Subject: Re: Getting the URL
Message-Id: <72r802$bgg@mozo.cc.purdue.edu>
In article <72r0rg$td7$1@nnrp1.dejanews.com>, <pvedula@my-dejanews.com> wrote:
>My website has to have a feedback form linked to all pages. When the user
>selects this link from a page and then submits the form, is there a way to
>get the CGI to know which page that submit is coming from/ which page the
>form has been called from, so that it can attach that url to the mail sent to
>the my mail box.
This isn't so much Perl as HTML and HTTP. But I do have the answer, as
I hit a similar problem. The key is HTTP_REFERER, one of the standard
environment variables in CGI. See http://hoohoo.ncsa.uiuc.edu/cgi/env.html
for more details.
--
Dave Jacoby I wish I could give brother Bill his big thrill
jacoby at ecn.purdue.edu I would set him in chains at the top of the hill
http://purdue.org/~jacoby/ Then send out for some pillars and Cecil B. Demille
Father. Guitarist. Geek. He could die happily ever after - Bob Dylan
------------------------------
Date: 17 Nov 1998 13:49:13 GMT
From: Helen Rice <donot@email-please.com>
Subject: Re: Holy Abounding Books, Batman!
Message-Id: <72rusp$d0d$1@ns2.foothill.net>
David Bolton <dbolton@IdeaPlace.org> wrote:
> I'd like to learn a little cgi/perl, but after reading Amazon.com book
> reviews for a couple of evenings, I have to say that the number of how-to
> books on the subject is staggering.
> For a beginner (with a modest background in Java programming), which books
> do the better job teaching cgi/perl to the novice?
> My tentative plan is:
> 1) Discover Perl 5 (Barkokati) for a brief intro tutorial.
> 2) Learning Perl (Schwartz) for the follow-up in-depth learning.
> 3) Programming Perl (Wall) for reference
> Thanks in advance for the help,
> Dave
I don't recommend Learning Perl, too shallow.
I don't recommend Programming Perl, too encyclopedic and absolutely useless
for learning. Once you know it, it might be a good reference book. Not
enough examples.
I recommend Perl by Example, very good for learning and is not shallow
goes into some advanced topics.
I also recommend Perl Cookbook, very many advanced examples.
**********
Those who beat their swords into plowshares will plow for those who do not.
------------------------------
Date: Tue, 17 Nov 1998 14:54:37 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: How do i trim a string in Perl??
Message-Id: <F2KMr1.Kv6@world.std.com>
Yogish Baliga <baliga@synopsys.com> writes:
>use
>$variable =~ s/^\s*|\s*$//g;
This is an example why it is better to point people to the FAQ rather
than re-answer the question each time it comes up. The FAQ
specifically recommends against this construct.
How do I strip blank space from the beginning/end of a
string?
Although the simplest approach would seem to be:
$string =~ s/^\s*(.*?)\s*$/$1/;
This is unneccesarily slow, destructive, and fails with
embedded newlines. It is much better faster to do this in
two steps:
$string =~ s/^\s+//;
$string =~ s/\s+$//;
Or more nicely written as:
for ($string) {
s/^\s+//;
s/\s+$//;
}
This idiom takes advantage of the for(each) loop's
aliasing behavior to factor out common code. You can do
this on several strings at once, or arrays, or even the
values of a hash if you use a slide:
# trim whitespace in the scalar, the array,
# and all the values in the hash
foreach ($scalar, @array, @hash{keys %hash}) {
s/^\s+//;
s/\s+$//;
}
--
Andrew Langmead
------------------------------
Date: Tue, 17 Nov 1998 08:28:06 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
To: j9feng@my-dejanews.com
Subject: Re: how to get `date` in perl for win32 (newbie)
Message-Id: <365187F6.A70D5EBB@houston.Geco-Prakla.slb.com>
[courtesy cc to cited author]
j9feng@my-dejanews.com wrote:
>
> The following codes work fine under linux,
>
> my $date=`date`;
Look up the localtime function (perldoc -f localtime).
my @date = localtime;
$date = sprintf("%02d/%02d/%02d", $date[4]+1, $date[3],
($date[5]+1900)%100);
print $date, "\n";
Works fine for me on my solaris2.5.1 machine. Should work fine on PoB
machines, too.
>
> but it will not work under win95, because the command 'date' under
> win95 will print the current date and then ask for "Enter new
> date(MM/DD/YY): " expecting you input new date or just hit ENTER.
>
> Is there a way to get the current date?
See above.
>
> thanks in advance
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
Cheers,
Dave
--
Dave Barnett Software Support Engineer (281) 596-1434
I am having an out of money experience.
------------------------------
Date: 17 Nov 1998 14:40:37 GMT
From: mike@mike.stok.co.uk (Mike Stok)
Subject: Re: how to get `date` in perl for win32 (newbie)
Message-Id: <72s1t5$fr6@news-central.tiac.net>
You might try:
$date = localtime;
which should leave $date containing something like 'Tue Nov 17 09:37:07
1998'
If you can use the POSIX module then it contains the strftime routine
which lets you format dates and times quite easily.
Hope this helps,
Mike
In article <72rgtf$a6m$1@nnrp1.dejanews.com>, <j9feng@my-dejanews.com> wrote:
>
>
>The following codes work fine under linux,
>
>my $date=`date`;
>
>but it will not work under win95, because the command 'date' under
>win95 will print the current date and then ask for "Enter new
>date(MM/DD/YY): " expecting you input new date or just hit ENTER.
>
>Is there a way to get the current date?
>
>thanks in advance
>
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Tue, 17 Nov 1998 11:58:08 GMT
From: Brent Michalski <perlguy@technologist.com>
Subject: Re: installing PERL on NT, IIS 4.0
Message-Id: <365164D0.E881B201@technologist.com>
If you are going to post to multiple groups, please do so properly.
This question was answered in comp.lang.perl.modules
Brent
--
Java? I've heard of it, it is what I drink when I am hacking Perl. -me
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$ Brent Michalski $
$ -- Perl Evangelist -- $
$ E-Mail: perlguy@technologist.com $
$ Resume: http://www.inlink.com/~perlguy $
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
------------------------------
Date: Tue, 17 Nov 1998 08:01:18 -0600
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Re: Need to find binary data
Message-Id: <365181AD.79D15391@email.sps.mot.com>
Larry Rosler wrote:
>
> [Posted to comp.lang.perl.misc and a copy mailed.]
>
> In article <3650B2B3.EF2AD09E@email.sps.mot.com> on Mon, 16 Nov 1998
> 17:18:11 -0600, Tk Soh <r28629@email.sps.mot.com> says...
> > Srikanth Natarajan wrote:
> > > I need to read a file and throw an error if it contains non ascii
> > > data (i.e. code > 127)
> ...
> > try this:
> >
> > print "non-ascii char found\n" if $char =~ /[\x80-\x8f]/;
>
> I think you meant this:
>
> print "non-ascii char found\n" if $char =~ /[\x80-\xff]/;
Thanks. Well, guess I am dain bramage too :)
-tk
------------------------------
Date: Tue, 17 Nov 1998 14:48:16 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Not to start a language war but..
Message-Id: <F2KMGH.CnL@world.std.com>
meaw@my-dejanews.com writes:
>In article <909714669.18796@thrush.omix.com>,
> Zenin <zenin@bawdycaste.org> wrote:
>> Ya seen JPL yet? Forget dispatching anything, just code Java
>> methods in pure Perl! :-)
>Do you know if JPL is available for free? (I've seen it bundled with the
>"perl resource kit" from Orielly but that costs money.) If it is free, where
>do I get it?
I've heard from a couple of people that O'Reilly announced the JPL
will be made freely available. From what I've read in the perl5porters
mailing list, it will be part of the core distribution of a future
version of the perl interpreter.
I'm sure that Zenin knows, but I just want to point out something to
others unfamiliar to the JPL. It can't be used to create Java Applets,
only applications. (which makes it different than what I understand
JPython to be.) It uses foreign function call API (XS for perl, JNI
for Java) to access each others features. This means that it needs the
perl interpreter's library to run.
--
Andrew Langmead
------------------------------
Date: Tue, 17 Nov 1998 13:50:30 -0000
From: "Craig Horton" <CHorton@STSSystems.com>
Subject: NT4 - SP4 affects perl and desktop menu?
Message-Id: <911310745.7810.0.nnrp-02.c1ed09c6@news.demon.co.uk>
Just wondering if anyone has experienced 2 things, we have and if anyone
knows why they have happened and maybe how to solve the problems they cause.
Thanks, Craig
Everything had been working fine under SP3 for a long time, the perl script
used for our backup had been implemented 2 months before going to SP4 and
never had a problem.
1) After installing SP4 on a NT 4 Server, Win32 Perl did not work in the
same way and resulted in us being unable to set the enviroment value of
ORACLE_SID to allow us to shutdown and startup our ORACLE databases for
backup.
Also for some reason to get \\computername, normally in Perl you need
\\\\computername, however, for some reason, this is now doubled to \\\\\\\\
just to get two back slashes.
eg: winmsd \\\\\\\\computername
while before \\\\computername worked fine under SP3.
Both perl scripts run from the server.
2) After installing SP4 on a workstation and The IE SR, that is requested to
be installed as part of the installation of SP4 (the 30MB+ version). for
yk2, the user cannot access, the NEW command when right mouse clicking on
the desktop, stopping him from creating new folders or shortcuts or files.
It isn't even on the rick click menu anymore.
Just incase anyone wants to know the machine specs:
Server: Windows NT 4 Server, SP3 (before SP4), running on dual Pentium Pro
200's, with Win32-perl5 build 110
Workstations: Both Windows NT Workstation with SP3 (before SP4), one is
Pentium2 266, other is Pentium 133, Win32-perl5 build 316
------------------------------
Date: Tue, 17 Nov 1998 08:15:13 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: Parsing Pickle
Message-Id: <365184F1.CDA230D1@houston.Geco-Prakla.slb.com>
JTJ wrote:
>
> I'm in a bit of a pickle. :-[ I should remember how to do this but ...
>
> I need to parse this string:
>
> J Taylor-J <jtjohnston@erase.courrier.usherb.ca>
>
> I want to chop out everything " <>" including the preceding space to
> just my name:
>
> J Taylor-J
>
> I suppose I would use a substitution ... but how? I know I've done
> something like it before, but can't find an example.
>
> $address =~ s/???/???/g;
Well,
$string = 'J Taylor-J <jtjohnston@erase.courrier.usherb.ca>';
$string =~ s/\s+<.*>$//;
print $string;
Seems to do the trick for me. Is that what you had in mind?
Cheers,
Dave
--
Dave Barnett Software Support Engineer (281) 596-1434
Give a man a fish, and he will eat for a day. Teach him how to fish,
and he will sit in a boat and drink beer all day.
------------------------------
Date: Tue, 17 Nov 1998 12:29:38 +0100
From: Kati Gaebler <katigaebler@hotmail.com>
Subject: Perl script wanted
Message-Id: <36515E22.7B4260FF@hotmail.com>
Hello,
I'm looking looking for a good guestbook in Perl for my web-page, does
anyone know where I can find CUT-N-PASTE free script which includes the
following functions:
- Possibility of messages deleting themselfs automatically after a given
period of time, i.e. two weeks.
- A admin page so the administrator can remove unwanted messages.
Thats just about all I can think about. I would really appreciate your
advice.
Thank you,
Kati
Munich / Germany
------------------------------
Date: Tue, 17 Nov 1998 13:55:28 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Perl vs C
Message-Id: <kff42.261$en.69452@news.shore.net>
Paul Davies (cobalt@dircon.co.uk) wrote:
: Can anyone give me some information as to the relative speeds of perl and C
: programs?
I'm sure that Hilter could've taken every last square mile of Europe
and maybe even Asia by the time this thread will have come to an end.
;-)
--
Nate Patwardhan|root@localhost
"Fortunately, I prefer to believe that we're all really just trapped in a
P.K. Dick book laced with Lovecraft, and this awful Terror Out of Cambridge
shall by the light of day evaporate, leaving nothing but good intentions in
its stead." Tom Christiansen in <6k02ha$hq6$3@csnews.cs.colorado.edu>
------------------------------
Date: 17 Nov 1998 14:06:56 GMT
From: mike@mike.stok.co.uk (Mike Stok)
Subject: Re: Perl vs C
Message-Id: <72rvu0$eb0@news-central.tiac.net>
In article <364f7733.0@newsread1.dircon.co.uk>,
Paul Davies <cobalt@dircon.co.uk> wrote:
>Can anyone give me some information as to the relative speeds of perl and C
>programs?
What are you after here?
The speed of a program depends on many things, and without a more specific
set or circumstances it's hard to offer any opinion. My experience is
that perl programs are usually "fast enough" if a smart person writes them
(e.g. picking algorithms matters...) and if there are really speed
critical bits it's possible to prototype in perl and then turn the core
routines into an XS based module so you get the speed of compiled C for
them and the convenience of perl for the rest (e.g. the PDL module - see
the readme at
http://www.perl.com/CPAN/modules/by-module/PDL/PDL-1.99989.readme)
I haven't had to write a chunk of C in years, a little thought and perl
have usually sufficed.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Tue, 17 Nov 1998 12:06:16 GMT
From: Brent Michalski <perlguy@technologist.com>
Subject: Re: Perl_for_Win32_FAQ
Message-Id: <365166B8.9094E556@technologist.com>
Tom Phoenix wrote:
>
> On Sun, 15 Nov 1998, George C. Hetrick wrote:
>
> > Can anyone tell me where Perl_for_Win32_FAQ.html has gone to?
> > The link on www.perl.org is a dead link,
>
> http://www.perl.com/CPAN-local/doc/FAQs/nt/perlwin32faq.html
>
> Hope this helps!
Tom,
This link is returning:
<ERROR MESSSAGE>
File Not Found
The requested URL /CPAN-local/doc/FAQs/nt/win32prk.css was not found on
this server.
</ERROR MESSAGE>
Oops! Any idea where the style-sheet went?
Brent
--
Java? I've heard of it, it is what I drink when I am hacking Perl. -me
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$ Brent Michalski $
$ -- Perl Evangelist -- $
$ E-Mail: perlguy@technologist.com $
$ Resume: http://www.inlink.com/~perlguy $
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
------------------------------
Date: Tue, 17 Nov 1998 11:46:38 +0000
From: Mark Hamlin <mark.c.hamlin@bt.com>
Subject: Shell or shell - Can't locate shell.pm in @INC at k line 3.
Message-Id: <3651621E.10C2CA4@bt.com>
Sorry about previous html posts.
I couln't believe I had left out the semi colon and the shell name from
the use, so I immediently
rushed back to my scripts. It seems as though these errors were only
made
in my haste to get an answer to the prob. but the real problem was just
as
stupid (please forgive newbie). I had taken the function name direcly
(case
inculded) from the Camel which unfortunately presented the word 'Shell'.
Took a guess and took out the capital and WOW.... Oh well - got to the
bottom of it in the end... almost
Now on running the script
#!/usr/local/bin/perl
use shell qw(rcp ls cat);
print ls;
I get the message ' Can't locate shell.pm in @INC at k line 3. BEGIN
failed--compilation aborted at k line 2'.
Previously I was using use Shell qw(xxx xxx) which reulted in the
message
Segmentation Fault (Coredump) at line 3. What is the correct case?
Any ideas?
Thanks again,
Mark Hamlin 01473 646703
------------------------------
Date: Tue, 17 Nov 1998 11:01:25 +0000
From: Balazs Rauznitz <prauz@sprynet.com>
To: "+X%J(Tony)" <tonyt@hknet.com>
Subject: Re: Somthink don`t know~!PLS Help me
Message-Id: <36515785.65A67599@sprynet.com>
+X%J(Tony) wrote:
>
> In perl, Is
> $numberfile = "/data1/hypermart.net/tonyt/$npo.txt";
> right????
> If no how to write it???
Usually yes, but to be safe write:
$numberfile = "/data1/hypermart.net/tonyt/${npo}.txt";
------------------------------
Date: Tue, 17 Nov 1998 19:47:29 +0800
From: "+X%J(Tony)" <tonyt@hknet.com>
Subject: Re: Somthink don`t know~!PLS Help me
Message-Id: <36516194.0@ruby.hknet.com>
cannot run ...pno is get from html
<tr><td align=right>Page No:</td><td><input type=test name="pno"
size=20></td></tr>
Balazs Rauznitz <6<g)s$e39 <36515785.65A67599@sprynet.com>...
>+X%J(Tony) wrote:
>>
>> In perl, Is
>> $numberfile = "/data1/hypermart.net/tonyt/$npo.txt";
>> right????
>> If no how to write it???
>
>Usually yes, but to be safe write:
>$numberfile = "/data1/hypermart.net/tonyt/${npo}.txt";
------------------------------
Date: Tue, 17 Nov 1998 19:52:15 +0800
From: "+X%J(Tony)" <tonyt@hknet.com>
Subject: Re: Somthink don`t know~!PLS Help me
Message-Id: <365162b1.0@ruby.hknet.com>
i havr try ><tr><td align=right>Page No:</td><td><input type=pno name="pno"
>size=20></td></tr>
but cannot run!
+X%J(Tony) <6<g)s$e39 <36516194.0@ruby.hknet.com>...
>cannot run ...pno is get from html
>
><tr><td align=right>Page No:</td><td><input type=test name="pno"
>size=20></td></tr>
>Balazs Rauznitz <6<g)s$e39 <36515785.65A67599@sprynet.com>...
>>+X%J(Tony) wrote:
>>>
>>> In perl, Is
>>> $numberfile = "/data1/hypermart.net/tonyt/$npo.txt";
>>> right????
>>> If no how to write it???
>>
>>Usually yes, but to be safe write:
>>$numberfile = "/data1/hypermart.net/tonyt/${npo}.txt";
>
>
------------------------------
Date: Tue, 17 Nov 1998 08:21:11 -0600
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Re: Somthink don`t know~!PLS Help me
Message-Id: <36518657.A00B4CF@email.sps.mot.com>
=AB=D8=A5J(Tony) wrote:
> =
> i havr try ><tr><td align=3Dright>Page No:</td><td><input type=3Dpno na=
me=3D"pno"
> >size=3D20></td></tr>
> =
> but cannot run!
> =AB=D8=A5J(Tony) =BC=B6=BCg=A9=F3=A4=E5=B3=B9 <36516194.0@ruby.hknet.co=
m>...
> >cannot run ...pno is get from html
> >
> ><tr><td align=3Dright>Page No:</td><td><input type=3Dtest name=3D"pno"=
> >size=3D20></td></tr>
> >Balazs Rauznitz =BC=B6=BCg=A9=F3=A4=E5=B3=B9 <36515785.65A67599@spryne=
t.com>...
> >>=AB=D8=A5J(Tony) wrote:
> >>>
> >>> In perl, Is
> >>> $numberfile =3D "/data1/hypermart.net/tonyt/$npo.txt";
> >>> right????
> >>> If no how to write it???
> >>
> >>Usually yes, but to be safe write:
> >>$numberfile =3D "/data1/hypermart.net/tonyt/${npo}.txt";
You didn't fully describe your problem and question. Please do so, then
we will try to help.
-tk
------------------------------
Date: Tue, 17 Nov 1998 13:53:54 GMT
From: everybodydies@my-dejanews.com
Subject: Re: test for.t failure due to bad rounding
Message-Id: <72rv5i$mij$1@nnrp1.dejanews.com>
In article <Pine.GSO.4.02A.9811161821540.27321-100000@user2.teleport.com>,
Tom Phoenix <rootbeer@teleport.com> wrote:
> On Mon, 16 Nov 1998 everybodydies@my-dejanews.com wrote:
>
> > i'm trying to build perl5.005_02 on a sparc box running solaris 2.5.1,
> > and i'm seeing a really odd failure. it seems that ordinary integer
> > values (4 and 8 are big culprits) are being improperly rounded to
> > floats (like 3.999999 and 7.999997). this is seen in the for.t test
> > among others:
> >
> > 1..7
> > #1 :10: eq :10:
> > #1 :0 1 2 3 3.999999 5 6 7 7.999997 9 10: eq :0 1 2 3 4 5 6 7 8 9 10:
> > not ok 1
>
> That's weird. I'd guess that it could be either the increment operator, or
> it could be happening when it's being stringified. To see which, this test
> may help:
>
> for ($i = 0; $i <= 10; $i++) {
> next if $i < 3.5 or $i > 4.5;
> if ($i == 4) {
> print "No problem with auto-increment\n";
> print "Problem with stringification\n"
> if "#$i#" ne "#4#";
> } else {
> print "Problem with auto-increment, perhaps\n";
> }
> }
>
> Of course, once you find out which it is, that's just the start of the
> fun. Perhaps you can use gdb or something similar to step through the ops
> to see what's really going on, and whether the root of the problem is in
> Perl or in one of your system libraries. Good luck!
thanks for the test code, tom. it says it's a problem with the
stringification. what file/function is that happening in (i've never
walked through any of the perl sources before, but i'm more than comfy
digging in a debugger)?
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 4238
**************************************
