If I have read correctly you are scanning an input file and outputting changed lines only where column 12 is 000015, 000030 or 000060. Column 13 is changed to 92, 46 or 23 and a number of blank columns (8, 4 or 2) starting at 30 are removed.

Since there looks to be a pattern to your changes I have coded them into a hash to avoid the multiple ifs.

#!/usr/bin/perl 
use strict;        
use warnings;    

my $infile  = $ARGV[0];
my $outfile = $ARGV[1] || 'resultfile.txt';

unless (@ARGV) {
  die "Usage: ReplaceNewLine.pl <inputfile> [<outputfile>] \n";
}

open IN, '<', $infile 
   or die "$infile not found in current location";

open OUT, '>', $outfile 
   or die "Cannot open $outfile";
   
# Place header from source file into $header variable
my $header = <IN>;
print OUT $header;

# changes
my %change = (   
  '000015' => [92,30,8],
  '000030' => [46,30,4],
  '000060' => [23,30,2],
);

# enhanced or standard files
my @field = split "~",<IN>;;
my $filetype = $field[14] ? 'Enhanced' : 'Standard';
if ($filetype eq 'Enhanced') {
  
  # process lines
  my $count=0;
  foreach my $line (<IN>) {
    ++$count;
    chomp($line);
    my @field = split "~", $line;        
    if ( exists $change{$field[11]} ) {    
    
      $field[12] = $change{$field[11]}[0];
      my $posn   = $change{$field[11]}[1];
      my $cut    = $change{$field[11]}[2];
    
      my $discard = join '',splice(@field,$posn,$cut);
      warn "Warn : $discard discarded at line $count" if ($discard);
      
      print OUT join '~',@field;
      print OUT "\n";
    }
  } 
  print "$count lines processed from $infile\n";
} 

close IN;
close OUT;

[download]

Note the first 2 lines of input are not processed

poj

In reply to Re^3: Removing specific array elements by poj
in thread Removing specific array elements by phamalda

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.