--- Govinderjit Dhinsa <[EMAIL PROTECTED]> wrote:
> I have a input file which is a fixed line file (all along one line,
> no " \n or \r ").
> ##################################################
> Q. How would I separate each data type, to do the following;
>
> At @fields 490, insert \r (carriage return).
>
> So I want the input file, to look like below, is a few *LINES* of
> example of the input file after inserting \r:
>
> 168127407932117187M000001080m200107035eN/A
> 168148007947033647M200107015m2100000000n/a
> 168149807947023347M000200107m0000034500n/a
> 168150607947058268M200107015y13 00000000n/a
> ##################################################
>
> I want to do this so that the while loop does not stop after the
> first selection, and continues looping, for each line (once they are
> separated)!
>
> As the problem being at the moment is that the while loop stops at
> the first selection!
> ##################################################
> <snip>
> ###################################################
> open ISCD,"<CALL_SUMMARY_CHANGES4_5.HADES;21" or die "Cannot open
> CALL_SUMMARY_CHANGES4_5.HADES;21",$!;
> open NEW,">aaaa.pl";
> while($line=<ISCD>){
> chomp $line;
> @fields = split //, $line;
> printf NEW '%1.1s' x 44, @fields[0..33,290..299];
> }
> close ISCD;
> close NEW;
> exit;
> [End of file]
> ##################################################
>
> Any help would be much appreciated!
>
> Kind Regards,
> GD
You could do binary reads (though I like splitting to characters as
above better):
while (read ISCD,$line,490) {
print "$line\r";
}
Though I think I may have misread the problem?
__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/
