perl 응용 프로그램: snp 추출 후속 처리: "-" 가 있 는 줄 remove -. pl 삭제
10000470 A A A A A A - A A A A - C A A - A - A
10000552 C C C C C C - C C C C - T C C - C - C
10000565 G G T G G G - G - T G - T G G - G - G
10000566 T T C T T T - T - C T - C T T - T - T
10000567 T T G T T T - T - G T - G T T - T - T
10000685 G G - G G G - A - - G - - G A - A - G
10000690 T T - C T T - T - - T - - T T - T - T
10000917 G G - G G R G A - - G - - G A G A G G
10000955 G G - G G G G G - - G - A G G G G G G
10000974 A A - A A A A A - - A - G A A A A A A
10000993 C T - C C C C C - - C - C C C C C C C
10001005 A A - A A A A A - - A - G A A A A A A
1000114 G G C G G G G G G G G G G G G G G G G
10001291 T T - T T A T T - - T - T T T T T T T
'-' 줄 만 있 으 면 다 빼 고 모든 줄 이 남는다.
프로그램의 기본 적 인 사 고 는 한 줄 을 배열 로 바 꾸 는 것 입 니 다. '-' 를 만나면 $cout 는 + 1 입 니 다.마지막 으로 판단 하 는 조건 은 만약 $cout = = 0;하나 도 없 으 면 이 줄 은 남 는 거 야.그리고 $cout 를 0 으로 다시 할당 하고 다음 순환 을 진행 합 니 다.
프로그램 은 다음 과 같 습 니 다:
#!/usr/bin/perl
use strict;
use warnings;
my @datas;
my $data;
my $numb=0;
my $output;
open (SNP,"without_repeat_information.txt")||die("can not open !");
open (MORE,">without-without_repeat_information.txt")||die("can not open!");
while(<SNP>)
{
chomp($_);
$output=$_;
@datas=split;
foreach $data(@datas)
{
if ($data=~"-")
{
$numb++;
}
else
{
next;
}
}
if ($numb==0)
{
$numb=0;
print MORE "$output
";
}
else
{
$numb=0;
}
}
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
