You get a similar solution using a very useful idiom if you replace 

my @col = split /;/;
push @col, '' for @col .. 2;
print join ';', @col;

[download]
with 
my $len = 3;
print join ';', (split(/;/), ('') x $len)[0 .. $len-1];

[download]
assuming that there are at most two semi-colons in the string. The focus here is the way to create the default trailing elements. This is quite useful when you create hashes, where it's imperative to not have any missing (or extra) elements. For instance: 
my %foo =
  map { (split /:/, $_, 2)[0, 1] } # Implicit "default" undef.
  qw/
    foo:bar
    baz
    zip:zap:zoom
  /
;

use Data::Dumper;
print Dumper(\%foo);

__END__
$VAR1 = {
          'baz' => undef,
          'foo' => 'bar',
          'zip' => 'zap:zoom'
        };

[download]
A naive 
my %foo = map { split /:/ } ...;

[download]
would've been disastrous.

lodin

In reply to Re^2: adding ";" to void elements by lodin
in thread adding ";" to void elements by steph_bow

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.