- 121 名前：デフォルトの名無しさん mailto:sage [2008/05/13(火) 15:05:45 ]
- #torikomi.pl
package torikomi;
#戻り値：String（分類コード）
sub get_code(){
($organizationcode,$sectioncode,$itemcode) = @_;
$itemcode = "999999";
my $i1cd ="";
my $i2cd ="";
my $i4cd ="";
$i1cd=substr($itemcode,0,1);
$i2cd=substr($itemcode,0,2);
$i4cd=substr($itemcode,0,4);
if($itemcode eq "000000"){
return "A00";
}
if( $itemcode eq "999999" ){
return "Z00";
}
}
このperlが、きちんとA00やZ00を返しているかを確認したいのです。
