编程遇到一个问题

zhanglinbaby

我写的代码很简单，代码如下
#! /usr/bin/perl -w
$dnsipfile="dns.txt";
open (DNSIP,"$dnsipfile");
while($dnsip=<DNSIP>) {
        chomp $dnsip;
        print $dnsip,"\n";
        $ip="$dnsip";
        $statfile="$ip/dnsstat.txt";
        print $statfile,"\n";
}
close (DNSIP);
就是读一个文件，读出里面的ip，问题是如何将这个ip放入一个和其他的字符串合并为一个linux路径。试了几个方法都不行。
在我的机器上这个代码执行的结果如下：
[root@localhost sh]# ./test.pl
192.168.8.8
/dnsstat.txt
192.168.1.124
/dnsstat.txt4
文件dns.txt里的内容为
[root@localhost sh]# cat dns.txt
192.168.8.8
192.168.1.124
希望大家能看看问题在哪里。

lokchungk

您要的是這樣嗎?

C:\>test.pl 192.168.8.8/dnsstat.txt 192.168.1.124/dnsstat.txt

C:\>more dns.txt 192.168.8.8 192.168.1.124

C:\>type test.pl $DNSIP = "dns.txt"; open DNSIP; while(<DNSIP>) {         chomp;         print;         print '/dnsstat.txt',"\n"; } close DNSIP;

$DNSIP = "dns.txt"; open DNSIP; while(<DNSIP>) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chomp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print '/dnsstat.txt',"\n"; } close DNSIP;

[ 本帖最后由 lokchungk 于 2009-8-23 18:40 编辑 ]

zhanglinbaby

对是想要这样的一个路径，192.168.8.8/dnsstat.txt

zhanglinbaby

使用 $statfile = $statfile . '/dnsstat.txt';打印出来的路径字符串也不正确。请大家帮忙看看

dugu072

仔细看了一遍lz的代码，实在想不通出错的理由，于是本地尝试了一把，我这边完全正常：

C:>type a.pl #! /usr/bin/perl -w $dnsipfile="dns.txt"; open (DNSIP,"$dnsipfile"); while($dnsip=<DNSIP>) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chomp $dnsip; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print $dnsip,"n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$ip="$dnsip"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$statfile="$ip/dnsstat.txt"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print $statfile,"n"; } C:>type dns.txt 192.168.8.8 192.168.1.124 C:>a.pl 192.168.8.8 192.168.8.8/dnsstat.txt 192.168.1.124 192.168.1.124/dnsstat.txt

zhanglinbaby

还是不行。在服务器上执行的结果是
[root@localhost sh]# ./test.pl  
/dnsstat.txtn[root@localhost sh]# ./test.pl
/dnsstat.txtn[root@localhost sh]# ./test.pl

dugu072

没有道理的，我linux上也是正常的：

root@simulator:~# cat test.pl #! /usr/bin/perl -w $dnsipfile="dns.txt"; open (DNSIP,"$dnsipfile"); while($dnsip=<DNSIP>) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chomp $dnsip; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print $dnsip,"n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$ip="$dnsip"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$statfile="$ip/dnsstat.txt"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print $statfile,"n"; } close (DNSIP); root@simulator:~# cat dns.txt 192.168.8.8 192.168.1.124 root@simulator:~# ./test.pl -bash: ./test.pl: Permission denied root@simulator:~# perl test.pl 192.168.8.8 192.168.8.8/dnsstat.txt 192.168.1.124 192.168.1.124/dnsstat.txt

iceberg77

原帖由 zhanglinbaby 于 2009-8-23 18:02 发表
我写的代码很简单，代码如下
#! /usr/bin/perl -w
$dnsipfile="dns.txt";
open (DNSIP,"$dnsipfile");
while($dnsip=) {
        chomp $dnsip;
        print $dnsip,"\n";
        $ip="$dnsip";
    ...

推测dns.txt每行是以\r\n结束
        chomp $dnsip;
        print $dnsip,"\n";
改为
        chomp $dnsip;
        $dnsip =~ s/\r$//;
        print $dnsip,"\n";

zhanglinbaby

谢谢大家，已经解决。果然是回车符的问题，但是我想不通的是linux下怎么会出现回车符的呢？

Lonki

或者先用dos2unix转下