0

基本的に GlusterFS マウント共有であるフォルダーにファイルをコピーする際に問題が発生しています。

私の Perl スクリプトは、ファイルを読み取り、解析を行い、新しいファイルを作成します。その後、新しく作成したファイルを別の名前で別の場所にコピーします。

このエラーが発生します

bin/cp: skipping file `/gfs_share/abc/xyz/aktar.txt', as it was replaced while being copied

私のperlコード：

    foreach my $Id (@Studies){
            my $Trigger_Start_1 = my $Trigger_End_1 = 0;
            open(FILE,"$File_path") or die "In gen : Couldn't open file $File_path $! \n";
            while(<FILE>){
                    chomp($_);
                    if($_ =~ /#INPUT_TYPE\s*(.*)/){
                            next;
                    }if($_ =~ /^ID\s+$Id/){
                            $Trigger_Start_1 = 1;
                            system ("echo 'Startstudy '>> $Input_FilePath/aktar.txt");
                            system ("echo '$_' >> $Input_FilePath/aktar.txt");
                            next;
                    }if(($Trigger_Start_1 == 2) && ($_ =~ /Endstudy/)){
                            $Trigger_End_1 = 0;
                            $Trigger_Start_1 = 0;
                            system ("echo '$_' >> $Input_FilePath/aktar.txt");
                    }
                    if($Trigger_Start_1 == 1){
                            if($_ =~/Disease\d*_run\d*/){
                                    system ("echo '$_' >> $Input_FilePath/aktar.txt");
                                    next;
                            }else{
                                    system ("echo '$_' >> $Input_FilePath/aktar.txt");
                            }
                            $Trigger_Start_1 = 2;
                            next;
                    }
                    if(($Trigger_Start_1 == 2) && ($Trigger_End_1 == 0)){
                            system("echo '$_ ' >> $Input_FilePath/aktar.txt");
                    }
            }
    }
    system ("echo 'Endvalidation '>> $Input_FilePath/aktar.txt");

    close(FILE) or die "In gen : Unable to Close File $! \n";

    `sed "s/#INPUT_TYPE $Input_Type//" input.txt > input1.txt`;
    `sed "s/#DELTA_SET YES 5//" input1.txt > input.txt`;
    `cat input.txt >> $Input_FilePath/aktar.txt`;
    system ("echo 'INPUT : $Input_FilePath'>> $Input_FilePath/aktar.txt");
    system("rm -rf $File_path") if(-e $File_path);
 `/bin/cp $Source_Path/aktar.txt $To_Path`;
4

1 に答える 1

0

コードを純粋な Perl になるように (シェル化するのではなく) 再コーディングしました。読みやすくします。あなたが過去 10 年間の 5.8 より前の Perl を使用していないことを願っています。

私が気づいたのは、「$Input_FilePath」が「$Source_Path」と同じであることを期待していることです。そうですか？また、$Source_Path と input.txt を解析します。接続されていないように見えますが、それらは 2 つの異なるファイルですか?

use File::Path;
use File::Copy;
use FileHandle;

my $aktarfile = "$Input_FilePath/aktar.txt";
my ($inh, $aktarh, $inputh);
open $aktarh, '>>', $aktarfile or die "Unable to open [$aktarfile] for writing\n";
$aktarh->autoflush();
    foreach my $id (@Studies){
        my $Trigger_Start_1 = my $Trigger_End_1 = 0;
        open $inh, '<', $File_path or die "In gen : Couldn't open file $File_path $! \n";
        LINE:
        while(<$inh>){
                chomp($_);
                if($_ =~ /#INPUT_TYPE\s*(.*)/){
                        next LINE;
                }if($_ =~ /^ID\s+$id/){
                        $Trigger_Start_1 = 1;
                        print {$aktarh} "Startstudy\n$_";
                        next LINE;
                }if(($Trigger_Start_1 == 2) && ($_ =~ /Endstudy/)){
                        $Trigger_End_1 = 0;
                        $Trigger_Start_1 = 0;
                        print {$aktarh} $_;
                }
                if($Trigger_Start_1 == 1){
                        print {$aktarh} $_;
                        if($_ !~/Disease\d*_run\d*/){
                            $Trigger_Start_1 = 2;
                        }
                        next LINE;
                }
                if(($Trigger_Start_1 == 2) && ($Trigger_End_1 == 0)){
                  print {$aktarh} $_;
                }
        }
        close $inh or die "In gen : Unable to Close File $! \n";
}
print {$aktarh} "Endvalidation\n";
my $inputfile = 'input.txt';
open $inputh, '<', $inputfile or die "Failed to open [$inputfile] for reading";
while(<$inputh>){
  s/#INPUT_TYPE $Input_Type//;
  s/#DELTA_SET YES 5//;
  print {$aktarh} $_;
}
print {$aktarh} "INPUT : $Input_FilePath\n";
close $aktarh or die "Failed closing [$aktarfile]";
File::Path::remove_tree($File_path) if(-e $File_path);
File::Copy::copy "$Source_Path/aktar.txt",  $To_Path;
于 2015-04-08T13:23:26.697 に答える