Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Replace a value using a reference data from other file
Top Forums Shell Programming and Scripting Replace a value using a reference data from other file Post 302926753 by Chubler_XL on Wednesday 26th of November 2014 05:03:31 PM
Old 11-26-2014
This should do it:

Code:
awk '
function repstr(str,orig,pos) {
   return substr(str,1,pos-1) substr(orig,pos,1) substr(str,pos+1)
}
{k=substr($0,20,18)}
FNR==NR {
   if(!(k in keyline)) keylist[++keys]=k
   keyline[k]++
   N[k keyline[k]]=$0; next }
{
   keyline_orig[k]++
   key=k keyline_orig[k]
   next_klo = k keyline_orig[k]+1
}
next_klo in N && substr(N[next_klo],49,1) == "2" {
    N[key] = repstr(N[key],$0,48)
    N[key] = repstr(N[key],$0,76)
}
substr(N[key],49,1) == "2" {
    N[key] = repstr(N[key],$0,43)
    N[key] = repstr(N[key],$0,49)
    N[key] = repstr(N[key],$0,55)
    N[key] = repstr(N[key],$0,56)"x"
}
END {
   for(key=1;key<=keys;key++)
      for(keyln=1; (keylist[key] keyln) in N; keyln++)
          print N[keylist[key] keyln]"\r"
}' input.txt original_file.txt

This User Gave Thanks to Chubler_XL For This Post:
jiam912
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Find and replace data in text file with data in same file

OK I will do my best to explain what I need help with. I am trying to format an ldif file so I can import it into Oracle oid. I need the file to look like this example. Keep in mind there are 3000 of these in the file. changetype: modify replace: userpassword dn:... (0 Replies)
Discussion started by: timothyha22
0 Replies

2. Shell Programming and Scripting

Replace character based on reference file problem asking

I got two files right now, input file (target file), reference file 1 (query file) reference file 1 (long list of data) KOLOPWMOPOPO ADASDASD ADSASDASDAD . . target file (one long liner content) ADASDASDTYUKOKOLOPWMOPOPOOPLUAADSASDASDADPOPOUYADADASDASD desired output file content ... (1 Reply)
Discussion started by: patrick87
1 Replies

3. Shell Programming and Scripting

Replace data of one column with data on other file corresponding to transaction ID matched

Hi All, I have two files one of which having some mobile numbers and corresponding value whose sample content as follows: 9058629605,8.0 9122828964,30.0 And in second file complete details of all mobile numbers and sample content as follows and delimeter used is comma(,): ... (8 Replies)
Discussion started by: poweroflinux
8 Replies

4. Shell Programming and Scripting

Help with replace column one content based on reference file

Input file 1 testing 10 20 1 A testing 20 40 1 3 testing 23 232 2 1 testing 10 243 2 . . Reference file 1 final 3 used . . Output file (2 Replies)
Discussion started by: perl_beginner
2 Replies

5. Shell Programming and Scripting

Help with replace column one content based on reference file

Input file 1 testing 10 20 1 A testing 20 40 1 3 testing 23 232 2 1 testing 10 243 2 . . Reference file 1 final 3 used . . Output file (1 Reply)
Discussion started by: perl_beginner
1 Replies

6. Shell Programming and Scripting

Replace data of a file with data from another file using shell scripting.

Dears, I'm new to shell scripting and i was wondering if you can help me with following matter. I have a file containing 400,000 records. The file contains two columns like: 00611291,0270404000005453 25262597,1580401000016155 25779812,1700403000001786 00388934,1200408000000880... (1 Reply)
Discussion started by: paniklas
1 Replies

7. Shell Programming and Scripting

[Solved] Replace records according to reference

Dear All, I am struggling with the following task and would appreciate some help. I have a large table (file1.txt). The first column of this table contains an ID. I would like to replace the ID with a label according to a reference file. Here is an example: cat infile.txt 0 AJ2312 310 ... (7 Replies)
Discussion started by: GDC
7 Replies

8. Shell Programming and Scripting

Replace from reference file awk

Basically want to replace any field in input file from the refernce file ... for example. clar_2400:3113 in input file will be replaced by clar_2400:3113 Input file field seperator is "," Field which is not found in reference will stay as it is ... Input File ... (3 Replies)
Discussion started by: greycells
3 Replies

9. Shell Programming and Scripting

Compare data with reference from other file

Gents, Please can you help with this. I have a big file (file2) which contends many records increment every 25 rows ( column 1 ). Then I have other file as reference (file1).. column 1 to 11. I want to compare that all values in file2 (column 2 to 12.) match with values in... (2 Replies)
Discussion started by: jiam912
2 Replies

10. UNIX for Dummies Questions & Answers

awk to replace values in one file using a second reference file

Hi, I'd be grateful for your help with the following: I have a file with a single column (file1). Let's say the values are: a b c 5 d I have a second, reference file (ref_file), which is colon-delimited, and is effectively a key. Let's say the values in it are: a:1 b:2 c:3 d:4... (4 Replies)
Discussion started by: aberg
4 Replies

LEARN ABOUT DEBIAN

perl::critic::policy::builtinfunctions::prohibitlvaluesubstr

Perl::Critic::Policy::BuiltinFunctions::ProhibitLvalueSuUser(Contributed Perl DocPerl::Critic::Policy::BuiltinFunctions::ProhibitLvalueSubstr(3pm)

NAME

       Perl::Critic::Policy::BuiltinFunctions::ProhibitLvalueSubstr - Use 4-argument "substr" instead of writing "substr($foo, 2, 6) = $bar".

AFFILIATION

       This Policy is part of the core Perl::Critic distribution.

DESCRIPTION

       Conway discourages the use of "substr()" as an lvalue, instead recommending that the 4-argument version of "substr()" be used instead.

	   substr($something, 1, 2) = $newvalue;     # not ok
	   substr($something, 1, 2, $newvalue);      # ok

       The four-argument form of "substr()" was introduced in Perl 5.005.  This policy does not report violations on code which explicitly
       specifies an earlier version of Perl (e.g. "use 5.004;").

CONFIGURATION

       This Policy is not configurable except for the standard options.

SEE ALSO

       "substr" in perlfunc (or "perldoc -f substr").

       "4th argument to substr" in perl5005delta

AUTHOR

       Graham TerMarsch <graham@howlingfrog.com>

COPYRIGHT

       Copyright (c) 2005-2011 Graham TerMarsch.  All rights reserved.

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

perl v5.14.2							    2012-06-07	 Perl::Critic::Policy::BuiltinFunctions::ProhibitLvalueSubstr(3pm)
All times are GMT -4. The time now is 07:22 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy