임계값보다 작은 숫자로 가장 긴 일련의 줄을 인쇄하는 방법은 무엇입니까?

Question 1

펄 한 줄:

perl -ne '$n = (split)[1]; if ($n > 2) {if ($i > $max) {$longest=$cur; $cur=""; $max=$i}; $i=0} else {$cur .= $n . "\n"; $i++} END {print $i > $max ? $cur : $longest}' < file.txt

더 나은 가독성을 위한 여러 줄:

perl -ne '
  $n = (split)[1];
  if ($n > 2) {
    if ($i > $max) {
      $longest=$cur;
      $cur="";
      $max=$i;
     }
     $i=0
  } else {
    $cur.= $n . "\n";
    $i++
  } 
  END {
    print $i > $max ? $cur : $longest
  }' < file.txt

라이너 1개 awk:

awk '$2 > 2 { if (i > max) {res=cur; cur=""; max=i} i=0} $2 < 2 {cur = cur $2 "\n"; i++} END {if (i > max) res=cur; printf res}' file.txt

여러 줄:

awk '
  $2 > 2 { 
    if (i > max) {
      res=cur
      cur=""
      max=i
    }
    i=0
  } 
  $2 < 2 {
    cur = cur $2 "\n"
    i++
  }
  END {
    if (i > max) res=cur
    printf res
  }' file.txt

Answer

펄 한 줄:

perl -ne '$n = (split)[1]; if ($n > 2) {if ($i > $max) {$longest=$cur; $cur=""; $max=$i}; $i=0} else {$cur .= $n . "\n"; $i++} END {print $i > $max ? $cur : $longest}' < file.txt

더 나은 가독성을 위한 여러 줄:

perl -ne '
  $n = (split)[1];
  if ($n > 2) {
    if ($i > $max) {
      $longest=$cur;
      $cur="";
      $max=$i;
     }
     $i=0
  } else {
    $cur.= $n . "\n";
    $i++
  } 
  END {
    print $i > $max ? $cur : $longest
  }' < file.txt

라이너 1개 awk:

awk '$2 > 2 { if (i > max) {res=cur; cur=""; max=i} i=0} $2 < 2 {cur = cur $2 "\n"; i++} END {if (i > max) res=cur; printf res}' file.txt

여러 줄:

awk '
  $2 > 2 { 
    if (i > max) {
      res=cur
      cur=""
      max=i
    }
    i=0
  } 
  $2 < 2 {
    cur = cur $2 "\n"
    i++
  }
  END {
    if (i > max) res=cur
    printf res
  }' file.txt

Question 2

이것은 결코 사소한 일이 아닙니다. 완성된 프로그램을 제공하는 것이 다른 사람들이 프로그래밍 언어의 문제 해결 방법을 배우는 데 도움이 되는지에 대한 논쟁도 있지만, 나는 그것이 장점이 있다고 믿기 때문에 다음 프로그램을 제안합니다(이름 findlongestsequence.pl:

#!/usr/bin/perl
use strict;
use Getopt::Long;

my $limit; my $infile;
GetOptions( 'limit=f' => \$limit, 'infile=s' => \$infile );

my $lineno=0; my $groupstart;
my $currlength=0; my $maxlength=0; my $ingroup=0;
my @columns; my @groupbuf; my @longestgroup;

if (! open(fileinput, '<', "$infile" )) {exit 1;};
while (<fileinput>)
{
    $lineno++;
    @columns = split(/\s+/,$_);

    if ( $ingroup == 0 && $columns[1]<$limit )
    {
        $ingroup=1;
        $groupstart=$lineno;
        @groupbuf=();
    }

    if ( $ingroup == 1 )
    {
        if ($columns[1]>=$limit )
        {
            $ingroup=0;
            $currlength=$lineno-$groupstart;
    
            if ( $currlength>$maxlength )
            {
                $maxlength=$currlength;
                @longestgroup=@groupbuf;
            }
        }
        else
        {
            push(@groupbuf,$columns[1]);
        }
    }
}
close(fileinput);

if ( $ingroup == 1 )
{
    $currlength=$groupstart-$lineno;
    if ( $currlength>$maxlength )
    {
        $maxlength=$currlength;
        @longestgroup=@groupbuf;
    }
}

print join("\n",@longestgroup),"\n";
exit 0;

이 프로그램을 호출할 수 있습니다.

./findlongestsequence.pl --infile input.txt --limit 2.0

먼저 해석된 명령줄 인수를 사용합니다 Getopt::Long.

그런 다음 파일을 열고 한 줄씩 읽습니다 $lineno. 각 줄은 공백이 있는 열로 분할됩니다.

$limit프로그램이 값이 < ( 0) 인 행 그룹에 없지만 $ingroup적절한 행을 발견하면 현재 해당 그룹( $ingroup1로 설정)에 있음을 기록하고 그룹 시작 $groupstart및 시작 버퍼링 열을 저장합니다. 2개의 배열 값입니다 @groupbuf.
프로그램이 그러한 그룹 내에 있지만 현재 값이 보다 큰 경우 $limit그룹 꼬리를 식별하고 길이를 계산합니다. 이전에 기록된 가장 긴 그룹보다 긴 경우 새로운 가장 긴 그룹의 내용( @groupbuf)과 길이( )가 각각 및 에 복사됩니다 .$currlength@longestgroup$maxlength

그룹은 > 값이 있는 줄이 아닌 파일 끝에서 종료될 수 있으므로 이 검사는 파일 끝에서 true인 경우 $limit에도 수행됩니다 .$ingroup

마지막으로 @longestgroup인쇄된 내용은 \n토큰 구분 기호 역할을 합니다.

Answer