1

テキストファイル（上下にある多くのファイルの絶対パスを含む）を読み取り、absパスからファイル名を計算し、スペースで区切られたすべてのファイル名を同じファイルに追加するperlスクリプトを作成しています。したがって、test.txt ファイルを検討してください。

D:\work\project\temp.txt
D:\work/tests/test.abc
C:/office/work/files.xyz

したがって、スクリプトを実行すると、同じファイルに次のものが含まれます。

D:\work\project\temp.txt
D:\work/tests/test.abc
C:/office/work/files.xyz

temp.txt test.abc files.xyz

私はこのスクリプトrevert.plを持っています:

use strict;

foreach my $arg (@ARGV)
{
    open my $file_handle, '>>', $arg or die "\nError trying to open the file $arg : $!";
    print "Opened File : $arg\n";
    my @lines = <$file_handle>;
    my $all_names = "";

    foreach my $line (@lines)
    {
        my @paths = split(/\\|\//, $line);
        my $last = @paths;
        $last = $last - 1;
        my $name = $paths[$last];
        $all_names = "$all_names $name";
    }

    print $file_handle "\n\n$all_names";
    close $file_handle;
}

スクリプトを実行すると、次のエラーが発生します。

>> perl ..\revert.pl .\test.txt
Too many arguments for open at ..\revert.pl line 5, near "$arg or"
Execution of ..\revert.pl aborted due to compilation errors.

ここで何が問題なのですか？

更新:問題は、非常に古いバージョンの perl を使用していることです。そのため、コードを次のように変更しました。

use strict;

for my $arg (@ARGV)
{
print "$arg\n";
open (FH, ">>$arg") or die "\nError trying to open the file $arg : $!";
print "Opened File : $arg\n";
my $all_names = "";
my $line = "";

for $line (<FH>)
{
    print "$line\n";
    my @paths = split(/\\|\//, $line);
    my $last = @paths;
    $last = $last - 1;
    my $name = $paths[$last];
    $all_names = "$all_names $name";
}
print "$line\n";

if ($all_names == "")
{
    print "Could not detect any file name.\n";
}
else
{
    print FH "\n\n$all_names";
    print "Success!\n";
}
close FH;
}

これで、次のように出力されます。

>> perl ..\revert.pl .\test.txt
.\test.txt
Opened File : .\test.txt

Could not detect any file name.

今何が間違っている可能性がありますか？

4

1 に答える 1

1

古いバージョンの perl を実行している可能性があるため、2 つのパラメーターのオープン バージョンを使用する必要があります。

open(File_handle, ">>$arg") or die "\nError trying to open the file $arg : $!";

File_handleなしで書いたことに注意してください$。また、ファイルへの読み取りおよび書き込み操作は次のようになります。

@lines = <File_handle>;
#...
print File_handle "\n\n$all_names";
#...
close File_handle;

更新:ファイル行の読み取り:

open FH, "+>>$arg" or die "open file error: $!";
#...
while( $line = <FH> ) {
   #...
}
于 2013-04-26T08:49:41.683 に答える