一行中最大值

yueli7

各位大侠，

每个数字用tab键分割，输出每行中最大值。

tmp001.txt
1        4        5
5        1        4
0        4        6


结果：
5
5
6

open(IN1,"tmp01") || die "Cannot open this file";

@lines1 = <IN1>;

open(OUT,">max") || die "Cannot open this file";

for $item1(@lines1){

        chomp $item1;

@tmp1=split(/\s+/, $item1);

{

        print OUT max {$tmp1[0], $tmp1[1], $tmp1[2]},"\n";
                }

        $i++


close(IN1);


close(OUT);

zsszss0000

1        4        5
5        1        4
0        4        6



awk '{max=$1;for(i=2;i<=3;i++){if($i>max)max=$i}print max}' file

yueli7

回复 2# zsszss0000


    十分感谢！

rubyish

回复 1# yueli7

1. #!/usr/bin/perl
   
2. 
   
3. use 5.018;
   
4. 
   
5. say for map {
   
6.     ( sort { $b <=> $a } split )[0]
   
7. } <DATA>;
   
8. 
   
9. 
   
10. __DATA__
    
11. 1        4        5
    
12. 5        1        4
    
13. 0        4        6
    

复制代码

or:

1. #!/usr/bin/perl
   
2. 
   
3. use 5.018;
   
4. 
   
5. sub max {
   
6.     @_ = sort { $b <=> $a } @_;
   
7.     return $_[0];
   
8. }
   
9. 
   
10. while (<DATA>) {
    
11.     my @a   = split;
    
12.     my $max = max(@a);
    
13.     say $max;
    
14. }
    
15. 
    
16. __DATA__
    
17. 1        4        5
    
18. 5        1        4
    
19. 0        4        6
    

复制代码

251744647

如果用awk求每一列的最小值，该怎么写？

pony2001mx

每行最大值： perl -ane '$m = 0; for (@F) {$m = $_ if $_ > $m;}; print "$m\n";'
每行最小值： perl -ane '$m = 0; for (@F) {$m = $_ if $_ < $m;}; print "$m\n";'
回复 5# 251744647


   

sunzhiguolu

1. perl -anle 'print $F[-1] if(@F=sort(@F))' f

复制代码

华小飞_Perl

使用List::Util模块中max子程序就好。

华小飞_Perl

来一个

1. perl -MList::Util='max' -ne 'print max split, "\n"' filename

复制代码

moperyblue

1. awk '{split($0,a);print a[asort(a)]}'  file

复制代码