[Omaha.pm] perl

[Jay Hannah]

On Apr 24, 2012, at 8:46 AM, Klinkebiel, David L wrote:
> Jay, I got this perl to work last night for my files. If you wanted to separate out the files into individual chr would this section look like this. Thanks
> 
>> my %parts = ( 
>>  1 => qr/^chr[1]$/,
>>  2 => qr/^chr[2]$/,
>>  3 => qr/^chr[3]$/,
>>  4 => qr/^chr[4]$/,
>>  5 => qr/^chr(5)$/,
>>  6 => qr/^chr[6]$/,
>>  7 => qr/^chr[7]$/,
>>  8 => qr/^chr[8]$/,
>>  9 => qr/^chr[9]$/,
>>  9 => qr/^chr[10]$/,
>>  9 => qr/^chr[11]$/,
> etc


OK. Glad you got it working.  :)

We could write a much more elegant version of the program now that all you want is a new file for each value of the first field. 

But if it's working for you I won't "fix" it.  :)

j