Try it this way.. see the code below.
open ISCD,"<CALL_SUMMARY_CHANGES4_5.HADES;21" or die "Cannot open
CALL_SUMMARY_CHANGES4_5.HADES;21",$!;
#This puts ISCD into an array for processing.
@temparray = <ISCD>;
#This gets ISCD closed and safely out of harms way.
close (ISCD);
open NEW,">aaaa.pl";
foreach $line (@temparray){
chomp $line;
@fields = split //, $line;
printf NEW '%1.1s' x 44, @fields[0..33,290..299];
}
close NEW;
exit;
I'm a little doubtful about the nature of the split you're doing, but try it
that way and see if it works.
Also.. in the foreach() loop, place the statement print("Ran the loop!\n");
and see if it's printing out over and over.. that'll prove that the loop is
working and the problem may lie elsewhere. If it does, I'll be more than
happy
to help.
Robert Aspinall
Support Engineer
V-ONE Corporation
[EMAIL PROTECTED]
