-2

我需要复制包含单词“make”、“model”、“year”的文档的每一行。我需要将每一行放入一个新文件中。这些行中的每一行都会有其他信息。即：品牌：福特，型号：Fusion，年份：2004。

我需要重复位于同一文件夹中的 300 个文件，所有复制的数据都将写入同一个文件。文档很长，但单词保证在前 30 行。

我的数据位于目录“c:\incoming\temp”中。我要写入的文件是车辆.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 回答