Perlコーディング初心者質問スレ Part 56

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

861:2/2
 08/02/01 03:04:31 
sub add_tag { 
 my $substr = $_[0]; 
 if ($substr !~ /$tag_r/o) { 
  $substr = "$tag_o$substr$tag_c"; 
 } elsif ($substr !~ /\Q$tag_o\E/o) { 
  $substr =~ s/(\Q$tag_c\E)/$1$tag_o/go; 
  $substr .= $tag_c; 
 } elsif ($substr !~ /\Q$tag_c\E/o) { 
  $substr =~ s/(?=\Q$tag_o\E)/$tag_c/go; 
  substr($substr, 0, 0) = $tag_o; 
 } elsif ($substr =~ /^($tag_e)\Q$tag_c\E($tag_e)\Q$tag_o\E($tag_e)\z/o) { 
  $substr = "$1$2$3"; 
 } elsif ($substr =~ /^($tag_e)\Q$tag_o\E($tag_e)\Q$tag_c\E($tag_e)\z/o) { 
  $substr = "$tag_o$1$2$3$tag_c"; 
 } else { 
  die $substr; # ココを頑張ってくれ。 
 } 
 $substr =~ s/\Q$tag_c$tag_o\E//go; 
 $substr; 
}

862:nobodyさん
 08/02/01 04:53:15 hS8kNEG7
if(A1 < B1 && A2 < B2 && A3 < B3 && A3 < B3 && A4 < B4) 
{ 
$page_dsp .= <<"EOM"; 
<tr> 
<td colspan="2" > 
<form action="????.cgi" method="post" onSubmit="return send_check()"> 
<select name=ku class=slc> 
<option value="no"> 
EOM 
 
＃この中の条件式(ifの条件付オプション)は省略 
{$page_dsp .= "<option value=\"1\">\n"; } 
 
$page_dsp .= <<"EOM"; 
</select> 
<input type=hidden name=back value="no"> 
<input type=hidden name=id value="$kid"> 
<input type=hidden name=pass value="$kpass"> 
<input type=hidden name=mode value="ku"> 
<input type=submit class=btn value="オン"> 
</td></form></tr> 
EOM 
} 
else{$page_dsp .= "<tr><td colspan=2 align=center>終わり</td></tr>\n"; 
} 
 
以上のように、最初の5つの条件 
(各々全部の、左の数値が右の数値と同じかそれ以上の時にセレクトを非表示) 
で動かしたいのですけど、5つの条件中3つの条件しか満たしてないのに非表示に 
なります。 
条件が5つ揃ってから非表示にするにはどうすればいいですか？ 
ご教授お願いします。

次ページ