PerlスクリプトIF文を実行している小さな問題があります。

Question

私はPerlで小さなスクリプトを作成しました。これは本当に新しいものです。私は、与えられた引数を見て、与えられた引数にディレクトリツリーを作成するスクリプトを用意しなければなりません。スクリプトのこの部分は機能します。 2番目の部分（ネストされたif文）は、引数を与えないと表示されず、選択したディレクトリを入力するように求められます。私は入れ子のif文が$ファイル入力のためにうんざりしていると信じていますが、私は何が間違っているのか完全にはわかりません。これはおそらく単純なものですが、解決策を見つけることができませんでした。ヘルプとヒントをお寄せいただきありがとうございます。 STDINを介して入力されているものも改行を持っているので、

#! /usr/bin/perl 

if ($#ARGV == -1) 
{ 
    print "Please enter default directory:"; 
    my $file=<STDIN>; 

    if (-d $file) 
    { 
     chdir $file; 
     system("mkdir Data"); 
     system("mkdir Data/Image"); 
     system("mkdir Data/Cache"); 
     print "Structure Created"; 
    } 
    else 
    { 
     print "Directory does not exsist"; 
    } 
} 
else 
{ 
    chdir $ARGV[0]; 
    system("mkdir Data"); 
    system("mkdir Data/Image"); 
    system("mkdir Data/Cache"); 
    print ("Structure Created"); 
} 
print ("\n"); 

Answer 1

テスト-d $fileは、ディレクトリ名を指定する文字列の後に、失敗しています。必要がありますchomp($file);

---

ただし、いくつかの点をご紹介します。

最も重要なことは、両方のブランチに繰り返しコードがあることです。あなたは本当にそれをしたくありません。それは後でトラブルを引き起こす可能性があります。代わりに、ディレクトリ名を決定し、それを作成します。

第2に、ディレクトリを作成するためにシステムに出る理由はありません。 Perlでそれを行うほうがはるかに優れており、これには良いモジュールがあります。

use strict; 
use warnings; 
use File::Path qw(make_path); 

my $dir;  
if (not @ARGV) { 
    print "Please enter default directory: "; 
    $dir = <STDIN>; 
    chomp $dir; 
} 
else { 
    $dir = $ARGV[0]; 
} 
die "No directory $dir" if not -d $dir; 

my $orig_cwd = chdir $dir or die "Can't chdir to $dir: $!"; 

my @dirs = map { "Data/$_" } qw(Image Cache); 

my @dirs_made = make_path(@dirs, { verbose => 1 }); 

print "Created directories:\n"; 
print "$_\n" for @dirs_made; 

私はData/...でmapので、繰り返しを避けるために、文字列を使用してディレクトリのリストを作成し、後で柔軟性のために。もちろん名前を入力することはできますが、それは愚かな間違いを招く傾向があります。

私はFile::Pathを使用してディレクトリを作成しました。 mkdir -pのような全体のパスを構築し、エラー処理を含めて{ }に渡すことができるその他の便利なオプションがいくつかあります。他のモジュールもあります。たとえば、とmkpath（その他多くのもの）があります。

chdirを使用すると、現在の作業ディレクトリを記録し、それが戻ってきて、エラーをチェックしたいと思うでしょう。しかし、それ以外の理由がない場合は、chdirにする必要はありません。ただ、map

# No chdir needed here 
my @dirs = map { "$dir/Data/$_" } qw(Image Cache);