Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2014-09-21 18:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (174 votes), past polls