awk '
NR==FNR{ # When the first file is being read (only then are FNR and NR equal)
A[$1]=$3 # create an (associative) element in array A with the first field as the index and the 3rd field as value
B[$1]=$2 # create an (associative) element in array B with the first field as the index and the 2rd field as value
next # start reading the next record (line)
}
$2 in A{ # while reading the second file, if field 2 is present in array A (we could also have chosen B)
$6=B[$2] # then set field 6 to the element in array B with the second field as the index
$14=A[$2] # and set field 14 to the element in array A with the second field as the index
}
1 # print the record (line)
' FS=\| OFS=\| file1 file2 # Set the input and output field separator to the pipe symbol and read file 1 and then file 2
Hope this helps...
This User Gave Thanks to Scrutinizer For This Post:
Hi,
I have a file like this.
"2006","10",25,"U","1129","32","C",0,0,0,0,0,0,0,0,0,0,0,0,352,16,4,0,0,0,0,0,"80",,1
"2006","11",25,"U","1148","32","C",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"80",,2
"2006","14",25,"U","1149","10","C",0,0,0,0,0,0,0,0,0,0,0,0,560,12,0,0,0,0,0,0,"80",,3... (1 Reply)
i want to take position 19-24(only first line) from all files and need to compare any duplication is there or not.
If duplication, then i have to print the file names.
I have written to take the characters from 19-24 from all files. but how to compare ?
... (1 Reply)
Hi,
I need to compare a column in two different csv files
file1
xyz.com,2/2/12,a,b,c
eg.com,2/2/23,a,b,ga
file2
1,2,ua,xyz.com
1,2,ua,abc.com
1,2,ua,eg.com
1,2,ua,easg.com
1,2,ua,zth.com
Read all entries in file1(which has 1000+) and compare column1 of file1 with the column4... (13 Replies)
Hi Gurus,
I have to fetch the records from a logs as per the time stamp . I am comfortable to use awk and sed in the script . But the logic to fetch the records as per comparison is the problem. $cat my_log.log
<Jul 30, 2010 7:01:12 AM EEST> <Error> <WebLogicServer>
<Jul 30, 2010 8:04:12 AM... (3 Replies)
Hi all
I need to compare two separate product lists that are changed weekly. New products are added, old products are removed and prices change.
I have found various Windows programs that do this function but it's not as clean as I like and just wondered if there was a simpler way with... (1 Reply)
Hi all,
Currently i am using
if( $0~/ NOT / && $0~/ NULL /)
{
.................
}
to check if the input record contains "NOT" and "NULL". But in some cases "NOT" and "NULL" are preceded and followed by tab. How do i find compare for these fields as well? (3 Replies)
Hi Experts,
I have two huge files in the format as shown below.I need to open a file1 and file 2 , cut first 24 characters of file 1 and search if the key exists
in file 2 first field (delimted by *).
If the value exists , copy the third field from file 2 and replace the 5th field in file 1 .... (4 Replies)
Hi Everyone
I am new to Unix shell scripting
Can anyone please explain me in detail how this command works
awk -F@ 'NR==FNR{A=$2;next}$3 in A{$3=A}1' file2 file1
The above command I got it from this forum, but unable to implement it as I am not getting how this works:mad:
I... (3 Replies)
Dear all,
I am having two files big files i need an output file as first occurance of file1 field in file2
example:
file1:raju
ranifile2:raju|123
raju|879
rani|623
rani|253result:raju|123
rani|623pls help me in this regard (3 Replies)
Discussion started by: suryanarayana
3 Replies
LEARN ABOUT DEBIAN
mysql::diff::table
MySQL::Diff::Table(3pm) User Contributed Perl Documentation MySQL::Diff::Table(3pm)NAME
MySQL::Diff::Table - Table Definition Class
SYNOPSIS
use MySQL::Diff::Table
my $db = MySQL::Diff::Database->new(%options);
my $def = $db->def();
my $name = $db->name();
my $field = $db->field();
my $fields = $db->fields(); # %$fields
my $primary_key = $db->primary_key();
my $indices = $db->indices(); # %$indices
my $options = $db->options();
my $isfield = $db->isa_field($field);
my $isprimary = $db->isa_primary($field);
my $isindex = $db->isa_index($field);
my $isunique = $db->is_unique($field);
my $isfulltext = $db->is_fulltext($field);
DESCRIPTION
Parses a table definition into component parts.
METHODS
Constructor
new( %options )
Instantiate the objects, providing the command line options for database access and process requirements.
Public Methods
Fuller documentation will appear here in time :)
o def
Returns the table definition as a string.
o name
Returns the name of the current table.
o field
Returns the current field definition of the given field.
o fields
Returns an array reference to a list of fields.
o primary_key
Returns a hash reference to fields used as primary key fields.
o indices
Returns a hash reference to fields used as index fields.
o options
Returns the additional options added to the table definition.
o isa_field
Returns 1 if given field is used in the current table definition, otherwise returns 0.
o isa_primary
Returns 1 if given field is defined as a primary key, otherwise returns 0.
o isa_index
Returns 1 if given field is used as an index field, otherwise returns 0.
o is_unique
Returns 1 if given field is used as unique index field, otherwise returns 0.
o is_fulltext
Returns 1 if given field is used as fulltext index field, otherwise returns 0.
COPYRIGHT AND LICENSE
Copyright (c) 2000-2011 Adam Spiers. All rights reserved. This program is free software; you can redistribute it and/or modify it under the
same terms as Perl itself.
SEE ALSO
mysqldiff, MySQL::Diff, MySQL::Diff::Database, MySQL::Diff::Utils
AUTHOR
Adam Spiers <mysqldiff@adamspiers.org>
perl v5.14.2 2012-04-06 MySQL::Diff::Table(3pm)