¹ýȥʮÄêÀ´£¬PerlÒ»Ö±ÊÇ×î³£ÓõĽű¾ÓïÑÔ£¬ÕâΪËüÓ®µÃÁË¡°»ù±¾ÍøÂçÓïÑÔ¡±µÄÃûÉù¡£Èç¹ûÄú»¹Î´Óлú»áÁ˽âÓëPerlÓйصÄÒ»ÇУ¬ÕâÆªÖ¸µ¼ÐÔµÄÎÄÕ¾ÍÊÇÒ»¸ö¿ªÊ¼¡£PerlÊÇÒ»Öָ߼¶±àÒë³ÌÐòÓïÑÔ£¬Ëü½¨Á¢ÔÚCÓïÑÔ¡¢shell½Å±¾ÓïÑÔºÍawkÓësedÕâÀ๤¾ßÖ®ÉÏ¡£ËüÒÔÄÇЩ½Å±¾ÓïÑÔµÄÌæ´ú²úÆ·¶øÉè¼Æ£¬²¢³£Ìæ´úËüÃǶøÊ¹Óá£Ðí¶àÉçÇøÓ¦ÓÃPerl±àдģ¿é£¬Õâ½øÒ»²½À©´óÁËPerlµÄÓ¦Ó÷¶Î§£¬Ê¹Æä³ÉΪ¼¸ºõËùÓÐÁìÓò¹¤¾ß¿ª·¢µÄÊ×Ñ¡ÓïÑÔ¡£
ΪºÎʹÓÃPerl
- ËüÊÇÃâ·Ñ²úÆ·£ºPerlÓµÓпªÔ´Ðí¿É£¬ÊÔÓÃËüÍêÈ«Ãâ·Ñ¡£Èç¹ûÄú¾ö¶¨¼ÌÐøÊ¹ÓÃËü£¬Äú»òÄúÃǹ«Ë¾Ò²²»Óû¨Ò»·ÖÇ®¡£
- ËüËٶȺܿ죺ËäÈ»Perl±ÈCÓïÑÔÕâÑùµÄ»ã±àÓïÑÔÒªÂý£¬µ«ÔËÐдó¶àÊý³ÌÐòʱ£¬Ëü±ÈPython»òRubyÕâЩÀàËÆµÄ±àÒëÓïÑÔÒª¿ì£¬²¢±È¶ÔÓ¦µÄshell»òawk½Å±¾¿ìµÃ¶à¡£
- ÓëshellºÍUNIX×ÔÈ»½»»¥£ºPerlרΪ²Ù×÷ϵͳӦÓöøÉè¼Æ£¬ÔÚUnixÖÐÓ¦ÓÃËü´ò¿ªÎļþ¾ä±ú¡¢É豸¡¢ÖØÐ¶¨Î»µ½Í¨µÀ»òÌ×½Ó×Ö¶¼Ê®·Ö·½±ã¡£ÔÚWindowsÖеÄÓ¦ÓÃÉÔ΢Â鷳һЩ¡£
- ÕýÔò±í´ïʽ£ºÔÚ´¦ÀíÎı¾Ê±£¬ÕýÔò±í´ïʽÊdzÌÐòÔ±×îÖØÒªµÄ¹¤¾ß¡£ÔÚPerlÖУ¬ÕýÔò±í´ïʽ³ýÁËÊÇÒ»¸ö¿âµÄÒ»²¿·ÖÍ⣬»¹ÊÇÕâÃÅÓïÑԵĻù´¡¡£ÔÚÕýÔò±í´ïʽӦÓõijÉÊìÐÔÓë¼ò½àÐÔ·½Ã棬ûÓÐÓïÑÔÄܹ»ÓëPerlÏàæÇÃÀ¡£
- CPAN¡ª¡ªPerl×ÛºÏ´æµµÍøÂ磺CPAN´æ´¢Á˽«½ü2000¸öPerlÄ£¿é¡¢½Å±¾¡¢ÎļþºÍÀ©Õ¹¡£ËüÊǼ¸ºõ¸÷ÖÖPerlÄ£¿éµÄÖÐÑë´æ´¢¿â¡£ÔÚPerlÖÐÐèÒªÈκÎÄ£¿é£¬¶¼¿ÉÒÔÔÚÕâÀïÕÒµ½¡£
°²×°
Èç¹ûÄúÓ¦ÓõÄÊÇUNIX»·¾³£¬´Ó½Å±¾µÄ½Ç¶È¿´£¬Perl¼¸ºõÎÞ´¦²»ÔÚ£¬¿ÉÄÜÄúµÄ²Ù×÷ϵͳÔÚij¸öµØ·½ÒÑÓ¦ÓÃÁËËü¡£¶àÊýLinux²úÆ·¡¢MacOSX 10.3»ò¸ü¸ß°æ±¾Öж¼×Ô´øÁËPerl¡£Èç¹ûÄúÔËÐеÄÊÇWindows²Ù×÷ϵͳ£¬»òÓÉÓÚijÖÖÔÒòûÓÐPerl£¬»òÏ£ÍûÉý¼¶µ½×îа汾£¬¶¼¿ÉÒÔÔÚPerlµÄ¹Ù·½ÍøÕ¾ÏÂÔØ×îÐÂÔ´´úÂ루CÓïÑÔ£©¡£
PerlÍøÕ¾½öÒÔÔ´¸ñʽ·¢²¼Perl½âÊͳÌÐò£¬µ«Èç¹ûÄúûÓÐCÓïÑÔ±àÒëÆ÷£¬»òÕßÄú²»Ï£Íû½øÐбàÒ룬Äú¿ÉÒÔÏÂÔØ¶þ½øÖÆPerl²úÆ·%26quot; ActivePerl¡£°²×°¹ý³ÌÏ൱¼òµ¥£¬ÄúÖ»ÐèÏÂÔØ°²×°Æ÷£¨WindowsºÍOSX»ùÓÚͼÐΣ¬UNIX»ùÓÚÎı¾£©£¬²¢°´ÕÕÌáʾִÐм´¿É¡£°²×°Íê³Éºó£¬ÔËÐÐÒ»¶Î¼òµ¥µÄÃüÁî½øÐвâÊÔ£º
perl -le %26quot;print 'Hello World';%26quot;
Èç¹ûËü·µ»Ø¡°Hello World¡±£¬Ôò˵Ã÷°²×°³É¹¦¡£·ñÔò£¬Çë¼ì²é°²×°ÊÇ·ñ³É¹¦Íê³É£¬Â·¾¶ÖÐÊÇ·ñ´æÔÚPerlĿ¼¡£
Perl»ù´¡
ÏÖÔÚÒ»ÇÐÒѾ׼±¸Í×µ±£¬¸ÃÊÇʱºò˵Ã÷һЩ¼òµ¥µÄPerl³ÌÐòÁË¡£Ê×ÏÈÎÒÃÇ˵Ã÷Ò»¸ö¸ß´ÎÃݵÄÀý×Ó£¬Õâ¸ö³ÌÐò´òÓ¡x^y£º
$x = 7;
$y = 12;
$result = 1;
while ($y %26gt; 0) {
$result = $result * $x;
$y--;
}
print $result;
print %26quot;n%26quot;;
ÔËÐгÌÐò£¬ÎÒÃǵõ½ÏÂÁнá¹û£º
% perl pow.pl
13841287201
Õâ¸ö³ÌÐòÁ¬ÐøÊ¹ÓÃÒ»¸öwhileÑ»·½«½á¹ûÓëxÏà³Ë£¬Ã¿Ñ»·Ò»´Î£¬y¼õÉÙ1£¬ÕâÑù³ÌÐòÖ»»áÔËÐÐy´Î¡£ÔÚPerl ÖУ¬±êÌâ±äÁ¿£¬ÈçÊý×Ö»ò×Ö·û£¬±»ËüÃÇÇ°ÃæµÄÃÀÔª·ûºÅ£¨$£©µÈͬ»¯£¬½«ËüÃÇÓëÆäËüÀàÐÍÇø±ð¿ªÀ´¡£²»¹ý£¬Õâ¸ö³ÌÐò²¢·ÇÍêÈ«ÕýÈ·£¬Èç¹ûÎÒÃÇÏë¼ÆË㸺´ÎÃÝ£¬Èç7^-1£¬»á³öÏÖʲôÇé¿öÄØ£¿Èç¹ûÎÒÃǰÑy±äΪ-1£¬ÔÙÔËÐгÌÐò£¬Ñ»·½«²»»áÔËÐУ¬²¢´òÓ¡½á¹ûΪ1¡£Õâ¸ö½á¹û²¢²»ÕýÈ·£¬ËùÒÔÐèÒª½øÐÐһЩ¸Ä±ä£º
$x = 7;
$y = -1;
$result = 1;
if ($y %26gt; 0) {
while ($y %26gt; 0) {
$result = $result * $x;
$y--;
}
} else {
while ($y %26lt; 0) {
$result = $result / $x;
$y++;
}
}
print $result;
print %26quot;n%26quot;;
ÎÒÃÇ¿ÉÒÔÓÃÒ»¸öifÓï¾ä¶Ô³ÌÐò½øÐÐϸ·Ö£¬Èç¹ûyΪÕý£¬¾ÍÔËÐеÚÒ»¸öÑ»·£»Èç¹ûyΪ¸º£¬¾ÍÔËÐеڶþ¸öÑ»·£¬Ëü½øÐеݼõ²¢ÏòÉϼÆÊý£»Èç¹ûyΪÁ㣬Ôò½á¹ûºãΪ1¡£ÔËÐÐÕâ¸ö³ÌÐò£¬µÃµ½ÈçϽá¹û£º
% perl pow.pl
0.142857142857143
µ±È»£¬Perl²»»áÈÃÄúÖØÐ´ÕâÑùÒ»¸ö³£Óõĺ¯Êý£¬Ëü²åÈë¡°**¡±ÔËËã·û¡£ÀýÈ磬ÉÏÃæµÄÀý×Ó¿ÉÒÔ¼òµ¥Ð´³É£º
$x = 7;
$y = -1;
print $x ** $y;
print %26quot;n%26quot;;
×ܽá
ÏÖÔÚÄúÒѶÔPerlÓÐÁËÒ»¶¨Á˽⣬ÄúÏÂÔØ²¢°²×°ÁËPerl£¬²¢³¢ÊÔÁËPerl±à³Ì¡£²»¹ý£¬Ó¦ÓÃÇ¿´óµÄÕýÔò±í´ïʽ´¦ÀíÃüÁîÐÐÊäÈë»òÎı¾²ÅÊÇPerlµÄÖ÷ÒªÓÃ;¡£
没有评论:
发表评论