in reply to Re: Print hash keys and lookup the keys for values in another file -- oneliner and more explained
in thread Print hash keys and lookup the keys for values in another filr

#/usr/bin/perl -w

use warnings;
use strict;
use Data::Dumper;

my (@county,%result);

my $inFile01 ="FILE01.dat";

             #CLAYCOUNTY;Wood;statecode=FL
             #CLAYCOUNTY;Wood;statecode=FL
             #SUWANNEECOUNTY;Wood;statecode=FL
             #SUWANNEECOUNTY;Wood;statecode=TX
             #SUWANNEECOUNTY;Wood;statecode=TX
             #SUWANNEECOUNTY;Wood;statecode=TX
             #NASSAUCOUNTY;Wood;statecode=UT

open(DATA01,'<',$inFile01)or die("Can't open input file\"$inFile01\":$
+!\n");
while (<DATA01>) {
    # Skipping if the line is empty or a comment
    next if ( $_ =~ /^\s*$/ );
    next if ( $_ =~ /^#\s*/ );
    
    my ($county,$srch,$stcode) = split(";",$_);
    chomp($srch,$county);
    
    if ($srch eq "Wood") { push (@county,$county) }
}
close(DATA01);

my $inFile02 ="FILE02.dat";

#119736;Residential;CLAYCOUNTY
#448094;Residential;CLAYCOUNTY
#206893;Residential;CLAYCOUNTY
#333743;Residential;CLAYCOUNTY
#172534;Residential;CLAYCOUNTY
#785275;Residential;CLAYCOUNTY
#995932;Residential;CLAYCOUNTY
#223488;Residential;CLAYCOUNTY
#433512;Residential;CLAYCOUNTY
#640802;Residential;SUWANNEECOUNTY
#403866;Residential;SUWANNEECOUNTY
#828788;Residential;SUWANNEECOUNTY
#751490;Residential;SUWANNEECOUNTY
#972562;Residential;SUWANNEECOUNTY
#367541;Residential;SUWANNEECOUNTY
#481360;Residential;SUWANNEECOUNTY
#920232;Residential;NASSAUCOUNTY
#727659;Residential;NASSAUCOUNTY
#471817;Residential;NASSAUCOUNTY
#983043;Residential;NASSAUCOUNTY
#578286;Residential;NASSAUCOUNTY

foreach my $cnty (@county) {
        my @countycode;
        open(DATA02,'<',$inFile02)or die("Can't open input file\"$inFi
+le02\":$!\n");
        
        while (<DATA02>) {
            # Skipping if the line is empty or a comment
            next if ( $_ =~ /^\s*$/ );
            next if ( $_ =~ /^#\s*/ );
            
            my ($code,$attr,$countyy) = split (";",$_);
            chomp ($code,$attr,$countyy);
            
            if ($countyy eq $cnty) { push @countycode, $code; }
            
            $result{$cnty} = [@countycode]
        }
}
close(DATA02);

print Dumper \%result;

foreach my $key (keys %result) {
        print "$key" . "\n";
        my $op = join "|", @{$result{$var}};
        print "$op" . "\n";
}

[download]

I am able to get thw desired values. One last thing with printing the output to an another file now which is required as below: for all the values in @{$result{$var}} I need to print as follows to a output file (No particular order) - for 119736 Need two lines in file as below (similarly for all).

L|A|119736|119736|||||||||||||||||||||||
M|A|119736||||Wood|Wood|CONSTANT_STRING

[download]

complete file looks like

L|A|119736|119736|||||||||||||||||||||||
M|A|119736||||Wood|Wood|CONSTANT_STRING
L|A|448094|119736|||||||||||||||||||||||
M|A|448094||||Wood|Wood|CONSTANT_STRING
L|A|206893|206893|||||||||||||||||||||||
M|A|206893||||Wood|Wood|CONSTANT_STRING
L|A|333743|333743|||||||||||||||||||||||
M|A|333743||||Wood|Wood|CONSTANT_STRING
L|A|172534|172534|||||||||||||||||||||||
M|A|172534||||Wood|Wood|CONSTANT_STRING

.....
....
....

[download]
Thanks.
  • Comment on Re^2: Print hash keys and lookup the keys for values in another file -- oneliner and more explained
  • Select or Download Code

Replies are listed 'Best First'.
Re^3: Print hash keys and lookup the keys for values in another file -- oneliner and more explained
by poj (Abbot) on Feb 10, 2017 at 17:18 UTC

    Use a hash rather than 2 loops. Format the output with printf

    #/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

my $search = 'Wood';

my %file01 = ();
my $inFile01 = "FILE01.dat";
open DATA01,'<',$inFile01
  or die "Can't open file '$inFile01' : $!";

while (<DATA01>) {
  chomp;
  # Skipping if the line is empty or a comment
  next if ( $_ =~ /^\s*$/ );
  next if ( $_ =~ /^#\s*/ );
  
  my ($county,$var,$stcode) = split ";",$_;
  if ($var eq $search) { 
    $file01{$county} = 1;
  }
}
close DATA01;
print Dumper \%file01;

my %result = ();
my $inFile02 = "FILE02.dat";
open DATA02,'<',$inFile02
   or die "Can't open file '$inFile02' : $!";
    
while (<DATA02>) {
  chomp;
  # Skipping if the line is empty or a comment
  next if ( $_ =~ /^\s*$/ );
  next if ( $_ =~ /^#\s*/ );
      
  my ($code,$attr,$county) = split ";",$_;
  if ( exists $file01{$county} ) { 
    push @{ $result{$county} },$code
  }
}
close DATA02;
print Dumper \%result;

my $fmt_1 = "L|A|%d|%d|||||||||||||||||||||||\n";
my $fmt_2 = "M|A|%d||||%s|%s|CONSTANT_STRING\n";
foreach my $county (keys %result) {
  for my $id ( sort @{$result{$county}} ){
    printf $fmt_1,$id,$id;
    printf $fmt_2,$id,$search,$search;
  }
}

    [download]
    poj
[reply]
[d/l]
      Thank you.
[reply]

In Section Seekers of Perl Wisdom