[13248] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 658 Volume: 9

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 27 00:07:26 1999

Date: Thu, 26 Aug 1999 21:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Thu, 26 Aug 1999     Volume: 9 Number: 658

Today's topics:
        C Source Parser. <Eumir.Camara@software-engineering.com.ph>
    Re: Call subroutines in an IF statement? (David Efflandt)
        ePerl, EmbPerl, Apache::ASP,..PHP? <tttt@ttttt.com>
    Re: help -  why  do I get ";" ? (elephant)
    Re: Images (Martien Verbruggen)
    Re: Implementing a Perl Script on NT (elephant)
    Re: Implementing a Perl Script on NT (Larry Rosler)
    Re: Implementing a Perl Script on NT (elephant)
    Re: mirror.pl on OS/2 Question <huffd@nls.net>
    Re: mirror.pl on OS/2 Question (Martien Verbruggen)
    Re: passing hidden varible between scripts (David Efflandt)
    Re: Perl a Black Sheep? <madebeer@igc.apc.org>
        Perl Distribution (Ramesh Venkitaswaran)
    Re: Perl Distribution (Martien Verbruggen)
    Re: Perl Y2K Bugs on the Internet <wyzelli@yahoo.com>
    Re: Perl Y2K Bugs on the Internet <luisr@juanadiaz.org>
    Re: Perl Y2K Bugs on the Internet <revjack@radix.net>
    Re: Perl.exe has an interpreted mode? (elephant)
    Re: Perl.exe has an interpreted mode? <revjack@radix.net>
    Re: Perl.exe has an interpreted mode? <revjack@radix.net>
    Re: problem with cgi script <jeff@vpservices.com>
    Re: problem with cgi script (David Efflandt)
    Re: Spawn a Web process <laurensmith@sprynet.com>
    Re: Split behaviour with empty fields (Fred Strauss)
    Re: The extent of double-quotish interpolation (elephant)
    Re: Why use Python when we've got Perl? <skip@mojam.com>
    Re: Why use Python when we've got Perl? <davidopp@megsinet.net>
        Win32 OLE VB -> Perl question: Arrays? <ter@my-deja.com>
        Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Fri, 27 Aug 1999 11:54:05 +0100
From: "Eumir Que Camara" <Eumir.Camara@software-engineering.com.ph>
Subject: C Source Parser.
Message-Id: <7q5229$6m3$1@nobel2.pacific.net.sg>

I was wondering if anybody has a perl C source parser. We are trying to fix
our code and it would speed things up if I find perl scripts to speed things
up.

Thanks
Eumir Camara




------------------------------

Date: 27 Aug 1999 02:02:55 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Call subroutines in an IF statement?
Message-Id: <slrn7sbsmj.j0.efflandt@efflandt.xnet.com>

On Thu, 26 Aug 1999 07:19:19 -0800, willow <chettah@msn.com> wrote:
>Is it possible to call several subroutines within an IF statement?  Or
>should I be calling a single block instead?

Yes, I do it all the time.

>I keep getting syntax errors with the following:

I am not familiar with appending a bare * to a string.  But it gives
me a syntax error at "}" at end of that block in a test script.  I cannot
tell what you are trying to do with the if statement either, but perhaps
you should really use something like:  if ($0 =~ /RIP_EARNED_MPS/) {

>if ($0 = "RIPS_EARNED_MPS".* ) {
>     &sortearned;
>     &mpsrecd;
>     &mpssent;
>     &evalsum;
>}

The following is always be false because you reassigned $0 = something
else above, so $0 is not its original value.  Perhaps you meant eq
instead of =, but neither would work here since it neglects to account for
the path.  And the * here is also a syntax error.

>elsif ($0 = "RIPS_BILLING".* ) {
>     &sortbilled;
>     &caprecd;
>     &capsent;
>     &evalsum;
>}
>else {
>     die "Invalid file for validation \n";
>}
>
>Thanks,
>
>Tara Pillion

-- 
David Efflandt   efflandt@xnet.com   http://www.xnet.com/~efflandt/
http://www.de-srv.com/   http://cgi-help.virtualave.net/


------------------------------

Date: Thu, 26 Aug 1999 18:12:30 -0700
From: ted <tttt@ttttt.com>
Subject: ePerl, EmbPerl, Apache::ASP,..PHP?
Message-Id: <37C5E5FE.1F34BC62@ttttt.com>

hello.

can anyone compare and contrast the various HTML with embededed perl
platforms out there? (and even less pure platforms like PHP)

 ... or maybe point me to a url resource?

i'm building a new site and i'd like to make sure i pick the one with
the best future (scalability, ongoing development/addons, authoring
tools, etc).

thanks!
ted


------------------------------

Date: Fri, 27 Aug 1999 12:03:34 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: help -  why  do I get ";" ?
Message-Id: <MPG.12309d063516aaf7989c8c@news-server>

Geoffrey Toogood writes ..
>I always get a ";" with the second value.  I end up having to chop $value2
>to get the true value.  Is this normal ? why does it do this ? is it my code
>? will it do this on all servers or just mine? can someone suggest a quicker
>more efficient way to do this using CGI::Cookie ?

your problem has nothing to do with your Perl knowledge .. it has 
everything to do with your knowledge of how cookies are presented via 
CGI

seek out help with cookies

-- 
 jason - elephant@squirrelgroup.com -


------------------------------

Date: Fri, 27 Aug 1999 03:27:38 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Images
Message-Id: <KAnx3.480$bJ4.8761@nsw.nnrp.telstra.net>

In article <37C55DE0.842A763B@blackhole-designs.com>,
	Jimmy Humphrey <jimmy@blackhole-designs.com> writes:
> Content-Type: text/plain; charset=us-ascii

Please don't do that. Usenet is a plain text medium. Not a MIME
circus.  And not a web application crappy thingy that deals with HTML.
And don't put your message before what you quote, and don't quote your
own message. It's not Jeopardy here.

IOW: before posting again, please fix your usenet posting style.

>              $myImage->copyResized($myImage,10,10,0,0,50,50,25,25);
                ^^^^^^^               ^^^^^^^
Martien
-- 
Martien Verbruggen                  | 
Interactive Media Division          | 
Commercial Dynamics Pty. Ltd.       | Curiouser and curiouser, said Alice.
NSW, Australia                      | 


------------------------------

Date: Fri, 27 Aug 1999 11:52:03 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: Implementing a Perl Script on NT
Message-Id: <MPG.12309a4d110ecf3f989c8a@news-server>

Larry Rosler writes ..
>In article <7q51h7$mm1$1@news.vsnl.net.in> on Thu, 26 Aug 1999 22:46:45 
>+0530, Julie Tuck <iwebmaster@email.com> says...
>> I have made a perl script that works perfectly well on a Unix server,, but
>> now  I require to Execute it on an NT server, could you please tell what
>> chanes  should make in the script to make it work on an NT server.
>
>Unless you have filenames that need to be changed or calls to system(), 
>exec(), or qx() that execute nonportable commands, everything ought to 
>work.

ouch .. everything Larry ? .. I know you didn't mean that .. I leave the 
list of porting issues up to the copious quantity of documentation 
included with the standard Perl distribution

-- 
 jason - elephant@squirrelgroup.com -


------------------------------

Date: Thu, 26 Aug 1999 19:36:48 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Implementing a Perl Script on NT
Message-Id: <MPG.122f998cccfb59e5989eb8@nntp.hpl.hp.com>

In article <MPG.12309a4d110ecf3f989c8a@news-server> on Fri, 27 Aug 1999 
11:52:03 +1000, elephant <elephant@squirrelgroup.com> says...
> Larry Rosler writes ..
> >In article <7q51h7$mm1$1@news.vsnl.net.in> on Thu, 26 Aug 1999 22:46:45 
> >+0530, Julie Tuck <iwebmaster@email.com> says...
> >> I have made a perl script that works perfectly well on a Unix server,, but
> >> now  I require to Execute it on an NT server, could you please tell what
> >> chanes  should make in the script to make it work on an NT server.
> >
> >Unless you have filenames that need to be changed or calls to system(), 
> >exec(), or qx() that execute nonportable commands, everything ought to 
> >work.
> 
> ouch .. everything Larry ? .. I know you didn't mean that .. I leave the 
> list of porting issues up to the copious quantity of documentation 
> included with the standard Perl distribution

No, I really meant what I said.  It sounds like a standard CGI program, 
which doesn't fork or use the get/set... functions to mess around with 
OS-specific files.  Porting such a program is astoundingly easy.

As for the documentation, perlport says hardly anything about it other 
than the filenames, and the ActivePerl docs (except for Quirks) don't 
say much either.

-- 
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com


------------------------------

Date: Fri, 27 Aug 1999 13:51:57 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: Implementing a Perl Script on NT
Message-Id: <MPG.1230b6656cbe7c92989c8d@news-server>

Larry Rosler writes ..
>In article <MPG.12309a4d110ecf3f989c8a@news-server> on Fri, 27 Aug 1999 
>11:52:03 +1000, elephant <elephant@squirrelgroup.com> says...
>> Larry Rosler writes ..
>> >In article <7q51h7$mm1$1@news.vsnl.net.in> on Thu, 26 Aug 1999 22:46:45 
>> >+0530, Julie Tuck <iwebmaster@email.com> says...
>> >> I have made a perl script that works perfectly well on a Unix server,, but
>> >> now  I require to Execute it on an NT server, could you please tell what
>> >> chanes  should make in the script to make it work on an NT server.
>> >
>> >Unless you have filenames that need to be changed or calls to system(), 
>> >exec(), or qx() that execute nonportable commands, everything ought to 
>> >work.
>> 
>> ouch .. everything Larry ? .. I know you didn't mean that .. I leave the 
>> list of porting issues up to the copious quantity of documentation 
>> included with the standard Perl distribution
>
>No, I really meant what I said.  It sounds like a standard CGI program, 
>which doesn't fork or use the get/set... functions to mess around with 
>OS-specific files.  Porting such a program is astoundingly easy.

don't know what "standard CGI program" is .. assuming that you mean a 
"simple CGI program" - then .. true .. porting such programs is easy .. 
but I didn't read anything that seemed to indicate that this is a simple 
CGI program

>As for the documentation, perlport says hardly anything about it other 
>than the filenames, and the ActivePerl docs (except for Quirks) don't 
>say much either.

hmm I don't know if I agree with your comments on perlport .. my 
perlport lists all the functions that have problems and the operating 
systems that those problems happen on

in any case - I read the documentation during installation .. which now 
appears as the sub-item "perlwin32" in the Pod section of the 
ActiveState TOC in their HTML documentation .. it's a good list of most 
of the issues

it covers issues including (but certainly not limited to) the lack of 
signal compatibility .. something which should (but often doesn't) find 
its way into CGI scripts

alarm() is also a common gotcha with some CGI scripts

binmode() would probably also be worth mentioning in CGI context .. 
certainly it comes up in a lot of what I would call "standard CGI 
programs"

and those three assume that your guess is correct about it being CGI 
(which you might have thought to mention in your original)

dunno .. I just think that it might not be the best advice - 
recommending that other than system calls and filenames everything else 
ought to work

-- 
 jason - elephant@squirrelgroup.com -


------------------------------

Date: Fri, 27 Aug 1999 01:44:58 GMT
From: "David D. Huff Jr." <huffd@nls.net>
Subject: Re: mirror.pl on OS/2 Question
Message-Id: <37C5EC37.C1C5ABD2@nls.net>

This question is only open to anyone who has responded
to this news group LESS THAN ONE-HUNDRED AND ELEVEN TIMES IN THE LAST 7
DAYS
Whom, might actually help the needy by asking a pertinent question,
general or otherwise.
Someone who is not easily offended by one's lack of proper etiquette.
And can give instruction without witticisms.


"David D. Huff Jr." wrote:

> How do I make mirror.pl delete files on the target
> server that do not exist on the source server?
>
> I am mirroring a server that deletes outdated
> files. Mirror.pl does not delete the files on my
> OS/2 server it tries to unlink then it says it
> cannot find the file/directory.
>
> Thanks



------------------------------

Date: Fri, 27 Aug 1999 03:54:21 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: mirror.pl on OS/2 Question
Message-Id: <NZnx3.494$bJ4.8761@nsw.nnrp.telstra.net>

In article <37C5EC37.C1C5ABD2@nls.net>,
	"David D. Huff Jr." <huffd@nls.net> writes:
> This question is only open to anyone who has responded
> to this news group LESS THAN ONE-HUNDRED AND ELEVEN TIMES IN THE LAST 7
> DAYS

Instead of trying to be funny, you should listen to criticism. You,
again, posted in Jeopardy style, which is generally frowned upon here.
Many people will not even answer your messages when you post like
that, because it is simply too much work to try to figure out what's
quoted in response to what. You also posted a follow-up to your own
message, quoting the complete original message. Wasteful, and not
good.

> Someone who is not easily offended by one's lack of proper etiquette.

Instead of whinging about us complaining about your lack of proper
etiquette, you should do something about it. Do you fart loudly in
restaurants?

> And can give instruction without witticisms.

Do you have a problem with wit? I believe Oscar Wilde had a few things
to say about that problem.

To your original question:

>> How do I make mirror.pl delete files on the target
>> server that do not exist on the source server?

You look at the code of the script, and you insert code in the
appropriate places to remove local files if they are not present
anymore remotely.

If the documentation of mirror.pl doesn't show you directly how to do
it, there probably isn't code present to do it. You'll have to write
that code yourself. No one here will do it for you.

I suggest using the unlink function.

# perldoc -f unlink

Martien
-- 
Martien Verbruggen                  | 
Interactive Media Division          | In the fight between you and the world,
Commercial Dynamics Pty. Ltd.       | back the world - Franz Kafka
NSW, Australia                      | 


------------------------------

Date: 27 Aug 1999 03:02:14 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: passing hidden varible between scripts
Message-Id: <slrn7sc05q.j0.efflandt@efflandt.xnet.com>

On Thu, 26 Aug 1999 05:34:04 GMT, kidbunny@my-deja.com
<kidbunny@my-deja.com> wrote:
>Is it possible for a first cgi script (written in
>PERL), that generates a HTML form to pass along a
>hidden varible (so it's not shown in the
>navigation bar) to the second cgi script when the
>form is posted.

Please post any future questions to a newsgroup related to the question.
for example *.cgi, *.html, and I don't have a clue what those %% things
below refer to.

I do hidden variables all the time using the CGI.pm module.  Hidden
fields do not show up on the html page, but you can see them if you "view
source".  See example below.

>Something like...
>
>print "<form method=post
>action=%%/cgi-bin/secondscript.cgi%%>";
>print "<input type=%%hidden%% name=%%notseen%%
>value=%%,$secertid,%%";
>print "<input type=submit name=%%callnextcgi%%
>value=%%go%%>";

use CGI qw/:standard/;
print start_form(-action=>'/cgi-bin/secondscript.cgi'),
hidden('notseen',$secertid),submit('callnextcgi','go'),end_form;

-- 
David Efflandt   efflandt@xnet.com   http://www.xnet.com/~efflandt/
http://www.de-srv.com/   http://cgi-help.virtualave.net/


------------------------------

Date: Thu, 26 Aug 1999 17:04:27 -0700 (PDT)
From: Michael de Beer <madebeer@igc.apc.org>
Subject: Re: Perl a Black Sheep?
Message-Id: <APC&1'0'50775d9c'11b@igc.apc.org>

IMO, talk with a tone of 'anyone pro-MS must be an idiot' actually
makes those 'pro-MS idiots' look relatively more convincing.

Few people listen to a raving 'nut', even if she is right.

Effective discussion/advocacy conduct
  http://www.linux-howto.com/LDP/HOWTO/mini/Advocacy-6.html

Excellent discussion, pointers on Zeal, Advocacy (in relation to Linux)
   http://slashdot.org/features/99/06/28/1320254.shtml

-Michael



------------------------------

Date: 26 Aug 1999 22:07:19 -0500
From: v1ramesh@earth.execpc.com (Ramesh Venkitaswaran)
Subject: Perl Distribution
Message-Id: <7q4vd8$k7d@newsops.execpc.com>

Is there a way to compile a Perl script into a standalone executable on
Win95? I used Perl on some data collection tasks in my project and I'd
like to distribute it to different sites.

Thank you
Ramesh.


------------------------------

Date: Fri, 27 Aug 1999 03:58:38 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl Distribution
Message-Id: <O1ox3.496$bJ4.8761@nsw.nnrp.telstra.net>

In article <7q4vd8$k7d@newsops.execpc.com>,
	v1ramesh@earth.execpc.com (Ramesh Venkitaswaran) writes:
> Is there a way to compile a Perl script into a standalone executable on
> Win95?

This question gets asked, and answered, at least once a week on this
group. Please use a news archive, like deja.com, to find the relevant
articles.

HTH, HAND

Martien
-- 
Martien Verbruggen                  | 
Interactive Media Division          | This matter is best disposed of from a
Commercial Dynamics Pty. Ltd.       | great height, over water.
NSW, Australia                      | 


------------------------------

Date: Fri, 27 Aug 1999 11:39:08 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <8rmx3.4$aR4.3918@vic.nntp.telstra.net>

<finsol@ts.co.nz> wrote in message news:7q4iq8$fk2$1@nnrp1.deja.com...
> This posting relates to C/C++, Java and Javascript developers, but is of
> particular interest to those developing in Perl.
>

<snip>

> This article is available at URL:
> http://www.y2kinfo.com/journal/features/0899_amon.html
>
> The article links through to over 300 web pages that contain Y2K bugged
> code - the vast majority of them in Perl.  The most common problem is
> hardcoded 19's but there are also 70 on-line examples of the booby trap
> code problem which affects all the above languages.
> To go directly to these on-line examples, the URL is:
> http://www.ts.co.nz/~finsol/y2k_examples.htm
>

<snip>

>
> Jocelyn Amon
>
>
> --
> Financial Solutions Limited
> http://www.ts.co.nz/~finsol/

Having taken a brief look at some of the examples, it is interesting to note
just how many
of the examples are 'mission critical' - NOT!

So the date breaks on a hit counter... the worst result is the page owner
looks a little silly.

Try concentrating on the important things (like e-commerce dates etc) and
whilst I'm sure there
will still be bugs and bad code, I will bet London to a Brick that the hit
rate of errors will
drop sharply.

What you have done is the web equivalent of going to Japan and stating that
most people
have particularly bad English Grammar.  (Or the US for that matter... LOL).

Wyzelli




------------------------------

Date: Thu, 26 Aug 1999 23:43:56 -0300
From: "Luis E. Rodriguez" <luisr@juanadiaz.org>
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <rsc2c7gtj7192@corp.supernews.com>


>The article links through to over 300 web pages that contain Y2K bugged
>code - the vast majority of them in Perl.  The most common problem is
>hardcoded 19's but there are also 70 on-line examples of the booby trap
>code problem which affects all the above languages.


As a beginner Perl programmer I understand that this is not a problem with
Perl itself but the programmer's.  From what I have read here and there,
including an online version of Johan Vroman's (sp??) Perl reference, Unix is
already Y2K compliant (although it will face a similar problem in 2038 I
think) because dates start on 1/1/1970.  To get the full year figure you
just add 1900 to it.

Some sloppy programmers are just sticking "19" to the year (which currently
reads 99).  In 2000, if these programs are not corrected they will show the
year as 19100 instead of 2000.  If you do it correctly you will have 1900 +
100 which is, of course, 2000.

Any comments?

Luis E. Rodriguez





------------------------------

Date: 27 Aug 1999 03:58:29 GMT
From: revjack <revjack@radix.net>
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <7q52d5$t6a$3@news1.Radix.Net>
Keywords: Hexapodia as the key insight

finsol@ts.co.nz explains it all:

[snip]

Begone, troll.

[please don't feed the trolls]


------------------------------

Date: Fri, 27 Aug 1999 12:00:14 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: Perl.exe has an interpreted mode?
Message-Id: <MPG.12309c3ae12928c8989c8b@news-server>

revjack writes ..
>- explains it all:
>:I've noticed if you just type 'perl.exe' from the command line, perl seems
>:to go into interpreted mode. I can't verify this since I don't know what the
>:control commands are. It allows you to enter just about anything, and
>:sometimes offers a warning, but I can't figure out how to tell it to
>:actually run some code.
>
>Type the code in (as many lines as you like), hit Ctrl-D, and Enter.

NB: the EOF character is not ^D everywhere .. and judging by the 
originator's header details - my guess is that ^Z is more likely to be 
the appropriate one (gotta hit Enter after the ^Z character)

and - just in case .. by ^Z I mean to hold down the control key and hit 
the 'z' key

-- 
 jason - elephant@squirrelgroup.com -


------------------------------

Date: 27 Aug 1999 03:56:12 GMT
From: revjack <revjack@radix.net>
Subject: Re: Perl.exe has an interpreted mode?
Message-Id: <7q528s$t6a$1@news1.Radix.Net>
Keywords: Hexapodia as the key insight

elephant explains it all:
:revjack writes ..
:>- explains it all:
:>:I've noticed if you just type 'perl.exe' from the command line, perl seems
:>:to go into interpreted mode. I can't verify this since I don't know what the
:>:control commands are. It allows you to enter just about anything, and
:>:sometimes offers a warning, but I can't figure out how to tell it to
:>:actually run some code.
:>
:>Type the code in (as many lines as you like), hit Ctrl-D, and Enter.

:NB: the EOF character is not ^D everywhere .. and judging by the 
:originator's header details - my guess is that ^Z is more likely to be 
:the appropriate one (gotta hit Enter after the ^Z character)

???

I noted that "perl.exe" was cited, and MS software was used to post the
article, so I presumed an MS OS. Ctrl-Z exits perl.exe on those systems
without running the program; Ctrl-D submits the program and runs it.



------------------------------

Date: 27 Aug 1999 03:57:31 GMT
From: revjack <revjack@radix.net>
Subject: Re: Perl.exe has an interpreted mode?
Message-Id: <7q52bb$t6a$2@news1.Radix.Net>
Keywords: Hexapodia as the key insight

Abigail explains it all:

:   $ perl -w
:   print "Hello, world!\n";
:   __END__
:   Hello, world!
:   $

:Look, no magic "control commands".

But more keystrokes.


------------------------------

Date: 27 Aug 1999 01:56:57 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: problem with cgi script
Message-Id: <37C5EF73.5C5137C@vpservices.com>

David Roehsler wrote:
> ...
> $FORM{date} = "$FORM{'start_month'} #   \"$FORM{'start_date'}  --\" #
> $FORM{'end_month'} #  $FORM{'end_date'},";
>
> ... After this, the output is fed to another script for final processing, it
> is in the web page like this:
> 
> print "<input type=hidden name=date value=\"$FORM{'date'}\">\n";
> 
> When it comes to the second script, the input is written to  a file,
> this variable does not come out correctly. It gets cut off at the first
> quotation mark

First thing you ought to do is look at what actually appears on the web
form you generate with the hidden input field.  Chances are it does have
an input field similar to the one you want but with a confusing jangle
of quote marks.  Chances are that one of those quote marks is getting
interpreted as the end of the hidden input tag rather than the end of
some info you want in the tag.  So now you need to figure out how to get
the right number of quote marks.  

Here are some things that might help: use the qq// operator and don't
quote hash keys and use, for example, only double quotes in the value of
the field and only single quotes as the value delimiter.  Something like
this::

$F{date}=qq/$F{s_month} # "$F{s_date}--" # $F{e_month} # "$F{e_date}"/;

print qq/<input type='hidden' name='date' value='$F{date}'>\n/;

HTH,

-- 
Jeff


------------------------------

Date: 27 Aug 1999 03:20:48 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: problem with cgi script
Message-Id: <slrn7sc18j.j0.efflandt@efflandt.xnet.com>

On Thu, 26 Aug 1999 20:10:27 -0400, David Roehsler <davers@agora-net.com> wrote:
>Hi,
>
>I am having trouble with a part of a cgi script I am writing.
>
>The script is made up of 2 parts. The first part is called after input
>is processed through the web page and it (the input) is displayed for a
>preview.
>
>This web site  is for creating a BiBteX entry, and the date is supposed
>to be displayed in a particular format. It looks something like this:
>
>Month = mar # "23--" # may # " 18" ,
(snip)
>After this, the output is fed to another script for final processing, it
>is in the web page like this:
>
>print "<input type=hidden name=date value=\"$FORM{'date'}\">\n";
>
>When it comes to the second script, the input is written to  a file,
>this variable does not come out correctly. It gets cut off at the first
>quotation mark:
>
>Month = mar #   ,

This has nothing to do with perl, but is an html question.

short answer: CGI.pm

long answer: search the HTML specifications about how to properly escape a
quote in a quoted variable string.

-- 
David Efflandt   efflandt@xnet.com   http://www.xnet.com/~efflandt/
http://www.de-srv.com/   http://cgi-help.virtualave.net/


------------------------------

Date: Thu, 26 Aug 1999 17:52:03 -0700
From: "Lauren Smith" <laurensmith@sprynet.com>
Subject: Re: Spawn a Web process
Message-Id: <7q4nfn$9m5$1@brokaw.wa.com>


David T. Cannon wrote in message
<37C5D390.F8CF1566@drinking.eng.sun.com>...
>Abigail wrote:
>
>> David T. Cannon (good@drinking.eng.sun.com) wrote on MMCLXXXV
September
>> MCMXCIII in <URL:news:37C47651.4FD99C60@drinking.eng.sun.com>:
>> ??
>> ??     I have a Perl cgi program that I would like to start a new
>> ?? process(to run a report). However, using system() doesn't seem to
work.
>>
>> Yeah, that's because there's a bug in line 17. It should be the
>> other way around.
>>
>> Abigail


>Uh huh. And line 17 in what? in Perl, or the system lib?
>
>Dave.
>
It's just as difficult for Abigail to know the problem with your code as
it is for you to understand her answer.  Your question has something to
do with the code that you assumed we already knew (D. Cassell might have
known, he's been touting his PSI:ESP module, still in beta).  Abigail's
answer assumed that you had a line 17 in your program that was failing.
If you could be a lot more clear about what your problem is, maybe even
*gasp* posting a small snippet of code that demonstrates the problem,
your question would stand a much greater chance of being taken
seriously.

:-)
Lauren




------------------------------

Date: Fri, 27 Aug 1999 02:00:20 GMT
From: fred_strauss@bellatlantic.net (Fred Strauss)
Subject: Re: Split behaviour with empty fields
Message-Id: <37c5f058.1036666@news.bellatlantic.net>

1000 pardons, sometimes something is staring you in the face and you
just don't see it.

Thanks,
Fred



------------------------------

Date: Fri, 27 Aug 1999 11:16:52 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: The extent of double-quotish interpolation
Message-Id: <MPG.1230920b8aa3adea989c89@news-server>

David Cassell writes ..
>elephant wrote:
>[a nice, long, interesting discussion, followed by:]
>> you're right there .. the doco seems to be quite sparse on this topic
>
>Well, you just wrote a good explication.  Why don't you submit
>it, so it can go into the docs somewhere, in the near future?
>
>Perhaps it's more suitable for one of the FMTEYEWTK series...

why ? .. because I don't know that it's true .. I just guessed .. I 
don't think I could say absolutely unless I knew the Perl source - 
and I don't like looking at the Perl source code (a lot of Larry's 
comments make me nervous *8^) and I'm sure I wouldn't understand it if I 
did

-- 
 jason - elephant@squirrelgroup.com -


------------------------------

Date: Thu, 26 Aug 1999 21:36:19 -0500 (CDT)
From: Skip Montanaro <skip@mojam.com>
To: wtanksle@dolphin.openprojects.net
Subject: Re: Why use Python when we've got Perl?
Message-Id: <14277.63776.733073.298192@dolphin.mojam.com>



    David> That being said, are there ways to integrate Python and Perl to
    David> do things that neither one can do alone?!

    William> Minotaur is an attempt to do exactly that -- they've got
    William> Python, Perl, Tcl, Ruby, Forth, and several other languages all
    William> glued together and all callable from each other, with good data
    William> interchange.

In a probably less formal way, XML-RPC helps us glue a Perl front end
(apache+mod_perl+Mason) onto Musi-Cal's database which is written in Python.

Skip Montanaro | http://www.mojam.com/
skip@mojam.com | http://www.musi-cal.com/~skip/
847-971-7098   | Python: Programming the way Guido indented...






------------------------------

Date: Thu, 26 Aug 1999 23:13:39 -0400
From: David Oppenheimer <davidopp@megsinet.net>
Subject: Re: Why use Python when we've got Perl?
Message-Id: <37C60262.C6771B75@megsinet.net>

Where can I find info on Minotaur?

David O.


Skip Montanaro wrote:

>     David> That being said, are there ways to integrate Python and Perl to
>     David> do things that neither one can do alone?!
>
>     William> Minotaur is an attempt to do exactly that -- they've got
>     William> Python, Perl, Tcl, Ruby, Forth, and several other languages all
>     William> glued together and all callable from each other, with good data
>     William> interchange.
>
> In a probably less formal way, XML-RPC helps us glue a Perl front end
> (apache+mod_perl+Mason) onto Musi-Cal's database which is written in Python.
>
> Skip Montanaro | http://www.mojam.com/
> skip@mojam.com | http://www.musi-cal.com/~skip/
> 847-971-7098   | Python: Programming the way Guido indented...



------------------------------

Date: Fri, 27 Aug 1999 01:58:51 GMT
From: Tim Richardson <ter@my-deja.com>
Subject: Win32 OLE VB -> Perl question: Arrays?
Message-Id: <7q4rcn$llv$1@nnrp1.deja.com>



I want to convert the following macro recorded from Excel 97 to Perl OLE
code.

Workbooks.OpenText FileName:="H:\SAPWorkDir\outnew.txt",
Origin:=xlWindows _
        , StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2),
Array(2, 1), _
        Array(3, 1), Array(4, 1))



***
I am ok about converting everything EXCEPT for the
FieldInfo:=Array(Array(1,2) ... )

bit.
If I leave this out, I can get Perl to import a text file into Excel,
but I need the FieldInfo information to force Excel to import one column
as text (putting "" around the field does not help in this case).

Array() is a visual basic function that makes an array.

thanks for help,

Tim Richardson

--
Tim Richardson
(search string: qweeblebeast)


Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.


------------------------------

Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>


Administrivia:

The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc.  For subscription or unsubscription requests, send
the single line:

	subscribe perl-users
or:
	unsubscribe perl-users

to almanac@ruby.oce.orst.edu.  

To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.

The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. Due to their sizes, neither the Meta-FAQ nor
the FAQ are included in the digest.

The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq" from
almanac@ruby.oce.orst.edu. 

For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V9 Issue 658
*************************************


home help back first fref pref prev next nref lref last post