Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Need Help for Adding Three new columns in existing file from fatching data from file
Top Forums Shell Programming and Scripting Need Help for Adding Three new columns in existing file from fatching data from file Post 302237111 by summer_cherry on Wednesday 17th of September 2008 02:14:17 AM
Old 09-17-2008
Maybe below perl script can help you some.
Code:
open FH1,"<home";
while(<FH1>){
	@arr=split(" ",$_);
	$home{$arr[1]}="";
}
close(FH1);
open FH2,"<folder";
while(<FH2>){
	@arr=split("\"",$_);
	$arr[1]=~tr/ //d;
	if (exists($home{$arr[1]})){
		$home{$arr[1]}=$arr[3];
	}
}
close(FH2);
open FH3,"<full";
while(<FH3>){
	@arr=split("\"",$_);
	@temp=split(":",$arr[1]);
	for $key (keys %home){
		if($temp[0] eq $home{$key}){
			$home{$key}=sprintf("%s %s %s",$temp[0],$temp[1],$temp[2]);
		}
	}
}
close(FH3);
open FH1,"<home";
while(<FH1>){
	@arr=split(" ",$_);
	$_=~tr/\n//d;
	if(exists($home{$arr[1]})){
		print $_," ",$home{$arr[1]},"\n";
	}
	else{
		print $_,"\n";
	}
}

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Adding header to an existing file

Dear All, I need to add a header of one line to an already existing file. I know that it can be achieved by the following: echo "Header" > newfile cat file1 >> newfile But my problem is that file is huge and there is no space for creating a new file every time. Is there a way that I can... (5 Replies)
Discussion started by: shash
5 Replies

2. UNIX for Dummies Questions & Answers

Add line with data to existing file

i have a file called motors with 3 columns separated with tabs eg: car make reg i want to create a executable file that will add a line with data eg: car make reg benz s600 t35778 can you please show me how to do this? (7 Replies)
Discussion started by: fletcher
7 Replies

3. Shell Programming and Scripting

Adding file to an existing tar

Hi Friends, I want to know the command to add a new file in a existing tar file. For Ex: I have a tar file file1.tar with the contents one.txt two.txt three.txt Now I need to add file four.txt to this existing tar file, how can I do it? Thanks in advance (4 Replies)
Discussion started by: mr_manii
4 Replies

4. Shell Programming and Scripting

Adding a new column in a file with other existing columns

Hi All , Kindly help me with this soln awk '{printf "%s %7s \n", $1,$c}' infile where value of variable c I am externally giving input But executing the above command shows all the columns of infile where as I want only 1st column of infile and 2nd column should print value c (8 Replies)
Discussion started by: Pratik4891
8 Replies

5. Shell Programming and Scripting

Adding existing set of records in the same file

I have a file with 50,000 records in it, i have a requirement to use the same 50,000 records and add them 4 times to the same file to make a total of 200,000 records. I was wondering how to do this using ksh. Any help is greatly appreciated. (2 Replies)
Discussion started by: vpv0002
2 Replies

6. Shell Programming and Scripting

add more data to existing data in a file

Hi all, I need help to add additional data from file2 to existing data in file 1 using awk, sed or perl. the ID in file 1 should match against field $3 in file2 file1 #this is a new game ID HR_1 BASE1 30 BASE2 37 DETAIL No TYPE L @@ ID HR_10 BASE1 6030 BASE2 ... (4 Replies)
Discussion started by: redse171
4 Replies

7. Shell Programming and Scripting

Awk to add columns from a file into an existing file

Hi! I would need some help to add the last two columns of one file into another file using awk (or something similar). For example, I have: file 1: file 2: car book day root lag bar look pay boot tag tar took may moot sag I want to have:... (5 Replies)
Discussion started by: coconaza
5 Replies

8. Shell Programming and Scripting

Generate tabular data based on a column value from an existing data file

Hi, I have a data file with : 01/28/2012,1,1,98995 01/28/2012,1,2,7195 01/29/2012,1,1,98995 01/29/2012,1,2,7195 01/30/2012,1,1,98896 01/30/2012,1,2,7083 01/31/2012,1,1,98896 01/31/2012,1,2,7083 02/01/2012,1,1,98896 02/01/2012,1,2,7083 02/02/2012,1,1,98899 02/02/2012,1,2,7083 I... (1 Reply)
Discussion started by: himanish
1 Replies

9. Shell Programming and Scripting

Adding columns with values dependent on existing columns

Hello I have a file as below chr1 start ref alt code1 code2 chr1 18884 C CAAAA 2 0 chr1 135419 TATACA T 2 0 chr1 332045 T TTG 0 2 chr1 453838 T TAC 2 0 chr1 567652 T TG 1 0 chr1 602541 ... (2 Replies)
Discussion started by: plumb_r
2 Replies

10. Shell Programming and Scripting

Help with add existing file name as new data column in new output file

Input File 1 cat S1.txt MI0043 2731 miR-1 Input File 2 cat S4.txt MI006 310 CiR-1 MI057 10 CiR-24 MI750 5 CiR-24 Desired Output File 1 cat S1.txt.out MI0043 2731 miR-1 S1.txt Desired Output File 2 cat S4.txt.out MI006 310 CiR-1 S4.txt (3 Replies)
Discussion started by: perl_beginner
3 Replies

LEARN ABOUT DEBIAN

test::inline::content::legacy

Test::Inline::Content::Legacy(3pm)			User Contributed Perl Documentation			Test::Inline::Content::Legacy(3pm)

NAME

       Test::Inline::Content::Legacy - Test::Inline 2 Content Handler for legacy functions

SYNOPSIS

       Custom script content generation using Test::Inline 2.000+ with a custom generator functions

	 my $header = "....";
	 my $function = sub {
	       my $Object = shift;
	       my $Script = shift;
	       return $header . $Script->merged_content;
	 };

	 my $Inline = Test::Inline->new(
	       ...
	       file_content => $function,
	       );

       Migrating this same code to Test::Inline 2.100+ ContentHandler objects

	 my $header = "....";
	 my $function = sub {
	       my $Object = shift;
	       my $Script = shift;
	       return $header . $Script->merged_content;
	 };

	 my $ContentHandler = Test::Inline::Content::Legacy->new( $function );

	 my $Inline = Test::Inline->new(
	       ...
	       ContentHandler => $ContentHandler,
	       );

DESCRIPTION

       This class exists to provide a migration path for anyone using the custom script generators in Test::Inline via the "file_content" param.

       The synopsis above pretty much says all you need to know.

METHODS

   new $CODE_ref
       The "new" constructor for "Test::Inline::Content::Legacy" takes a single parameter of a "CODE" reference, as you would have previously
       provided directly to "file_content".

       Returns a new "Test::Inline::Content::Legacy" object, or "undef" if not passed a "CODE" reference.

   coderef
       The "coderef" accessor returns the "CODE" reference for the object

   process $Inline $Script
       The "process" method works with the legacy function by passing the Test::Inline and Test::Inline::Script arguments straight through to the
       legacy function, and returning it's result as the return value.

SUPPORT

       See the main SUPPORT section.

AUTHOR

       Adam Kennedy <adamk@cpan.org>, <http://ali.as/>

COPYRIGHT

       Copyright 2004 - 2010 Adam Kennedy.

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

       The full text of the license can be found in the LICENSE file included with this module.

perl v5.12.4							    2010-11-22					Test::Inline::Content::Legacy(3pm)
All times are GMT -4. The time now is 04:01 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy