http://www.kingmx.com Copyright (C) 2006 ½ðÂóÍøÂç-Kingmx.com All Rights Reserved. http://www.kingmx.com/article.php?id=13164 2006-10-30 http://www.kingmx.com/article.php?id=13020 2006-10-25 http://www.kingmx.com/article.php?id=12978 2006-10-24 http://www.kingmx.com/article.php?id=12908 2006-10-21 http://www.kingmx.com/article.php?id=12909 2006-10-21 http://www.kingmx.com/article.php?id=12910 2006-10-21 http://www.kingmx.com/article.php?id=12911 2006-10-21 http://www.kingmx.com/article.php?id=12912 2006-10-21 http://www.kingmx.com/article.php?id=12913 2006-10-21 http://www.kingmx.com/article.php?id=12914 2006-10-21 http://www.kingmx.com/article.php?id=12297 2006-10-21 [qw(&func1&func2)]);subfunc1{returnreverse@_}subfunc2{returnmap{uc}@_}1">$VERSION@ISA@EXPORT@EXPORT_OKEXPORT_TAGS);$VERSION=1.00;@ISA=qw(Exporter);@EXPORT=();@EXPORT_OK=qw(func1func2);EXPORT_TAGS=(DEFAULT=>[qw(&func1)],Both=>[qw(&func1&func2)]);subfunc1{returnreverse@_}subfunc2{returnmap{uc}@_}1; Ê×ÏÈ£¬ÎÒÃǽ«Í¨¹ýÉùÃ÷"package"Ãû×ÖÀ´»ñµÃÒ»¸öÃû×ֿռ䡣Õ⽫ȷ±£Ä£¿éÖеķ½·¨Óë±äÁ¿£¬ºÍµ÷ÓÃËûÃǵĴúÂëËù·Ö¸ô¿ªÀ´¡£usestrictÔÚÄ£¿éÖÐÊÇÒ»¸ö·Ç³£ºÃµÄ×ö·¨£¬Õ⽫ʹPerl¶ÔʹÓÃÈ«¾Ö±äÁ¿×ö³öÒ»¶¨µÄÔ¼Êø¡£Ïêϸ½éÉܲο´"usestrictwarningsanddiagnosticsordie"¡£ ÎÒÃÇÐèÒªÓÃExporterÄ£¿éÀ´½«ÎÒÃǵĺ¯Êý´ÓMyModule::namespaceÊä³öµ½main::namespace£¬ÈÃʹÓÃMyModuleµÄ³ÌÐò¿ÉÒÔʹÓÃÕâЩº¯Êý¡£ÎªÁËusestrict£¬ÎÒÃDZØÐëʹÓÃusevarsÀ´ÉùÃ÷һЩ±äÁ¿¡£µ±È»£¬ÔÚ5.6°æ±¾ÒÔÉÏÎÒÃÇ»¹¿ÉÒÔʹÓÃourÀ´ÉùÃ÷±äÁ¿¡£ÎÒÃÇÏÖÔÚÉèÖÃÒ»¸ö$VERSIONÊýÖµ£¬È»ºóͨ¹ýʹÓÃ@ISAÀ´Ê¹µÃExporter³ÉΪMyModuleµÄÒ»²¿±¾¡£ÏëÒªÁ˽â@ISAÊÇʲôÒÔ¼°ÈçºÎʹÓõÈϸ½Ú£¬Çë²Î¿¼"Code::Police"£©£¬µ«ÆäÖÐ1ÊÇ×î·½±ãµÄ¡£ MySciprt.pl£¨Ê¹ÓÃMyModuleµÄÒ»¸öÀý×Ó£© #!/usr/bin/perl-wusestrict;#youmayneedtoset@INChere(seebelow)my@list=qw(Just~Another~Perl~Hacker!);#case1#useMyModule;#printfunc1(@list),"n";#printfunc2(@list),"n";#case2#useMyModuleqw(&func1);#printfunc1(@list),"n";#printMyModule::func2(@list),"n";#case3#useMyModuleqw(:DEFAULT);#printfunc1(@list),"n";#printfunc2(@list),"n";#case4#useMyModuleqw(:Both);#printfunc1(@list),"n";#printfunc2(@list),"n"; ÕýÈçÉÏÃæËù¼û£¬ÎÒÃÇÔÚMyScript.plÖÐʹÓÃÁËMyModule¡£°ÑÖмäµÄ×¢ÊÍ·ûºÅ¶¼È¥µôÀ´¿´¿´»á·¢Éúʲô¡£Ò»´Î¶¼È¥µô¼´¿É¡£Case1:ÒòΪÎÒÃǵÄÄ£¿éĬÈÏʲô¶¼Ã»ÓÐÊä³ö£¨Ã»ÓÐÊä³ö&func1ºÍ&func2£©£¬ËùÒÔÎÒÃÇ»áµÃµ½Ò»¸öËûÃÇÔÚmain::namespaceÖв»´æÔڵĴíÎó¡£Case2:Õâ¸öÔËÐÐÕý³£¡£ÎÒÃÇÈÃÄ£¿éÊä³öÁË&func1,ÓÚÊÇÎÒÃÇ¿ÉÒÔÕý³£Ê¹ÓÃËü¡£¾¡¹ÜÎÒÃÇûÓÐÊä³ö&func2£¬µ«ÊÇÎÒÃÇʹÓõÄÊÇ&func2ÍêÕûµÄ°ü·¾¶£¬ËùÒÔËüÒ²¿ÉÒÔÕý³£¹¤×÷¡£Case3:¡®:DEFAULT¡¯±êÇ©Ó¦¸ÃÊä³ö&func1£¬ËùÒÔÄãÓ¦¸ÃÏ£Íû·µ»ØÒ»¸öȱÉÙ&func2º¯ÊýµÄ´íÎó¡£µ«ÊÂʵÉÏperlÈ´Æ«Æ«ÕÒÉÏÁË&func1µÄÂé·³£¨´íÎóÐÅÏ¢Ìáʾ䶨Òå&func1º¯Êý£©¡£¶÷,ÕâÀïÔõôÁËÄØ£¿Ô­À´£¬DEFAULTÕâ¸ö±êÇ©Ãû×ÖÊÇÌØÊâµÄ£¬ÔÚÎÒÃǵÄÄ£¿éÖУ¬EXPORT_TAGS¹þÏ£±íËü»á±»×Ô¶¯ÉèÖóÉÕâÑùDEFAULT=>@EXPROT.Ò²¾ÍÊÇ˵£¬DEFAULTĬÈϵ¼³öµÄÊÇÀ´×Ô@EXPROTÊý×éµÄº¯Êý¡£Case4:ÎÒÃÇÖ¸¶¨Í¨¹ý¡®:Both¡¯±êǩʵÏÖÁ½¸öº¯Êý¶¼Êä³ö£¬ËûʵÏÖÁË¡£*¹ØÓÚ@INCµÄ×¢ÒâÊÂÏî*µ±ÄãÌá½»Ò»¸öuseMyModuleµÄʱºò£¬¾Í»áָʾperlÈ¥ËÑË÷@INCÊý×éÖÐÊÇ·ñÓдËÄ£¿éÃû¡£@INCͨ³£°üº¬£º /perl/lib/perl/site/lib. ¡°.¡±Õâ¸öĿ¼±íʾµ±Ç°µÄ¹¤×÷Ŀ¼¡£ºËÐÄÄ£¿éÊÇ°²×°ÔÚperl/libĿ¼ÖУ¬·ÇºËÐÄÄ£¿é°²×°ÔÚperl/site/libĿ¼ÖС£Äã¿ÉÒÔÏò@INCÖÐÌí¼Ó×Ô¶¨ÒåĿ¼¡£ÏñÏÂÃæÕâÑù£º BEGIN{push@INC,'/my/dir'}#orBEGIN{unshift@INC,'/my/dir'}#oruselib'/my/dir'; ÎÒÃÇÐèҪʹÓÃBEGIN¿éÔÚ±àÒëʱÏò@INCÖÐÌí¼ÓÖµ£¬´ËʱÊÇperl¼ì²éÄ£¿éµÄʱ¿Ì¡£ Èç¹ûÄãµÈµ½³ÌÐò±»±àÒëµÄʱºò¾ÍÌ«ÍíÁË£¬perl»áÅ׳öÒ»¸öÒì³££¬Ëµ¡°ÔÚ@INCÖÐÎÞ·¨ÕÒµ½MyModule¡±.ʹÓÃpush»¹ÊÇunshift·½·¨Ìí¼ÓÖµµÄÇø±ðÊÇ£¬perlËÑË÷@INCµÄ˳ÐòÊÇ´Ó@INCÖеĵÚÒ»¸öĿ¼¿ªÊ¼µÄ¡£Èç¹ûÄãÔÚ/perl/lib/¡¢/perl/site/lib/ºÍ./Öж¼ÓÐÒ»¸öMyModuleÄ£¿éµÄ»°£¬ÄÇô/perl/libÖеÄÄ£¿é½«Ê×Ïȱ»ÕÒµ½²¢Ê¹Óá£uselibÓ÷¨¿ÉÒÔÆ𵽺ÍBEGIN{unshift@INC,$dir}Ò»ÑùµÄЧ¹û£­Çë²Î¿´"perlman:lib:lib":http://www.perlmonks.org/?node=perlman:lib:lib.*useFoo::BarÒâζ×Åʲô*useFoo::Bar²¢²»Òâζ×ÅÔÚ@INCµÄĿ¼ÖÐÑ°ÕÒÒ»¸ö½Ð×öFoo::Bar.pmµÄÄ£¿éÎļþ¡£ËüµÄÒâ˼ÊÇÔÚ@INCµÄĿ¼ÖÐÑ°ÕÒÒ»¸ö½Ð×ö¡®Foo¡¯µÄ¡°×ÓĿ¼¡±£¬È»ºóÔÚÆäÖÐÕÒÒ»¸ö½Ð×ö¡°Bar.pm¡±µÄ¡°Ä£¿é¡±¡£ÏÖÔÚ£¬Èç¹ûÎÒÃdzɹ¦"use"ÁËÒ»¸öÄ£¿é£¬ÄÇôÎÒÃǾͿÉÒÔͨ¹ýÍêÕûµÄ°ü·¾¶Óï·¨&PACKAGE::FUNCTIONʹÓÃÕâ¸öÄ£¿éÖеÄËùÓк¯Êý¡£µ±ÎÒÃÇ˵&Foo::Bar::some_funcµÄʱºò£¬ÎÒÃÇÖ¸µÄÊÇ¡°°üµÄÃû×Ö¡±¶ø²»ÊÇÄǸöÔÚuseÖÐÔøʹÓõİüº¬Â·¾¶µÄÎļþÃû¡£Õâ»áÔÊÐíÄã¿ÉÒÔÔÚÒ»¸öuse¹ýµÄÎļþÖаüº¬ºÜ¶à°üÃû×Ö¡£Êµ¼ÊʹÓÃÖÐÕâЩÃû×Öͨ³£ÊÇÏàͬµÄ¡£ usewarnings; ÄãÓ¦¸Ã´ò¿ªwarningsÀ´¼ì²âÄãµÄÄ£¿é£¬ÒòΪËü¿ÉÒÔ¼ì²â³öºÜ¶àϸ΢µÄ´íÎó¡£Äã¿ÉÒÔͨ¹ýÔÚ²âÊÔÄ£¿é´úÂëÖÐÌí¼Ó-w²ÎÊýÀ´´ò¿ª¾¯¸æÑ¡Ïî¡£Èç¹ûÄãÔÚÄ£¿éÖÐÌí¼ÓÁËusewarnings£¬ÄÇôÄãµÄÄ£¿é±ØÐëÒªÇóÔËÐÐÔÚperl5.6ÒÔÉÏ£¬·ñÔò²»Ö§³Ö¡£Èç¹ûÄãÔÚÄ£¿éµÄ¶¥¶ËÌí¼ÓÁË$^W £¬ÄÇôÄ㽫»áÔÚÈ«¾Ö·¶Î§ÄÚ´ò¿ª¾¯¸æÑ¡ÏÕ⽫ӰÏìµ½ÆäËûÄ£¿é£¬Äã×îºÃÖ»ÔÚÄã×Ô¼ºµÄ³ÌÐòÖÐÕâôʹÓã¬ÒòΪÕâÂÔÏÔ°ÔµÀÁËһЩ¡£ÕâÓÐÒ»¸öר¼ÒдµÄ½Ð×ö"tye":http://www.perlmonks.org/?node=tyeµÄ´úÂëÀ´²âÊÔ¾¯¸æÑ¡Ïµ«Ã»ÓÐÖ±½Ó½«Ëü°üº¬½øËû/Ëý×Ô¼ºµÄÄ£¿éÖС£Ï£ÍûÕâЩ»á½²Çå³þËüÊÇÔõÑù¹¤×÷µÄ¡£:)tachyon ]]> http://www.kingmx.com/article.php?id=12298 2006-10-21 http://www.kingmx.com/article.php?id=12299 2006-10-21 http://www.kingmx.com/article.php?id=12300 2006-10-21 http://www.kingmx.com/article.php?id=12301 2006-10-21 http://www.kingmx.com/article.php?id=12302 2006-10-21 http://www.kingmx.com/article.php?id=12303 2006-10-21 http://www.kingmx.com/article.php?id=12304 2006-10-21 http://www.kingmx.com/article.php?id=12305 2006-10-21 http://www.kingmx.com/article.php?id=12306 2006-10-21