perl输出结果不太对

静女，其姝

#!usr/bin/perl -w
use strict;

my @a;
my $beg;
my $end;
my $change;

while(<>){
     my @a = split;
     my $id = $a[0];
     my $beg = $a[1];
     my $end = $a[2];

if($beg > $end)
   {
    $change = $beg;
    $beg = $end;
    $end = $change;
   }
#如果第二列比第三列大，就交换
     print "$id\t$beg\t$end\n"；
          }

Perlvim

什么数据，你期待什么输出，实际是什么输出？

静女，其姝

我只是为了将每行的第2个与第3个数字排序，保证end比beg大



回复 2# Perlvim


   

zhlong8

最后一个分号明显是中文的。交换两个变量的值 ($a, $b) = ($b, $a) 即可。

静女，其姝

分号是我没复制完，自己打上的，输出结果中，有的第二列还是比第三列大，觉得逻辑应该出了问题


回复 4# zhlong8


   

rubyish

1. while (<>) {
   
2.     my @a = split;
   
3.     @a[ 1, 2 ] = sort { $a <=> $b } @a[ 1, 2 ];
   
4.     print join( "\t", @a ) . $/;
   
5. }

复制代码

kk861123

只是输出就没必要交换了吧？

1. if($beg > $end) {
   
2.     print "$id\t$end\t$beg\n";
   
3. } else {
   
4.     print "$id\t$beg\t$end\n";
   
5. }

复制代码

rubyish

kk861123 发表于 2013-04-11 04:44
只是输出就没必要交换了吧？

用最简单，最廉价的方法。
最优的实现方案。
3Q~

静女，其姝

果真！佩服！



回复 7# kk861123