VisualBasic¡¤Perl¡¤C¸À¸ì¡¤Shell¤Ê¤É¤ÎÈ÷˺Ͽ¤äTips¤ò½ñ¤¤¤Æ¤¤¤¯Í½Äê¤Ç¤¹¡¥¼«Ê¬ÍѤʤΤǼ«Ê¬¤¬Ê¬¤«¤ë¤è¤¦¤Ë½ñ¤¤¤Æ¤¤¤Þ¤¹¡¥´Ö°ã¤Ã¤¿²ò¼á¤Ê¤É¤ò¤·¤Æ¤¤¤ë¾ì¹ç¤¬¤¢¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¤¤½¤Î»Ý¤´Î»¾µ¤¯¤À¤µ¤¤¡¥»²¹Í¤Ë¤Ê¤µ¤ë¾ì¹ç¤Ï¡¤¼«¸ÊÀÕǤ¤Ç¤ª´ê¤¤¤·¤Þ¤¹¡¥

Perl¤ÎTips¡ÚÌܼ¡¡Û

¥È¥Ã¥×¥Ú¡¼¥¸ -> Perl -> ÊÑ¿ô ´ØÏ¢

ÊÑ¿ô¤Î¸ò´¹

ÊÑ¿ô $a ¤È $b ¤ÎÆâÍƤòÉáÄ̤˸ò´¹¤¹¤ë¤³¤È¤ò¹Í¤¨¤ë¤È¡¢
$tmp = $a;
$a = $b;
$b = $tmp;
¤È¤¤¤¦¥À¥µ¤¤Ãæ´ÖÊÑ¿ô $tmp ¤òºîÀ®¤·¤¿¤¯¤Ê¤ë¤¬¡¢Perl¤À¤È¤³¤ì¤¬»×¤¤¤Ã¤­¤ê´Êñ¤Ë¡¢
($a,$b) = ($b,$a);
¤ÇºÑ¤à¡£
ÇÛÎó¤ÎÍ×ÁǤθò´¹¤âƱÍͤˤǤ­¡¢@test ¤Î1¸ÄÌܤÈ2¸ÄÌܤò¸ò´¹¤¹¤ë¾ì¹ç¤Ï¡¢
($test[0], $test[1]) = ($test[1], $test[0]);
¤È½ñ¤±¤Ð¤Ç¤­¤ë¡£


¥È¥Ã¥×¥Ú¡¼¥¸ -> Perl -> ÊÑ¿ô ´ØÏ¢


½é´ü²½¤µ¤ì¤Æ¤¤¤Ê¤¤ÊÑ¿ô¤Ë¤Ï²¿¤¬Æþ¤ë¡©

½é´ü²½¤µ¤ì¤Æ¤¤¤Ê¤¤ÊÑ¿ô¤Ë¤Ï¡¢¤¤¤Ã¤¿¤¤²¿¤¬Æþ¤Ã¤Æ¤¤¤ë¤Î¤À¤í¤¦¤«¡©
¤½¤ì¤ò³Î¤«¤á¤ë¤¿¤á¤Î¥×¥í¥°¥é¥à(kakunin.pl)¤¬°Ê²¼¤È¤Ê¤ë¡£
#! /usr/bin/perl
# kakunin.pl

$kotae1 = $nazo1 + 1;
print "$kotae1\n";
$kotae2 = $nazo2."nani";
print "$kotae2\n";
¼Â¹Ô·ë²Ì
$./kakunin.pl
1
nani
½é´ü²½¤·¤Æ¤¤¤Ê¤¤ÊÑ¿ô nazo1 ¤Ë 1 ¤ò²Ã¤¨¤¿¾ì¹ç¡¢$kotae1 ¤Ï¡¢1¤È¤Ê¤ë¡£¤Ä¤Þ¤ê¡¢nazo1 ¤È¤¤¤¦ÊÑ¿ô¤Ë¤Ï¡¢0 ¤¬Æþ¤Ã¤Æ¤¤¤¿¤³¤È¤Ë¤Ê¤ë¡£
¤Ç¤Ï¡¢½é´ü²½¤·¤Æ¤¤¤Ê¤¤ÊÑ¿ô nazo2 ¤Î¾ì¹ç¤Ï¤É¤¦¤À¤í¤¦¤«¡£nazo2 ¤Ë "nani" ¤È¤¤¤¦Ê¸»ú¤ò·ë¹ç¤¹¤ë¤È¡¢$kotae2 ¤Ï¡¢"nani" ¤È¤Ê¤ë¡£¤¹¤Ê¤ï¤Á¡¢nazo2 ¤Ë¤Ï¡¢""¡Ê¤Ä¤Þ¤ê¡¢¶õʸ»úÎó¡Ë¤¬Æþ¤Ã¤Æ¤¤¤¿¤Î¤À¡£

¼Â¤Ï¡¢½é´ü²½¤µ¤ì¤Æ¤¤¤Ê¤¤ÊÑ¿ô¤Ï¡¢
  • ¿ôÃͤȤ·¤Æ¤ß¤¿¾ì¹ç¤Ï0¤È¤·¤Æ¤Õ¤ë¤Þ¤¤
  • ʸ»úÎó¤È¤·¤Æ¤ß¤¿¾ì¹ç¤Ï""¤È¤·¤Æ¤Õ¤ë¤Þ¤¦
¤È¤¤¤¦ÊØÍø¤ÊÃͤǤ¢¤ë¡¢undef ¤ÇÄêµÁ¤µ¤ì¤Æ¤¤¤ë¡£
$nazo = undef;
¤È¤¤¤¦¤è¤¦¤Ë¼«Ê¬¤Ç½ñ¤¤¤Æ»È¤¦¤³¤È¤â²Äǽ¤Ç¤¢¤ë¡£

Êä­
  • ʸ»úÎó¤ò·ë¹ç¤¹¤ë±é»»»Ò¤Ï¡¢ ¡Ö.¡×¡Ê¥Ô¥ê¥ª¥É¡Ë¤òÍѤ¤¤ë¡£
¡Ê»ÈÍÑÎã¡Ë
$first_name = "Taro";
$last_name = "Tanaka";
$full_name = $first_name . " " . $last_name; #̾Á°¤ÈÉÄ»ú¤ò1ʸ»úʬ¶õ¤±¤Æ·ë¹ç
print "My name is $full_name.\n";

¥È¥Ã¥×¥Ú¡¼¥¸ -> Perl -> ÊÑ¿ô ´ØÏ¢


¾ÊάÊÑ¿ô($_)

perl¤Ë¤Ï¾Êά¤ÎÈþ³Ø¤È¤¤¤¦¤â¤Î¤¬¤¢¤ê¡¢¤¤¤í¤¤¤í¤Ê²Õ½ê¤ÇÊÑ¿ô̾¤ò¾Êά¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¡£
¾Êά¤·¤¿¾ì¹ç¤Ï¡¢$_ ¤ò»ØÄꤷ¤¿¤â¤Î¤È¤ß¤Ê¤µ¤ì¤ë¡£

ɸ½àÆþÎϤò½ÐÎϤ¹¤ë¥×¥í¥°¥é¥à¤ÇÀâÌÀ¤¹¤ë¡£
while(<STDIN>){
    print;      # printʸ¤Ç²¿¤â»ØÄꤷ¤Ê¤«¤Ã¤¿¾ì¹ç¤Ï¡¢$_ ¤ÎÃæ¿È¤¬½ÐÎϤµ¤ì¤ë
}
¤³¤Î¥×¥í¥°¥é¥à¤Ï¡¢¼¡¤Î¤è¤¦¤Ë½ñ¤¤¤Æ¤â¤Þ¤Ã¤¿¤¯Æ±¤¸¤Ç¤¢¤ë¡£
while($_ = <STDIN>){
    print $_;      # printʸ¤Ç²¿¤â»ØÄꤷ¤Ê¤«¤Ã¤¿¾ì¹ç¤Ï¡¢$_ ¤ÎÃæ¿È¤¬½ÐÎϤµ¤ì¤ë
}
¤³¤ì¤é¤«¤é¡¢°Ê²¼¤Î¤³¤È¤¬¤ï¤«¤ë¡£
  • print¤Ç½ÐÎϤ¹¤ë¤â¤Î¤ò¾Êά¤¹¤ë¤È¡¢$_ ¤ÎÃæ¿È¤¬½ÐÎϤµ¤ì¤ë


¥È¥Ã¥×¥Ú¡¼¥¸ -> Perl -> ÊÑ¿ô ´ØÏ¢



Æüì¤ÊÊÑ¿ô¡Ê$_¤Ê¤É¡Ë¤òʬ¤«¤ê¤ä¤¹¤¤Ê¸»ú¤ËÃÖ¤­´¹¤¨¤ë

¥×¥í¥°¥é¥à¤ÎÀèƬ¤Ç¡¢
use English;
¤È½ñ¤¯¤È¡¢¾å½Ò¤·¤¿$_¤Ê¤É¤ÎÆüì¤ÊÊÑ¿ô¤¬Ê¬¤«¤ê¤ä¤¹¤¤ÊÑ¿ô̾¤ËÊÑ´¹¤µ¤ì¤ë¡£

¶ñÂÎŪ¤Ë¤Ï¡¢
ÆüìÊÑ¿ôÊÑ´¹¸åÊÑ¿ô¤ÎÀâÌÀ
$_$ARG¾ÊάÊÑ¿ô
$.$INPUT_LINE_NUMBER ¤Þ¤¿¤Ï $NR¸½ºßÆþÎÏÃæ¤Î¹ÔÈÖ¹æ
$`$PREMATCH¥Þ¥Ã¥ÁÁ°
$&$MATCH¥Þ¥Ã¥Áʸ»úÎó
$'$POSTMATCH¥Þ¥Ã¥Á¸å
$0$PROGRAM_NAME¸½ºß¼Â¹ÔÃæ¤Î¥×¥í¥°¥é¥à̾
¤Ê¤É¤¬¤¢¤ë¡£¡Ê¤³¤ì°Ê³°¤Ï¡¢¤³¤Á¤é¤ò»²¾È¡Ë

ºÇ¸å¤Î$0¤Ï¡¢¡Ö¤³¤Î·ë²Ì¤Ï test.pl ¤Ë¤è¤Ã¤ÆÆÀ¤é¤ì¤¿¤â¤Î¤Ç¤¹¡×¤Ê¤É¤È¸À¤¦¤è¤¦¤Ë¡¢
¥×¥í¥°¥é¥à̾¤ò½ÐÎϤ¹¤ë¤È¤­¤Ë»È¤¨¡¢¤½¤Î¥×¥í¥°¥é¥à̾¤òÊѹ¹¤·¤¿¾ì¹ç¤Ç¤â¡¢
¤¤¤Á¤¤¤Á¥á¥Ã¥»¡¼¥¸¤ò½ÐÎϤ¹¤ë¤¿¤á¤ËÊѹ¹¤·¤¿Éôʬ¤ò½¤Àµ¤·¤Ê¤¯¤Æ¤âºÑ¤à¡£

¥È¥Ã¥×¥Ú¡¼¥¸ -> Perl -> ÊÑ¿ô ´ØÏ¢



livedoor Wiki´ØÏ¢¥ê¥ó¥¯

¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È

3rq89e This is one awesome blog post. Great.

0
Posted by check it out 2014ǯ02·î06Æü(ÌÚ) 08:23:45 ÊÖ¿®

¥³¥á¥ó¥È¤ò¤«¤¯


¡Öhttp://¡×¤ò´Þ¤àÅê¹Æ¤Ï¶Ø»ß¤µ¤ì¤Æ¤¤¤Þ¤¹¡£

ÍøÍѵ¬Ìó¤ò¤´³Îǧ¤Î¤¦¤¨¤´µ­Æþ²¼¤µ¤¤

¥á¥ó¥Ð¡¼¤Î¤ßÊÔ½¸¤Ç¤­¤Þ¤¹