On Wed, Jan 14, 2004 at 09:57:51PM -0600, James Edward Gray II ([EMAIL PROTECTED])
wrote:
> On Jan 14, 2004, at 7:22 PM, Jose Malacara wrote:
<snip>
> Since you've already been shown the super easy way, I'll dare to be a
> little different:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> $/ = ''; # enter "paragraph" mode
> while (<>) { # call with: perl script_name file1
> my %contact = map { /^(\w+):\s*(.+)$/ } split /\n/, $_;
> print "$_: $contact{$_}\n" foreach qw(Name City State);
> print "\n"
> }
>
> __END__
>
> The first way your were shown is probably a little easier, but this
> method is probably better if you want to do anything more complicated
> than simple printing, since you have the whole hash to play with. It's
> a different way of thinking about the problem at least.
Thanks for posting this. My first thought was a hash, thinking in terms
of key-item but I couldn't figure out how to populate the hash. This
code will give me something to analyze. The "map" function looks like
voodoo to me:)
Kent
--
"I am always doing that which I can not do,
in order that I may learn how to do it." --Pablo Picasso
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
