Help for this page

Select Code to Download


  1. or download this
    my $str = 'somename   1000  0.24  280  2 2576.9  2731.9  12.0  4195.3'
+;
my @array = split /\s+/, $str;
  2. or download this
    die "invalid input format: '$str'"
  if $str !~ / \A [a-z]\w* (?: \s+ [\d.]+ ){8} \z /ixo;
my @array = split /\s+/, $str;