http://qs321.pair.com?node_id=110049


in reply to Paths in Perl

I have always found paths and chdir to be somewhat of a pain in Perl. So as he does not seem to be hangin around anymore here is a excellent snippet from Abigail that gives you scoped chdir.

package Chdir; sub TIESCALAR {my $class = shift; bless \$class => $class} sub STORE {${$_ [0]} = $_ [1]; chdir $_ [1]} sub FETCH {${$_ [0]}}

This allows you to have scoped chdir, ie if you do a local $dir= 'newdir' in a block, then the directory changes back to it's initial value at the end of the block:

package main; use vars qw /$dir/; tie $dir => 'Chdir'; $dir = '/tmp'; print "Dir = " . `pwd`; { local $dir = '/etc'; print "Dir = " . `pwd`; } print "Dir = " . `pwd`;

mirod for Abigail

Replies are listed 'Best First'.
Re: Re: Paths in Perl
by jmcnamara (Monsignor) on Sep 04, 2001 at 20:04 UTC

    Michael Schwern cpanned a similar module just today. Synchronicity?

    Update: I looked at the module code before I posted this node and it seemed to be using the same methodology as shown above. It appears that the module was developed from the same snippet that Abigail posted to P5P. Thanks to mirod for pointing this out and for posting the code. Further kudos for posting it anonymously.

    John.
    --