Date: Saturday July 04, 2020 @ 04:58 Author: peanutsjamjam Update of /cvsroot/perldocjp/docs/perl/5.18.1 In directory sf-cvs:/tmp/cvs-serv57847/5.18.1 Modified Files: perlretut.pod Log Message: fix some formatting codes. =================================================================== File: perlretut.pod Status: Up-to-date Working revision: 1.5 Fri Jul 3 19:58:45 2020 Repository revision: 1.5 /cvsroot/perldocjp/docs/perl/5.18.1/perlretut.pod,v Sticky Options: -ko Existing Tags: No Tags Exist -------------- next part -------------- Index: docs/perl/5.18.1/perlretut.pod diff -u docs/perl/5.18.1/perlretut.pod:1.4 docs/perl/5.18.1/perlretut.pod:1.5 --- docs/perl/5.18.1/perlretut.pod:1.4 Sat Mar 28 04:26:25 2020 +++ docs/perl/5.18.1/perlretut.pod Sat Jul 4 04:58:47 2020 @@ -552,7 +552,7 @@ S<C<$regexp = shift;>> ¤ÏºÇ½é¤Î¥³¥Þ¥ó¥É¥é¥¤¥ó°ú¿ô¤òÀµµ¬É½¸½¤È¤·¤Æ»È¤¦¤¿¤á¤Ë Êݸ¤·¤Þ¤¹; ¤½¤·¤Æ»Ä¤ê¤Î¥³¥Þ¥ó¥É¥é¥¤¥ó°ú¿ô¤Ï¥Õ¥¡¥¤¥ë¤È¤·¤Æ°·¤¦¤¿¤á¤Ë ¤½¤Î¤Þ¤Þ¤Ë¤·¤Æ¤ª¤¤Þ¤¹¡£ -S<C< while (<>) >> ¥ë¡¼¥×¤Ï¤¹¤Ù¤Æ¤Î¥Õ¥¡¥¤¥ë¤Î¤¹¤Ù¤Æ¤Î¹Ô¤ËÂФ·¤Æ +S<C<< while (<>) >>> ¥ë¡¼¥×¤Ï¤¹¤Ù¤Æ¤Î¥Õ¥¡¥¤¥ë¤Î¤¹¤Ù¤Æ¤Î¹Ô¤ËÂФ·¤Æ ¼Â¹Ô¤µ¤ì¤Þ¤¹¡£ ³Æ¹Ô¤Ë¤ª¤¤¤Æ¡¢S<C<print if /$regexp/;>> ¤Ï¤½¤Î¹Ô¤¬Àµµ¬É½¸½¤Ë ¥Þ¥Ã¥Á¥ó¥°¤·¤Æ¤¤¤ì¤Ð¹Ô¤ÎÆâÍƤò½ÐÎϤ·¤Þ¤¹¡£
