Perl Range String ID

Question

私は値を比較するためにループする必要がある文書のページのID範囲を持っています。私の問題は、IDは文字列であり数字ではないので、Perlで範囲を試してみるとうまくいきません。私のレンジループの例と私のデータの例を示します。

foreach($begID..$endID){ 
    print $_; 
} 

データの例では、

$begID = ABC-ABC-00001; 
$endID = ABC-ABC-00100; 

私の問題は、私はループこれらの値をすることはできませんあるでしょう。私は " - "に基づいてデータを分割し、00001と00100の値を得ることができますが、その問題はデータが私が扱っている別のファイルによって異なることがあることです。

誰かがこのことについてお伝えする他の方法はありますか？

UPDATE

私はここ（100担当者の下にあることに起因する他の7時間で）私自身の答えを投稿することができますまで、私が思いついたものです：ここ

オーケー、私のように何をしたかであります溶液。アルファベットに当たるまで、数字を正規表現から始めることができます。

($start) = $begID =~ m/(\d+)$/; 
($end) = $endID =~ m/(\d+)$/; 

次にループを作成します。

Answer 1

"データは異なる場合があります"

場合は固定文字列の接頭辞+番号を持つことによって、あなたは接頭辞をオフに分割することができます。

my ($prefix, $start) = ($begID =~ /^(\D+)(\d+)$/; 
my ($prefix2, $end) = ($endID =~ /^(\D+)(\d+)$/; 
die "Prefixes don't match" unless prefix eq $prefix2; 
foreach my $index ($start .. $end) { 
    my $id = "prefix$index"; 
}