%title = ( value => 'Welcome to my website!',
char_ct => 22,
word_ct => 4,
repeat_ct => 1 );
%keywords = ( value => 'candy, food, pop, candy cane, soda, caffeine',
char_ct => 31,
word_ct => 5,
repeat_ct => 2 );
etc...
####
%tags = ( title => { value => 'Welcome to my website!',
char_ct => 22,
word_ct => 4,
repeat_ct => 1 },
keywords => { value => 'candy, food, pop, candy cane, soda, caffeine',
char_ct => 31,
word_ct => 5,
repeat_ct => 2 } );
##
##
$title{value} = 'Welcome to my website!';
##
##
$tags{title}{value} = 'Welcome to my website!';
##
##
( $num_chars, $num_words ) = count_chars_words( $tags{title} );
sub count_chars_words
{
my ( $hashref ) = @_;
my $value = ${ $hashref }{value};
# count stuff and return
}
##
##
$tags{keywords}{val_list} = [ ( split( ', ', $tags{keywords}{value} ) ) ];
print ${ $tags{keywords}{val_list} }[2]; # pop