Style in CGI Header

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have code that prints html header this way with CGI.pm:

-style => {-code=> "$page_style", 'src'=>[$_css_path,$_css_path2]},#..
+.. I just copied that line out...
[download]

this is just part of it that goes in this header:

print start_html();
[download]

My question is, if I have a page that I want to pull in a different CSS is there a way to put them all in a array instead of the way I did it, where the files are all printed into there so they are all pulled in:

@whatever = ("$_css_path","$_css_path2");
-style => {-code=> "$page_style", 'src'=>@whatever}, #....
[download]

Then if I have another path, say in this tag: $_css_path3, how would I add it? push?

Please let me know how to make it work.
Thank you. :)
Ukn

Comment on Style in CGI Header Select or Download Code

Replies are listed 'Best First'.
Re: Style in CGI Header by frozenwithjoy (Priest) on Sep 30, 2014 at 04:15 UTC
Disclaimer: I've never used CGI.pm The snippet `'src' => [ $_css_path, $_css_path2 ]` is using an anonymous array, whereas `'src' => @whatever` is using a normal array. Perhaps it will work if you use an array reference to an anonymous array like this: `$whatever = [ $_css_path, $_css_path2 ]; -style => { -code => $page_style, src => $whatever }, #....` [download] For the second part of your question, new paths can be pushed with: `push @{ $whatever }, $_css_path3;` [download] Of course, this will need to be done before `print start_html();`	[reply] [d/l] [select]
Re^2: Style in CGI Header by Anonymous Monk on Sep 30, 2014 at 23:00 UTC
So then would this work? I'm in a live environment, so I cannot just test it, it may break if I do it live... `my @cssFiles = (); push(@cssFiles, {'src' => "$_css_path"}); push(@cssFiles, {'src' => "$_css_path2"}); # Then in the start_html() this line: -style => {-code=> "$page_style", 'src'=>@cssFiles},` [download] is that how it would work? It does not seem so, because the array has src = and then the -style field has 'src' = ...so seems like I have it wrong. Can you tell me how to do that right? Thanks, Rich	[reply] [d/l]
Re^3: Style in CGI Header by Anonymous Monk on Oct 01, 2014 at 01:20 UTC
There are some kinds of changes where you won't know if they work until you try it on a test system... or in this case a live system... this isn't one of them. CGI is (still) in the Perl core, so this one is particularly easy to test locally. `use CGI ':standard'; my @cssFiles = ("src1"); push @cssFiles, "src2"; print start_html(-style=>{-code=>"code",-src=>\@cssFiles}); __END__ ... <link rel="stylesheet" type="text/css" href="src1" /> <link rel="stylesheet" type="text/css" href="src2" /> <style type="text/css"> <!--/* <![CDATA[ / code / ]]> /--> </style> ...` [download] So that's a yes, frozenwithjoy's suggestion should* work, provided you use an array reference (`-src=>\@cssFiles`, not `-src=>@cssFiles`). If you had a test system, even if it's not an exact mirror of the live system but at least can execute your code, may have saved you the ~20 hours wait on a solution...	[reply] [d/l] [select]
Re^3: Style in CGI Header by frozenwithjoy (Priest) on Oct 01, 2014 at 01:01 UTC
Changing your code to follow my earlier suggestion would give something like this: `my $cssFiles = []; push @{$cssFiles}, $_css_path; push @{$cssFiles}, $_css_path2; # Then in the start_html() this line: -style => { -code => $page_style, -src => $cssFiles },` [download] If you wanted to use an array instead of an array ref, you could try this: `my @cssFiles; push @cssFiles, $_css_path; push @cssFiles, $_css_path2; # Then in the start_html() this line: -style => { -code => $page_style, -src => \@cssFiles },` [download]	[reply] [d/l] [select]