翻译awk脚本转换为Perl

本文介绍了翻译awk脚本转换为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;畜牧业协会SDFsdff＆GT; CBBBEWEW

2丛松文件：

==＆GT; caaa.fa＆LT; ==＆GT;畜牧业协会SDFsdff==＆GT; cbbb.fa＆LT; ==＆GT; CBBBEWEW

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