今回はバグ（？）報告とPerlのルーチンを投稿します．

１　Illustrator CS4でのfile pathの取得結果が，OSのバージョンによって変わる

２　索引の連続ノンブルをまとめる　perl ver.

[perl]
#———————————————-
#ノンブルの配列中の連続した部分をハイフンで連結した文字列にして返す
#（「1,2,3,4,5,8,9,10」の配列を「1-3,4,5,8-10」にする）
#———————————————-
sub GetSuccess {
my @in = @_;
my @arr;

#配列の要素が2つだけならカンマで連結して返す
my $len = @in;
if ($len == 2) {
return join(",", @in);
}

#3つ以上の場合
my @result;
my @serial;
my $prev;
for(my $i = 0; $i < @in; $i++) {
my $num = $in[$i];

#最初の要素はリストに入れるだけ
if ($i == 0) {
$prev = $num;
push (@serial, $prev);
next;
}

#ノンブルが続いている箇所を固まりにして配列に入れる
if ($num – 1 == $prev) { #続き要素なら
push (@serial, $num); #続き要素用の配列に入れる
} else { #ノンブルが飛んだら
push (@result, [@serial]); #続き要素の配列をリファレンスにして結果配列に入れる
@serial = (); #続き要素用の配列をリセット
push (@serial, $num);
}
$prev = $num; #直前の番号を更新
}
push (@result, [@serial]);

#結果配列の内容を走査
my @retArr;
foreach my $r(@result) {
my @r = @$r;
my $cnt = @r;
my $val;
if ($cnt >= 3) { #3以上の配列なら最初と最後をハイフンで連結
$val = join("-", $r[0], $r[-1]);
} else { #2以下ならカンマで連結
$val = join(",", @r);
}
push (@retArr, $val);
}

# print join(",", @retArr), "\n";
return join(",", @retArr);
}
[/perl]