#!/usr/bin/perl
use strict;
use warnings;
my $dir = $ARGV[0];
die "This ($dir) is not a directory" if (-d $dir);
Result
$ perl tmp.pl Music/
This (Music/) is not a directory at tmp.pl line 7.
Perl - [ Exists Dir ]
#!/usr/bin/perl
use strict;
use warnings;
my $dir = $ARGV[0];
die "This ($dir) is not a directory" if (-d $dir);
$ perl tmp.pl Music/
This (Music/) is not a directory at tmp.pl line 7.
0 comentários:
Post a Comment