#!/usr/bin/perl -w #opening Rules1.txt for reading open(FIN, "< Rules1.txt") or die "unable to open Rules1.txt: err at $! +"; #opening for writing open(FOUT, "> Rules.txt") or die "unable to open Rules1.txt: err at $! +"; while(<FIN>) { $line = $_; $line =~ s#<b>#/*<b>#ig; $line =~ s#</b>#</b>*/#ig; print FOUT $line; } close(FOUT);
In reply to Re: replaceing text in file using replace prattern
by kprasanna_79
in thread replaceing text in file using replace prattern
by opensourcer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |