Sponsored Content
Top Forums Shell Programming and Scripting Adding text to file on certain lines with(special characters) Post 302380624 by A4ron4perl on Tuesday 15th of December 2009 05:27:04 PM
Old 12-15-2009
I would love to use a one-liner from the command line. This is going into a larger script. This is my first script with perl and I am not a programmer. Opening a file is still awkward to me vs. something you are so used to it doesn't even register anymore.

What i would like to accomplish. Open a file. Write to file without overwriting everything or anything. If you had "vi" editing a file using :set number. I want to edit lines 31,39,40 etc without overwriting whats on those lines yet add new line with text.

Here is what I have that does not work Smilie Does what I want to accomplish make sense and am I close?

Code:
#!/usr/bin/perl
 
$file="/opt/control/etc/status";
open(FH, ">>$file")
or die "Can't open file: $!";
 
while (<FH>) {
        $count++; }
        if ($count==31) {
print FH qq[RM="rm2"];}
if ($count==40) {
print FH qq[$RM]
}
if ($count==43) {
print FH qq[rmDESC="Result Manager2"\n];
}
close FH;
exit;


Quote:
Originally Posted by durden_tyler
It would be much more helpful if you actually cut and paste what you tried, and show the error message clearly.



Sure.
Code:
cat -n f7

"f7" is my test file. "cat -n" displays the contents of my test file with the line numbers printed on the left. I've created the test file in such a way that it's easy to figure out the line number by looking at the content. For example, the first line says "this is line 1", 8th line says "this is line 8" and so on. That way, after the perl script is run, you can easily figure out-

(a) if some text was added before or after a line
(b) if some text replaced a line

Code:
$ perl -lne 'BEGIN {$RM="BLAH"}

- "perl" invokes the Perl interpreter
- "l", "n" and "e" are the command-line options.
- "l" prints a newline after a "print" command so you do not have to add an explicit "\n" in your "print" command.
- "n" creates a "while (<>){...}" loop around the program i.e. it executes the perl program on each line of the input stream (file "f7" in my case)
- "e" specifies that a program follows in the single quotes after it

- "BEGIN {$RM="BLAH"}" this is where all initialization resides. Code inside BEGIN executes only once - at the beginning, before the file is processed. Over here, the variable $RM is set to "BLAH" only once. If I do not put it inside "BEGIN", it will be unnecessarily initialized for every line in the file f7.

Code:
             if ($. == 3) {print qq(RM="rm2")}

$. is a special Perl variable that stores the line number of the input stream that is being processed currently. In my case the input stream is the file "f7". It is similar to the "NR" variable of awk. Perl has an extensive list of such variables that are of the form "$" followed by (I guess) almost every special character on your keyboard.

"qq" is a quote-like operator that is used along with "print" to print double quoted interpolated strings.

Code:
             elsif ($. == 5) {print qq($RM)}  
             elsif ($. == 7) {print qq(rmdesc="Result process")}
             else {print}' f7

"elsif" and "else" is used because $. - the line number can only be one of 3, 5, 7, something else. Note that "if ... elsif ... else" is preferable to "if(){...} if(){...} if(){...}" over here for each line.

So what the conditional loop does is this -

(a) if current line number is 3 then print RM="rm2" to the console, which means the original line 3 in the file f7 is not displayed.

(b) otherwise if current line number is 5 then print value of $RM i.e. BLAH, which means that the original line 5 in the file f7 is not displayed.

(c) otherwise if current line number is 7 then print rmdesc="Result process", which means that the original line 7 in the file f7 is not displayed.

(d) for every other line, print the original content in the file.

Note that the script reads the file and shows something to the standard output. That "something" could be original file content or something you want to display. It does not replace or alter or modify the file contents in any way.



Yes, it's called a "one-liner". Not sure what makes you think it will not work. It may not work for your requirements, but it does work as seen in the output of my previous post.



Again, if there is some text on line 30, and if you change the if/elsif condition accordingly, then this one-liner will read line 30 and print something else to the standard output (console). That's all it does. The file will remain as it was earlier.

HTH,
tyler_durden

Last edited by Scott; 12-15-2009 at 07:48 PM.. Reason: Added code tags
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

adding lines at special place in crontab

Hi , i export the crontab in a file (i've no root right) and i would add lines from a file at a special place and rewrite the output in an another file. the special place is as this : 45 04 * * * /home/toto.sh > /dev/null 2>&1 # so i would search for toto.sh and insert the lines , the... (5 Replies)
Discussion started by: Nicol
5 Replies

2. Shell Programming and Scripting

adding text to a file between lines

Suppose content of my first file: first line second line third line How can i insert text between "first line" & "second Iline" Any help?????/ (7 Replies)
Discussion started by: bishweshwar
7 Replies

3. Shell Programming and Scripting

Remove special characters from text file

Hi All, i am trying to remove all special charecters().,/\~!@#%^$*&^_- and others from a tab delimited file. I am using the following code. while read LINE do echo $LINE | tr -d '=;:`"<>,./?!@#$%^&(){}'|tr -d "-"|tr -d "'" | tr -d "_" done < trial.txt > output.txt Problem ... (10 Replies)
Discussion started by: kkb
10 Replies

4. Shell Programming and Scripting

[bash help]Adding multiple lines of text into a specific spot into a text file

I am attempting to insert multiple lines of text into a specific place in a text file based on the lines above or below it. For example, Here is a portion of a zone file. IN NS ns1.domain.tld. IN NS ns2.domain.tld. IN ... (2 Replies)
Discussion started by: cdn_humbucker
2 Replies

5. Shell Programming and Scripting

grep lines having special characters

Hi, I have a file which has numerous lines and some of the lines having special characters in it. i want to grep the lines which are having special characters. say, one line looks like - %*()$#@"", | acbd antoher line looks like ***##^%! | efcg so these kind of lines are present... (5 Replies)
Discussion started by: rbalaj16
5 Replies

6. Shell Programming and Scripting

Fetch the lines which contains special characters

Hi All, My source file contains special characters(Latin characters).I need to fetch only the lines which contains the special characters. The problem is i don't know which all latin/special characters can come in the source. Is there anyway to extract the lines which contain letters other... (3 Replies)
Discussion started by: joe!!
3 Replies

7. Shell Programming and Scripting

Lines starting with special characters

Hi I have a file and need to extract lines starting with "grep ^" I tried with quotes single/double before/after but no luck. suggestion pls, thanks! (2 Replies)
Discussion started by: magnus29
2 Replies

8. Shell Programming and Scripting

Help with listing file name containing particular text and count of lines with 10 characters.

Hi, I've 2 queries. I need to list files which doesn't contain a particular text in the content. For example say, I need to list files which doesn't contain string "abc" from all files ending with *.bad. How can I do that? Also, I want to display number of lines in a file which has atleast... (2 Replies)
Discussion started by: Gangadhar Reddy
2 Replies

9. UNIX for Dummies Questions & Answers

Search special characters in a file and replace with meaningful text messages like Hello

Search special characters in a file and replace with meaningful text messages like Hello (2 Replies)
Discussion started by: raka_rjit
2 Replies

10. UNIX for Dummies Questions & Answers

How to enter special characters in a text file using vi?

Hi, I need to create a test text file with the special characters \342\200\223 in it and to be able to use sed maybe to delete them I tried doing it using vi by pressing CTRL-V and then typing 342 but it does not work. After pressing CTRL-V and typing 342 it seems to just insert the numbers... (1 Reply)
Discussion started by: newbie_01
1 Replies
All times are GMT -4. The time now is 04:07 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy