- 269 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 16:41:22 ]
- 物凄い勢いで修正
#!/usr/bin/perl
$|=1;
$file = <STDIN>;
chomp $file;
open(FH, $file);
while (<FH>) {
chomp;
push @vals, $_;
}
close(FH);
$head = $vals[0];
shift @vals;
print $head;
foreach $val (@vals) {
if($head + 1 < $val){
if($flag){ print $head; }
print ',', $val;
$flag = 0;
}
if($head + 1 == $val){
if(!$flag){ print '-'; }
$flag = 1;
}
$head = $val;
}
