Re: [PerlChina] perl如何对多行文件进行操作？

outfh和$outfh不是一个东西。。。

2013/8/20 李相辰 <lixiangchenxy@gmail.com>

不知道是不是我输入输出文件操作有问题，运行结果输出为空~我把代码改成如下:

open infh, "<", $infile = "Fetch_Result_23.txt" or die "input file cannot be opened";

open outfh, ">", $outfile = "Fetch_Result_23_New.txt" or die "output file cannot be created";

while (1) {

    $line1 = <infh>;

    $line2 = <infh>;

    last unless defined $line1 and $line2;

    chomp($line1);

    chomp($line2);

    print $outfh "$line1\t$line2\n"; 

}

但是没有结果~（输入的Fetch_Result_All.txt跟我发帖时附的数据格式是一样的~我把数据上传）

在 2013年8月20日上午11:20，Weiqiang <lweiqiang@gmail.com>写道：

直接给你能用的代码吧，呵呵：

my $infile=$ARGV[0];

my $outfile=$ARGV[1];

open my $infh, "<", $infile or die "input file cannot be opened";

open my $outfh, ">", $outfile or die "output file cannot be created";

while (1) {

    my $line1 = readline $infh;

    my $line2 = readline $infh;

    last unless defined $line1 and $line2;

    chomp($line1);

    chomp($line2);

    print $outfh "$line1\t$line2\n"; 

}

2013/8/20 李相辰 <lixiangchenxy@gmail.com>

还是十分感谢~

在 2013年8月20日上午10:58，Hao Wu <echowuhao@gmail.com>写道：

我只会这么多，呵呵。

2013/8/19 李相辰 <lixiangchenxy@gmail.com>

您好，恐怕我想问的不是文件的读写问题，而是对文本数据进行处理的问题。

在 2013年8月20日上午10:30，Hao Wu <echowuhao@gmail.com>写道：

http://learn.perl.org/faq/perlfaq5.html

A Perl program to do these tasks takes the basic form of opening a file, printing its lines, then closing the file:

      open my $in,  '<',  $file      or die "Can't read old file: $!";      open my $out, '>', "$file.new" or die "Can't write new file: $!";        while( <$in> ) {              print $out $_;      }        close $out;

  参考learning perl input 与 output 章节。

2013/8/19 李相辰 <lixiangchenxy@gmail.com>

各位好，我有一个数据文件的文本，其中的数据格式如下：

1 69511 A G SNP rs75062661 OR4F5 ENST00000335137

1 0.65

1 69534 T C SNP rs190717287 OR4F5 ENST00000335137

2 0.0005

1 861275 C T SNP rs199884417 SAMD11 ENST00000598827

0 0.0005

1 861292 C G SNP rs191719684 SAMD11 ENST00000598827

0 0.0014

1 861315 G A SNP rs200140498 SAMD11 ENST00000598827

0 0.0009

1 863258 A G SNP rs185247114 SAMD11 ENST00000598827

0 0.0005

1 865544 C T SNP rs144245409 SAMD11 ENST00000342066

1 0.0005

1 865545 G A SNP rs201186828 SAMD11 ENST00000342066

1 0.0018

1 865584 G A SNP rs148711625 SAMD11 ENST00000598827

1 0.01

...........

我想对把

1 69511 A G SNP rs75062661 OR4F5 ENST00000335137

1 0.65

转换成1 69511 A G SNP rs75062661 OR4F5 ENST00000335137 1 0.65

也就是把没两行进行合并，然后添加一个制表符。

本人新手，不太清楚perl是怎样实现~谢谢~

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

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

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

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

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

--

From William LI

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

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

--

From William LI

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