我有一個perl應用程序,它應該將xml文件中的每個單獨行導出到它自己的單獨文件中,其中包含原始文件的名稱,然後是該文件的行號。例如,如果xml文件被稱爲「foo.xml」,並且它有100行,那麼我希望有一百個名爲「foo_1.xml」,「foo_2.xml」,「foo_3」的文件。 xml「等。
我認爲我傳遞給一行代碼的文件名可以通過ARGV獲得,但事實並非如此。我在「在$ ARGV未初始化值[0]」得到一個錯誤,當我運行此:
perl -nwe 'open (my $FH, ">", "$ARGV[0]_$.\.xml"); print $FH $_;close $FH;' foo.xml
我是什麼俯瞰?
-1證實不工作:'perl的-nwe '打印$ ARGV' foo.xml ' – sehe
@sehe:這對我的作品如果'foo.xml'存在,不是空的。 – yibe
適合我。我有一個目錄充滿個別行的文件!我將來會更加小心...... –