map an array but first item different?

[Justin C]

I'm using CGI.pm to generate a table, and within that table I'm using
map to put the contents of an arrayref into cells within each table row:

print table(
{ get_formatting_string($formatting) },
Tr({-class=>'holding'},
[
th([@{$col_heads}]),
map { td($_) } @{$data},
],
),
);

Here's what Data:umper says about $data:
$VAR1 = [ '2010-10-01', 'First consignment of two. Order split due to size.', 'John Smith' ];
$VAR2 = [ '2010-10-21', 'Sent email requesting payment. If no joy by follow-up date then set a deadline.', 'Justin' ];

The problem I'm having is that when the second column has a lot of text
it causes the first column to shrink and wrap and this looks terrible. I
can fix this with td({-nowrap=>'nowrap}, $_) if doing things manually,
but I'd still like map to handle this for me because I'm using the same
sub to print tables with different numbers of columns.

How can I set a parameter for the first item while still letting map
handle this? ... or how else could I do this?

Thanks for any help you can give with this.

Justin.

 

[Randal L. Schwartz]

Justin> print table(
Justin> { get_formatting_string($formatting) },
Justin> Tr({-class=>'holding'},
Justin> [
Justin> th([@{$col_heads}]),
Justin> map { td($_) } @{$data},
Justin> ],
Justin> ),
Justin> );

....

Justin> How can I set a parameter for the first item while still letting map
Justin> handle this? ... or how else could I do this?

Just use an aux counter:

my $n = 0;
print table( { ... },
Tr({ ... },
[
th(..),
map {
if (++$n == 1) {
do your thing for first item
} else {
do your thing for remaining items
}
} @$data,
],
),
);

By the way, I think td($data) would have avoided the map. Been a while
since I hacked CGI.pm though.

print "Just another Perl hacker,"; # the original

 

[John W. Krahn]

I'm using CGI.pm to generate a table, and within that table I'm using
map to put the contents of an arrayref into cells within each table row:

print table(
{ get_formatting_string($formatting) },
Tr({-class=>'holding'},
[
th([@{$col_heads}]),
map { td($_) } @{$data},
],
),
);

Here's what Data:umper says about $data:
$VAR1 = [ '2010-10-01', 'First consignment of two. Order split due to size.', 'John Smith' ];
$VAR2 = [ '2010-10-21', 'Sent email requesting payment. If no joy by follow-up date then set a deadline.', 'Justin' ];

The problem I'm having is that when the second column has a lot of text
it causes the first column to shrink and wrap and this looks terrible. I
can fix this with td({-nowrap=>'nowrap}, $_) if doing things manually,
but I'd still like map to handle this for me because I'm using the same
sub to print tables with different numbers of columns.

How can I set a parameter for the first item while still letting map
handle this? ... or how else could I do this?

print table(
{ get_formatting_string($formatting) },
Tr({-class=>'holding'},
[
th([@{$col_heads}]),
td( { -nowrap => 'nowrap' }, $data->[ 0 ] ),
map { td( $_ ) } @{ $data }[ 1 .. $#$data ],
],
),
);


John

 

[Justin C]

I'm using CGI.pm to generate a table, and within that table I'm using
map to put the contents of an arrayref into cells within each table row:

print table(
{ get_formatting_string($formatting) },
Tr({-class=>'holding'},
[
th([@{$col_heads}]),
map { td($_) } @{$data},
],
),
);

Here's what Data:umper says about $data:
$VAR1 = [ '2010-10-01', 'First consignment of two. Order split due to size.', 'John Smith' ];
$VAR2 = [ '2010-10-21', 'Sent email requesting payment. If no joy by follow-up date then set a deadline.', 'Justin' ];

The problem I'm having is that when the second column has a lot of text
it causes the first column to shrink and wrap and this looks terrible. I
can fix this with td({-nowrap=>'nowrap}, $_) if doing things manually,
but I'd still like map to handle this for me because I'm using the same
sub to print tables with different numbers of columns.

How can I set a parameter for the first item while still letting map
handle this? ... or how else could I do this?

print table(
{ get_formatting_string($formatting) },
Tr({-class=>'holding'},
[
th([@{$col_heads}]),
td( { -nowrap => 'nowrap' }, $data->[ 0 ] ),
map { td( $_ ) } @{ $data }[ 1 .. $#$data ],
],
),
);

Ah! There's always MTOWTDI! Thank you for the suggestion. I'd never
considered that map could would on anything other than the whole array.

Justin.

 

[sln]

I'm using CGI.pm to generate a table, and within that table I'm using
map to put the contents of an arrayref into cells within each table row:

print table(
{ get_formatting_string($formatting) },
Tr({-class=>'holding'},
[
th([@{$col_heads}]),
map { td($_) } @{$data},
],
),
);

Here's what Data:umper says about $data:
$VAR1 = [ '2010-10-01', 'First consignment of two. Order split due to size.', 'John Smith' ];
$VAR2 = [ '2010-10-21', 'Sent email requesting payment. If no joy by follow-up date then set a deadline.', 'Justin' ];

The problem I'm having is that when the second column has a lot of text
it causes the first column to shrink and wrap and this looks terrible. I
can fix this with td({-nowrap=>'nowrap}, $_) if doing things manually,
but I'd still like map to handle this for me because I'm using the same
sub to print tables with different numbers of columns.

How can I set a parameter for the first item while still letting map
handle this? ... or how else could I do this?

print table(
{ get_formatting_string($formatting) },
Tr({-class=>'holding'},
[
th([@{$col_heads}]),
td( { -nowrap => 'nowrap' }, $data->[ 0 ] ),
map { td( $_ ) } @{ $data }[ 1 .. $#$data ],
],
),
);

Ah! There's always MTOWTDI! Thank you for the suggestion. I'd never
considered that map could would on anything other than the whole array.

map is being passed a list, not an array.

-sln

 

[Uri Guttman]

print table(
{ get_formatting_string($formatting) },
Tr({-class=>'holding'},
[
th([@{$col_heads}]),
td( { -nowrap => 'nowrap' }, $data->[ 0 ] ),
map { td( $_ ) } @{ $data }[ 1 .. $#$data ],
],
),
);

JC> Ah! There's always MTOWTDI! Thank you for the suggestion. I'd never
JC> considered that map could would on anything other than the whole array.

map doesn't take an array, it takes a list. and the input there is a
just a slice of an array. think of map as a list transform function. it
takes in a list and it returns a list. you can do anything inside the
map to create the output list. it can be shorter, longer or the same
size as the input list. too many newbies think the input and output list
have to be the same size.

uri