翻译awk脚本转换为Perl [英] translating awk script into perl

问题描述

我想翻译这个code到perl的。

 徒劳无功/ ^＆GT; C / {OUT = SUBSTR（$ 0.2）.fa打印＆GT; OUT}; OUT {打印＆GT; OUT}'your_input
 

有人能帮助我吗？

解决方案

 ＃！的/ usr / bin中/ perl的我（$ OUTF，$ OUT）;
而（小于＆GT）{
  如果（/ ^＆GT;（C *）/）{$ OUT =$ 1.fa
                 关闭（$ OUTF）如果$ OUTF;
                 打开（$ OUTF，＆gt;中，$ OUT）;
                 打印出\\ n}
  如果（$ OUTF）{$打印$ OUTF _}
}
 

如果输入的是：

 ＆GT;畜牧业协会
SDF
sdff
＆GT; CBBB
EW
EW
 

2丛松文件：

  ==＆GT; caaa.fa＆LT; ==
＆GT;畜牧业协会
SDF
sdff
==＆GT; cbbb.fa＆LT; ==
＆GT; CBBB
EW
EW
 

I'm trying to translate this code into perl.

 gawk '/^>c/ {OUT=substr($0,2) ".fa";print " ">OUT}; OUT{print >OUT}' your_input

Can someone help me?

解决方案

#!/usr/bin/perl

my ($outf,$OUT) ;
while(<>){
  if(/^>(c.*)/){ $OUT = "$1.fa";
                 close($outf) if $outf;
                 open($outf,">",$OUT);
                 print OUT " \n"}
  if($outf){ print $outf $_ }
}

if input is:

>caaa
sdf
sdff
>cbbb
ew
ew

Creats 2 files:

==> caaa.fa <==
>caaa
sdf
sdff
==> cbbb.fa <==
>cbbb
ew
ew

这篇关于翻译awk脚本转换为Perl的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！