Re: Help with regex


Syntactic Confectionery Delight
	PerlMonks

Re: Help with regex

by trizen (Hermit)

on May 07, 2014 at 10:18 UTC ( [id://1085296]=note: print w/replies, xml )

Need Help??

in reply to Help with regex

Try this:

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $file = $ARGV[0];
open(my $fh, '<', $file)
  or die "$file: $!";

my $query;
while (<$fh>) {
    if (/^Query=\s(\S+)/) {
        $query = $1;
    }
    if (defined($query) && /^>(\S+)/) {
        print "$query\t$1\n";
        undef $query;
    }
}
[download]