Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: create hashes using regex

by frozenwithjoy (Curate)
on Jun 12, 2013 at 17:54 UTC ( #1038530=note: print w/ replies, xml ) Need Help??


in reply to create hashes using regex

Here is a non-regex solution, too:

#!/usr/bin/env perl use strict; use warnings; my %hash = map { chomp; split /\t/; } <DATA>; use Data::Printer; p %hash; __DATA__ 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

Output:

{ 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" }


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://1038530]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2014-07-26 14:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (177 votes), past polls