ãå®ç¨Perlããã°ã©ãã³ã°ãã®ä¸ã«ãã£ãCORE::ãCORE::GLOBALããã¾ãåããªãã£ãã®ã§ã¡ã¢ã ãªãã ãããããã CORE:: CORE::ã¯å¸¸ã«çµã¿è¾¼ã¿é¢æ°ãåç §ãã¾ãã CORE::ã§print()ãµãã«ã¼ãã³ãæ¸ãç´ãã package MyPrint; use strict; use base qw(Exporter); our @EXPORT = qw(print); sub print { CORE::print('MyPrint : ', @_); } 1; __END__ #!/usr/bin/perl use MyPrint; print 'ID -> rightgo09', qq{\n}; #=> ID -> rightgo09 ãã£ãã¼ãã©ããã¦åã«'MyPrint :'ãã¤ããªããã ããã use ã ããã³ã³ãã¤ã«æã«MyPrintå ã¯éã£ã¦ãã¯ã
{{#tags}}- {{label}}
{{/tags}}