#!/usr/bin/perl
use Data::Dumper;
use File::Copy 'move';

foreach
  my $file (</data/admin/scripts/SapcmedadpebM/xdecoder/decodedir/MHSAPC/*csv>)
{

    # work with files changed more than 10 minutes ago
    next if time - ( stat $file )[9] < 10 * 60;
    print scalar localtime;    # instead of `date`
    {
        local @ARGV = ($file);    # edit this file
        local $^I   = "";         # enable in-place editing without backup
      LINE: while ( defined( $_ = <ARGV> ) ) {
            s/[^[:ascii:]]//g;
            tr/\015//d;
            s/QOS_PROFILE_ID/x1/g;
            s/CHARGING_PROFILE_ID/x2/g;
            s/CONTENT_FILTERING_PROFILE_ID/x3/g;
            s/SUBSCRIBERID/x4/g;
            s/RECORD_LENGTH/x5/g;
            s/RECORD_TYPE/x6/g;
            s/EVENT_ID/x7/g;
            s/EVENT_RESULT/x8/g;
            s/CAUSE_PROTOCOL/x9/g;
            s/DEFAULT_BEARER_ID/x0/g;
            s/ARP_PRIORITY_LEVEL/y1/g;
            s/ARP_CAPABILITY/y2/g;
            s/ARP_VULNERABILITY/y3/g;
            s/BEARER_CONTROL_MODE/y4/g;
            s/TRACKING_AREA_CODE/y5/g;
            s/ROUTING_AREA_CODE/y7/g;
            s/SERVICE_AREA_CODE/y8/g;
            s/SYSTEM_IDENTIFIER/y9/g;
            s/NETWORK_IDENTIFIER/y0/g;
            s/GX_RAR_RAA_TRANSACTION/TRAR/g;
            s/GX_CCR_CCA_TRANSACTION/TCCA/g;
            s/QUOTA_GRANTED/TQG/g;
            s/QOS_ASSIGNED_TO_DEFAULT_BEARER/TQA/g;
            s/RULE_INSTALLED/TRI/g;
            s/RULE_REMOVED/TRR/g;
        }
        continue {
            die "-p destination: $!\n" unless print $_;
        }
    }
    move( $abc1,
        "/data/admin/scripts/SapcmedadpebM/xdecoder/decodedir/compleat/" );
}