Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Inserting a line to a file
Top Forums Shell Programming and Scripting Inserting a line to a file Post 302904883 by Gautham on Saturday 7th of June 2014 10:52:28 AM
Old 06-07-2014
Kindly try for this input with the same code you given above:
Code:
Type:lovers,Loc=South
003,PLAN3,60Days
004,PLAN4,60Days
005,PLAN5,60Days
Type:lovers,Loc=South
003,PLAN3,60Days
004,PLAN4,60Days
Type:lovers,Loc=East
003,PLAN3,60Days
004,PLAN4,60Days

The output is coming as given below:
Code:
Type:lovers,Loc=South 
003,PLAN3,60Days 
004,PLAN4,60Days 
005,PLAN5,60Days 
006,PLAN6,60Days 
Type:lovers,Loc=South 
003,PLAN3,60Days 
004,PLAN4,60Days 
Type:lovers,Loc=East 
003,PLAN3,60Days 
004,PLAN4,60Days

There is a small change to the code(i'm highlighting it):
Code:
awk -F, 'function dothis(last){
              if(f && /Type:/ || last)
                {
                    f  = 0
                    if(last)
                    {
                        print p RS $0 
                        next
                    }
                    else    print p
                } 
                  }

Last edited by Gautham; 06-07-2014 at 12:00 PM.. Reason: Changed the format, added changes
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Inserting New Line in File using Sed ??

Dear All, I have a file called football where i have a list of 11 players each on different lines. I wish to add a name of another player on the first line. I have created a file called footballscript in vi writing the following sed command to achieve this ... cat football | sed -e '1 i\... (4 Replies)
Discussion started by: Mary_xxx
4 Replies

2. Shell Programming and Scripting

comparing and inserting common line in other file

Hi, I have two files-- file1- file2:- i have to compare two files and where the uid is same i have to take the password and insert it above the telephone number. the output should be like this-- uid : 1418 common so insert the password thbs above the line telephonenumber. (2 Replies)
Discussion started by: namishtiwari
2 Replies

3. Shell Programming and Scripting

inserting a new line in a file

I'm sure you guys have answered this elsewhere but I can't seem to find where so here goes. #!/bin/bash n=120 a=$(sed '120q;d' energy.xvg) while ;do a=$(sed $n'q;d' energy.xvg) echo "$a \n" > newfile n=$(($n+100)) done exit 0 that script should read the file energy.xvg, start at... (1 Reply)
Discussion started by: gelitini
1 Replies

4. Shell Programming and Scripting

Need Help in Inserting a new line in a file using PERL

I need a perl script to find and replace a specific pattern in a file to a new line. BAsically I have a single line data in a file with 10 mb to 200 MB. I want to put a new line based on a specific pattern to open the file in Excel / Access. Following is the sample data in a file ... (1 Reply)
Discussion started by: portalfaq
1 Replies

5. Shell Programming and Scripting

inserting line to a file

I have posted it previously but somehow could not delete the previous post.I felt i could not explain the problem statement well. Here t goes.I have a file say File1. Now i need a specific pattern from the lines to be added to the other line. File: red blue green ABC.txt@ABC END black... (1 Reply)
Discussion started by: ngupta
1 Replies

6. Shell Programming and Scripting

Problem inserting text into file after specific line

this is utterly embarassing :( after posting here i revisited my files and found that when i used "vi" instead of a gui based editor, i suddenly found that the indentations were in fact wrong :( sorry about this :( (0 Replies)
Discussion started by: mocca
0 Replies

7. Shell Programming and Scripting

Inserting IP in one line of a file

Hi, I have this line: ip=111.222.133.144,mac=00:16:3E:2A:08:3C,vifname=veth360','ip=10.2.3.4,vifname=veth360a' ^ | ------- I want to insert this IP 144.133.222.111 between "144"... (4 Replies)
Discussion started by: iga3725
4 Replies

8. Shell Programming and Scripting

Inserting a line in a file after every alternate line

Friends , I have a large file and i need to insert a line after every line.I am actually unaware how to do it.Any help appreciated. My File control station *ATM* , qread $OSS.Jul13A.FI01 interval 1 intcount 1 control station *ATM* , qread $OSS.Jul13A.FI02 interval 1 intcount... (4 Replies)
Discussion started by: appu2176
4 Replies

9. Shell Programming and Scripting

Inserting a new line into an already existing file

hello .. I am new to perl scripting, I have a text file, and would like to insert 3 new lines into the same file at different line numbers using perl scripting. Any Help regarding this will be very useful. say the file is sample.txt, contents are aaaaa bbbb ccccc dddd eeeee ffffffff... (4 Replies)
Discussion started by: hemalathak10
4 Replies

10. UNIX for Beginners Questions & Answers

Inserting a blank line at the end of a .txt file?

Hi there, I am having this problem: a) I am uploading a txt file from windows (notepad) with some Gaussian 09 command lines; b) Gaussian needs in certain command files, that those files have a blank line at the end of the file! c) I open the command file with vi and no blank line at the of... (2 Replies)
Discussion started by: luismga
2 Replies

LEARN ABOUT DEBIAN

algorithm::checkdigits

CheckDigits(3pm)					User Contributed Perl Documentation					  CheckDigits(3pm)

NAME

       Algorithm::CheckDigits - Perl extension to generate and test check digits

SYNOPSIS

	 perl -MAlgorithm::CheckDigits -e Algorithm::CheckDigits::print_methods

       or

	 use Algorithm::CheckDigits;

	 @ml = Algorithm::CheckDigits->method_list();

	 $isbn = CheckDigits('ISBN');

	 if ($isbn->is_valid('3-930673-48-7')) {
	       # do something
	 }

	 $cn = $isbn->complete('3-930673-48');	   # $cn = '3-930673-48-7'

	 $cd = $isbn->checkdigit('3-930673-48-7'); # $cd = '7'

	 $bn = $isbn->basenumber('3-930673-48-7'); # $bn = '3-930673-48'

ABSTRACT

       This module provides a number of methods to test and generate check digits. For more information have a look at the web site
       www.pruefziffernberechnung.de (german).

SUBROUTINES
/METHODS
   CheckDigits($method)
       Returns an object of an appropriate Algorithm::CheckDigits class for the given algorithm.

       Dies with an error message if called with an unknown algorithm.

       See below for the available algorithms. Every object understands the following methods:

       is_valid($number)
	   Returns true or false if $number contains/contains no valid check digit.

       complete($number)
	   Returns a string representation of $number completed with the appropriate check digit.

       checkdigit($number)
	   Extracts the check digit from $number if $number contains a valid check digit.

       basenumber($number)
	   Extracts the basenumber from $number if $number contains a valid check digit.

   Algorithm::CheckDigits::method_list()
       Returns a list of known methods for check digit computation.

   Algorithm::CheckDigits::print_methods()
       Returns a list of known methods for check digit computation.

       You may use the following to find out which methods your version of Algorithm::CheckDigits provides and where to look for further
       information.

	perl -MAlgorithm::CheckDigits -e Algorithm::CheckDigits::print_methods

   CHECK SUM METHODS
       At the moment these methods to compute check digits are provided: (vatrn - VAT Return Number, in german ustid UmsatzSTeuer-ID)

       m07-001
	   See Algorithm::CheckDigits::M07_001.

       euronote, m09-001
	   European bank notes, see Algorithm::CheckDigits::M09_001.

       amex, bahncard, diners, discover, enroute, eurocard, happydigits, isin, jcb, klubkarstadt, mastercard, miles&more, visa, m09-001, imei,
       imeisv
	   See Algorithm::CheckDigits::M10_001.

       siren, siret, m10-002
	   See Algorithm::CheckDigits::M10_002.

       ismn, m10-003
	   See Algorithm::CheckDigits::M10_003.

       ean, iln, isbn13, nve, 2aus5, m10-004
	   See Algorithm::CheckDigits::M10_004.

       identcode_dp, leitcode_dp, m10-005
	   See Algorithm::CheckDigits::M10_005.

       rentenversicherung, m10-006
	   See Algorithm::CheckDigits::M10_006.

       sedol, m10-008
	   See Algorithm::CheckDigits::M10_008.

       betriebsnummer, m10-009
	   See Algorithm::CheckDigits::M10_009.

       postscheckkonti, m10-010
	   See Algorithm::CheckDigits::M10_010.

       ups, m10-011
	   See Algorithm::CheckDigits::M10_011.

       hkid, isbn, issn, nhs_gb, ustid_pt, vat_sl, wagonnr_br, m11-001
	   See Algorithm::CheckDigits::M11_001.

       pzn, m11-002
	   See Algorithm::CheckDigits::M11_002.

       pkz, m11-003
	   See Algorithm::CheckDigits::M11_003.

       cpf, titulo_eleitor, m11-004
	   See Algorithm::CheckDigits::M11_004.

       ccc_es, m11-006
	   See Algorithm::CheckDigits::M11_006.

       ustid_fi, vatrn_fi, m11-007
	   See Algorithm::CheckDigits::M11_007.

       ustid_dk, vatrn_dk, m11-008
	   See Algorithm::CheckDigits::M11_008.

       nric_sg, m11-009
	   See Algorithm::CheckDigits::M11_009.

       ahv_ch, m11-010
	   See Algorithm::CheckDigits::M11_010.

       ustid_nl, vatrn_nl, m11-011
	   See Algorithm::CheckDigits::M11_011.

       bwpk_de, m11-012
	   See Algorithm::CheckDigits::M11_012.

       ustid_gr, vatrn_gr, m11-013
	   See Algorithm::CheckDigits::M11_013.

       esr5_ch, m11-015
	   See Algorithm::CheckDigits::M11_015.

       ustid_pl, vatrn_pl, m11-016
	   See Algorithm::CheckDigits::M11_016.

       ecno, ec-no, einecs, elincs, m11-017
	   See Algorithm::CheckDigits::M11_017.

       isan, m16-001
	   See Algorithm::CheckDigits::M16_001.

       dni_es, m23-001
	   See Algorithm::CheckDigits::M23_001.

       ustid_ie, vatrn_ie, m23-002
	   See Algorithm::CheckDigits::M23_002.

       code_39, m43-001
	   See Algorithm::CheckDigits::M43_001.

       ustid_lu, vatrn_lu, m89-001
	   See Algorithm::CheckDigits::M89_001.

       ustid_be, vatrn_be, m97-001
	   See Algorithm::CheckDigits::M97_001.

       iban, m97-002
	   See Algorithm::CheckDigits::M97_002.

       upc, mbase-001
	   See Algorithm::CheckDigits::MBase_001.

       blutbeutel, bzue_de, ustid_de, vatrn_de, mbase-002
	   See Algorithm::CheckDigits::MBase_002.

       sici, mbase-003
	   See Algorithm::CheckDigits::MBase_003.

       pa_de, mxx-001
	   See Algorithm::CheckDigits::MXX_001.

       cas, mxx-002
	   See Algorithm::CheckDigits::MXX_002.

       dem, mxx-003
	   Old german bank notes (DEM), see Algorithm::CheckDigits::MXX_003.

       ustid_at, vatrn_at, mxx-004
	   See Algorithm::CheckDigits::MXX_004.

       esr9_ch, mxx-005
	   See Algorithm::CheckDigits::MXX_005.

       verhoeff, mxx-006
	   Verhoeff scheme, see Algorithm::CheckDigits::MXX_006 or Algorithm::Verhoeff

   EXPORT
       None by default.

SEE ALSO

       perl, www.pruefziffernberechnung.de.

AUTHOR

       Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>

THANKS

       Petri Oksanen made me aware that CheckDigits('IMEI') would invoke no test at all since there was no entry for this in the methods hash.

COPYRIGHT AND LICENSE

       Copyright 2004-2006 by Mathias Weidner

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.10.0							    2008-06-06							  CheckDigits(3pm)
All times are GMT -4. The time now is 11:19 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy