<?xml version="1.0" encoding="windows-1252"?>
<node id="1012659" title="Re^3: Using '#' at the beginning of a format?" created="2013-01-10 08:24:40" updated="2013-01-10 08:24:40">
<type id="11">
note</type>
<author id="918402">
2teez</author>
<data>
<field name="doctext">
&lt;p&gt;
 [cpan://Perl6::Form] is a lot better than [doc://format]. The usage is a lot easier. &lt;br&gt; [loris] request can be done like so:
&lt;c&gt;
use warnings;
use strict;
use Perl6::Form;

my %name_n_price_tag;

print form "#\tName\tPrice", 
           "#\t------	-------";

while (&lt;DATA&gt;) {
    chomp;
    my ( $name, $price ) = split /:\s/, $_, 2;
    $name_n_price_tag{$name} = $price;
}

print form
  "\t{|||||}\t{|||||}", $_, $name_n_price_tag{$_}, $/
  for sort keys %name_n_price_tag;

__DATA__
large: 90.12
small: 12.34
medium: 57.78
&lt;/c&gt;
&lt;tt&gt;Output:&lt;/tt&gt;&lt;br&gt;
&lt;c&gt;
#	Name	Price
#	------	-------
	 large 	 90.12

	medium 	 57.78

	 small 	 12.34
&lt;/c&gt;
&lt;b&gt;NOTE&lt;/b&gt; however, I don't know how the OP gets it data. This is just a head up using the module [cpan://Perl6::Form]. &lt;br&gt; Hope this helps.
&lt;/p&gt;
&lt;!-- Node text goes above. Div tags should contain sig only --&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-918402"&gt;
If you tell me, I'll forget.&lt;br&gt;
If you show me, I'll remember.&lt;br&gt;
if you involve me, I'll understand.&lt;br&gt;
--- Author [unknown to me]
&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
1012623</field>
<field name="parent_node">
1012643</field>
</data>
</node>
