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 = 'info@sgiweddin g.com';
$SENDFROM = 'info@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: info@sgiwedding .com
STR} 1;
---------------------------------------

[Marco Dieckhoff]

Re: pearl expert..anyone?

On 2004-06-28, M.E. <somewhere@down under.com.au> wrote:
[color=blue]
> 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?[/color]
[color=blue]
> Can you please help?[/color]
[color=blue]
> chomp($FORMAT = <<'STR');[/color]
[..][color=blue]
> STR} 1;[/color]

"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

[M.E.]

Re: pearl expert..anyone?

Thanks Marco, I am not sure what it was but it was in the original script
sent to me.



I am still getting
-----------
?????????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.



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

"Marco Dieckhoff" <dieck@gmx.de > wrote in message
news:tln4r1-j8v.ln1@hamlet. frbr.etc.tu-bs.de...[color=blue]
> On 2004-06-28, M.E. <somewhere@down under.com.au> wrote:
>[color=green]
> > I have following not working it report that I have
> > Can't find string terminator "STR" anywhere before EOF at init.pl line[/color][/color]
50.[color=blue][color=green]
> > Compilation failed in require at /s101/home4/sgiwedding/cgi/form.pl line[/color][/color]
9.[color=blue][color=green]
> >
> > I can not find how to fix this as I really don't know anything about[/color][/color]
pearl[color=blue][color=green]
> > and need to get this form working .
> > Terminator STR is there so why it is complaining?[/color]
>[color=green]
> > Can you please help?[/color]
>[color=green]
> > chomp($FORMAT = <<'STR');[/color]
> [..][color=green]
> > STR} 1;[/color]
>
> "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[/color]

[Garp]

Re: pearl expert..anyone?

[top-post fixed]

"M.E." <somewhere@down under.com.au> wrote in message
news:cbodup$3ff $1@otis.netspac e.net.au...[color=blue]
> "Marco Dieckhoff" <dieck@gmx.de > wrote in message
> news:tln4r1-j8v.ln1@hamlet. frbr.etc.tu-bs.de...[color=green]
> > On 2004-06-28, M.E. <somewhere@down under.com.au> wrote:
> >[color=darkred]
> > > I have following not working it report that I have
> > > Can't find string terminator "STR" anywhere before EOF at init.pl line[/color][/color]
> 50.[color=green][color=darkred]
> > > Compilation failed in require at /s101/home4/sgiwedding/cgi/form.pl[/color][/color][/color]
line[color=blue]
> 9.[color=green][color=darkred]
> > >
> > > I can not find how to fix this as I really don't know anything about[/color][/color]
> pearl[color=green][color=darkred]
> > > and need to get this form working .
> > > Terminator STR is there so why it is complaining?[/color]
> >[color=darkred]
> > > Can you please help?[/color]
> >[color=darkred]
> > > chomp($FORMAT = <<'STR');[/color]
> > [..][color=darkred]
> > > STR} 1;[/color]
> >
> > "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[/color]
>
>
> Thanks Marco, I am not sure what it was but it was in the original script
> sent to me.
>
>
>
> I am still getting
> -----------
> ?????????r????? ???????>??/font>
> a.. ??????????????? ????????????@?? ?????: Can't find string
> terminator "STR" anywhere before EOF at init.pl line 50. Compilation[/color]
failed[color=blue]
> in require at /s101/home4/sgiwedding/cgi/form.pl line 9.
>
>
>
> -------------------------------------------------------------------------
>[/color]


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.

Oh, and it's spelled "Perl". And this froup is for PHP. You got lucky.

Garp

[obi wan kenobi]

Re: pearl expert..anyone?

M.E. wrote:
[color=blue]
> 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.
>[/color]

it's "Perl"

count yourself lucky you didnt post on a perl newsgroup!

[Andy Hassall]

Re: pearl expert..anyone?

On Mon, 28 Jun 2004 14:52:41 +1000, "M.E." <somewhere@down under.com.au> wrote:
[color=blue]
>I really don't know anything about pearl[/color]

"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 <andy@andyh.co. uk> / Space: disk usage analysis tool
http://www.andyh.co.uk / http://www.andyhsoftware.co.uk/space

[M.E.]

Re: pearl expert..anyone?

ouch.

Be some force with you.

"obi wan kenobi" <smirkingchimp@ whitehouse.gov> wrote in message
news:40e03fe4$0 $25040$afc38c87 @news.easynet.c o.uk...[color=blue]
> M.E. wrote:
>[color=green]
> > I have following not working it report that I have
> > Can't find string terminator "STR" anywhere before EOF at init.pl line[/color][/color]
50.[color=blue][color=green]
> > Compilation failed in require at /s101/home4/sgiwedding/cgi/form.pl line
> > 9.
> >[/color]
>
> it's "Perl"
>
> count yourself lucky you didnt post on a perl newsgroup!
>
>[/color]

[M.E.]

Re: pearl expert..anyone?

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?


"Andy Hassall" <andy@andyh.co. uk> wrote in message
news:dgt0e0p7pk rkdj1gobuc49a6l bb3k1rvkb@4ax.c om...[color=blue]
> On Mon, 28 Jun 2004 14:52:41 +1000, "M.E." <somewhere@down under.com.au>[/color]
wrote:[color=blue]
>[color=green]
> >I really don't know anything about pearl[/color]
>
> "A pearl is a hard, rounded object produced by certain mollusks,[/color]
primarily[color=blue]
> 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[/color]
could[color=blue]
> put them on rails and form an abacus or some sort of finite-tape-length[/color]
Turing[color=blue]
> machine.
>
> --
> Andy Hassall <andy@andyh.co. uk> / Space: disk usage analysis tool
> http://www.andyh.co.uk / http://www.andyhsoftware.co.uk/space[/color]

[Chris Hope]

Re: pearl expert..anyone?

M.E. wrote:
[color=blue]
> but how about my problem huh?[/color]

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/

[Garp]

Re: pearl expert..anyone?

[top-post fixed]

"M.E." <somewhere@down under.com.au> wrote in message
news:cbqgtb$1ba 1$1@otis.netspa ce.net.au...[color=blue]
> "Andy Hassall" <andy@andyh.co. uk> wrote in message
> news:dgt0e0p7pk rkdj1gobuc49a6l bb3k1rvkb@4ax.c om...[color=green]
> > On Mon, 28 Jun 2004 14:52:41 +1000, "M.E." <somewhere@down under.com.au>[/color]
> wrote:[color=green]
> >[color=darkred]
> > >I really don't know anything about pearl[/color]
> >
> > "A pearl is a hard, rounded object produced by certain mollusks,[/color]
> primarily[color=green]
> > 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[/color]
> could[color=green]
> > put them on rails and form an abacus or some sort of finite-tape-length[/color]
> Turing[color=green]
> > machine.
> >
> > --
> > Andy Hassall <andy@andyh.co. uk> / Space: disk usage analysis tool
> > http://www.andyh.co.uk / http://www.andyhsoftware.co.uk/space[/color]
> 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?[/color]

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

Garp

[M.E.]

Re: pearl expert..anyone?


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 = 'info@sgiweddin g.com';

$SENDFROM = 'info@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: info@sgiwedding .com

STR} ;

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

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

"Garp" <garp7@no7.blue yonder.co.uk> wrote in message
news:IQ6Ec.5568 $Oz7.61204607@n ews-text.cableinet. net...[color=blue]
> [top-post fixed]
>
> "M.E." <somewhere@down under.com.au> wrote in message
> news:cbqgtb$1ba 1$1@otis.netspa ce.net.au...[color=green]
> > "Andy Hassall" <andy@andyh.co. uk> wrote in message
> > news:dgt0e0p7pk rkdj1gobuc49a6l bb3k1rvkb@4ax.c om...[color=darkred]
> > > On Mon, 28 Jun 2004 14:52:41 +1000, "M.E."[/color][/color][/color]
<somewhere@down under.com.au>[color=blue][color=green]
> > wrote:[color=darkred]
> > >
> > > >I really don't know anything about pearl
> > >
> > > "A pearl is a hard, rounded object produced by certain mollusks,[/color]
> > primarily[color=darkred]
> > > 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[/color][/color][/color]
you[color=blue][color=green]
> > could[color=darkred]
> > > put them on rails and form an abacus or some sort of[/color][/color][/color]
finite-tape-length[color=blue][color=green]
> > Turing[color=darkred]
> > > machine.
> > >
> > > --
> > > Andy Hassall <andy@andyh.co. uk> / Space: disk usage analysis tool
> > > http://www.andyh.co.uk / http://www.andyhsoftware.co.uk/space[/color]
> > 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?[/color]
>
> I already fixed it. Either tell me why my fix doesn't work, or say "thank
> you".
>
> Garp
>
>[/color]

[Lāʻie Techie]

Re: pearl expert..anyone?

On Mon, 28 Jun 2004 07:08:52 +0000, Garp wrote:
[color=blue]
> 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.[/color]

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]

Re: pearl expert..anyone?


"La?ie Techie" <laie@win_remov e_get_nospam_so lutions.com> wrote in message
news:2f33d72b3a 5e7e7e788c70853 6302dda@news.te ranews.com...[color=blue]
> On Mon, 28 Jun 2004 07:08:52 +0000, Garp wrote:
>[color=green]
> > 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;"[/color][/color]
is[color=blue][color=green]
> > necessary.[/color]
>
> 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
>[/color]

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]

Re: pearl expert..anyone?

[top-post fixed twice]

"M.E." <somewhere@down under.com.au> wrote in message
news:cbr29r$1id s$1@otis.netspa ce.net.au...[color=blue]
> "Garp" <garp7@no7.blue yonder.co.uk> wrote in message
> news:IQ6Ec.5568 $Oz7.61204607@n ews-text.cableinet. net...[color=green]
> > [top-post fixed]
> >
> > "M.E." <somewhere@down under.com.au> wrote in message
> > news:cbqgtb$1ba 1$1@otis.netspa ce.net.au...[color=darkred]
> > > "Andy Hassall" <andy@andyh.co. uk> wrote in message
> > > news:dgt0e0p7pk rkdj1gobuc49a6l bb3k1rvkb@4ax.c om...
> > > > On Mon, 28 Jun 2004 14:52:41 +1000, "M.E."[/color][/color]
> <somewhere@down under.com.au>[color=green][color=darkred]
> > > 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[/color][/color]
> you[color=green][color=darkred]
> > > could
> > > > put them on rails and form an abacus or some sort of[/color][/color]
> finite-tape-length[color=green][color=darkred]
> > > Turing
> > > > machine.
> > > >
> > > > --
> > > > Andy Hassall <andy@andyh.co. uk> / Space: disk usage analysis tool
> > > > http://www.andyh.co.uk /[/color][/color][/color]
http://www.andyhsoftware.co.uk/space[color=blue][color=green][color=darkred]
> > > 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?[/color]
> >
> > I already fixed it. Either tell me why my fix doesn't work, or say[/color][/color]
"thank[color=blue][color=green]
> > you".
> >
> > Garp[/color]
>
> 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.[/color]
<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.]

Re: pearl expert..anyone?

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" <blackhole@elec trictoolbox.com > wrote in message
news:1088482287 _152674@216.128 .74.129...[color=blue]
> M.E. wrote:
>[color=green]
> > but how about my problem huh?[/color]
>
> If you want an answer go to a Perl group... this is a PHP group. And[/color]
despite[color=blue]
> that you did still get two people try to help you.
>
> --
> Chris Hope - The Electric Toolbox - http://www.electrictoolbox.com/[/color]