>>329
無駄が多い気もするけどこんな感じか？
use strict;use warnings;use IO::File;
my $IN_FILE = 'data.txt';
sub open_or_die {IO::File->new( $_[0] ) || die("$_[0]:$!")}
sub slurp {local $/;my $fh = open_or_die($_[0]);<$fh>}
my @all = (my $data = slurp($IN_FILE)) =~ /([-\d]+)/g;
my @R = ([],[]);
push(@{$R[$_%2]},$_) for @all;
printf "偶数:%s\n",join(',',@{$R[0]});
printf "奇数:%s\n",join(',',@{$R[1]});