Yes, it should be possible but the syntax might get
sticky. As
scorpio17 says in this thread, what you want to do with the data is one the the deciding factors in how you want to store it. (Along with other factors). If the data is too large to load into memory, you may need to consider some of the suggestions offered by others here.
If the requirement is just to produce output like you provided, a Hash of Hashes may be a good choice.
#!/usr/bin/perl
use strict;
use warnings;
my %data;
while (<DATA>) {
my ($user, $site, $cat) = /"([^"]+)"/g;
$data{$user}{$site} = $cat;
}
for my $user (keys %data) {
my $href = $data{$user};
print $user, "\n";
print "\tWebsite: $_, Category: $href->{$_}\n" for keys %$href;
}
__DATA__
user="john" website="www.yahoo.com" type="Entertainment"
user="david" website="www.facebook.com" type="Social Networking"
user="john" website="www.facebook.com" type="Social Networking"
user="mike" website="www.google.com" type="Search Engines"
Output was:
john
Website: www.yahoo.com, Category: Entertainment
Website: www.facebook.com, Category: Social Networking
mike
Website: www.google.com, Category: Search Engines
david
Website: www.facebook.com, Category: Social Networking
Update: With a file this large, would it be likely for one user to visit the same website more than once?
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.