CGIで数値を含む文字列から0を取り除きたい

質問

Perl/CGIでわからないところがありまして質問させてください。

@aaa という配列が以下のようないろいろな文字列が入るとします。
@aaa = ('01_02_03','01_10','02','02_11_09');
※2桁の数字が_で区切られています。
※最高でも'01_02_03'のように３つの区切りまです。
※10以下の数字は必ず前に0がつきます。

これらの数字をどうにか
@aaa = ('1_2_3','1_10','2','2_11_9');
のように一桁目の0を取り除きたいのです。

恐れ入りますがどなた様かご教授いただけませんでしょうか。
よろしくお願いいたします。

回答No.2

ORUKA1951 · ベストアンサー

@aaa = ('01_02_03','01_10','02','02_11_09');
while(<@aaa>){
s/(0)(\d{1})/$2/g;
print "$_\n";
}
while(<@aaa>){
s/(0{1})([0-9]{1})/$2/g;
print "$_\n";
}
他にも色々・・

お礼

ありがとうございました。
while(<@aaa>){
s/(0)(\d{1})/$2/g;
print "$_\n";
}
の方法を使わせていただくことにしました。

回答No.1

zxcv0000

バラした中身の数値が2桁固定なら簡単です。

@aaa = map{s/0(\d)/$1/g, $_} @aaa;

# もし可変桁で "000" ⇒ "0" や "0" ⇒ "0" という条件だと、ちょっとした課題にする事ができます。

お礼

ありがとうございました。
そういった方法なんですね・・・
勉強になります。