Cwd::Guardã£ã¦ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’出ã—ã¦ã„ãŸè©± - blog.nomadscafe.jpOrePANを弄ã£ã¦ã„ã‚‹ã¨ãã«ã€ä»»æ„ã®ã‚¹ã‚³ãƒ¼ãƒ—ã§ä¸€æ™‚çš„ã«chdirã—ã¦ä½œæ¥å¾Œã€ã‚¹ã‚³ãƒ¼ãƒ—外れれã°è‡ªå‹•ã§å…ƒã®ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã«æˆ»ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚ã‚Œã°æ¬²ã—ã„ãªã¨æ€ã£ãŸã®ã§æ›¸ã„ã¦ã¿ãŸã€‚ use Cwd::Guard; use File::Temp; use Path::Class; my $tmpdir = Path::Class::dir(File::Temp::tempdir()); my $pkgdir; { my $guard = cwd_guard($tmpdir); # chdir to $tmpdir my($root, @others) = `tar ztf $tarfile` or die "Bad archive $tarfile"; chomp $root; $root =~ s{^(.+?)/.*$}{$1}; system "tar", "zxf", "$tarfile"; d
cpan をベãƒãƒƒã¨æ¤œç´¢ã™ã‚‹ã‚„㤠- tokuhirom's blog
{{#tags}}- {{label}}
{{/tags}}