Re: a perl code syntax help

hello, you are facing a so called here-doc declaration: you can find more on this here

You cannot insert a conditional statemenent in an such a construction.
But you can easyly wrap the assignement in a conditional:

##not tested

if ($a){$html .= <<END;
  
  #here case A  

END
}
else{$html .= <<END;
  
  #here case B or default  

END


}
[download]

HtH
L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Comment on Re: a perl code syntax help Download Code

Replies are listed 'Best First'.
Re^2: a perl code syntax help by tobyink (Canon) on Jul 28, 2014 at 11:25 UTC
"You cannot insert a conditional statemenent in an such a construction." I beg to differ! `use strict; use warnings; print <<"END" for 1..100; @{[$_%3?():"Fizz",$_%5?():"Buzz",$_%5&&$_%3?$_:()]} END` [download] For simpler examples, it's even possible to make it sort of legible! `use strict; use warnings; print <<"END" for 1..100; @{[ ($_ % 2) ? 'Odd' : 'Even' ]} END` [download] toby döt ink	[reply] [d/l] [select]
Re^3: a perl code syntax help by Discipulus (Canon) on Jul 28, 2014 at 11:31 UTC
ehehe i had some precognition when i wrote that.. Better i would say: 'I tried but it was a...' but in Perl many many things are possible! Thanks tobyink There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l]
Re^2: a perl code syntax help by ghosh123 (Monk) on Jul 28, 2014 at 11:17 UTC
thanks for your reply and pointer to the doc. I just do not want to write the same code again and again, can I write a function and pass 'onload' or 'onChange' in a variable? so that it would resolve the $func value as -onChange or -onload ?	[reply]
Re^3: a perl code syntax help by marto (Cardinal) on Jul 28, 2014 at 11:25 UTC
You could make life much easier for yourself by using a templating system rather than creating HTML in this manner, but you already know that.	[reply]
Re^3: a perl code syntax help by hexcoder (Curate) on Jul 28, 2014 at 21:08 UTC
Yes, we can. Like that (untested): `... my $trigger = 'onload'; $html .= <<END; ... <td bgcolor="#EEEEEE">@{[ $qry->popup_menu(-id=>'ID +', -name=>'PS', -size=>10, -values=>$array_ref, -labels=>$hash_ref, +-${trigger}=>"fetchData(id,'','','')") ]}</td> </tr> </table> END` [download] The original code did already interpolate a list expression in the heredoc string (`@{[ ... ]}` was already present). So you just have to replace the fixed text part (`onChange`) in the above expression (`...`) with a string variable (here I used `$trigger`).	[reply] [d/l] [select]