配列要素の8進数の重複をチェックするPerl

Question

配列内の重複する要素をチェックするこのループがあります。問題は、配列にコンパイラがエラーをスローする8進数を持つことです。どのように私はこの作品を作るのですか？

my @array1 = (010895401, 010895401, 010895402, 010895403); 

my %seen; 

foreach my $octal (@array1) 
{ 
    next unless $seen{$octal}++; 
    print "'$octal' is duplicated.\n" 
} 

Answer 1

それは（0x又は0.で始まるもの以外の）0リテラル始動が数の進表現であることが期待される。Illegal octal digit '8' and '9' at main.pl line 1, at end of line

このエラーをスロー数字の8進数表記は排他的に0〜7の数字で構成されています（数値のバイナリ表記が排他的に0と1の数字からなる方法に似ています）。

このように、010895401は数値の8進表現であると予想されますが、そうではありません。 010895401は意味がありません。