Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: perl script to replace the text in the original file
Top Forums Shell Programming and Scripting perl script to replace the text in the original file Post 302682969 by giridhar276 on Tuesday 7th of August 2012 05:11:45 AM
Old 08-07-2012
perl script to replace the text in the original file
Hi Folks,

I have an html file which contains the below line in the body tagI am trying the replace hello with Hello Giridhar programatically.
Code:
<body>
<P><STRONG><FONT face="comic sans ms,cursive,sans-serif"><EM>Hello</EM></FONT></STRONG></P>
</body>

I have written the below code to replace the string and I am able to print it but how to replace the string(Hello Giridhar) in the html file.

Please correct the code where you think I made the mistakes.

Code:
 
my $filename = "theme1.htm";
my $old = "Hello";
my $new = "Giridhar";
$new = "$old ".$new;
open(my $fh, '<', $file_name) || die "file could not open $! \n";
while( $line = <$fh>) 
{
        if( $line =~ s/$old/$new/g ) 
        {
               print  "$line\n";
        }
}
close($fh);


Thanks in advance...
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

script - replace text in file

I have a file something like this (except much larger amount of rows/data) 0001 blue testing1 0002 blue testing2 0006 blue testing3 0232 red testing4 2143 blue testing5 3453 blue testing6 In a script I want to replace the word red with blue where the line begins with a... (4 Replies)
Discussion started by: frustrated1
4 Replies

2. Shell Programming and Scripting

insert text into the middle of a original file

how do u insert text into a specific place in a file, say the middle for example, without changing the name for that file (1 Reply)
Discussion started by: mopimp
1 Replies

3. Shell Programming and Scripting

Identify matching data in a file and output to original line, in perl

Hi, I haven't done this for awhile, and further, I've never done it in perl so I appreciate any help you can give me. I have a file of lines, each with 5 data points that look like this: AB,N,ALLIANCEBERNSTEIN HLDNG L.P,AB,N ALD,N,ALLIED CAPITAL CORPORATION,ALD,N AFC,N,ALLIED CAPITAL... (4 Replies)
Discussion started by: Pcushing
4 Replies

4. UNIX for Dummies Questions & Answers

Replace line via perl script of file

Hi All, I wanted to do following. 1) If file exit then open file for reading and check if my string is there then i wanted to replace the entire line with that string + something else then close the file. 2) If file does not exit then i need to open the file and write to it. I am done with... (0 Replies)
Discussion started by: Tarun24
0 Replies

5. Shell Programming and Scripting

gawk script to search and replace text in a flat file

Hi I am new to unix and newbie to this forum. I need help in writing a gawk script that search and replace particular text in a flat file. Input file text : ZIDE_CONTROL000 100000000003869920900000300000001ISYNC 000002225489 0000000002232122 20120321 16:40:53 ZIDE_RECORD000... (5 Replies)
Discussion started by: gkausmel
5 Replies

6. Shell Programming and Scripting

Perl script, replace file with newer file

Hello, Can you please help me one this: I have two servers: Server A and server B. Every day on 03.00AM in only one on these two servers (randomly)is generated one file, lets say file.txt. I want to copy this file also to the other server. I want to create a perl script that does... (2 Replies)
Discussion started by: arrals_vl
2 Replies

7. UNIX for Dummies Questions & Answers

Replace string with modifying original file

I have a file abc.txt with following data 121941602P911000497^123.001^^^^^^^^^0^10^OTHER 121941602P911000497^123.002^^^^^^^^^1^10^OTHER 121941602P911000497^123.003^^^^^^^^^2^10^OTHER 121941602P911000497^123.004^^^^^^^^^3^10^OTHER 121941602P911000497^123.005^^^^^^^^^4^10^OTHER I want to... (5 Replies)
Discussion started by: nsuresh316
5 Replies

8. Shell Programming and Scripting

Shell or perl script to replace XML text in bulk

Hi, I am looking for assistance over shell or perl (without XML twig module) which replace string in XML file under particular branch..example of code file sample.. Exact requirment : Replace "Su saldo es" in below file with "Your balance" but only in XML branch of Text id=98 and Text Id=12... (7 Replies)
Discussion started by: Ashu_099
7 Replies

9. Shell Programming and Scripting

Bash script to replace text file from a lookup file

Hi. I need assistance with the replacing of text into a specific file via a bash script. My bash script, once run, currently provides a menu of computer names to choose.The script copies onto my system various files, depending what computer was selected in the menu.This is working OK. Now, I... (1 Reply)
Discussion started by: jonesn2000
1 Replies

10. Shell Programming and Scripting

Perl script to read string from file#1 and find/replace in file#2

Hello Forum. I have a file called abc.sed with the following commands; s/1/one/g s/2/two/g ... I also have a second file called abc.dat and would like to substitute all occurrences of "1 with one", "2 with two", etc and create a new file called abc_new.dat sed -f abc.sed abc.dat >... (10 Replies)
Discussion started by: pchang
10 Replies

LEARN ABOUT DEBIAN

asp-perl

ASP-PERL(1p)						User Contributed Perl Documentation					      ASP-PERL(1p)

NAME

       asp-perl - Apache::ASP CGI and command line script processor

SYNOPSIS

       asp-perl [-hsdb] [-f asp.conf] [-o directory] file1 @arguments file2 @arguments ...

	   -h  Help you are getting now!
	   -f  Specify an alternate configuration file other than ./asp.conf
	   -s  Setup $Session and $Application state for script.
	   -d  Set to debug code upon errors.
	   -b  Only return body of document, no headers.
	   -o  Output directory, writes to files there instead of STDOUT
	   -p  GlobalPackage config, what perl package are the scripts compiled in.

DESCRIPTION

       This program will run Apache::ASP scripts from the command line.  Each file that is specified will be run, and the $Request->QueryString()
       and $Request->Form() data will be initialized by the @arguments following the script file name.

       The @arguments will be written as space separated words, and will be initialized as an associate array where %arguments = @arguments.  As
       an example:

	asp-perl file.asp key1 value1 key2 value2

       would be similar to calling the file.asp in a web environment like

	/file.asp?key1=value1&key2=value2

       The asp.conf script will be read from the current directory for parameters that would be set with PerlSetVar normally under mod_perl.  For
       more information on how to configure the asp.conf file, please see < http://www.apache-asp.org/cgi.html >

SEE ALSO

       perldoc Apache::ASP, and also http://www.apache-asp.org

COPYRIGHT

       Copyright 1998-2004 Joshua Chamas, Chamas Enterprises Inc.

       This program is distributed under the GPL.  Please see the LICENSE file in the Apache::ASP distribution for more information.

perl v5.14.2							    2011-08-15							      ASP-PERL(1p)
All times are GMT -4. The time now is 05:11 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy