Re: Concatenating text for a hash problem

Just another method -

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

local $/ = '>';

while (<DATA>) {
    next if $_ eq '>';

    my ($t, $v) = $_ =~ /^(\w+).*?\n([^>]*)/gs;
    $v =~ s/\n//g;

    print "$t, $v\n";
}


__DATA__
>EP11110 (-) 
TGCAATCACTAGCAAGCTCTC
GCTGCCGTCACTAGCCTGTGG
>EP40005 (+) 
GGGGCTAGGGTTAGTTCTGGA
NNNNNNNNNNNNNNNNNNNNN
[download]

Comment on Re: Concatenating text for a hash problem Download Code

Replies are listed 'Best First'.
Re^2: Concatenating text for a hash problem by ikegami (Patriarch) on Oct 15, 2004 at 15:10 UTC
You neither need nor support /g on the first regexp. You don't need the /s either, but /s is forgivable.	[reply]