Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: hash keys from another file

by choroba (Canon)
on Mar 23, 2013 at 12:31 UTC ( #1025030=note: print w/ replies, xml ) Need Help??

in reply to hash keys from another file

You do not need to load any file to an array. Just build a hash from the param file, then process the sent file line by line and output the count if you can find it:

#!/usr/bin/perl use warnings; use strict; my %counts; open my $PARAM, '<', 'param' or die "param: $!"; while (<$PARAM>) { my ($count, $word) = split; $counts{$word} = $count; } open my $SENT, '<', 'sent' or die "sent: $!"; while (<$SENT>) { chomp; print; print " $counts{$_}" if exists $counts{$_}; print "\n"; }
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: hash keys from another file
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1025030]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2015-11-27 11:00 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (724 votes), past polls