Thank you all for your reply.
I greatly appreciate your help.
Loan
--- Steve Grazzini <[EMAIL PROTECTED]> wrote:
> Loan Tran <[EMAIL PROTECTED]> wrote:
> > mkdir ("/storage/systbl/") || die "$!\n";
> >
> > The code above does not check if the dir exist.
> > Can you modify it please. Thanks.
>
> You can check whether a directory exists with the -e
> and -d file test operators.
>
> $ perldoc -f -X
>
> But as soon as you write code like:
>
> unless (-e $dirname) {
> mkdir $dirname or die "mkdir: $dirname: $!";
> }
>
> You've got a race condition.
>
> Since mkdir() fails if the directory exists, it's
> usually better to just call it and check *why* the
> call failed (if it failed) afterward.
>
> use Errno;
>
> unless (mkdir $dirname) {
> die "mkdir: $dirname: $!"
> unless $!{EEXIST} and -d $dirname;
> }
>
> Season to taste.
>
> --
> Steve
>
> perldoc -qa.j | perl -lpe '($_)=m("(.*)")'
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
>
__________________________________________________
Do you Yahoo!?
New DSL Internet Access from SBC & Yahoo!
http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
