Nested templated data: Difference between revisions
m
→{{header|Perl}}: fixed routine name
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: fixed routine name) |
||
Line 139:
}
sub
my $result;
$result .= ref $_ eq 'ARRAY' ? '[ "'. join('", "', @$_) . '" ], ' : qq{"$_"} for @{@_[0]};
Line 145:
}
print
print
</lang>
{{out}}
| |||