本文介绍了翻译awk脚本转换为Perl的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我想翻译这个code到perl的。
徒劳无功/ ^> C / {OUT = SUBSTR($ 0.2).fa打印> OUT}; OUT {打印> OUT}'your_input有人能帮助我吗?
解决方案 #!的/ usr / bin中/ perl的我($ OUTF,$ OUT);而(小于&GT){ 如果(/ ^>(C *)/){$ OUT =$ 1.fa 关闭($ OUTF)如果$ OUTF; 打开($ OUTF,>中,$ OUT); 打印出\\ n} 如果($ OUTF){$打印$ OUTF _}}如果输入的是:
>畜牧业协会SDFsdff> CBBBEWEW2丛松文件:
==> caaa.fa< ==>畜牧业协会SDFsdff==> cbbb.fa< ==> CBBBEWEWI'm trying to translate this code into perl.
gawk '/^>c/ {OUT=substr($0,2) ".fa";print " ">OUT}; OUT{print >OUT}' your_inputCan 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 ewCreats 2 files:
==> caaa.fa <== >caaa sdf sdff ==> cbbb.fa <== >cbbb ew ew
更多推荐
翻译awk脚本转换为Perl
发布评论