Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: create hashes using regex

by Cristoforo (Deacon)
on Jun 12, 2013 at 19:07 UTC ( #1038551=note: print w/ replies, xml ) Need Help??

in reply to create hashes using regex

Another way (slurping the entire file into 1 string).
#!/usr/bin/perl use strict; use warnings; my $file = <<EOF; TCONS_00000047 XLOC_000039 TCONS_00000718 XLOC_000456 TCONS_00000938 XLOC_000610 TCONS_00004086 XLOC_002872 TCONS_00004252 XLOC_003003 TCONS_00004975 XLOC_003624 TCONS_00004976 XLOC_003624 TCONS_00005492 XLOC_004020 EOF open my $fh, "<", \$file; my $slurp; do {local $/; $slurp = <$fh>}; my %hash = split ' ', $slurp; use Data::Dumper; print Dumper \%hash;
$VAR1 = { 'TCONS_00004086' => 'XLOC_002872', 'TCONS_00004976' => 'XLOC_003624', 'TCONS_00004975' => 'XLOC_003624', 'TCONS_00000718' => 'XLOC_000456', 'TCONS_00000047' => 'XLOC_000039', 'TCONS_00005492' => 'XLOC_004020', 'TCONS_00000938' => 'XLOC_000610', 'TCONS_00004252' => 'XLOC_003003' };
Comment on Re: create hashes using regex
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1038551]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2016-04-29 15:36 GMT
Find Nodes?
    Voting Booth?
    :nehw tseb si esrever ni gnitirW

    Results (441 votes). Check out past polls.