Solved

Overwriting part of one file with part of another file using unix script or perl

Posted on 2010-11-09
3
326 Views
Last Modified: 2012-05-10
Ok. I have one file that is updated with new numbers and I need to copy the data from file 1 and replace part of file 2 with the new numbers in file 1. I have attached file1 & file2 in their entirety. Basically if I have this below


2.4583E+07
1.3956E+03
5.39583E+07
1.2583E+05
5.39583E+07
4.3933E+05
5.39583E+06
7.1183E+07
1.07917E+08
4.85625E+09
1.3E+08
4.3E+08
7.5E+33
2.3E+08
4.3E+07
3.2E+05
2.3E+07
5.3E+08
4.6E+06
2.7E+10

The script needs to search for the part of the script below then replace only the data in column 5 (I believe its 5 but perhaps the script should check for the first characters that contain E+) with the new data above but only the portion above. Nothing else needs to be changed.

  echo "19.39 -155.100 50.0 5.39583E+07 300.0" >>CONTROL
  echo "19.39 -155.101 100.0 5.39583E+07 300.0" >>CONTROL
  echo "19.39 -155.102 150.0 5.39583E+07 300.0" >>CONTROL
  echo "19.39 -155.103 170.0 5.39583E+07 300.0" >>CONTROL
  echo "19.39 -155.104 190.0 5.39583E+07 300.0" >>CONTROL
  echo "19.39 -155.105 210.0 5.39583E+07 300.0" >>CONTROL
  echo "19.39 -155.106 230.0 5.39583E+07 300.0" >>CONTROL
  echo "19.39 -155.107 250.0 5.39583E+07 300.0" >>CONTROL
  echo "19.39 -155.108 270.0 1.07917E+08 300.0" >>CONTROL
  echo "19.39 -155.109 300.0 4.85625E+09 300.0" >>CONTROL
  echo "19.401391 -155.280640 50.0 2.3E+08 100.0" >>CONTROL
  echo "19.401391 -155.280740 150.0 2.3E+08 100.0" >>CONTROL
  echo "19.401391 -155.280840 300.0 2.3E+08 100.0" >>CONTROL
  echo "19.401391 -155.280940 350.0 2.3E+08 100.0" >>CONTROL
  echo "19.401391 -155.281040 400.0 2.3E+08 100.0" >>CONTROL
  echo "19.401391 -155.281140 450.0 2.3E+08 100.0" >>CONTROL
  echo "19.401391 -155.281240 550.0 2.3E+08 100.0" >>CONTROL
  echo "19.401391 -155.281340 600.0 2.3E+08 100.0" >>CONTROL
  echo "19.401391 -155.281440 650.0 4.6E+08 100.0" >>CONTROL
  echo "19.401391 -155.281540 700.0 2.07E+10 100.0" >>CONTROL
file1.txt
file2.txt
0
Comment
Question by:libertyforall2
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 84

Accepted Solution

by:
ozo earned 500 total points
ID: 34097798
#!/usr/bin/perl                                                                                    
open F1,"<file1.txt";
chomp (@f1=<F1>);
@ARGV=("file2.txt");
$^I=".bak";
while( <> ){
    s/([\d.]+E\+\d+)/shift @f1/e;
    print;
}
0
 

Author Closing Comment

by:libertyforall2
ID: 34097855
Perfect! your a genius!!
0
 
LVL 2

Expert Comment

by:rocman
ID: 34097978
I would use Perl as per attachment ...


#! perl
# Script arguments are NEW_DATA_FILE and FILE_TO_UPDATE

# Open new data file
open( INPUT_FH, $ARGV[0] ) ||
    die "Failed to open '$ARGV[0]' for reading: $!";

my @new_data = <INPUT_FH>;
close( INPUT_FH );
chomp( @new_data);

# Open existing data file and process each line
open( INPUT_FH, $ARGV[1] ) ||
    die "Failed to open '$ARGV[1]' for reading: $!";

my @old_data = <INPUT_FH>;
close( INPUT_FH );

my $data_idx = 0;
foreach ( @old_data ) {
	# Replace the measurement
    s/(.*)(\s+)([\d.]+E\+[\d]+)(\s.*)/$1$2${new_data[$data_idx++]}$4/ unless $data_idx == scalar(@new_data);
}

# Rewrite existing data file
open( OUTPUT_FH, '>' . $ARGV[1] ) ||
    die "Failed to open '$ARGV[1]' for overwrite: $!";

foreach ( @old_data ) {
    print( OUTPUT_FH $_ );
}

close( OUTPUT_FH );

Open in new window

0

Featured Post

Free eBook: Backup on AWS

Everything you need to know about backup and disaster recovery with AWS, for FREE!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

I thought I'd write this up for anyone who has a request to create an anonymous whistle-blower-type submission form created using SharePoint 2010 (this would probably work the same for 2013). It's not 100% fool-proof but it's as close as you can get…
Windows 10 came with  a lot of built in applications, Some organisations leave them there, some will control them using GPO's. This Article is useful for those who do not want to have any applications in their image (example:me).
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…

696 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question