Re: [PerlChina] Perl程序在windows下运行成功，但在linux下却运行没有结果，请高手帮忙看下。

Thu, 09 May 2013 21:23:45 -0700 

嗯，是我程序写的太烂了，呵呵，我自己找小骆驼看看，谢谢您了。
在 Fri, 10 May 2013 12:22:27 +0800，Hao Wu <[email protected]> 写道:



底下的我看不懂了：)

from my mobile device.
On May 9, 2013 11:20 PM, "Li Xiangchen" <[email protected]> wrote:

@M输出的结果是对的。
在 Fri, 10 May 2013 12:14:54 +0800，Hao Wu <[email protected]> 写道:



你只运行前几行看看@M对不对。

from my mobile device.
On May 9, 2013 11:13 PM, "Hao Wu" <[email protected]> wrote:


可能是chomp那个地方出了问题。windows的newlines chomp搞不定。

from my mobile device.
On May 9, 2013 9:46 PM, "Li Xiangchen" <[email protected]> wrote: 
下面是我写的程序，本人新手，代码写的乱，还请见谅。遇到的问题是在windows下运行成功，但在linux下却运行没有结果，请>>>>>帮帮我！

use File::Copy ;

open(INPUT,"taxID.txt");

$i=0;
while (<INPUT>) {
       chomp($_);
       chomp($_);
       $M[$i] = $_;
       $i++;
}
$len=@M;

for ($i=0;$i<$len;$i++) {

       open(INPUT1,"417species_PPI.txt");
       open(OUTPUT1,">species_PPI.txt");

       my $species = $M[$i];

       mkdir($species,0755)||die "can't create directory: $!" ;
print "Now it is ",$species," it is the ",$i," of these species,remains ",$len-$i," species.\n"; 

       while(<INPUT1>) {
               if ($_=~/^($M[$i])\.(.*)/){
               print OUTPUT1 $_;
               }
       }
       close(INPUT1);
       close(OUTPUT1);

       open(INPUT2,"species_PPI.txt");
       open(OUTPUT2,">species_PPI2.txt");

       while(<INPUT2>) {
               chomp($_);
               my@a=split/\s/;
               print OUTPUT2 "$a[0]\t$a[1]\n";
       }
       close INPUT2;
       close OUTPUT2;

       $system_check=system("python jisuan.py");

       open INPUT3,"degree_centrality.txt";
       open INPUT4,"closeness_centrality.txt";
       open INPUT5,"betweenness_centrality.txt";
       open INPUT6,"clustering_coefficient.txt";
       open OUTPUT3,">degreenew_centrality.txt";
       open OUTPUT4,">closenessnew_centrality.txt";
       open OUTPUT5,">betweennessnew_centrality.txt";
       open OUTPUT6,">clusteringnew_coefficient.txt";

       while (<INPUT3>) {
               s/{(.*)}/$1/g;
               s/\s//g;
               s/,/\n/g;
               s/'(.*)'\:(\d+)/$1\t$2/g;
               print OUTPUT3 $_,"\n";
       }
       close INPUT3;
       close OUTPUT3;
       while (<INPUT4>) {
               s/{(.*)}/$1/g;
               s/\s//g;
               s/,/\n/g;
               s/'(.*)'\:(\d+)/$2/g;
               print OUTPUT4 $_,"\n";
       }
       close INPUT4;
       close OUTPUT4;
       while (<INPUT5>) {
               s/{(.*)}/$1/g;
               s/\s//g;
               s/,/\n/g;
               s/'(.*)'\:(\d+)/$2/g;
               print OUTPUT5 $_,"\n";
       }
       close INPUT5;
       close OUTPUT5;
       while (<INPUT6>) {
               s/{(.*)}/$1/g;
               s/\s//g;
               s/,/\n/g;
               s/'(.*)'\:(\d+)/$2/g;
               print OUTPUT6 $_,"\n";
       }
       close INPUT6;
       close OUTPUT6;
move("degreenew_centrality.txt","$species")||warn "could not copy files :$!" ; move("closenessnew_centrality.txt","$species")||warn "could not copy files :$!" ; move("betweennessnew_centrality.txt","$species")||warn "could not copy files :$!" ; move("clusteringnew_coefficient.txt","$species")||warn "could not copy files :$!" ; 

}
close INPUT;

--使用Opera的电子邮件客户端：http://www.opera.com/mail/
--您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。 
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
--您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。 
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。





--使用Opera的电子邮件客户端：http://www.opera.com/mail/
--您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。 
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
--您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。 
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。





--
使用Opera的电子邮件客户端：http://www.opera.com/mail/

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。

回复