2008-02-01ãã1ã¶æéã®è¨äºä¸è¦§
Perl ⺠here Perlã®éå¼ãè¾å ¸ã§ããçºå±çãªè©±é¡ããã¡ãã ç¹å¾´ã解説 ãã¼ã¸ã§ã³æ å ± ãã¼ã¿ãã¼ã¹ ããã°ã©ã ã®èªåè©¦é¨ ã½ã±ãã ããã»ã¹ééä¿¡ ã¯ã³ã©ã¤ãã¼ çµ±è¨ã»è§£æ XSå ¥é è¨èªå®è£ ã®ç ç©¶ è±ç¥è ã¢ã¸ã¥ã¼ã«åºç¤ ãªãã¸ã§ã¯ãæå æ¥ä»ã»æå» æâ¦
Perl âº é¢æ° ⺠here reverse颿°ã使ç¨ããã¨ãæååãéé ãããã¯é åãéé ã«ãããã¨ãã§ãã¾ãã # æååãéé ã«ãã $str_reverse = reverse $str; # é åãéé ã«ãã @array_reverse = reverse @array; ããã·ã¥ã¨ãã¼ã®å¤ãå ¥ãæ¿ããã®ã«ãreveâ¦
Perl âº é¢æ° ⺠here chomp颿°ã使ç¨ããã¨ãæ¹è¡ãåé¤ãããã¨ãã§ãã¾ãã # æ«å°¾ã®æ¹è¡ãåé¤ chomp $line; OSã«ä¾åããªãã§æ¹è¡ãåé¤ãã chompã«é¢ãã¦ä¸ã¤æ³¨æç¹ãããã¾ããchompã¯ç°å¢ã«ä¾åããã¨ãããã¨ã§ãããã¨ãã°Windowsã§å®è¡ããå ´åã¯â¦
Perl âº é¢æ° ⺠here index颿°ã使ç¨ããã¨æååãæ¤ç´¢ãããã¨ãã§ãã¾ãã第1弿°ã«ã¯æ¤ç´¢å¯¾è±¡ã®æååã第2弿°ã«ã¯æ¤ç´¢ãããæååãæå®ãã¾ãã第3弿°ã«ã¯æ¤ç´¢éå§ä½ç½®ãæå®ãããã¨ãã§ãã¾ããçç¥ããå ´åã¯æååã®æåããæ¤ç´¢ãè¡ããã¾ããâ¦
Perl âº é¢æ° ⺠here substr颿°ã使ç¨ããã¨ãæå®ããä½ç½®ã®æåãåãåºãããããã¯ç½®æãããã¨ãã§ãã¾ãã第1弿°ã¯æååã第2弿°ã¯éå§ä½ç½®ã第3弿°ã¯åãåºãé·ãã§ããéå§ä½ç½®ã¯0ããå§ã¾ãã¾ãã第3弿°ãçç¥ããå ´åã¯æååã®æ«å°¾ã¾ã§ã対â¦
Perl ⺠æ¼ç®å ⺠here æååã®ãªã¹ããç°¡æ½ã«è¨è¿°ããããã®æååãªã¹ãæ¼ç®åã¨å¼ã°ããæ¼ç®åãããã¾ããæååãªã¹ãæ¼ç®åã使ç¨ããã¨ã·ã³ã°ã«ã¯ã©ã¼ããã«ã³ããè¨è¿°ãããã¨ãªãæååã®ãªã¹ãã表ç¾ã§ãã¾ãã qw(æåå1 æåå2 æåå3) å®éâ¦
Perl ⺠æ¼ç®å ⺠here æååé£çµæ¼ç®åã.ãã使ãã¨æååãé£çµãããã¨ãã§ãã¾ãã my $str3 = $str1 . $str2; æååãé£çµãããµã³ãã«ã§ãã my $str1 = 'ABC'; my $str2 = 'DEF'; my $str3 = $str1 . $str2; æååã$str3ãã¯ãABCDEFãã«ãªãã¾ãâ¦
Perl ⺠æ¼ç®å ⺠here é åã¹ã©ã¤ã¹ã使ãã¨ãé åããè¦ç´ çªå·ãæå®ãã¦è¤æ°ã®è¦ç´ ãåãåºããã¨ãã§ãã¾ãã # é åã¹ã©ã¤ã¹ my @values = @array[0, 3, 5]; é åããè¦ç´ çªå·ã1ã¨3ã®è¦ç´ ãåå¾ãããµã³ãã«ã§ãã # è¤æ°ã®è¦ç´ ãåå¾ my @nums = ('a',â¦
Perl ⺠æ¼ç®å ⺠here ããã·ã¥ã¹ã©ã¤ã¹ã¨ããæ©è½ãå©ç¨ããã¨ããã·ã¥ããè¤æ°ã®å¤ãåãåºããã¨ãã§ãã¾ãã my @math_score_slice = @math_scores{'Aiko', 'Kenta'}; ããã·ã¥ã¹ã©ã¤ã¹ã使ãã¨ããã¼ãè¤æ°æå®ãã¦ãå¤ããªã¹ãã¨ãã¦åãåºããã¨ãã§â¦
Perl âº é¢æ° ⺠here delete颿°ã使ç¨ããã¨ãããã·ã¥ã®ãã¼ãåé¤ãããã¨ãã§ãã¾ãããã¼ã«å¯¾å¿ããå¤ãåé¤ããã¾ããæ»ãå¤ã¯åé¤ããããã¼ã«å¯¾å¿ããå¤ã§ãã my $value = delete $hash{$key}; ããã·ã¥ã®ãªãã¡ã¬ã³ã¹ã«å¯¾ãã¦delete颿°ã使ç¨ããâ¦
Perl âº é¢æ° ⺠here exists颿°ã使ç¨ããã¨ããã·ã¥ã®ãã¼ã®åå¨ã確èªãããã¨ãã§ãã¾ãã # ããã·ã¥ã®ãã¼ã®åå¨ç¢ºèª my $is_exists = exists $hash{$key}; ageã¨ãããã¼ãåå¨ãããã確èªããã«ã¯ä»¥ä¸ã®ããã«ãã¾ãã # ageã¨ãããã¼ãåå¨ãããâ¦
Perl âº é¢æ° ⺠here each颿°ã使ç¨ããã¨ããã·ã¥ã¨ãã¼ã¨å¤ã®ãã¢ãåå¾ãããã¨ãã§ãã¾ããç¹°ãè¿ã使ç¨ãããã¨ã§ããã¹ã¦ã®ãã¼ã¨å¤ãåå¾ã§ãã¾ãã # ããã·ã¥ã®ãã¼ã¨å¤ã®ãã¢ã®åå¾ my ($key, $value) = each %hash; eachãé£ç¶ãã¦ä½¿ç¨ããã¨ãã¹â¦
Perl âº é¢æ° ⺠here keys颿°ã使ç¨ããã¨ãããã·ã¥ã®ãã¹ã¦ã®ãã¼ãåå¾ãããã¨ãã§ãã¾ããåå¾ãããã¼ã®é åºã¯ä¸å®ã§ãã # ãã¹ã¦ã®ãã¼ãåå¾ my @keys = keys %hash; ããã·ã¥ã®ãªãã¡ã¬ã³ã¹ã弿°ã¨ãã¦æ¸¡ãå ´åã¯ãããªãã¡ã¬ã³ã¹ããå¿ è¦ãããâ¦
Perl ⺠ã¢ã¸ã¥ã¼ã« ⺠here Data::Dumperã¢ã¸ã¥ã¼ã«ã使ãã¨ãããã·ã¥ãé åãªã©ã®å¤æ°ã®å 容ãè¦ãããå½¢ã§åºåãããã¨ãã§ãã¾ããã¾ããªãã¡ã¬ã³ã¹ã使ç¨ããè¤éãªãã¼ã¿æ§é ãè¦ãããåºåãããã¨ãã§ãã¾ãã use Data::Dumper; # ãã¼ã¿ããã³ã myâ¦