Perl-get 입력, 조건 확인

Question

추출된 면적선은 각 선형의 CDS 선을 따른다고 가정합니다.

이 코드를 script.pl에 복사하세요.

use strict;
use warnings;

my $input = 1;
my @field = ('CDS','extracted region');
my (%data);
my (%counter);
&zero;

while ( <> ) { 

    ## Omit header.
    next if $. == 1;
    next if $. == 2;

    ## Remove last '\n'.
    chomp;

    ## Split line in tabs.
    my @f = split /\t/;

    ## Is loop over?
    if ( $f[2] =~ /$field[0]/ && $counter{$field[1]} > 1 )
    {
    &comparing;
    &zero;
    }

    ## Count number of $field[0] and $field[1] line
    $counter{$f[2]}++;

    ## Storing data
    @{$data{$f[2]}[$counter{$f[2]}]} = @f;
}

&comparing;

sub zero {
    $data{$field[0]} = [];
    $data{$field[1]} = [];
    $counter{$field[0]} = 0;
    $counter{$field[1]} = 0;
}

sub comparing {
    ## Is same line ($field[0] and $field[1])? if ( $input == 1 )
    if ( $counter{$field[0]} ==  $counter{$field[1]} || $input == 2 )
    {
    &recover;
    &stamp;
    }
}

sub recover {
    my $pos = &input2(0,0)  if ( $input == 2 );
    for my $i ( 1 .. $#{ $data{$field[0]} } ) {
    &input1($i) if ( $input == 1 );
    &input2($i,$pos) if ( $input == 2 );
    }
}

sub input1 {
    #;Extracted interval="376914 -> 377067"
    $data{$field[1]}[$_[0]][8] =~ m/;Extracted interval="(\d+) /;
    $data{$field[0]}[$_[0]][3] = $1;
    $data{$field[1]}[$_[0]][8] =~ m/;Extracted interval="\d+ -> (\d+)"/;
    $data{$field[0]}[$_[0]][4] = $1;
}

sub input2 {
    if ( $_[0] == 0 )
    {
    #;Extracted interval="2010140 <- 2024072"
    $data{$field[1]}[1][8] =~ m/;Extracted interval="(\d+) /;
    $1;
    }
    else
    {
    $data{$field[0]}[$_[0]][3] = $_[1] + $data{$field[0]}[$_[0]][3];
    $data{$field[0]}[$_[0]][4] = $_[1] + $data{$field[0]}[$_[0]][4];
    }
}

sub stamp {
    for my $i ( 1 .. $#{ $data{$field[0]} } ) {
    for my $j ( 0 .. $#{ $data{$field[0]}[$i] } ) {
        print "$data{$field[0]}[$i][$j]\t";
    }
    print "\n";
    }
}

input1.txt를 사용하여 Perl 스크립트를 실행할 수 있습니다.

perl script.pl input1.txt > output1.txt

라인을 수정하는 경우:

my $input = 1;

그리고

my $input = 2;

input2.txt를 사용하여 Perl 스크립트를 실행할 수 있습니다.

perl script.pl input2.txt > output2.txt

Perl 스크립트는 입력 파일과 유형[12]이라는 두 가지 매개변수를 사용할 수도 있습니다.

편집하다

존재하다https://stackoverflow.com/questions/1730333/how-do-i-use-getoptions-to-get-the-default-argument매개변수를 얻는 방법에는 몇 가지가 있습니다.

행을 수정하는 경우:

my $input = 1;

그리고

my $input = 1;
$input = $ARGV[1] if defined $ARGV[1];

input1.txt를 사용하여 Perl 스크립트를 실행할 수 있습니다.

perl script.pl input1.txt > output1.txt

또는

perl script.pl input1.txt 1 > output1.txt

input2.txt를 사용하여 Perl 스크립트를 실행할 수 있습니다.

perl script.pl input2.txt 2 > output2.txt

Answer 1

추출된 면적선은 각 선형의 CDS 선을 따른다고 가정합니다.

이 코드를 script.pl에 복사하세요.

use strict;
use warnings;

my $input = 1;
my @field = ('CDS','extracted region');
my (%data);
my (%counter);
&zero;

while ( <> ) { 

    ## Omit header.
    next if $. == 1;
    next if $. == 2;

    ## Remove last '\n'.
    chomp;

    ## Split line in tabs.
    my @f = split /\t/;

    ## Is loop over?
    if ( $f[2] =~ /$field[0]/ && $counter{$field[1]} > 1 )
    {
    &comparing;
    &zero;
    }

    ## Count number of $field[0] and $field[1] line
    $counter{$f[2]}++;

    ## Storing data
    @{$data{$f[2]}[$counter{$f[2]}]} = @f;
}

&comparing;

sub zero {
    $data{$field[0]} = [];
    $data{$field[1]} = [];
    $counter{$field[0]} = 0;
    $counter{$field[1]} = 0;
}

sub comparing {
    ## Is same line ($field[0] and $field[1])? if ( $input == 1 )
    if ( $counter{$field[0]} ==  $counter{$field[1]} || $input == 2 )
    {
    &recover;
    &stamp;
    }
}

sub recover {
    my $pos = &input2(0,0)  if ( $input == 2 );
    for my $i ( 1 .. $#{ $data{$field[0]} } ) {
    &input1($i) if ( $input == 1 );
    &input2($i,$pos) if ( $input == 2 );
    }
}

sub input1 {
    #;Extracted interval="376914 -> 377067"
    $data{$field[1]}[$_[0]][8] =~ m/;Extracted interval="(\d+) /;
    $data{$field[0]}[$_[0]][3] = $1;
    $data{$field[1]}[$_[0]][8] =~ m/;Extracted interval="\d+ -> (\d+)"/;
    $data{$field[0]}[$_[0]][4] = $1;
}

sub input2 {
    if ( $_[0] == 0 )
    {
    #;Extracted interval="2010140 <- 2024072"
    $data{$field[1]}[1][8] =~ m/;Extracted interval="(\d+) /;
    $1;
    }
    else
    {
    $data{$field[0]}[$_[0]][3] = $_[1] + $data{$field[0]}[$_[0]][3];
    $data{$field[0]}[$_[0]][4] = $_[1] + $data{$field[0]}[$_[0]][4];
    }
}

sub stamp {
    for my $i ( 1 .. $#{ $data{$field[0]} } ) {
    for my $j ( 0 .. $#{ $data{$field[0]}[$i] } ) {
        print "$data{$field[0]}[$i][$j]\t";
    }
    print "\n";
    }
}

input1.txt를 사용하여 Perl 스크립트를 실행할 수 있습니다.

perl script.pl input1.txt > output1.txt

라인을 수정하는 경우:

my $input = 1;

그리고

my $input = 2;

input2.txt를 사용하여 Perl 스크립트를 실행할 수 있습니다.

perl script.pl input2.txt > output2.txt

Perl 스크립트는 입력 파일과 유형[12]이라는 두 가지 매개변수를 사용할 수도 있습니다.

편집하다

존재하다https://stackoverflow.com/questions/1730333/how-do-i-use-getoptions-to-get-the-default-argument매개변수를 얻는 방법에는 몇 가지가 있습니다.

행을 수정하는 경우:

my $input = 1;

그리고

my $input = 1;
$input = $ARGV[1] if defined $ARGV[1];

input1.txt를 사용하여 Perl 스크립트를 실행할 수 있습니다.

perl script.pl input1.txt > output1.txt

또는

perl script.pl input1.txt 1 > output1.txt

input2.txt를 사용하여 Perl 스크립트를 실행할 수 있습니다.

perl script.pl input2.txt 2 > output2.txt

Perl-get 입력, 조건 확인

답변1

관련 정보