I have a fixed length file and it has a extra space at position 740, i need to develop a Perl script which navigates the file line by line and removes the space at position 740.
I like to know the regular expression syntax for replacing space at column postion 740 in perl. I am new to Perl and any help here is appreciated.
My Code sample:
-------------------------
$file = 'File1.out';# Name the file
$outfile = 'file1_outfile.out';
$aa=1;
open(file) or die("Could not open input file.");
open(OUTFILEHANDLE,">$outfile") or die("Could not open output file.");
foreach $line (<file>)
{
# $line=~s///; -----> Syntax needed here.
print OUTFILEHANDLE "$line";
}
close(file);
close(OUTFILEHANDLE);
Bookmarks