テストデータファイル検証用スクリプト
公開日：
:
最終更新日：2014/02/05
未分類
記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。
@busyo_with_cntr = (
"AAA"
,"BBB"
,"CCC"
);
@busyo_without_cntr = (
"111"
,"222"
,"333"
);
while(<>){
chomp;
if(/^1!/){
@fields = split /!/;
$busyo = $fields[4-1];
$found = 0;
foreach(@busyo_with_cntr){
if($busyo eq $_){
print "$busyo : xxxあり\n";
$found = 1;
}
}
if(!$found){
foreach(@busyo_without_cntr){
if($busyo eq $_){
print "$busyo : xxxなし\n";
$found = 1;
}
}
}
if(!$found){
print "$busyo : xxxマスタに存在しない\n";
}
}
}
関連記事
- PREV
- 今日の勉強
- NEXT
- emacsでコメントを外す
