[9810] in Perl-Users-Digest
Perl-Users Digest, Issue: 3403 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 10 10:07:37 1998
Date: Mon, 10 Aug 98 07:00:30 -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 Mon, 10 Aug 1998 Volume: 8 Number: 3403
Today's topics:
Re: Access, ODBC and Linux (Stiphane Dupille)
Re: Calculate Date in Perl ngong@my-dejanews.com
Re: Calculate Date in Perl (I R A Aggie)
Re: chown -h <rra@stanford.edu>
dbm help needed foxhound@my-dejanews.com
Re: Encryption (-)
Re: File already opened by another process? (Florian Kuehnert)
Help installing SSLeay <dan@bns.com>
Re: hiding user input (Chris Nandor)
I'm new but know what I need. <bblue@customerofihug.co.nz>
install of perl5.004_04 on AIX4.2.1 <lsebag@capgemini.fr>
LOCK DATABASE FILES? <zelo@cde.com>
Re: math error (I R A Aggie)
Re: math error (M.J.T. Guy)
Newbie Question About 'for' (Martin Gallo)
Re: Newbie Question About 'for' (Mike Stok)
Re: Perl & Unicode/Japanese Kanji <peterm@zeta.org.au>
Re: perl -w compile and run time checking (Andrew M. Langmead)
Perl for Win32... <jayt@adelphia.net>
Perl parser for CORBA IDL? <davidc@selectst.com>
perl script to query QUAKE servers <bradmcc@comcen.com.au>
Perl, http and save <lars.schonert@mannheim-netz.de>
posting to external script within perl <dan@bns.com>
problem with exec call in cgi-bin program <joanna@ecas.org>
String comparison problem (Mark Conlin)
Re: String comparison problem (Mike Stok)
Re: String comparison problem <jdf@pobox.com>
Re: Trouble compiling 5.004_04 <rra@stanford.edu>
Re: Underwood Typewriter and the backslash (-)
Re: Underwood Typewriter and the backslash (Jeffrey R. Drumm)
Re: What is the purpose of Perl (-)
Re: What is the purpose of Perl (I R A Aggie)
Where can I find the binary for perl at least 5.002 (be <Marcus@Tuerner.de>
Windows 95 perl and long-directory names. <mikeloni@altair.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 10 Aug 1998 12:21:30 +0200
From: sdupille@yahoo.com (Stiphane Dupille)
Subject: Re: Access, ODBC and Linux
Message-Id: <m33eb5uogl.fsf@gromit.adrenaline.fr>
David Tauzell <dtauzel@uswest.com> writes:
> You can purchase (for a hefty price) a generic ODBC proxy from
> www.ensodex.com. With this situation, you would use the ODBC proxy
> client on linux and the ODBC proxy server on NT. I'm not sure, though,
> if the ODBC proxy client has been ported to Linux.
Yes, the proxy client was ported to Linux and it works
great. It was THE solution I expected for ! Thanx to all !
OK, the bad thing is that it will cost me 1000 $ (:-(
--
___
{~._.~} Stephane - DUST - Dupille
( Y ) You were dust and you shall turn into dust
()~*~() email : sdupille@yahoo.com
(_)-(_)
------------------------------
Date: Mon, 10 Aug 1998 06:15:04 GMT
From: ngong@my-dejanews.com
Subject: Re: Calculate Date in Perl
Message-Id: <6qm356$led$1@nnrp1.dejanews.com>
> You probably already have one of the following modules on your system and all
> will do what you want:
> Date::Calc
> Date::DateCalc
> Date::Manip
> If not, politely ask your server admin to install them from CPAN.
I have already installed Date::Calc on my system and I can run Perl program
which use this module at command prompt. However, I still can't run this Perl
program as CGI from WWW. The error message is "Error: HTTPd: malformed header
from script /usr/local/etc/httpd/cgi-bin/test/test.cgi"
My source code is following. There is <username> because my server is virtual
server.
#!/usr/local/bin/perl
use Date::Calc qw(:all);
use CGI;
use lib qw(/usr/home/<username>/usr/local/lib/perl5
/usr/home/<username>/usr/local/lib/perl5/site_perl);
print("Content-type: text/html\n\n");
print("<html>\n");
print("<head>\n");
print("<title>Internet Ordering</title>\n");
print("</head>\n");
print("<body>\n");
($year, $month, $day) = Today();
print("Today is $day/$month/$year");
print("</body>\n</html>");
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 10 Aug 1998 09:32:42 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Calculate Date in Perl
Message-Id: <fl_aggie-1008980932580001@aggie.coaps.fsu.edu>
In article <6qm356$led$1@nnrp1.dejanews.com>, ngong@my-dejanews.com wrote:
+ I have already installed Date::Calc on my system and I can run Perl program
+ which use this module at command prompt. However, I still can't run this Perl
+ program as CGI from WWW. The error message is "Error: HTTPd: malformed header
+ from script /usr/local/etc/httpd/cgi-bin/test/test.cgi"
Have you looked at your server's error logs for details? do you know your
server keeps error logs??
James
------------------------------
Date: 10 Aug 1998 01:55:36 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: chown -h
Message-Id: <m3hfzli5br.fsf@windlord.Stanford.EDU>
Sweth Chandramouli <sweth-usenet@astaroth.nit.gwu.edu> writes:
> is there some way to have the chown function in perl work like the chown
> program itself does when invoked with the -h flag (i.e. affect a symlink
> if that is its target, rather than the file to which that symlink
> points)? alternately, can chown be given device and inode info (as
> obtained from lstat) to define its target, to get around the problem
> entirely?
I'm afraid the answer is currently no to both questions. Perl really
should get lchown() at some point, but it requires a lot of
platform-specific tweaking and detecting to figure out how to get it. In
the meantime, you pretty much have to use system() to call chown -h.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Mon, 10 Aug 1998 07:41:07 GMT
From: foxhound@my-dejanews.com
Subject: dbm help needed
Message-Id: <6qm86j$qot$1@nnrp1.dejanews.com>
I have a perl program that read and writes to some dbm files on a solaris
machine.
The db files are stored with a *.pag and *.dir file format (sdbm?)
I need to write another program to read and write from the same dbm's, but
this program must be written in C.
Which header/library do I need to use in C to interface with the perl dbm's?
Chris
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Sun, 09 Aug 1998 13:54:03 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: Encryption
Message-Id: <35cda9e0.137011986@news2.cais.com>
adelton@fi.muni.cz (Honza Pazdziora) Said this:
>On Sun, 09 Aug 1998 00:13:48 -0700, webmaster@schnibitz.hypermart.net <webmaster@schnibitz.hypermart.net> wrote:
>
>[...]
>
>> Also, do any of the perl mods handle the encryption used in SSL? Or
>> would I have to write a library to handle it? Anyhow, if you can answer
>> these questions or point me in the right direction, It would be greatly
>> appreciated. Thanx in advance!
>
SSLeay I think is the modules to deal with SSL.
------------------------------
Date: 9 Aug 1998 23:25:30 GMT
From: sutok@gmx.de (Florian Kuehnert)
Subject: Re: File already opened by another process?
Message-Id: <slrn6ssbva.1e0.sutok@babylon.in-berlin.de>
Russ Allbery schrieb/wrote/icrivait/ha scritto:
>>> Besides, RFC-821 (SMTP) constantly mentions CRLF as line terminators.
>> ^^^^
>> News are transmitted via NNTP. Look to RFC1036.
>That's the news format RFC. The NNTP RFC is RFC 977, and it turns out
>that news as well is transmitted using CRLF as line terminators.
ACK, you're right, sorry.
Florian
------------------------------
Date: Sun, 9 Aug 1998 22:51:13 -0700
From: "Dan Bassett" <dan@bns.com>
Subject: Help installing SSLeay
Message-Id: <35ce8a9c.0@news1.starnetinc.com>
I am trying to install SSLeay on to my server but because I am
fairly new at perl modules, I seem to be running into a few problems..
I noticed that there is no Makefile.PL file included with the SSLeay
distribution. Which file do I use to install SSLeay?
Thanks,
Dan
dan@bns.com
------------------------------
Date: Mon, 10 Aug 1998 09:01:00 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: hiding user input
Message-Id: <pudge-1008980901000001@192.168.0.3>
In article <m3r9yscnd3.fsf@windlord.Stanford.EDU>, Russ Allbery
<rra@stanford.edu> wrote:
# Chris Nandor <pudge@pobox.com> writes:
# > Russ Allbery <rra@stanford.edu> wrote:
#
# >> It is generally considered to be good manners, if you are maintaining
# >> an archive of any sort, to honor the X-No-Archive header. Something
# >> along those lines is likely to be put into the next revision of the
# >> news standards, after which point if you were maintaining a publically
# >> accessible archive and did not honor the header, and this caused
# >> problems for someone, it's quite likely you could be sued and would
# >> lose.
#
# > Not a chance. RFCs do not laws make. I would contend that it is not
# > possible to make a constitutional law that would disallow me from
# > keeping a public archive of everything ever posted to any or all
# > newsgroups. The post is by definition public once it is posted. What
# > makes it legal for me to keep it on my news server for a month, but
# > illegal to keep it on my web server for a year or more? I'd hate to see
# > a draft of such legislation, because it would be nonsensical.
#
# It doesn't need new legislation. It's the case right now. It's called
# the Berne Copyright Convention.
#
# Everything I write is copyrighted. Everything. Including posts to
# Usenet. If you take a post that I write to Usenet and republish it as a
# book and make money off of it without paying me, I can sue you for your
# profits, and I'll stand a very good chance of winning.
This is not a book, this is an archive of public Internet posts kept on
the Internet.
# This isn't exactly an unknown issue. I moderate a fiction newsgroup. You
# think that a short story magazine would just take short stories off that
# newsgroup and republish them without giving royalties to the authors and
# expect *not* to be sued? Think again.
This is not a magazine.
# The way these things almost invariably work is that the court would apply
# a reasonable person's standard. What does the average poster to Usenet
# *expect* to happen to their message? An X-No-Archive header, if that is
# widely known and accepted, is a pretty clear-cut statement of expectation.
# And people *own* what they post. Violate reasonable person expectations
# with your archive and you *are* opening yourself up for legal problems.
What if I had an NNTP server, public, that "archived" everything
"forever"? Would that be OK? What if I charged for access to it? What
if it was not forever, but just a year? Is that too long? How about 6
months? 3 months? 1 week?
There is no significant, substantial difference between a Usenet server
that keeps posts for one week, and charges access to it, and a Web server
that keeps posts for 1 decade, and charges advertisers to be on it. If
there is a significant legal difference, please share it with me. I don't
see it. In both cases, the person or company is making money by providing
access to the same copyrighted information. Is the fact that I am paying
instead of an advertiser significant? If so, why? Is the length of time
of archive significant? If so, why? And what is the longest acceptable
time to keep something on a news server? I hope you won't say the
protocol is the significant difference, but if it is, then why?
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Mon, 10 Aug 1998 18:01:32 +1200
From: Dominic <bblue@customerofihug.co.nz>
Subject: I'm new but know what I need.
Message-Id: <35CE8CBB.40B7A883@customerofihug.co.nz>
Hello everyone.
My site is in the process of being set up, ready for going live - to
receive real world use.
It's a prototype right now. If you'd like to see it:
http://www.a-vision.co.nz . It's a TV site, looking at how the Internet
could be transforming TV.
I'd like to meet up with some Perl programmers.
The site requires some Perl scripts.
I'll be honest and say that I may not be able to pay. But if there are
some rare guys out there who'd like to be part of a great idea, and
receive a thank-you via lots of publicity and being part of a cool idea,
then....cool!
Let's get together.
Dom.
--
reply: take out b from bblue and customerof from customerofihug.co.nz
------------------------------
Date: Mon, 10 Aug 1998 10:24:17 +0200
From: Laurent_SEBAG <lsebag@capgemini.fr>
Subject: install of perl5.004_04 on AIX4.2.1
Message-Id: <35CEAE31.9DB44F0A@capgemini.fr>
I have to install perl5.004_04.tar.gz on a AIX 4.2.1 system, and I got a
problem :
the default installation ends on the following message :
"Could not find manual pages in source form"
and the system doesn't give me the hand back.
What should I do ?
Thank in advance.
Laurent SEBAG
------------------------------
Date: Mon, 10 Aug 1998 04:58:19 -0400
From: "Sleepy_Z" <zelo@cde.com>
Subject: LOCK DATABASE FILES?
Message-Id: <6qmcor$m1n$1@news.cde.net>
I am writing a database file that will only be READ and not WRITTEN to. Do I
need to lock that database or will it be ok without it?
I am expecting the database to be accessed appx. 2,000 times a week with a
burst of 350 an hour.
Thanks
------------------------------
Date: Sun, 09 Aug 1998 19:20:49 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: math error
Message-Id: <fl_aggie-0908981921040001@aggie.coaps.fsu.edu>
In article <35CE80AC.7A354A3A@mindgear.com>, Tom Bridgwater
<T.Bridgwater@mindgear.com> wrote:
+ The question is not about whether there are rounding errors (which there
+ are) or about how to round numerical data (using sprintf), but why does
+ a number that has been forced to an integer (and prints as an integer)
+ not behave properly in an addition expression.
>From your previous post, with a few arbritary constants thrown in...
$val = 14;
$a=22;
$b=3;
print " val: $val\n";
$val *= $a/$b;
print " div: $val\n";
Results:
val: 14
div: 102.666666666667
What is tripping you up is that perl *automagically* converts your results
into a float, not an int. In a more strongly typed language (C, Fortran),
you'd end up with an int value. The equivalent results can be obtained
as:
$val *= int ( $a/$b) ;
+ If the int function would
+ sometimes yield a number that was one higher/lower than expected I could
+ understand the rounding error, but that's not the case here.
int() always truncates.
James
------------------------------
Date: 10 Aug 1998 11:34:07 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: math error
Message-Id: <6qmlrf$m7d$1@pegasus.csx.cam.ac.uk>
Tom Bridgwater <T.Bridgwater@mindgear.com> wrote:
>M.J.T. Guy wrote:
>> You're failing to understand the nature of floating point arithmetic
>> and rounding errors. The first entry in perldoc perlfaq4 is
>> relevant.
>
>http://www.perl.com/CPAN-local/doc/manual/html/pod/perlfaq4/Why_isn_t_my_octal_data_interpre.html
>is the first article but doesn't seem to apply.
>
>http://www.perl.com/CPAN-local/doc/manual/html/pod/perlfaq4/Does_perl_have_a_round_function_.html
>is the second article and is relevant in the suggestion to use sprintf
>(instead of int).
Interesting. It seems that version of the FAQ is rather out-of-date,
and the first entry is missing. In the FAQ as distributed with all
versions of Perl (since it started being included in the distribution),
the first entry is
Why am I getting long decimals (eg, 19.9499999999999)
instead of the numbers I should be getting (eg, 19.95)?
The infinite set that a mathematician thinks of as the real
numbers can only be approximate on a computer, since the
computer only has a finite number of bits to store an
infinite number of, um, numbers.
[etc]
>The question is not about whether there are rounding errors (which there
>are) or about how to round numerical data (using sprintf), but why does
>a number that has been forced to an integer (and prints as an integer)
>not behave properly in an addition expression. If the int function would
>sometimes yield a number that was one higher/lower than expected I could
>understand the rounding error, but that's not the case here.
Actually, that's exactly the case here. Anyone who applies the int()
function to a quantity subject to rounding errors, but which would have
given an integer if calculated with exact arithmetic, is in a state of sin.
As you remark, the advice in the third entry (your second entry) is
relevant.
Mike Guy
------------------------------
Date: 10 Aug 1998 13:09:25 GMT
From: martimer@mindspring.com (Martin Gallo)
Subject: Newbie Question About 'for'
Message-Id: <martimer-1008980812070001@pool-207-205-143-51.rvdl.grid.net>
I just started with Perl over the weekend (I have been programming off and
on since 1980), and cannot understand why the simple program:
for ($a=1,$a<7, ++$a) {
print $a,"\n"
}
gives the following results:
2
2
2
Using $a++ for the incremental also gives the same result.
I was able to get the 'while' version to work.
Marty
------------------------------
Date: 10 Aug 1998 13:33:11 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Newbie Question About 'for'
Message-Id: <6qmsqn$j9g@news-central.tiac.net>
In article <martimer-1008980812070001@pool-207-205-143-51.rvdl.grid.net>,
Martin Gallo <martimer@mindspring.com> wrote:
>I just started with Perl over the weekend (I have been programming off and
>on since 1980), and cannot understand why the simple program:
>
>for ($a=1,$a<7, ++$a) {
>print $a,"\n"
>}
>
>gives the following results:
>
>2
>2
>2
You need semicolons, not commas e.g.
for ($a = 1; $a < 7; $a++) {
print "$a\n";
}
Perl's for is a synonym for foreach, and the type of loop depends on the
contents of the parens. The perlsyn page documents the 2 forms of loop as
for loop and foreach loop.
In your code you had a list of 3 elements, the result of $a = 1, the
result of $a < 7 and the result of ++$a, to see what's happening try this:
for ($a = 1, $a < 7, ++$a) { # think foreach...
print "a is $a, _ is $_\n";
}
and it the output seems odd then try
for ($x = $a = 1, $a < 7, ++$a) {
:-)
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: Mon, 10 Aug 1998 22:37:48 +1000
From: "Peter G. Martin" <peterm@zeta.org.au>
Subject: Re: Perl & Unicode/Japanese Kanji
Message-Id: <35CEE99C.FEF3697E@zeta.org.au>
webjock wrote:
>
>
>
> I have implemented a search engine that searches both "English" and "Japanese"
>
> The search engine works fine if they enter in words in english (normal ascii).
> The output prints out Englidh/Kanji fine..
>
> However, if I STDIN a unicode set of text (Kanji), the search engine dies...
> It just hangs...
>
> What can I do??
As a start, do a web search for Jeffrey Friedl's site and/or
read up some of his stuff in Perl Journal articles...
Just a starting suggestion.
--
peterm
Peter G. Martin, Tech.Writer & Perl User, The Scribe & Chutney Trust
peterm@zeta.org.au, http://www.zeta.org.au/~peterm
ROZELLE, Australia +61 2 9818 5094
Use of the passive should be minimised.
------------------------------
Date: Mon, 10 Aug 1998 13:09:07 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: perl -w compile and run time checking
Message-Id: <ExH5v7.Koo@world.std.com>
ronaldws@aol.com (RonaldWS) writes:
>Is there any way to control perl's selection of warnings (eg turn
>them off as with some 'C' compilers.
There is a long talked about "lexical warning patch" that never seems
to make it into the main perl distribution. Maybe some day.
Until then, you can turn off this particular error by the "use vars"
pragma.
use vars '$x';
--
Andrew Langmead
------------------------------
Date: Mon, 10 Aug 1998 01:59:22 -0400
From: "Jason Tahaney" <jayt@adelphia.net>
Subject: Perl for Win32...
Message-Id: <b%vz1.588$N15.2087978@news.axxsys.net>
I am having trouble using common Win32 API extensions in Perl for Win32. I
receive an undefined sub-routine error every time I attempt to access any of
the directly mapped win32 extensions or module extensions.
i.e. &NTLoginName or Win32::Process::Create
Please respond via e-mail: jayt@adelphia.net
Thanks in advance....
------------------------------
Date: Mon, 10 Aug 1998 21:02:19 +1000
From: David Coldrick <davidc@selectst.com>
Subject: Perl parser for CORBA IDL?
Message-Id: <35CED33B.D6A280C6@selectst.com>
Has anyone a pointer to a perl parser for IDL? I'd like to reverse IDL
into my favourite OO modeling tool, and a parser would certainly reduce
the workload :-)
Regards,
David
------------------------------
Date: 10 Aug 98 07:14:30 GMT
From: "Brad McCready" <bradmcc@comcen.com.au>
Subject: perl script to query QUAKE servers
Message-Id: <01bdc42d$06298a40$88f438cb@brad>
hi im interested in writing a perl script to query quake servers(as u
probably guessed from the subject of this message) anyway i was wondering
if anyone has a script that i could have a look at or could point me
towards some information on this.
i have seen a couple of good c++ programs to do the same thing. im thinking
these are probably better because they could do multiple servers at a
time(dunno if u can do that in perl) but im still interested in a perl
version(mainly for my own learning purposes) anyway thanks for any help
given.
Brad McCready
bradmcc@comcen.com.au
------------------------------
Date: Mon, 10 Aug 1998 14:31:52 +0200
From: lars <lars.schonert@mannheim-netz.de>
Subject: Perl, http and save
Message-Id: <35CEE838.AEB02A31@mannheim-netz.de>
Hello,
i have a little problem. I need a program to do that:
- i give him a url in the command line
- the program go to the url
- the page behind the url will save on my disk
Can you help me ?
Thankzg
------------------------------
Date: Sun, 9 Aug 1998 22:35:47 -0700
From: "Dan Bassett" <dan@bns.com>
Subject: posting to external script within perl
Message-Id: <35ce8700.0@news1.starnetinc.com>
I am trying to find the correct module that will allow me to
post form input from a script on my server to a script
located on another server and then read back the results
of the external script...
For example, I have a form called signup.htm which posts
to signup.pl on my server. Within the signup.pl script, it should
be able to then post specified form input to
http://anotherdomain.com/signup.pl
and then beable to read back the results from that script all without
the user knowing about what's going on behind the scenes..
Which module would I use for this? I would like options for both
SSL posting and non SSL posting.
I would also appreciate a sample perl script which would illustrate
how I may do the above...
Thanks for your help.
Dan
dan@bns.com
------------------------------
Date: Mon, 10 Aug 1998 12:00:58 GMT
From: joanna <joanna@ecas.org>
Subject: problem with exec call in cgi-bin program
Message-Id: <35CEE065.7F70A47D@ecas.org>
Hi,
can someone tell me more about the usage of exec?
I wrote a small perl program (program 1) that lanches another perl
program (program 2). This other perl program writes some text in a new
file.
the code of the program 1 is:
$programToRun = 'perl blabla.pl';
exec $programToRun;
with this code, program 2 blabla.pl is properly executed. However, this
works fine only when I run program 1 from the command line. When I
insert the code of program 1 in a larger perl program that is actually
in a cgi-bin directory, nothing seems to happen, including an error
message. In other words, when an html form starts a post operation
adressing the large perl program located in cgi-bin, the exec related
lines code do not start program 2.
Can anybody tell me why program 1 works fine at command line and does
not work properly when inserted in a cgi-bin perl program.
Thank a lot for your help as I feel lost.
Gilles.
PS: note that I'm working with Perl for Win95.
------------------------------
Date: 10 Aug 1998 13:09:45 GMT
From: gt2863a@acmey.gatech.edu (Mark Conlin)
Subject: String comparison problem
Message-Id: <6qmrep$348@catapult.gatech.edu>
Okay, I am trying to see if two strings are equal
so my code says
if ($submit{'orginal'} eq $name){
this was not working so I decided to print the two strings to see
what was going on so
print OUTFILE "org = $submit{'original'}\n";
print OUTFILE "current = $name \n";
if ($submit{'orginal'} eq $name){
now they appear to be the same, here is an exact cut from the output
org = Phyllis Kingston
current = Phyllis Kingston
Okay I know what you thinking, some kind of special character at the end?
so I chop them and get this
org = Phyllis Kingsto
current = Phyllis Kingsto
What else could be going on here ?
thanks
Mark Conlin
--
mec --gt2863a
------------------------------
Date: 10 Aug 1998 13:39:03 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: String comparison problem
Message-Id: <6qmt5n$jek@news-central.tiac.net>
In article <6qmrep$348@catapult.gatech.edu>,
Mark Conlin <gt2863a@acmey.gatech.edu> wrote:
>
>Okay, I am trying to see if two strings are equal
>
>so my code says
>
>if ($submit{'orginal'} eq $name){
>
>this was not working so I decided to print the two strings to see
>what was going on so
>
>print OUTFILE "org = $submit{'original'}\n";
>print OUTFILE "current = $name \n";
>if ($submit{'orginal'} eq $name){
>
>now they appear to be the same, here is an exact cut from the output
[...]
if ('orginal' eq 'original') {
print "Things might work :-)\n";
}
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: 10 Aug 1998 09:58:50 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: gt2863a@acmey.gatech.edu (Mark Conlin)
Subject: Re: String comparison problem
Message-Id: <k94g3mtx.fsf@mailhost.panix.com>
gt2863a@acmey.gatech.edu (Mark Conlin) writes:
> if ($submit{'orginal'} eq $name){
>
> this was not working
1) What exactly do you mean by "not working"?
2) Is the -w switch in your shebang line?
#!/path/to/perl -w
3) Can you write a *brief* but *complete* program that demonstrates
the problem you're seeing?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: 10 Aug 1998 01:57:11 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Trouble compiling 5.004_04
Message-Id: <m3emupi594.fsf@windlord.Stanford.EDU>
Brian Springstead <bspring@j51.com> writes:
> I'm having trouble compiling perl 5.004_04. Well to be exact the
> Configure script gives up. Here's the problem:
> Checking your choice of C compiler, libs, and flags for coherency...
> I've tried to compile and run a simple program with:
> cc -O2 -Dbool=char -DHAS_BOOL -I/usr/local/include -L/usr/local/lib -o try try.c -ln
> et -lnsl -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
> ./try
> and I got the following output:
> /usr/lib/libnet.so: undefined reference to `threadedAccept'
> /usr/lib/libnet.so: undefined reference to `makeJavaString'
Are you compiling on a Red Hat Linux box? Try removing -lnsl from the
link line. It turns out that's actually a Java library on Red Hat, not
the Network Socket Library like Perl expects it to be.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Sun, 09 Aug 1998 13:35:57 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: Underwood Typewriter and the backslash
Message-Id: <35cda4a9.135680865@news2.cais.com>
mnc@diana.law.yale.edu (Miguel Cruz) Said this:
>Jeffrey Drumm <drummj@mail.mmc.org> wrote:
>>No such special support has yet been added. The current workaround:
>
>Does anyone know of a macro utility for the Underwood that would save me
>from doing all these steps each time? Preferably something electrical. I
>would be interested in exploring PunchCard (tm) technology if it is
>appropriate to this process.
>
Can't you just use an external input source? I mean, eberhard faber
used to produce an excellent peripheral that used some kind of carbon
or graphite core with a rubber "error correction unit" on one end. I
haven't actually seen one of these in the past few months, but I do
remember them from my school days. The only time a bug would manifest
with one of these was when you applied too much pressure to one end.
They also require no external power source, if I recall. They tended
to get chewed up pretty fast though.
------------------------------
Date: Mon, 10 Aug 1998 11:12:37 GMT
From: drummj@mail.mmc.org (Jeffrey R. Drumm)
Subject: Re: Underwood Typewriter and the backslash
Message-Id: <35ced35e.851391956@news.mmc.org>
[ posted to comp.lang.perl.misc and a courtesy copy was mailed to the cited
author ]
On 10 Aug 1998 02:26:52 GMT, ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:
>[A complimentary Cc of this posting was sent to Jeffrey Drumm
><drummj@mail.mmc.org>],
>who wrote in article <35cd69ee.612982005@news.mmc.org>:
>> On 7 Aug 1998 14:20:55 GMT, cpierce1@cp500.fsic.ford.com (Clinton Pierce)
>> wrote:
>>
>> >I like the new cover to The Perl Journal, with the attempted run
>> >of ./Configure on the Underwood, but I have a question. Since the
>> >Underwood Typewriter has no backslash key (\), does Perl now support
>> >trigraphs for those architectures?
>>
>> (snip)
>>
>> No such special support has yet been added. The current workaround:
>
>Stop spreading FUD! Starting from 5.005, trigraphs are fully
>supported! See L<perlre/"Creating custom RE engines">.
>
>Ilya
Apologies . . . I missed that in Sarathy's article on 5.005, and should have
given the docs a thorough reading before posting. However, I've developed RSI
in my left arm from operating the Underwood's pager, so I've got to take fairly
long breaks between documentation reading sessions. Given the completeness of
same, I may be at it well after 6.0 is available . . .
;-)
--
Jeffrey R. Drumm, Systems Integration Specialist
Maine Medical Center - Medical Information Systems Group
drummj@mail.mmc.org
"Broken? Hell no! Uniquely implemented!" - me
------------------------------
Date: Mon, 10 Aug 1998 04:23:58 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: What is the purpose of Perl
Message-Id: <35ce75c1.189054912@news2.cais.com>
mnc@diana.law.yale.edu (Miguel Cruz) Said this:
>In article <35CE4264.2E0AEE50@slip.net>, Eric Umehara <momiji@Slip.Net> wrote:
>> I'm learning perl and am curious what is the purpose of Perl?? What can it
>> do and what has it done.
>
>Perl can bend steel bars and move mountains. Perl can tie back the hands of
>time. Perl is good for the goose and for the gander. Perl can beat up Mike
>Tyson with one hand tied behind its back. Perl can make a rock so heavy it
>can't lift it.
>
>Perl has saved the rainforests, it has been to the moon, and it has cured
>all major diseases. It has exceeded all known bounds. It has mapped the
>universe and created an exact duplicate. Perl has danced with angels and
>dined with Shakespeare.
>
>Didn't you read the manual?
>
I need to get a copy of the manual you have... mine says nothing of
all the above mentioned things.
------------------------------
Date: Mon, 10 Aug 1998 09:35:23 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: What is the purpose of Perl
Message-Id: <fl_aggie-1008980935390001@aggie.coaps.fsu.edu>
In article <6qlj11$aok$1@news.ycc.yale.edu>, mnc@diana.law.yale.edu
(Miguel Cruz) wrote:
+ Perl can bend steel bars and move mountains. Perl can tie back the hands of
+ time. Perl is good for the goose and for the gander. Perl can beat up Mike
+ Tyson with one hand tied behind its back. Perl can make a rock so heavy it
+ can't lift it.
And that was before breakfast.
+ It has mapped the universe and created an exact duplicate.
%universe_2 = %universe;
James - from empirical evidence, I'd say the universe is a hash... ;)
------------------------------
Date: Mon, 10 Aug 1998 15:19:37 +0200
From: "Marcus T|rner" <Marcus@Tuerner.de>
Subject: Where can I find the binary for perl at least 5.002 (better 5.005) for Windows NT4.0 ?
Message-Id: <35CEF369.6E42802B@Tuerner.de>
The page of www.perl.com directs me to a site whisch promise 5.003 and
if I download it it's only 5.001.
I searched about an hour and found only sources, but I need the ready
made Software because I'm not a Softwaredeveloper and have no
opportunity to compile anything.
Please Help!
Thanx!
Marcus
------------------------------
Date: Mon, 10 Aug 1998 05:49:24 -0400
From: "Peter P. Mikelonis" <mikeloni@altair.com>
Subject: Windows 95 perl and long-directory names.
Message-Id: <35CEC224.4CC5CAEE@altair.com>
I am having difficulty doing existence checking, (-e), if my string
contains a path with
an item greater than 8 characters. Has any one else experienced this and
is
there a work around. The script was developed on NT and works fine.
Please e-mail me if you can
Thanks.
--
==================================================================
Pete Mikelonis | Url : http://www.altair.com
Altair Computing, Inc. | Email: mikeloni@altair.com
1757 Maplelawn Drive | Phone: (248) 614-2400 ext 239
Troy, MI 48084-4004 | Fax : (248) 614-2411
==================================================================
------------------------------
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 3403
**************************************
