# CSV to HTML translation A very lispy solution: ```perl my $str = "Character,Speech The multitude,The messiah! Show us the messiah! Brians mother,Now you listen here! He's not the messiah; he's a very naughty boy! Now go away! The multitude,Who are you? Brians mother,I'm his mother; that's who! The multitude,Behold his mother! Behold his mother!"; # comment the next line out, if you want to read from standard input instead of the hard-coded $str above # my $str = $*IN.slurp; my &escape = *.trans(« & < > » => « & < > »); # a function with one argument that escapes the entities my &tag = {"<$^tag>"~$^what~""}; printf ' Some Text %s
', [~] # concatenation reduction ('a', 'b', 'c') → 'abc' (escape($str).split(/\n/) # escape the string and split at newline ==> map -> $line {tag 'tr', # feed that into a map, that map function will tag as 'tr, and has an argument called $line ([~] $line.split(/','/)\ # split $line at ',', # that / at the end is just an unspace, you can omit it, but then you have to delete # all whitespace and comments between split(…) and .map .map({tag 'td', $^cell}))})\ # map those cells as td .join("\n"); # append a newline for nicer output ``` ```html Some Text
CharacterSpeech
The multitudeThe messiah! Show us the messiah!
Brians mother<angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry>
The multitudeWho are you?
Brians motherI'm his mother; that's who!
The multitudeBehold his mother! Behold his mother!
``` --- # Agent Instructions: Querying This Documentation If you need additional information that is not directly available in this page, you can query the documentation dynamically by asking a question. Perform an HTTP GET request on the current page URL with the `ask` query parameter: ``` GET https://trizen.gitbook.io/perl6-rosettacode/programming_tasks/c/csv_to_html_translation.md?ask= ``` The question should be specific, self-contained, and written in natural language. The response will contain a direct answer to the question and relevant excerpts and sources from the documentation. Use this mechanism when the answer is not explicitly present in the current page, you need clarification or additional context, or you want to retrieve related documentation sections.