baxy77bax has asked for the wisdom of the Perl Monks concerning the following question:
hi,
is there a better (simpler) way then this one to chomp some input from STDIN and turn it into an array
so the input should be : 1,2,4,6..18,47,49,55..65,90 and the output 1 2 4 6 7 8 9 10 11 12 13 14 15 16 17 18 47 49 55 56 57 58 59 60 61 62 63 64 65 90 any suggestions are appreciated.chomp(my $number = <STDIN>); my @notSee = split(",", $number); my @array; foreach my $numb (@notSee){ my @arraydigit; if ($numb=~/(\d+)\.\.(\d+)/){ for (my $i=$1;$i<=$2;$i++){ push @arraydigit, $i; } } else{ push @array, $numb; } push @array, @arraydigit; } print "@array\n";
thnx
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: regex to an array , is there a better way to do this
by moritz (Cardinal) on Jul 08, 2009 at 16:42 UTC | |
Re: regex to an array , is there a better way to do this
by ikegami (Patriarch) on Jul 08, 2009 at 17:11 UTC | |
Re: regex to an array , is there a better way to do this
by ramlight (Friar) on Jul 08, 2009 at 17:11 UTC | |
Re: regex to an array , is there a better way to do this
by poolpi (Hermit) on Jul 09, 2009 at 11:10 UTC |
Back to
Seekers of Perl Wisdom