-------------replace.pl-----------
#!/bin/perl -w
# INPUT STRING
my $in_str = ".import <TOLL_FREE_IFILE>";
# REPLACE STRING
my $repl = "/home/madhu/apps/toll.txt";
$_=$in_str;
# I don't want to use following, because
# "TOLL_FREE" will be changed each time
#s/<TOLL_FREE_IFILE>/$repl/;
# FOLLOWING WILL NOT WORK
#s/_IFILE>/$repl/;
# FOLLOWING WILL NOT WORK
s/<([A-Z]+)_IFILE>/$repl/;
# HOW TO DO THIS ?
# Should print following
# OUT PUT STR : .import /home/madhu/apps/toll.txt
print "OUT PUT STR : $_\n";
----------------------------------
__________________________________
Do you Yahoo!?
Win a $20,000 Career Makeover at Yahoo! HotJobs
http://hotjobs.sweepstakes.yahoo.com/careermakeover
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
