-2

「make」、「model」、「year」という単語を含むドキュメントの各行をコピーする必要があります。各行を新しいファイルに入れる必要があります。これらの各行には他の情報があります。例: メーカー: フォード、モデル: フュージョン、年式: 2004。

同じフォルダーにある 300 個のファイルに対して繰り返す必要があり、コピーされたすべてのデータが同じファイルに書き込まれます。ドキュメントは長いですが、単語は上位 30 行にあることが保証されています。

私のデータはディレクトリ「c:\incoming\temp」にあります。書き込みたいファイルは vehicle.txt です。

ファイルを作成する必要があるのか​​、それともスクリプトによって作成されるのかわかりません。あなたが私のためにそれを正確に書かなければならない場合でも、どんな助けも大歓迎です. 私は何も知りません。私はこれを機能させるためにできる限り必死です。繰り返しになりますが、すべての助けに感謝します。

#!/usr/bin/perl 

use strict; 
use warnings; 
my $dir_path="\Incoming\Temp"; 
opendir (Incoming\Temp, $tmp_dir) or die $!; 
open (MYFILE, '>>vehicles.txt'); 
while (my $file_name = readdir(Incoming\Temp)) {print "$file_name\n";} print MYFILE $file_content; close (MYFILE); CLOSEDIR;
4

1 に答える 1

1

あなたは質問をしませんでした。あなたのコードをコンパイルしてもらいませんか？

の最初の引数はopendir、ファイル ハンドルを受け取る var です (後で に渡しますreaddir)。

opendir(my $dh, $tmp_dir)
   or die("Can't open dir \"$tmp_dir\": $!\n");

の最初の引数にも var を使用する必要がありopenます。

open(my $fh, '>>', 'vehicles.txt')
   or die("Can't open \"vehicles.txt\": $!\n");
于 2013-01-25T08:27:22.620 に答える