Gossamer Forum: General: Perl Programming: Escape, but not escape?

May 5, 2003, 8:43 AM

Andy

Veteran / Moderator (18441 posts)

May 5, 2003, 8:43 AM

Post #1 of 16

Shortcut

Escape, but not escape?

I'm trying to do something with a long winded string. I currently am assigning the variable to it with the following;

$image = qq|_]C_X 02D9)1@ ! 0 0 ! #_VP!# ! +# X,"A .#0X2$1 3&"@:&!86&#$C)1TH.C,]/#DS.#= 2%Q.0$17137!D>%QE9V/_VP!# 1$2$A@5&"\:&B]C0CA"8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V/_P 1" "U / # 2( A$! Q$!_\0 'P 04! 0$! 0$ $" P0%!@<("0H+_\0 M1 @$# P($ P4%! 0 %] 0(# 01!1(A,4$&$U%A!R)Q%#*!D:$((T*QP152T? D,V)R@@D*%A<8&1HE)B7J#A(6&AXB)BI*3E)66EYB9FJ*CI*6FIZBIJK*SM+6VM[BYNL+#Q,7&Q\C)RM+3U-76U]C9VN'BX^3EYN?HZ>KQ\O/T]?;W^/GZ_\0 'P$ P$! 0$! 0$! 0 $" P0%!@<("0H+_\0 M1$ @$"! 0#! +=LSZ#/'UJ*W+K=QJP"JV<$#/3M5B)FCA0RE00H!Q]*K32_OES(%9G&/I]*6D6FA;E]XL[=QR HX+O[3$67KG"@=^>M17;?N'6<;0S <'KSQD_E6DYJ70$B)'>"?]XZJQ/ YY/\ G%79)Y5&Y2,]@*HR2K).C.^"@YD8#;]!2J]Q+;-(%VEAD$$8//3/?US4KFC'38;5S+92J@"4L&ZEEI&C8,S>;&1CH.*E._Y=F_KSD#I0<,6RQW LX8](>1S!?R/*!NS#R/P!/?)KMO='-U+U_SK]HO]V*/]7/^%7=03=JEL<[?W;@,?7*UDP:A:W^JR786=/)6-"KJ ?E+'(Y[UJ3ZK9R+B4.@[5S@T[I7%9D=_<[3Y<1&>N<]*Q;J5V",2&++CH/4U8N1)),1%=V\JX!'[H@G]:KR121N$S 23CY%?K4:7N%F5+993*Y1';:.JKFEFCG$OF20.R$8;"X./ZU;M+E+=BL;K<7$I"B-00H/;)[]:KRWE].KI+#')\V#L/0@].M7?4-41?8/.C 1F7*Y$,RS>=+O4_?D0.1_*K_P#:\DT0#3Q3(IY_=&,_S/\ *K3MN1/WMC5L=L$VQ1\LG7(P+QDF,I1U(DW .I'&W'6L')QV-+7+,PXC'U'Y__JK>65955@HZ:NB:>\:-B&3<#]W';_\ 55>2[2V \R)W60X&UL[?=H'(& !SWZTRX@CLKF3RU86^TR DG@X.2/:HH;2=4A=8OWCJ"&W#IUZT[/J%C5LS&)?*A)&,,?E Y/TJ35$E< !U,'!,>TY.*>+-P5DBP'91F1CENG2F26TCJ?.N(]X'RDM@CUK51:5K$Z7,J2,BQ*E&"?=,@Z\\]*=9%+B PH&55.%&X'ODY%6%B@0M&+N,[AC!.,?TJY;06\3*8)(LG)RGS'U[5I!7>H,Q&+,4*@KSD@/UIP +MA'#8&?F_P#KU4!0[26C!X.,5-O4[@/*& .:YCJ)]-82ZXQ:(IM1L$]^15[4-3LTO0INHL@8(W9P?2K5K=1W!2% V^- 3D<<8%>;W3%[X!!G7S1;LN<@KOV]R!UQ4:L&=00N13DM2D]#50_ZO@=?Z&K7&P_2L$:OM 8VL^U3G.VG?\)"N/EM9&^I'-+E8[HVIH7='$8YE:0CZ&ITT.QA^9E! Z[B!_.LR;2-8FE/[V0H?[\U(OA:[;F2:(?B33^8C6\K2+?[TML#Z&0?TI/[3TB'@2Q_\ 0G^E4X_"JC_ %ET3[*G_P!>K4?ANR7[S2,?K_\ 6I:=QZA_;^GYPBROSCB, ?J:K#Q2CR&.WM&)SC<\@ _05H+I&G0HQ/\Z FE*IC1+7#?*0@!_E1=!9E"^U75()88HX("\PRH7+<4QO^$BG NVS;&#P,Y&34\T3JAW.01Z8IMQ%Y]QYK$IA0N <]*B25RXR:1A)^]U&9<@[78C\#2RHRN$+' &3QQ5^YM4MY(WBV@L26)ZD410&9L>4TJL,!\86D]0V%M%D:&,Y .6#=,>U=+HLT>V0&1YL?>.>*A:9F]*M*Q#8_3"B3R.XX5VQ[5KJJ3.&# ^E85D26F Z[B>I6ALJ,>;8Z=+1(\Y'2E6SLW/F-%'N(["H+6.ZGA$@D"C )PH')J6&"1W"R3,<^CX_E1J2VB9;2T4Y%NF?795B/R0@*A54C([5GS0?9M4M0"WS$]6)XQ4K(SQ1@ GY!CCVI.Z&K,L0Q6?FL88H-_5BJC-.NKZVL /,!!/.$3)JEIB[;N0$8(4UJ85EPPS2 S3K;/_P >]A=R9[E-H_.LNX\62J[(EH$93@AVS@UU X KC]9M@=8G>,!.06)7(.0#WJXI-DR;1%)XHU!_N>7'_NKG^=4IM:U&;[UU(/]TX_E5J&.T9R!'&S8). WI]:A1[8GY+L^2+>VE6)PT4GS$G.0?_U5HIJ=O;:)F&#+K&<,0.I[_P!:H3DS1@&!S@YV\=:>@J=ADNC3-9)(T;*^X '/KUXJZU_/(2Q/U- EJMNH#'M@U-AW+1?--W"H-]+OHL%SBOL3 P_*J)N0VZ&.XD]&(Q4"(Z/M92"#Z5.[%;@+C@J36G8+(V-KC'N,_UI2-(2<=BY97@2R6-8W9L8.$)J1?.+!DB8'U) JPL.T9DF('L !^N:8]U80_ZRZ4GT\SG\A17*FWR!UW'I^5&H:(=%;) Q91R1CKFIEZ5FFZG751:R% I4$$#GFI+G3II9BWVJXV'^%7V@?E2L%R\[I&I+NJC_ &CBN;UF\BGO6$*F4(NW*#=N/MBM2+1K96W-&K-_>?YC^M6&2&W7 7H"P ' Q_C5)),ELYJSTZ:57=+4Q,!\OF-C=FK4>BW;X\R>*+VBCR?S-;C2%#$HA.74D]]O3@_GBHKB\C2U(\^.&5ACYL@CUP.M425X-$2)@[2S,P&-Q?;Q^&*M0V%O"V]5);J#[U1?68(FD,<;RL[9R!M7'\ZB.MR/Z1CV%2[E+S-QGN <1[%3J689YJ 0PK+)*TCO))RY4D9JA#<^9\Q&QR.AK1TS:<<51D&Y2#^%2V,ZPMB0XI,J+-6QL+2>:[DN5#E)6 WG.!GM5V,6-N<8C0>RBLU[O28W:4R\ORRX)&>YIK>(;"$8A@D<^P"BJ3(:([>&YBU;[;%#E [8R<=>E;#2WTPPHC0=ADMC\!6#)XFFY\BUBC]V^8U4FUK4I^#_:[J4$C&68A>![59GUG3X"0UPK$=E^;^5<2_FRG,DC.?5CFF"W8GBIY;E)V.IG\3PK_J('?\ WC@5GS>(+V8C9#%'CHVW<1SGO]!6;&FW[W6K4<8(IJ*0F[B2WE]-DRW$DBGJN[ _+I2Q1ANE3)$!R*D2#/0X;U%%@$CB-6$@4CYE%$;%#ME7GU'2KBH,<:A!"86$:C(8C[V?\BDS:A&,I>_LC.M)5CU.">Y?[S;I/8&G/\ 8Y]0NGDD81F0F,@XR,GVJ]J&DM'J=LJ1JR2#DCD$Y[TVPTEY+VZ22) J'@N.,9-*SV/4=>GR\]VG;I;O_7R*BK;W=Z8BS>6JA8@IQ_3ZFKFBJ&OIX()&:$)N&3GD8_\ KU+I^F,NL7,M.WMH-/\ ,>,QEW& J#@4U$YZ^(C9Q5W=+M_5SA4P8UX["GKR,T459YPI.!FDSD9HHH$(3QFJ\IP:**8B$C)YHV"BBF Y4&*ECC!HHH F$:TY(QNHHH D\M2>E B"MP:**8BU$N .:L1J,\<<444@) H.0>:BD8P%=I)!Y&3THHJ&,NQON7=C%*'/-%%,"1#N7.,4\445("FG+D&BBD,=GBKC7@VAA$!*%QOS_2BBG|;

The problem is, that " | and other charachters like that are taken literally. Is there anything I can surround the variable so that it doesn't take stuff within it literally? Basically, a similar thing like \Q in Regex. I've tried;

$var = '';
$var = "";
$var = qq||;;
$var = qq~~;
...etc

Any suggestions?

Cheers

Andy (mod)
andy@ultranerds.co.uk

May 5, 2003, 8:49 AM

Paul

Veteran (19537 posts)

May 5, 2003, 8:49 AM

Post #2 of 16

Shortcut

Re: [Andy] Escape, but not escape? In reply to

As you are using qq| then surely the only thing you'd need to escape is |'s within the string.

With a quick look I can't see any curly braces, so try:

qq{ ... }

If you escape it, it may screw up the encoded code.

May 5, 2003, 9:10 AM

Andy

Veteran / Moderator (18441 posts)

May 5, 2003, 9:10 AM

Post #3 of 16

Shortcut

Re: [Paul] Escape, but not escape? In reply to

Yeah, thats what I was thinking (didn't try {} though), either way, its still giving me an error Frown

Quote:

Software error:
syntax error at a.cgi line 21, near "9D"
Execution of a.cgi aborted due to compilation errors.

Its this bit;

%9D=

Is it the % thats causing the problem? I wouldn't have thought it would be, cos you can use % in qq| etc Unsure

Cheers

Andy (mod)
andy@ultranerds.co.uk

May 5, 2003, 9:14 AM

Paul

Veteran (19537 posts)

May 5, 2003, 9:14 AM

Post #4 of 16

Shortcut

Re: [Andy] Escape, but not escape? In reply to

Howz about...

my ($image) = <<'END_OF_IMG';

...

END_OF_IMG

May 5, 2003, 9:28 AM

Andy

Veteran / Moderator (18441 posts)

May 5, 2003, 9:28 AM

Post #5 of 16

Shortcut

Re: [Paul] Escape, but not escape? In reply to

Still producing the same error. I just can't work out why its spewing up errors Frown

Cheers

Andy (mod)
andy@ultranerds.co.uk

May 5, 2003, 10:43 AM

Wil

Veteran / Moderator (4108 posts)

May 5, 2003, 10:43 AM

Post #6 of 16

Shortcut

Re: [Andy] Escape, but not escape? In reply to

What's the error?

Can a string be that long?

- wil

May 5, 2003, 12:18 PM

Paul

Veteran (19537 posts)

May 5, 2003, 12:18 PM

Post #7 of 16

Shortcut

Re: [Andy] Escape, but not escape? In reply to

I just tested it out and it works fine for me.

http://213.106.15.160/cgi-bin/test.cgi

May 5, 2003, 1:32 PM

Alex

Administrator (9387 posts)

May 5, 2003, 1:32 PM

Post #8 of 16

Shortcut

Re: [Paul] Escape, but not escape? In reply to

Quote:

As you are using qq| then surely the only thing you'd need to escape is |'s within the string.

And $'s. =)

Cheers,

Alex
--
Gossamer Threads Inc.

May 5, 2003, 1:40 PM

Paul

Veteran (19537 posts)

May 5, 2003, 1:40 PM

Post #9 of 16

Shortcut

Re: [Alex] Escape, but not escape? In reply to

...and @'s Wink

May 6, 2003, 7:09 AM

Andy

Veteran / Moderator (18441 posts)

May 6, 2003, 7:09 AM

Post #10 of 16

Shortcut

Re: [Paul] Escape, but not escape? In reply to

Weird. Won't work for me.

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
print $IN->header();

my ($image) = <<<END_OF_IMG
C_X 02D9)1@ ! 0 0 ! #_VP!# ! +# X,"A .#0X2$1 3&"@:&!86&#$C)1TH.C,]/#DS.#= 2%Q.0$17137!D>%QE9V/_VP!# 1$2$A@5&"\:&B]C0CA"8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V/_P 1" "U / # 2( A$! Q$!_\0 'P 04! 0$! 0$ $" P0%!@<("0H+_\0 M1 @$# P($ P4%! 0 %] 0(# 01!1(A,4$&$U%A!R)Q%#*!D:$((T*QP152T? D,V)R@@D*%A<8&1HE)B7J#A(6&AXB)BI*3E)66EYB9FJ*CI*6FIZBIJK*SM+6VM[BYNL+#Q,7&Q\C)RM+3U-76U]C9VN'BX^3EYN?HZ>KQ\O/T]?;W^/GZ_\0 'P$ P$! 0$! 0$! 0 $" P0%!@<("0H+_\0 M1$ @$"! 0#! +=LSZ#/'UJ*W+K=QJP"JV<$#/3M5B)FCA0RE00H!Q]*K32_OES(%9G&/I]*6D6FA;E]XL[=QR HX+O[3$67KG"@=^>M17;?N'6<;0S <'KSQD_E6DYJ70$B)'>"?]XZJQ/ YY/\ G%79)Y5&Y2,]@*HR2K).C.^"@YD8#;]!2J]Q+;-(%VEAD$$8//3/?US4KFC'38;5S+92J@"4L&ZEEI&C8,S>;&1CH.*E._Y=F_KSD#I0<,6RQW LX8](>1S!?R/*!NS#R/P!/?)KMO='-U+U_SK]HO]V*/]7/^%7=03=JEL<[?W;@,?7*UDP:A:W^JR786=/)6-"KJ ?E+'(Y[UJ3ZK9R+B4.@[5S@T[I7%9D=_<[3Y<1&>N<]*Q;J5V",2&++CH/4U8N1)),1%=V\JX!'[H@G]:KR121N$S 23CY%?K4:7N%F5+993*Y1';:.JKFEFCG$OF20.R$8;"X./ZU;M+E+=BL;K<7$I"B-00H/;)[]:KRWE].KI+#')\V#L/0@].M7?4-41?8/.C 1F7*Y$,RS>=+O4_?D0.1_*K_P#:\DT0#3Q3(IY_=&,_S/\ *K3MN1/WMC5L=L$VQ1\LG7(P+QDF,I1U(DW .I'&W'6L')QV-+7+,PXC'U'Y__JK>65955@HZ:NB:>\:-B&3<#]W';_\ 55>2[2V \R)W60X&UL[?=H'(& !SWZTRX@CLKF3RU86^TR DG@X.2/:HH;2=4A=8OWCJ"&W#IUZT[/J%C5LS&)?*A)&,,?E Y/TJ35$E< !U,'!,>TY.*>+-P5DBP'91F1CENG2F26TCJ?.N(]X'RDM@CUK51:5K$Z7,J2,BQ*E&"?=,@Z\\]*=9%+B PH&55.%&X'ODY%6%B@0M&+N,[AC!.,?TJY;06\3*8)(LG)RGS'U[5I!7>H,Q&+,4*@KSD@/UIP +MA'#8&?F_P#KU4!0[26C!X.,5-O4[@/*& .:YCJ)]-82ZXQ:(IM1L$]^15[4-3LTO0INHL@8(W9P?2K5K=1W!2% V^- 3D<<8%>;W3%[X!!G7S1;LN<@KOV]R!UQ4:L&=00N13DM2D]#50_ZO@=?Z&K7&P_2L$:OM 8VL^U3G.VG?\)"N/EM9&^I'-+E8[HVIH7='$8YE:0CZ&ITT.QA^9E! Z[B!_.LR;2-8FE/[V0H?[\U(OA:[;F2:(?B33^8C6\K2+?[TML#Z&0?TI/[3TB'@2Q_\ 0G^E4X_"JC_ %ET3[*G_P!>K4?ANR7[S2,?K_\ 6I:=QZA_;^GYPBROSCB, ?J:K#Q2CR&.WM&)SC<\@ _05H+I&G0HQ/\Z FE*IC1+7#?*0@!_E1=!9E"^U75()88HX("\PRH7+<4QO^$BG NVS;&#P,Y&34\T3JAW.01Z8IMQ%Y]QYK$IA0N <]*B25RXR:1A)^]U&9<@[78C\#2RHRN$+' &3QQ5^YM4MY(WBV@L26)ZD410&9L>4TJL,!\86D]0V%M%D:&,Y .6#=,>U=+HLT>V0&1YL?>.>*A:9F]*M*Q#8_3"B3R.XX5VQ[5KJJ3.&# ^E85D26F Z[B>I6ALJ,>;8Z=+1(\Y'2E6SLW/F-%'N(["H+6.ZGA$@D"C )PH')J6&"1W"R3,<^CX_E1J2VB9;2T4Y%NF?795B/R0@*A54C([5GS0?9M4M0"WS$]6)XQ4K(SQ1@ GY!CCVI.Z&K,L0Q6?FL88H-_5BJC-.NKZVL /,!!/.$3)JEIB[;N0$8(4UJ85EPPS2 S3K;/_P >]A=R9[E-H_.LNX\62J[(EH$93@AVS@UU X KC]9M@=8G>,!.06)7(.0#WJXI-DR;1%)XHU!_N>7'_NKG^=4IM:U&;[UU(/]TX_E5J&.T9R!'&S8). WI]:A1[8GY+L^2+>VE6)PT4GS$G.0?_U5HIJ=O;:)F&#+K&<,0.I[_P!:H3DS1@&!S@YV\=:>@J=ADNC3-9)(T;*^X '/KUXJZU_/(2Q/U- EJMNH#'M@U-AW+1?--W"H-]+OHL%SBOL3 P_*J)N0VZ&.XD]&(Q4"(Z/M92"#Z5.[%;@+C@J36G8+(V-KC'N,_UI2-(2<=BY97@2R6-8W9L8.$)J1?.+!DB8'U) JPL.T9DF('L !^N:8]U80_ZRZ4GT\SG\A17*FWR!UW'I^5&H:(=%;) Q91R1CKFIEZ5FFZG751:R% I4$$#GFI+G3II9BWVJXV'^%7V@?E2L%R\[I&I+NJC_ &CBN;UF\BGO6$*F4(NW*#=N/MBM2+1K96W-&K-_>?YC^M6&2&W7 7H"P ' Q_C5)),ELYJSTZ:57=+4Q,!\OF-C=FK4>BW;X\R>*+VBCR?S-;C2%#$HA.74D]]O3@_GBHKB\C2U(\^.&5ACYL@CUP.M425X-$2)@[2S,P&-Q?;Q^&*M0V%O"V]5);J#[U1?68(FD,<;RL[9R!M7'\ZB.MR/Z1CV%2[E+S-QGN <1[%3J689YJ 0PK+)*TCO))RY4D9JA#<^9\Q&QR.AK1TS:<<51D&Y2#^%2V,ZPMB0XI,J+-6QL+2>:[DN5#E)6 WG.!GM5V,6-N<8C0>RBLU[O28W:4R\ORRX)&>YIK>(;"$8A@D<^P"BJ3(:([>&YBU;[;%#E [8R<=>E;#2WTPPHC0=ADMC\!6#)XFFY\BUBC]V^8U4FUK4I^#_:[J4$C&68A>![59GUG3X"0UPK$=E^;^5<2_FRG,DC.?5CFF"W8GBIY;E)V.IG\3PK_J('?\ WC@5GS>(+V8C9#%'CHVW<1SGO]!6;&FW[W6K4<8(IJ*0F[B2WE]-DRW$DBGJN[ _+I2Q1ANE3)$!R*D2#/0X;U%%@$CB-6$@4CYE%$;%#ME7GU'2KBH,<:A!"86$:C(8C[V?\BDS:A&,I>_LC.M)5CU.">Y?[S;I/8&G/\ 8Y]0NGDD81F0F,@XR,GVJ]J&DM'J=LJ1JR2#DCD$Y[TVPTEY+VZ22) J'@N.,9-*SV/4=>GR\]VG;I;O_7R*BK;W=Z8BS>6JA8@IQ_3ZFKFBJ&OIX()&:$)N&3GD8_\ KU+I^F,NL7,M.WMH-/\ ,>,QEW& J#@4U$YZ^(C9Q5W=+M_5SA4P8UX["GKR,T459YPI.!FDSD9HHH$(3QFJ\IP:**8B$C)YHV"BBF Y4&*ECC!HHH F$:TY(QNHHH D\M2>E B"MP:**8BU$N .:L1J,\<<444@) H.0>:BD8P%=I)!Y&3THHJ&,NQON7=C%*'/-%%,"1#N7.,4\445("FG+D&BBD,=GBKC7@VAA$!*%QOS_2BBG
END_OF_IMG;

binmode IMAGE;
$_ = $image;
tr#A-Za-z0-9+/##cd;
tr#A-Za-z0-9+/# -_#;
print IMAGE unpack('u*', chr(32 + int(length($_)*3/4)) . $_);

Unsure

What did you use? I'm still getting the error;

Quote:

Software error:
syntax error at a.cgi line 6, near "9D"
Execution of a.cgi aborted due to compilation errors.

Cheers

Andy (mod)
andy@ultranerds.co.uk

May 6, 2003, 8:15 AM

Paul

Veteran (19537 posts)

May 6, 2003, 8:15 AM

Post #11 of 16

Shortcut

Re: [Andy] Escape, but not escape? In reply to

Code:
#!/perl/bin/perl 

my $string = <<'CODE'; 
C_X 02D9)1@ ! 0 0 ! #_VP!# ! +# X,"A .#0X2$1 3&"@:&!86&#$C)1TH.C,]/#DS.#= 2%Q.0$17137!D>%QE9V/_VP!# 1$2$A@5&"\:&B]C0CA"8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V-C8V/_P 1" "U / # 2( A$! Q$!_\0 'P 04! 0$! 0$ $" P0%!@<("0H+_\0 M1 @$# P($ P4%! 0 %] 0(# 01!1(A,4$&$U%A!R)Q%#*!D:$((T*QP152T? D,V)R@@D*%A<8&1HE)B7J#A(6&AXB)BI*3E)66EYB9FJ*CI*6FIZBIJK*SM+6VM[BYNL+#Q,7&Q\C)RM+3U-76U]C9VN'BX^3EYN?HZ>KQ\O/T]?;W^/GZ_\0 'P$ P$! 0$! 0$! 0 $" P0%!@<("0H+_\0 M1$ @$"! 0#! +=LSZ#/'UJ*W+K=QJP"JV<$#/3M5B)FCA0RE00H!Q]*K32_OES(%9G&/I]*6D6FA;E]XL[=QR HX+O[3$67KG"@=^>M17;?N'6<;0S <'KSQD_E6DYJ70$B)'>"?]XZJQ/ YY/\ G%79)Y5&Y2,]@*HR2K).C.^"@YD8#;]!2J]Q+;-(%VEAD$$8//3/?US4KFC'38;5S+92J@"4L&ZEEI&C8,S>;&1CH.*E._Y=F_KSD#I0<,6RQW LX8](>1S!?R/*!NS#R/P!/?)KMO='-U+U_SK]HO]V*/]7/^%7=03=JEL<[?W;@,?7*UDP:A:W^JR786=/)6-"KJ ?E+'(Y[UJ3ZK9R+B4.@[5S@T[I7%9D=_<[3Y<1&>N<]*Q;J5V",2&++CH/4U8N1)),1%=V\JX!'[H@G]:KR121N$S 23CY%?K4:7N%F5+993*Y1';:.JKFEFCG$OF20.R$8;"X./ZU;M+E+=BL;K<7$I"B-00H/;)[]:KRWE].KI+#')\V#L/0@].M7?4-41?8/.C 1F7*Y$,RS>=+O4_?D0.1_*K_P#:\DT0#3Q3(IY_=&,_S/\ *K3MN1/WMC5L=L$VQ1\LG7(P+QDF,I1U(DW .I'&W'6L')QV-+7+,PXC'U'Y__JK>65955@HZ:NB:>\:-B&3<#]W';_\ 55>2[2V \R)W60X&UL[?=H'(& !SWZTRX@CLKF3RU86^TR DG@X.2/:HH;2=4A=8OWCJ"&W#IUZT[/J%C5LS&)?*A)&,,?E Y/TJ35$E< !U,'!,>TY.*>+-P5DBP'91F1CENG2F26TCJ?.N(]X'RDM@CUK51:5K$Z7,J2,BQ*E&"?=,@Z\\]*=9%+B PH&55.%&X'ODY%6%B@0M&+N,[AC!.,?TJY;06\3*8)(LG)RGS'U[5I!7>H,Q&+,4*@KSD@/UIP +MA'#8&?F_P#KU4!0[26C!X.,5-O4[@/*& .:YCJ)]-82ZXQ:(IM1L$]^15[4-3LTO0INHL@8(W9P?2K5K=1W!2% V^- 3D<<8%>;W3%[X!!G7S1;LN<@KOV]R!UQ4:L&=00N13DM2D]#50_ZO@=?Z&K7&P_2L$:OM 8VL^U3G.VG?\)"N/EM9&^I'-+E8[HVIH7='$8YE:0CZ&ITT.QA^9E! Z[B!_.LR;2-8FE/[V0H?[\U(OA:[;F2:(?B33^8C6\K2+?[TML#Z&0?TI/[3TB'@2Q_\ 0G^E4X_"JC_ %ET3[*G_P!>K4?ANR7[S2,?K_\ 6I:=QZA_;^GYPBROSCB, ?J:K#Q2CR&.WM&)SC<\@ _05H+I&G0HQ/\Z FE*IC1+7#?*0@!_E1=!9E"^U75()88HX("\PRH7+<4QO^$BG NVS;&#P,Y&34\T3JAW.01Z8IMQ%Y]QYK$IA0N <]*B25RXR:1A)^]U&9<@[78C\#2RHRN$+' &3QQ5^YM4MY(WBV@L26)ZD410&9L>4TJL,!\86D]0V%M%D:&,Y .6#=,>U=+HLT>V0&1YL?>.>*A:9F]*M*Q#8_3"B3R.XX5VQ[5KJJ3.&# ^E85D26F Z[B>I6ALJ,>;8Z=+1(\Y'2E6SLW/F-%'N(["H+6.ZGA$@D"C )PH')J6&"1W"R3,<^CX_E1J2VB9;2T4Y%NF?795B/R0@*A54C([5GS0?9M4M0"WS$]6)XQ4K(SQ1@ GY!CCVI.Z&K,L0Q6?FL88H-_5BJC-.NKZVL /,!!/.$3)JEIB[;N0$8(4UJ85EPPS2 S3K;/_P >]A=R9[E-H_.LNX\62J[(EH$93@AVS@UU X KC]9M@=8G>,!.06)7(.0#WJXI-DR;1%)XHU!_N>7'_NKG^=4IM:U&;[UU(/]TX_E5J&.T9R!'&S8). WI]:A1[8GY+L^2+>VE6)PT4GS$G.0?_U5HIJ=O;:)F&#+K&<,0.I[_P!:H3DS1@&!S@YV\=:>@J=ADNC3-9)(T;*^X '/KUXJZU_/(2Q/U- EJMNH#'M@U-AW+1?--W"H-]+OHL%SBOL3 P_*J)N0VZ&.XD]&(Q4"(Z/M92"#Z5.[%;@+C@J36G8+(V-KC'N,_UI2-(2<=BY97@2R6-8W9L8.$)J1?.+!DB8'U) JPL.T9DF('L !^N:8]U80_ZRZ4GT\SG\A17*FWR!UW'I^5&H:(=%;) Q91R1CKFIEZ5FFZG751:R% I4$$#GFI+G3II9BWVJXV'^%7V@?E2L%R\[I&I+NJC_ &CBN;UF\BGO6$*F4(NW*#=N/MBM2+1K96W-&K-_>?YC^M6&2&W7 7H"P ' Q_C5)),ELYJSTZ:57=+4Q,!\OF-C=FK4>BW;X\R>*+VBCR?S-;C2%#$HA.74D]]O3@_GBHKB\C2U(\^.&5ACYL@CUP.M425X-$2)@[2S,P&-Q?;Q^&*M0V%O"V]5);J#[U1?68(FD,<;RL[9R!M7'\ZB.MR/Z1CV%2[E+S-QGN <1[%3J689YJ 0PK+)*TCO))RY4D9JA#<^9\Q&QR.AK1TS:<<51D&Y2#^%2V,ZPMB0XI,J+-6QL+2>:[DN5#E)6 WG.!GM5V,6-N<8C0>RBLU[O28W:4R\ORRX)&>YIK>(;"$8A@D<^P"BJ3(:([>&YBU;[;%#E [8R<=>E;#2WTPPHC0=ADMC\!6#)XFFY\BUBC]V^8U4FUK4I^#_:[J4$C&68A>![59GUG3X"0UPK$=E^;^5<2_FRG,DC.?5CFF"W8GBIY;E)V.IG\3PK_J('?\ WC@5GS>(+V8C9#%'CHVW<1SGO]!6;&FW[W6K4<8(IJ*0F[B2WE]-DRW$DBGJN[ _+I2Q1ANE3)$!R*D2#/0X;U%%@$CB-6$@4CYE%$;%#ME7GU'2KBH,<:A!"86$:C(8C[V?\BDS:A&,I>_LC.M)5CU.">Y?[S;I/8&G/\ 8Y]0NGDD81F0F,@XR,GVJ]J&DM'J=LJ1JR2#DCD$Y[TVPTEY+VZ22) J'@N.,9-*SV/4=>GR\]VG;I;O_7R*BK;W=Z8BS>6JA8@IQ_3ZFKFBJ&OIX()&:$)N&3GD8_\ KU+I^F,NL7,M.WMH-/\ ,>,QEW& J#@4U$YZ^(C9Q5W=+M_5SA4P8UX["GKR,T459YPI.!FDSD9HHH$(3QFJ\IP:**8B$C)YHV"BBF Y4&*ECC!HHH F$:TY(QNHHH D\M2>E B"MP:**8BU$N .:L1J,\<<444@) H.0>:BD8P%=I)!Y&3THHJ&,NQON7=C%*'/-%%,"1#N7.,4\445("FG+D&BBD,=GBKC7@VAA$!*%QOS_2BBG 
CODE 

print "Content-type: text/html\n\n"; 
print $string;

May 6, 2003, 9:33 AM

Alex

Administrator (9387 posts)

May 6, 2003, 9:33 AM

Post #12 of 16

Shortcut

Re: [Andy] Escape, but not escape? In reply to

You forgot the single quotes around END_OF_IMG.

Cheers,

Alex
--
Gossamer Threads Inc.

May 6, 2003, 1:46 PM

Paul

Veteran (19537 posts)

May 6, 2003, 1:46 PM

Post #13 of 16

Shortcut

Re: [Alex] Escape, but not escape? In reply to

...and also the semi-colon. Also the semi-colon *after* END_OF_IMG needs removing.

May 6, 2003, 1:47 PM

Paul

Veteran (19537 posts)

May 6, 2003, 1:47 PM

Post #14 of 16

Shortcut

Re: [Alex] Escape, but not escape? In reply to

There were also three <'s intead of two Wink

May 7, 2003, 1:35 AM

Andy

Veteran / Moderator (18441 posts)

May 7, 2003, 1:35 AM

Post #15 of 16

Shortcut

Re: [Paul] Escape, but not escape? In reply to

Ok...I'm lost. In your code, you use;

my ($var) = <<'NAME';
stuff for this variable
NAME

.,..and yours works. I don't really use this way of showing stuff in perl (or assigning) strings. In PHP its very similar, so maybe I'm just getting confused Unsure

$var = <<<VAR_NAME
all the stuff for the var here
VAR_NAME;

So what is the correct format? Unsure

Cheers

Andy (mod)
andy@ultranerds.co.uk

May 7, 2003, 1:40 AM

Paul

Veteran (19537 posts)

May 7, 2003, 1:40 AM

Post #16 of 16

Shortcut

Re: [Andy] Escape, but not escape? In reply to

Mine