Re^2: Column Heading and Split Function

hmmm.

use File::Slurp;

$_ = read_file(\*DATA);
/$/mg; # skip first line
my %rates = /^(\w+)\h+(\d+)/mg;

$, = "\t";
print %rates;

__DATA__
Patient Heart Rates
Molly   70
Glenn   69
[download]

Comment on Re^2: Column Heading and Split Function Download Code

Replies are listed 'Best First'.
Re^3: Column Heading and Split Function by McA (Priest) on Mar 28, 2013 at 17:46 UTC
One more reduction and we have to put this node into Obfuscation... ;-) But while thinking it's interesting it deserves a ++ McA	[reply]
Re^4: Column Heading and Split Function by hdb (Monsignor) on Mar 28, 2013 at 18:52 UTC
`<DATA>; # remove header line $/=undef; # instead of File::Slurp my %rates = split /\s+/, <DATA>; print map { "$_ $rates{$_}\n" } keys %rates; __DATA__ Patient Heart Rates Molly 70 Glenn 69` [download]	[reply] [d/l]
Re^5: Column Heading and Split Function by Not_a_Number (Prior) on Mar 28, 2013 at 20:07 UTC
`$. > 1 and say join ' ', split while <DATA>;`	[reply] [d/l]
Re^6: Column Heading and Split Function by McA (Priest) on Mar 28, 2013 at 20:25 UTC
Re^6: Column Heading and Split Function by Anonymous Monk on Mar 28, 2013 at 23:37 UTC