求助一个perl 与 cat的问题

solarwind

foreach (@svcFiles) {
                s/\\/\//g;
                $cmd="/usr/bin/cat $_ >> $mqDIR/$svcArgs{trackingID}";
                system($cmd);
                print LOGFILE "--- bundle $_ \n";
        }

@svcFiles
里面的内容
/output/2784-999998-1-1.out4
/output/2784-999998-1-1.out5

$svcArgs{trackingID}
的值 为 1234
运行结果：1234这个文件的大小为0!
如果把
$cmd="/usr/bin/cat $_ >> $mqDIR/$svcArgs{trackingID}";
改成
$cmd="/usr/bin/cat $_ >> $mqDIR/$svcArgs{trackingID}.out";
运行结果：1234.out的这个文件就是正常的文件！

快被折磨疯了~~~~~
同学们帮帮忙啊。

apile

有没有试着把error print出来看看为什麽？
通常会为0..一定都有什麽error产生 .....
用个eval包起来..然後print $@看看...

dajun

asd@cu:~> cp /etc/issue .
asd@cu:~> cat test.pl

#!/usr/bin/perl

my %has=(
        'file1' => 'file1',
        'file2' => 'file2',
        );

my $file='issue';
my $cmd="cat $file >>$has{file2}";
system($cmd);

asd@cu:~> perl test.pl

asd@cu:~> cat file2

Welcome to SUSE LINUX Enterprise Server 9 (i586) - Kernel \r (\l).


asd@cu:~>

solarwind

原帖由 apile 于 2005-12-28 10:53 发表
有没有试着把error print出来看看为什麽？
通常会为0..一定都有什麽error产生 .....
用个eval包起来..然後print $@看看...

这个脚本是在别的脚本里调用的，别的脚本在后台跑。error看不见。
正尝试把这个脚本单独独立出来，然后独自跑看看error。

我也尝试过在这个脚本里打印error来，未果。

让人郁闷的地方地方在于如下：
1，
$cmd="/usr/bin/cat $_ >> $mqDIR/$svcArgs{trackingID}";中$svcArgs{trackingID}这个参数传过来的别的2456等等，脚本工作正常。
2，
如果我先产生一个
$cmd="/usr/bin/cat $_ >> $mqDIR/$svcArgs{trackingID}.out"；文件。
然后用
`mv $mqDIR/$svcArgs{trackingID}.out $mqDIR/$svcArgs{trackingID}`
$mqDIR/$svcArgs{trackingID}这个文件就变成0了！！
要是用cp命令
`cp $mqDIR/$svcArgs{trackingID}.out $mqDIR/$svcArgs{trackingID}`
$mqDIR/$svcArgs{trackingID}这个文件能产生，但居然跟带.out的文件大小不一样！
它把$mqDIR/$svcArgs{trackingID}.out 文件中的 ' 号，改称 了 `号。还在文件行头加了一个空格。

单独运行系统命令cp , mv 都是正常好用的。

放到perl里面怎么大部分都好用，碰道文中的特别情况就不正常运行了。
perl的版本This is perl, version 5.005_03 built for sun4-solaris
。

solarwind

原帖由 dajun 于 2005-12-28 11:05 发表
asd@cu:~> cp /etc/issue .
asd@cu:~> cat test.pl

#!/usr/bin/perl

my %has=(
        'file1' => 'file1',
        'file2' => 'file2',
        );

my $file='issue';
my $cmd=&quo ...

感谢回复！！
单独的调试脚本是可以运行的。
但是原脚本大部分情况都好用。

怒剑狂啸

原帖由 solarwind 于 2005-12-28 17:22 发表

放到perl里面怎么大部分都好用，碰道文中的特别情况就不正常运行了。

试试把系统语言改成中文编码，再运行一下看看，可能是编码问题。

apile

後台运行？你确定直接用cp、mv可以用吗？应该要改成/usr/bin/cp /usr/bin/mv吧...
另外执行这个程序的user  id跟file的owner是一样的吗？
再检查看看filesystem还有没有空间....
档名如果有中文...通常都会碰到编码的问题.....建议档名用英文表示比较好....

solarwind

十分感谢大家的回复，和建议！
在多次测试之后，
发现在本脚本运行的后期部分，把这个产生的文件传给另一个脚本。
而另一个脚本中用java打开这个文件进行操作！
就是说前部分应该是成功的。
后来java打开文件的时候出现了问题。
文本文件，大小1.6m左右。
java再操作的时候，出现了溢出。