自作pmã‚’use libã™ã‚‹ - åŠå¾„5メートル下ã«libã¨ã‹ã¤ãã£ã¦ãã“ã«ãŠã„ãŸè‡ªä½œpmã‚’useã™ã‚‹ã¨ãã€ç›¸å¯¾ãƒ‘スã§å‘¼ã³å‡ºã—ã¦ã—ã¾ã†ã¨å®Ÿè¡Œãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªãŒé•ã†å ´åˆï¼ˆcronã§ã¾ã‚ã—ãŸã‚Šã¨ã‹ï¼‰ã«éƒ½åˆãŒæ‚ªã‹ã£ãŸã‚Šã—ã¾ã™ã€‚ ãã“ã§ã€ä»¥ä¸‹ã®ã‚ˆã†ã«BEGINブãƒãƒƒã‚¯å†…ã§ã‚¹ã‚¯ãƒªãƒ—ト自身ã®ãƒ‘スをã¨ã£ã¦ãã¦ã‹ã‚‰use libã¨ã‹ã—ã¦ã‚‹ã‚“ã§ã™ãŒã€ã“ã®ã‚„ã‚Šæ–¹ãŠã‹ã—ã‹ã£ãŸã‚Šã—ãªã„ã‚“ã ã‚ã†ã‹ã€‚ã‚‚ã—ã€ã‚‚ã£ã¨ã“ã†ã—ãŸæ–¹ãŒã„ã„ã¨ã‹ã‚ã‚Œã°ãœã²ãŠæ•™ãˆä¸‹ã•ã„。 ├ main.pl ├ lib â”” Hoge â”” Foo.pm#!/usr/bin/perl use strict; use warnings; use File::Basename; my $w_dir; BEGIN { $w_dir = dirname $ENV{_} } use lib "$w_dir/lib"; use Hoge::Foo; my $foo = Hoge::Foo->new("tester0
{{#tags}}- {{label}}
{{/tags}}