$wfurikae = 1 if ( &ccom::getShukujitsu( &com::tD( $wwy,$wwm,$wwd )) ne '' );がよく

$wfurikae = 1 if ( &ccom::getShukujitsu( &com::tD( $wwy,$wwm,$wwd )) ne '' );

というスクリプトがあったのですが、

$wfurikae = 1　の後に;もいれずifがきています。

違和感があります。

どのような意味になるのでしょうか。

宜しくお願い致します。

No.1 ベストアンサー 回答者： wildcat-yp 回答日時：2009/05/23 21:37

そのまんまだと思いますよ。

if 以下の条件が真の時 $wfurikae = 1となります。
Perlはいろいろな書き方ができますので、こういう書き方もありです。
英語の文法の並びにする書き方です。

No.2 回答者： Tacosan 回答日時：2009/05/24 00:35

if (...) { statement; }

のように 1文だけを制御するときは
statement if ...;
と後ろに書くこともできます. unless, while, for なども同じように書けます. さりげなくかっこが消えることにも注意.