kdkkdkdk
>name2: anything
slkslsksksl
and convert it into two files, named as name1 and name2, and containing
the following information
>name1
kdkdkkdkk
dkdkkdkdk
in the file name1
>name2
slkslsksksl
in the file name2.
Here is the question, can anyone help me to decipher this
e1
> kdkdkkdkk
> dkdkkdkdk
>
> in the file name1
>
> >name2
> slkslsksksl
>
> in the file name2.
>
> Here is the question, can anyone help me to decipher this one-line perl
> command and put into a perl script.
> Thanks for your help.
Okay, I'll
name1
> kdkdkkdkk
> dkdkkdkdk
>
> in the file name1
>
> >name2
> slkslsksksl
>
> in the file name2.
>
> Here is the question, can anyone help me to decipher this one-line
> perl command and put into a perl script.
> Thanks for your help.
#!/usr/bin/env pe
On Jun 4, Pedro A Reche Gallardo said:
>perl -ne 'BEGIN{$/=">"}if(/^\s*(\S+)/){open(F,">$1")|| warn"$1 write
>failed:$!\n";chomp;print F ">", $_}'
>This command will take a file like this:
>name1: anything
kdkdkkdkk
dkdkkdkdk
>name2: anything
slkslsksksl
>and convert it into two files, named