pearl expert..anyone?

[M.E.]

I have following not working it report that I have
Can't find string terminator "STR" anywhere before EOF at init.pl line 50.
Compilation failed in require at /s101/home4/sgiwedding/cgi/form.pl line 9.

I can not find how to fix this as I really don't know anything about pearl
and need to get this form working .
Terminator STR is there so why it is complaining?

Can you please help?

Thanks

------------------
sub estab {
############### #####
### ?????? ###
############### #####
# (1)sendmail???? ???????????

$SENDMAIL = '/usr/sbin/sendmail';
# (2)???????????( 1.??/0.????)

$CONFIRM_FLAG = 0;
# (3)???????????? ?????(URL????)? ??????

# $CONFIRM_TMPL = 'check_mail.htm l';
# (4)???????????? ????????

$REQUIRED =
qq(church!!!nam e1!!!name2!!!na me3!!!name4!!!n ame5!!!name6!!! name7!!!
name8!!!_email! !!tel!!!);
# (5)???????/??????????????? ??
# ?????????????,? ??????????????

$SENDTO = 'i***@sgiweddin g.com';
$SENDFROM = 'i***@sgiweddin g.com';
# (6)???????????? ???????(??)???? ??????

$SUBJECT = '????????????';
# (7)??????????HT ML?URL

$THANKS = 'http://www.sgiwedding. com/send.html';
# (8)??????????

chomp($FORMAT = <<'STR');
*************** *************** ****
????????????
*************** *************** ****

##name1##? ??????????????? ???????????
??????????????? ???
??????????????? ?????????

---- ???? ----

?????? : ##church##
????? : 200##h_year## ? ##h_month## ? ##h_day## ? ##jikan##

???? : ##name1## ##name2##
: ##name3## ##name4##
???? : 19##m_year## ? ##m_month## ? ##m_day## ?

???? : ##name5## ##name6##
: ##name7## ##name8##
???? : 19##f_year## ? ##f_month## ? ##f_day## ?

??? : ##whoinfo##
????? : ##zip1## - ##zip2##
? ? : ##address##
???? : ##tel##
???? : ##tes2##
E-mail : ##_email##

?????????? :
##question##
? sunshine-wedding.com ??????????
mailto: in**@sgiwedding .com
STR} 1;
---------------------------------------

[M.E.]

First of all I appologise. and Thank you.

Second , are you the same person who advised following ?
"STR" is NOT there.
"STR} 1;" is there, but that's not the same.

What is that "} 1;" supposed to do?

Either remove it or do a chomp($FORMAT = <<'STR} 1;'); above.
--
Marco Dieckhoff
icq# 22243433
GPG Key 0x1A6C95BA -- http://www.frankonia-brunonia.de/keys
If so yes I did that and still not working . Perl still complaining about
following. I have included the code. Ignore foreign Lang stuff.
If you are not the same person then I am sorry again and cannot find the
post. Could you please let me have it again. I really need this to work and
do appreciate your help.

Faruk
=============== =============== =============== =============== ==
here is the error returned when checking syntax on init.pl

perl -c /s101/home4/sgiwedding/cgi/init.pl

Can't find string terminator "STR" anywhere before EOF at
/s101/home4/sgiwedding/cgi/init.pl line 50.

=============== =============== =============== =============== ========
Code in the init.pl =============== =============== =============== =

CODE >>>>>>>>>>>>>>> >>>>>>>>>>>>>>> >>>>>>

sub estab {

############### #####

### ???? ###

############### #####

# (1)sendmailtpX? w??????B

$SENDMAIL = '/usr/sbin/sendmail';

# (2)mF?o?????(1c o?/0co???)

$CONFIRM_FLAG = 0;

# (3)mFy[W?AT[o?pX(URL????)?L q???B

# $CONFIRM_TMPL = 'check_mail.htm l';

# (4)?K{???tB[h?w???B

$REQUIRED =

qq(church!!!nam e1!!!name2!!!na me3!!!name4!!!n ame5!!!name6!!! name7!!!

name8!!!_email! !!tel!!!);

# (5)tH[?M/M?AhXw??????B

# MAhX?AJ}u,v???? ?w?\??B

$SENDTO = 'i***@sgiweddin g.com';

$SENDFROM = 'i***@sgiweddin g.com';

# (6)tH[?et?[?^Cg(?)w??????B

$SUBJECT = '?\??E???';

# (7)M??bZ[WpHTML?URL

$THANKS = 'http://www.sgiwedding. com/send.html';

# (8)[?tH[}bg

chomp($FORMAT = <<'STR');

*************** *************** ****

?\??E???

*************** *************** ****

##name1##l ??x?TCg???????? ??????B

??S??A?????B

????A??[?????????B

---- Me ----

?]?? F ##church##

?] F 200##h_year## N ##h_month## ##h_day## ##jikan##

VY?@ F ##name1## ##name2##

F ##name3## ##name4##

?N F 19##m_year## N ##m_month## ##m_day##

Vw?@ F ##name5## ##name6##

F ##name7## ##name8##

?N F 19##f_year## N ##f_month## ##f_day##

A F ##whoinfo##

X??@ F ##zip1## - ##zip2##

Z F ##address##

db? F ##tel##

g?db F ##tes2##

E-mail F ##_email##

???E?? F

##question##

? sunshine-wedding.com ??????????

mailto: in**@sgiwedding .com

STR} ;

=============== =============== =============== ========

<<<<<<<<<<<<<<< <<<<<<<<<<<<<<< <<<<<<<<<<<

"Garp" <ga***@no7.blue yonder.co.uk> wrote in message
news:IQ******** *************@n ews-text.cableinet. net...

[top-post fixed]

"M.E." <so*******@down under.com.au> wrote in message
news:cb******** ***@otis.netspa ce.net.au...

"Andy Hassall" <an**@andyh.co. uk> wrote in message
news:dg******** *************** *********@4ax.c om...

On Mon, 28 Jun 2004 14:52:41 +1000, "M.E."

<so*******@down under.com.au> wrote:

>I really don't know anything about pearl

"A pearl is a hard, rounded object produced by certain mollusks,

primarily

oysters, and which is cultivated or harvested for jewelry."

http://en.wikipedia.org/wiki/Pearl

Pearls are not typically useful for programming, although I suppose

you could

put them on rails and form an abacus or some sort of

finite-tape-length Turing

machine.

--
Andy Hassall <an**@andyh.co. uk> / Space: disk usage analysis tool
http://www.andyh.co.uk / http://www.andyhsoftware.co.uk/space

OK you buggers, Come on down. Lets have it . I can take it.

Now I feel like I should have Pearls rather then Perl

but how about my problem huh?

I already fixed it. Either tell me why my fix doesn't work, or say "thank
you".

Garp

[L�ʻie Techie]

On Mon, 28 Jun 2004 07:08:52 +0000, Garp wrote:

The line with the STR on it is a heredoc terminator, but it also had the
function's terminating brace on. Change "STR } 1;"
to
"STR
} 1;"
and put the chomp statement back to how it was. I don't think the "1;" is
necessary.

In order for "use" to succeed, the last value of the included module must
be true, so most modules end with a line with 1; .

STR
}
1;

HTH,
La'ie Techie

[Garp]

"La?ie Techie" <laie@win_remov e_get_nospam_so lutions.com> wrote in message
news:2f******** *************** *******@news.te ranews.com...

On Mon, 28 Jun 2004 07:08:52 +0000, Garp wrote:

The line with the STR on it is a heredoc terminator, but it also had the
function's terminating brace on. Change "STR } 1;"
to
"STR
} 1;"
and put the chomp statement back to how it was. I don't think the "1;" is necessary.

In order for "use" to succeed, the last value of the included module must
be true, so most modules end with a line with 1; .

STR
}
1;

HTH,
La'ie Techie

Thanks for that! A hole in my Perl (which I don't use half as often as I
used to now I have PHP and Python to fall back on).

Garp

[Garp]

[top-post fixed twice]

"M.E." <so*******@down under.com.au> wrote in message
news:cb******** ***@otis.netspa ce.net.au...

"Garp" <ga***@no7.blue yonder.co.uk> wrote in message
news:IQ******** *************@n ews-text.cableinet. net...

[top-post fixed]

"M.E." <so*******@down under.com.au> wrote in message
news:cb******** ***@otis.netspa ce.net.au...

"Andy Hassall" <an**@andyh.co. uk> wrote in message
news:dg******** *************** *********@4ax.c om...
> On Mon, 28 Jun 2004 14:52:41 +1000, "M.E." <so*******@down under.com.au> wrote:
>
> >I really don't know anything about pearl
>
> "A pearl is a hard, rounded object produced by certain mollusks,
primarily
> oysters, and which is cultivated or harvested for jewelry."
>
> http://en.wikipedia.org/wiki/Pearl
>
> Pearls are not typically useful for programming, although I suppose you could
> put them on rails and form an abacus or some sort of finite-tape-length Turing
> machine.
>
> --
> Andy Hassall <an**@andyh.co. uk> / Space: disk usage analysis tool
> http://www.andyh.co.uk / http://www.andyhsoftware.co.uk/space OK you buggers, Come on down. Lets have it . I can take it.

Now I feel like I should have Pearls rather then Perl

but how about my problem huh?

I already fixed it. Either tell me why my fix doesn't work, or say "thank you".

Garp

First of all I appologise. and Thank you.

Second , are you the same person who advised following ?
"STR" is NOT there.
"STR} 1;" is there, but that's not the same.

What is that "} 1;" supposed to do?

Either remove it or do a chomp($FORMAT = <<'STR} 1;'); above.

<snip>

No, that was Marco. See other half of thread for the '1' stuff. Just move
the } and the rest after that to the next line to conform with heredoc.

Garp

[M.E.]

OK I will then.
You think I could find one . No.
So If you really want to help please advise this Perl group.

Thanks

"Chris Hope" <bl*******@elec trictoolbox.com > wrote in message
news:10******** *******@216.128 .74.129...

M.E. wrote:

but how about my problem huh?
If you want an answer go to a Perl group... this is a PHP group. And

despite that you did still get two people try to help you.

--
Chris Hope - The Electric Toolbox - http://www.electrictoolbox.com/

[M.E.]

Did all that and it is still asking for the following. What is wrong with
the thing.
---------------------------------------
?????????r????? ???????>??/font>
a.. ??????????????? ????????????@?? ?????: Can't find string
terminator "STR" anywhere before EOF at init.pl line 50. Compilation failed
in require at /s101/home4/sgiwedding/cgi/form.pl line 9.
----------------------------------------------------------------------------
--------

this is how the last a few lines ends
etc etc,
##question##
? sunshine-wedding.com ??????????
mailto: in**@sgiwedding .com

STR
}
1;
---------------------------------------------------------------------

"Garp" <ga***@no7.blue yonder.co.uk> wrote in message
news:6w******** *************@n ews-text.cableinet. net...

[top-post fixed twice]

"M.E." <so*******@down under.com.au> wrote in message
news:cb******** ***@otis.netspa ce.net.au...

"Garp" <ga***@no7.blue yonder.co.uk> wrote in message
news:IQ******** *************@n ews-text.cableinet. net...

[top-post fixed]

"M.E." <so*******@down under.com.au> wrote in message
news:cb******** ***@otis.netspa ce.net.au...
> "Andy Hassall" <an**@andyh.co. uk> wrote in message
> news:dg******** *************** *********@4ax.c om...
> > On Mon, 28 Jun 2004 14:52:41 +1000, "M.E."

<so*******@down under.com.au>

> wrote:
> >
> > >I really don't know anything about pearl
> >
> > "A pearl is a hard, rounded object produced by certain mollusks,
> primarily
> > oysters, and which is cultivated or harvested for jewelry."
> >
> > http://en.wikipedia.org/wiki/Pearl
> >
> > Pearls are not typically useful for programming, although I

suppose

you

> could
> > put them on rails and form an abacus or some sort of

finite-tape-length

> Turing
> > machine.
> >
> > --
> > Andy Hassall <an**@andyh.co. uk> / Space: disk usage analysis tool
> > http://www.andyh.co.uk /

http://www.andyhsoftware.co.uk/space > OK you buggers, Come on down. Lets have it . I can take it.
>
> Now I feel like I should have Pearls rather then Perl
>
> but how about my problem huh?

I already fixed it. Either tell me why my fix doesn't work, or say "thank you".

Garp

First of all I appologise. and Thank you.

Second , are you the same person who advised following ?
"STR" is NOT there.
"STR} 1;" is there, but that's not the same.

What is that "} 1;" supposed to do?

Either remove it or do a chomp($FORMAT = <<'STR} 1;'); above.

<snip>

No, that was Marco. See other half of thread for the '1' stuff. Just move
the } and the rest after that to the next line to conform with heredoc.

Garp

[M.E.]

OK I found them Thanks
"Chris Hope" <bl*******@elec trictoolbox.com > wrote in message
news:10******** *******@216.128 .74.129...

M.E. wrote:

but how about my problem huh?
If you want an answer go to a Perl group... this is a PHP group. And

despite that you did still get two people try to help you.

--
Chris Hope - The Electric Toolbox - http://www.electrictoolbox.com/