Perl¤ÎÀâÌÀ¡¡¡¡¡¡¡¡¡¡ 1.if¡¡¡¡ 2.if elsif else

¡¡¡¡5. ¾ò·ïŽ¥±é»»»Ò¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£



¡¡1.if ( ¾ò·ï )

µ­½Ò¡¡Îã
if($sw == 1){ $sw_name = 'ON';} if($sw_name eq 'ON'){ $sw = 1;} $on = 1; $onmoji = 1; if($sw == $on){ $sw_name = $onmoji;} if ( /yy/ ) { print 'pattern is found',"\n"; } if (! /yy/ ) { print 'pattern is\'nt found',"\n"; } # ¿ôÃͤÎÈæ³Ó # ʸ»ú¤ÎÈæ³Ó # ÊÑ¿ô # $_ ¤Ë¡¡yy ¤¬¤¢¤ì¤Ð¿¿ # $_ ¤Ë¡¡yy ¤¬¤Ê¤±¤ì¤Ð¿¿
µ­½Ò¡¡Îã
if ($str =~ /abc/) if ($str !^ /abc/) if(1) if(0) if("a") if("") if(<>) # ÊÑ¿ô $str ¤Ëʸ»úÎóabc ¤¬ºß¤ë # ÊÑ¿ô $str ¤Ëʸ»úÎóabc ¤¬Ìµ¤¤ # ¾ï¤Ë¿¿ # ¾ï¤Ëµ¶ # ¾ï¤Ë¿¿ # ¾ï¤Ëµ¶ ɸ½àÆþÎϤ«¤éʸ»ú¤¬¤¢¤ì¤ÐÀµ¤·¤¤
¿ôÃͱ黻»Òʸ»ú±é»»»ÒÆâ¡¡ÍÆ¿ôÃͤÎÎãʸ»ú¤ÎÎã
==eqÅù¤·¤¤$x == $y$x eq $y
!=neÅù¤·¤¯¤Ê¤¤$x != $y$x ne $y
<lt¾®¤µ¤¤$x < $y$x lt $y
>gtÂ礭¤¤$x > $y$x gt $y
<=le¾®¤µ¤¤¤«Åù¤·¤¤$x <= $y$x le $y
>=geÂ礭¤¤¤«Åù¤·¤¤$x >= $y$x ge $y

¢¨ /.../ ¤Ï¡¢  Àµµ¬É½¸½ ¤Ç¤¹¡£



¡¡2.if ( ¾ò·ï ) elsif ( ¾ò·ï ) else( ¾ò·ï )


if ( ¾ò·ï1 ) { ¾ò·ï1 ¤¬ ¿¿¤Î¾ì¹ç¤Î½èÍý }
elsif ( ¾ò·ï2 ) { ¾ò·ï1 ¤¬ µ¶ ¤Ç ¾ò·ï2 ¤¬ ¿¿¤Î¾ì¹ç¤Î½èÍý }
elsif ( ¾ò·ï3 ) { ¾ò·ï2 ¤â µ¶ ¤Ç ¾ò·ï3 ¤¬ ¿¿¤Î¾ì¹ç¤Î½èÍý }
else {Á´¤Æµ¶¤Î¾ì¹ç¤Î½èÍý}
µ­½Ò¡¡Îã
if(/[yY].*/){ ¡¡¡¡print 'yes',"\n";} elsif( /[nN].*/ ){ ¡¡¡¡print 'no ',"\n";} else{ ¡¡¡¡print "$_", ' ¤Ï ¡©',"\n" } # $_ ¤¬ y ¤Þ¤¿¤Ï Y ¤Î¤È¤­¡¢yes ¤òɽ¼¨ # $_ ¤¬ n ¤Þ¤¿¤Ï N ¤Î¤È¤­¡¢no¡¡¤òɽ¼¨ # $_ ¤¬ ¤É¤Á¤é¤Ç¤â¤Ê¤¤¤È¤­¡¢$_ ¤Ï ¡©¤òɽ¼¨




1.if¡¡¡¡ 2.if elsif else¡¡¡¡¡¡¡¡ [ Top ]