”perl脚本..

[smileysam]

亚姆试图复制到另一个文件的内容之一。
该代码是不工作和挂起的内容不被复制到文件2
我粘贴的代码。任何意见将是有益的。谢谢。

＃复制到另一个文件。
$长度= $＃ARGV 1;
印刷（$局域网）;
打印（“$ argv中获取[0] \ N”的）;
打印（“$ argv中获取[1] \ N”的）;
如果（（开放（fileptr1，$ argv中获取[0]））== 0）
（
死在打开该文件（“错误”）;
）
其他的
（
打印（“文件一打开\ N”的）;
）
打印（“亚姆这里”）;
如果（（开放（fileptr2 ,">>".$ ARGV [1]））== 0）
（
死在打开该文件（“错误”）;
）
其他的
（
打印（“文件2打开\ N”的）;
）
而（fileptr1东北“”）
（
$输入= <fileptr1>;
印刷（$输入）;
打印fileptr2（$输入）;
）
关闭（fileptr1）;
关闭（fileptr2）;

 

[Guest]

[No message]

 

[btbass]

此代码工作确定。

代码：开放（中，$ argv中获取[0]）| |死“无法打开$ argv中获取[0]阅读：$！”;

开放（指出，“”$ argv中获取[1]“）| |死”无法创建$ argv中获取[1]：$！“;而（<IN>）（

打印输出$ _;

）关闭（中）| |死“Cannot接近$ argv中获取[0]：$！”;

关闭（输出）| |死“Cannot接近$ argv中获取[1]：$！”;