in reply to Re: How to handle a variable number of results from split()?
in thread How to handle a variable number of results from split()?

Aye, there is.. and I'm sure there's a more compact way than this one as well :) 
#!/usr/bin/perl

use strict;
use warnings;

{
 local ($,,$\) = (" - ","\n");
 while (<DATA>) {
  chomp; print split(/-/) for split(/,/)
 }
}

__DATA__
1-2,3-4,2-5
2-1,2-5
3-5,1-9,2-2,4-8

[download]

Replies are listed 'Best First'.
Re^3: How to handle a variable number of results from split()?
by jdporter (Paladin) on Jul 20, 2005 at 18:43 UTC
    Well, if that's exactly how you want the output: 
    {
  local $/;
  local $_ = <DATA>;
  s/,/\n/g;
  s/-/ - /g;
  print
}

    [download]
    Or 
    open P, ' | perl -laF, -ne "s/-/ - /, print for @F" ';
print P <DATA>;
close P;

    [download]
    (Some things are done more succinctly on the command line.)
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom