www.bowwowbarkery.com

open(IN,"data.dat");while(<IN>){chomp;#お事項で追加@data=split(/<>/,$_);$no=$data[0];$name=$data[1];$body=$data[2];#print"$no：$name：$body\n";printf("%04d：%s：%s\n",$no,$name,$body);}close(IN);。perlで国字を4桁にする。perlについて質問させて頂きます。まず、data.datには以下の様な小規模が入っています。1<>岩槻<>こんにちは2<>鈴木<>こんばんは3<>佐藤<>おはよう4<>岩槻<>さようなら5<>井上<>おやすみ・・・この答案の1人年の国字を4桁にして表示させたいのですが（以下の様に）どう記述すれば良いでしょうか？？【希望する表示結果】0001：山田：こんにちは0002：鈴木：こんばんは0003：佐藤：おはよう0004：山田：さようなら0005：井上：おやすみ9999を超えた場合は想定していないので、どう処理されても構わないです。このシナリオを変更するとしたら---------open(IN,"data.dat");while(<IN>){@data=split(/<>/,$_);$no=$data[0];$name=$data[1];$body=$data[2];print"$no：$name：$body\n";}close(IN);-------------------------------詳しい方、ぜひ宜しくお願い致します。