昔作ったperl_2

昔作ったperlの2個目

ピポットでマックスと伝票番号枠のmaxとminを取得するのに作成。

ハッシュにいれつつif分でデータ修正することが目的　だった気がする。。。

#!/usr/bin/perl
############################################################################
#----------------------------------------------------------------------------------------#
use     Data::Dumper;
use     English;
use     File::Basename;
#----------------------------------------------------------------------------------------#
# 検索
#----------------------------------------------------------------------------------------#
my  $hash   =   {};
{
#104,705,912,20180427,036600,036600
    while   (my $rec =  <>)  {
        chomp $rec;
        
        my ( $kok, $dm_no, $syukkahyo, $hasso_yymmdd, $uriage, $hatu ) = split( /,/, $rec );
        
        s/\s*$//    for ( $uriage, $hatu );
            
        my $key =   sprintf( "%s,%s", $kok, $syukkahyo );
        
        unless  ( exists( $hash->{$key} ) ) {
            $hash->{$key}   = {
                MAX =>  $dm_no,
                MIN =>  $dm_no,
                CNT =>  1,
            };
            next;
        }
        
        
        $hash->{$key}->{MAX}    =   $dm_no
            if  $hash->{$key}->{MAX} lt $dm_no;
        
        $hash->{$key}->{MIN}    =   $dm_no
            if  $dm_no lt $hash->{$key}->{MIN};
        
        $hash->{$key}->{CNT}++;
        
    }
}

{
    for my $key ( keys %$hash) {
        printf( "%s,%s,%s,%10d\n", $key, $hash->{$key}->{MIN}, $hash->{$key}->{MAX}, $hash->{$key}->{CNT} );
    }
}


#-----------------------------------------------------------#
exit

久しぶりに作ったらうまくできなかったのでちょっと追記。。。

#!/usr/bin/perl
############################################################################
#----------------------------------------------------------------------------------------#
use     Data::Dumper;
use     English;
use     File::Basename;
#----------------------------------------------------------------------------------------#
# 検索
#----------------------------------------------------------------------------------------#
my  $hash   =   {};
my  $TECD   =   {};

# 引数の処理
my  $rec      =   @ARGV[0];
my  $file      =   @ARGV[1];

open(IN, "$file");
{
    while (my $file = <> ){
        chomp $file;
        my ( hoge ) = split( ",", $file );  
        $TECD{$hoge} = "$hoge";
    }
}

open(IN, "$rec");
{
    while (my $rec =  ){
        chomp $rec;
        my ( hogehoge ) = split( /,/, $rec );
        my $key = sprintf("%s", $StoreCode);
        if (exists $TECD{$key} ) {
            print "hogehoge\n";
        }
    }
}

#-----------------------------------------------------------#
exit