creating nested lists

Ottawa_IWOV

Sorry for the completely off-topic question. What I want to do, is create a nested <ul> with a string using Perl. I have tried many tings, but have not had much luck. Heres the string

Value 1::Value 2::Value 3

Idally i would like this to appear as

<ul>
<li>Value 1
<ul><li>Value 2
<ul><li>Value 3
</ul>
</ul>
</ul>

This seems like a complex thing to achieve in Perl, no?

iwovGraduate

Nope.

 my ($str) = "Value 1::Value 2::Value 3";
 #print "\nstr: [$str]";
 my($ul);
 foreach (split("::", $str) ) {
  print "\n<ul><li>$_";
  $ul .= "\n</ul>";
 }
        print $ul;

        <ul><li>Value 1
        <ul><li>Value 2
        <ul><li>Value 3
        </ul>
        </ul>
        </ul>

I am sure there are better ways.. but this should work.