Well, I was busy doing work (hrm. ;-) and reading other interesting posts. I also thought you would figure out, or somebody else would answer.
($name) = (split /:/, <FILE>) [0]; ($uid) = (split /:/, <FILE>) [2]; ($gid) = (split /:/, <FILE>) [3]; ($cmts) = (split /:/, <FILE>) [4];
With that code, each split works on a new line read off the file handle FILE. The correct way would be:
($name, $uid, $gid, $cmts) = (split /:/, <FILE>)[0,2,3,4];
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
In reply to Re^5: printing array reference and storing this data in a hash.
by shmem
in thread printing array reference and storing this data in a hash.
by mikejones
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |