On Fri, Sep 26, 2008 at 12:17 AM, Yue Chen <[EMAIL PROTECTED]> wrote:
> Hi
>
> I want to use rmtree to delete a dir and use variables to catch the
> error message. However, when i am about to delete a dir that does not
> belong to me, it still print the error message to stderr. Does anyone
> have clue?
>
> my script: test.pl
>
> use File::Path;
> File::Path::rmtree( '/root', {error => \$err, safe => 1, result =>
> \$list, keep_root => 1} );
> for my $diag (@$err) {
> my ($file, $message) = each %$diag;
> print "problem unlinking $file: $message\n";
> }
> print "unlinked $_\n" for @$list;
>
> $ test.pl
> Can't make directory /root read+writeable: Operation not permitted at
> a.pl line 2
> Can't read /root: Permission denied at a.pl line 2
> rmdir /root
> Can't remove directory /root: Permission denied at a.pl line 2
> and can't restore permissions to 0750
> at a.pl line 2
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
from File::Path documentation:
rmtree(
'foo/bar/baz', '/zug/zwang',
{ verbose => 1, error => \my $err_list }
);
error
If present, will be interpreted as a reference to a list, and
will
be used to store any errors that are encountered. See the ERROR
HANDLING section for more information.
If this parameter is not used, certain error conditions may raise
a
fatal error that will cause the program will halt, unless trapped
in an "eval" block.
ERROR HANDLING
If "mkpath" or "rmtree" encounter an error, a diagnostic message will
be printed to "STDERR" via "carp" (for non-fatal errors), or via
"croak" (for fatal errors).
If this behaviour is not desirable, the "error" attribute may be used
to hold a reference to a variable, which will be used to store the
diagnostics. The result is a reference to a list of hash references.
For each hash reference, the key is the name of the file, and the
value
is the error message (usually the contents of $!). An example usage
looks like:
rmpath( 'foo/bar', 'bar/rat', {error => \my $err} );
for my $diag (@$err) {
my ($file, $message) = each %$diag;
print "problem unlinking $file: $message\n";
}
