This may not be representative, but a simple test shows that regexp could be much much faster here:


use Benchmark ();

our @data;
my $line = '1.000000     '
. '    100.273    121.54     98.169    121.58'
. '    100.273    121.54     98.169    121.58'
. '    100.273    121.54     98.169    121.58'
. '    100.273    121.54     98.169    121.58';

Benchmark::cmpthese(0, {
   split        => sub { @data = split(/\s+/, $line) },
   fixed_length => sub { @data = $line =~ /^.{8} {6}(.{10})(.{10})(.{1
+0})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})(.{10})$/ 
+},
   var_length   => sub { @data = $line =~ /^.{8}\s+(\S+)\s+(\S+)\s+(\S
++)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+
+(\S+)$/ },
});

__END__
                 Rate        split   var_length fixed_length
split         63116/s           --         -30%         -87%
var_length    90310/s          43%           --         -81%
fixed_length 482454/s         664%         434%           --

[download]

Of course, fixed_length would assume that you do your own joining, since join would not preserve field widths.

In reply to Re: Speed of Split by ikegami
in thread Speed of Split by Lexicon

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.