ºÇ½ª¹¹¿·¡§ masasyou1990 2012ǯ09·î12Æü(¿å) 16:02:15ÍúÎò
Perl¤ÎTips¡ÚÌܼ¡¡Û
¥È¥Ã¥×¥Ú¡¼¥¸ -> Perl -> ¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à
¥È¥Ã¥×¥Ú¡¼¥¸ -> Perl -> ¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à
£²¤Ä¤Î¥Õ¥¡¥¤¥ë¤òÈæ³Ó¤·¡¢¥Õ¥¡¥¤¥ëÆâÍƤ¬Æ±°ì¤Ç¤¢¤ë¤«¤Î·ë²Ì¤ò½ÐÎϤ¹¤ë¥×¥í¥°¥é¥à¡£
¥µ¥ó¥×¥ë
»ÈÍÑÎã(¤É¤Á¤é¤âƱ¤¸¤³¤È¤ò¤·¤Æ¤¤¤ë)
¥È¥Ã¥×¥Ú¡¼¥¸ -> Perl -> ¤½¤Î¾
livedoor Wiki´ØÏ¢¥ê¥ó¥¯
¥µ¥ó¥×¥ë
#!/usr/bin/perl # compare.pl use File::Compare; # compare´Ø¿ô¤Ï¥Õ¥¡¥¤¥ëÆâÍƤ¬Æ±°ì¤À¤Ã¤¿¾ì¹ç0¤ò¡¢Æ±°ì¤Ç¤Ê¤¤¾ì¹ç1¤ò¡¢¥¨¥é¡¼¤Î¾ì¹ç¤Ï-1¤òÊÖ¤·¤Þ¤¹¡£ ########################################################### # ¥Õ¥¡¥¤¥ë¤ÎÈæ³Ó¤Î¥µ¥ó¥×¥ë # °ú¿ô¤Ï0¸Ä¡¥¤Þ¤¿¤Ï£²¸Ä # # 1)°ú¿ô¤ò¤È¤é¤Ê¤¤¤È¤ #¡¡ °Ê²¼¤Ç£²¤Ä¤Î¥Õ¥¡¥¤¥ë̾¤ò»ØÄê $file1 = "a.txt"; $file2 = "b.txt"; # 2)°ú¿ô¤ò£²¸Ä¤È¤ë¤È¤ => ¥³¥Þ¥ó¥É¤Ç»ØÄê # ¡¡°ú¿ô1¡§Èæ³Ó¤·¤¿¤¤¥Õ¥¡¥¤¥ë1 # ¡¡°ú¿ô2¡§Èæ³Ó¤·¤¿¤¤¥Õ¥¡¥¤¥ë2 ########################################################### #°ú¿ô¤¬2¸Ä¤Î¤È¤,°ú¿ô¤Ç»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë̾¤òÂåÆþ if(@ARGV == 2){ $file1 = $ARGV[0]; $file2 = $ARGV[1]; } $test = compare($file1,$file2); print "file1:$file1\n"; print "file2:$file2\n"; print "compare(file1,file2):"; if($test == 0){ print "¥Õ¥¡¥¤¥ëÆâÍƤÏƱ°ì¤Ç¤¹¡¥\n"; } if($test == 1){ print "¥Õ¥¡¥¤¥ëÆâÍƤ¬°Û¤Ê¤ê¤Þ¤¹¡¥\n"; } if($test == -1){ print "²¿¤é¤«¤Î¥¨¥é¡¼¤Ç¤¹¡¥(¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Ê¤¤Åù)\n"; }
»ÈÍÑÎã(¤É¤Á¤é¤âƱ¤¸¤³¤È¤ò¤·¤Æ¤¤¤ë)
$compare.pl
¥Õ¥¡¥¤¥ëÆâÍƤ¬°Û¤Ê¤ê¤Þ¤¹¡¥
$compare.pl a.txt b.txt
¥Õ¥¡¥¤¥ëÆâÍƤ¬°Û¤Ê¤ê¤Þ¤¹¡¥
¥È¥Ã¥×¥Ú¡¼¥¸ -> Perl -> ¤½¤Î¾
livedoor Wiki´ØÏ¢¥ê¥ó¥¯
¤³¤Î¥Ú¡¼¥¸¤Ø¤Î¥³¥á¥ó¥È
cJ2hRm <a href="http://ajyjflxvaqhz.com/">ajyjflxvaqhz</a>, [url=http://cvafzeejutot.com/]cvafzeejutot[/url], [link=http://pogtnechlgop.com/]pogtnechlgop[/link], http://ybntkaogdctq.com/
11TnB0 <a href="http://hcsqovuipayo.com/">hcsqovuipayo</a>, [url=http://ambjqhdcqwxy.com/]ambjqhdcqwxy[/url], [link=http://udwkwoevyikr.com/]udwkwoevyikr[/link], http://odwpnaasetdc.com/