Hi Ganesh!
First a few notes on your code.
On Monday 15 Mar 2010 14:10:25 Ganesh Babu N wrote:
> Dear All,
>
> I am using the following code to replace certain information in binary
> mode.
>
> $s=time();
> open(FH, "$ARGV[0]");
> open(OUT, ">$ARGV[1]");
Please see:
http://perl.net.au/wiki/Freenode_Sharp_Perl_FAQ#How_should_I_write_my_code.3F
> binmode FH;
> binmode OUT;
> $/=undef;
> $line=<FH>;
> $line=~s!(\d{3}\s(\/[^\n]*? f1)\s*([^\n]+sh\s*)+?\d{3}\s)ns!$1$2!gs
> while($line=~/(\d{3}\s(\/[^\n]*? f1)\s*([^\n]+sh\s*)+?\d{3}\s)ns/gs);
Why are you doing a /g substitution inside a loop checking for the same regex.
The /g will replace everything. Furthermore, you have defined three captures
and use only two. One of them should be (?:...).
> print OUT $line;
> $e=time();
> $r=$e-$s;
> close(FH);
> close(OUT);
> print "Done...\nRuntime: $r seconds";
>
> This is code is loading entire file content and doing the replacement.
> If we read line by line we can avoid the out of memory problem. But my
> replacement is depending on previous line. The below is the input:
Then keep all the relevant previous lines in an array or string that will
serve as a state.
>
> 224 /EuclidSymbol f1
> (D) -22 673 sh
> .....
> 320 ns
> .....
> 221 ns
>
> The output should be as follows:
>
> 224 /EuclidSymbol f1
> (D) -22 673 sh
> .....
> 320 /EuclidSymbol f1
> .....
> 221 /EuclidSymbol f1
>
Do you want to replace all the "ns" with the "/EuclidSymbol f1". This can be
done using a loop like that:
my $symbol;
my $new_symbol;
while (my $line = <$in_fh>)
{
if (($new_symbol) = ($line =~ /....($symbol_re).../))
{
$symbol = $new_symbol;
print {$out_fh} $line;
}
else
{
$line =~ s{^(\d+\s+)ns}{$1$symbol};
print {$out_fh} $line;
}
}
Hope it helps.
Regards,
Shlomi Fish
> I tried with Tie::File but is not loading Binary data. Please suggest
> how can i solve the problem. My file size is around 3GB
>
> Regards,
> Ganesh
--
-----------------------------------------------------------------
Shlomi Fish http://www.shlomifish.org/
First stop for Perl beginners - http://perl-begin.org/
Deletionists delete Wikipedia articles that they consider lame.
Chuck Norris deletes deletionists whom he considers lame.
Please reply to list if it's a mailing list post - http://shlom.in/reply .
|