perl - Find matching pattern of first columns between two files and print the line from each file in a third file -

-

i have 2 files 1 containing server name , ip , containing server name , machine name, example. files in no real order. have tried using variation of sort, awk, , sed. first file not maintained , contains bogus data offsets how planning on doing it.

im trying pattern match between 2 files servers contained in both lines , print data lines in both files on 1 line in thrid file.

file 1:

server1 10.10.10.1 server2 10.10.10.2 .... server154 10.10.30.8 server155 10.10.30.9

file 2:

server1 site site1 server2 site site2 .... server154 site site154 server155 site site155

output:

server1 10.10.10.1 site site1 server2 10.10.10.2 site site2 ... server154 10.10.30.8 site site154 server155 10.10.30.9 site site155

this should trick:

$ awk 'fnr==nr{a[$1]=$0;next}($1 in a){print a[$1],$2,$3}' file1 file2 server1 10.10.10.1 site site1 server2 10.10.10.2 site site2 server154 10.10.30.8 site site154 server155 10.10.30.9 site site155

Popular posts from this blog

Php - Delimiter must not be alphanumeric or backslash -

-
this question has answer here: delimiter must not alphanumeric or backslash , preg_match 5 answers this question has been asked don't know how fix problem in situation. getting following php errror: php message: php warning: preg_match(): delimiter must not alphanumeric or backslash in... on line 227 line 227 following: if (preg_match($match, $_server['http_user_agent'])) and function: $oslist = array ( 'windows 3.11' => 'win16', 'windows 95' => '(windows 95)|(win95)|(windows_95)', 'windows 98' => '(windows 98)|(win98)', 'windows 2000' => '(windows nt 5.0)|(windows 2000)', 'windows xp' => '(windows nt 5.1)|(windows xp)', 'windows server 2003' => '(windows nt 5.2)', 'windows vista' => '(windows nt 6.0)', 'w...
Read more

Delphi interface implements -

-
i expect reference counting should work on outer aggregating object in interface implementation. if can refer example: clarity in classes implementing multiple interfaces (alternative delegation): here minimal reproduction of behaviour: program so16210993; {$apptype console} type ifoo = interface procedure foo; end; tfooimpl = class(tinterfacedobject, ifoo) procedure foo; end; tcontainer = class(tinterfacedobject, ifoo) private ffoo: ifoo; public constructor create; destructor destroy; override; property foo: ifoo read ffoo implements ifoo; end; procedure tfooimpl.foo; begin writeln('tfooimpl.foo called'); end; constructor tcontainer.create; begin inherited; ffoo := tfooimpl.create; end; destructor tcontainer.destroy; begin writeln('tcontainer.destroy called');//this line never runs inherited; end; procedure main; var foo : ifoo; begin foo := tcontainer.create; foo.foo; end; begin main; readln...
Read more

css - invalid property value for padding -

-
i getting invalid property value padding , don't know why. code written in ruby btw. when check browser has right value pixels, crossed out w line , isn't reading attribute. in advance. <% mywaldo = mapping::mywaldos.sample %> <!doctype html> <html> <head> <title>sinatra single-serve</title> <link href="css/bootstrap.css" rel="stylesheet" type="text/css"/> <style> div { width: 1024px; height: 768px; background-image: url("img/waldos/<%= mywaldo[0]%>") ; } #waldo { position:absolute; top: <%= mywaldo[2]%>; left: <%= mywaldo[1]%>; padding: <%= mywaldo[3]%>, <%= mywaldo[4]%>; } </style> </head> <body> <div> <a id="waldo" href="">aa</a> </div> <%= yield %> </body> ...
Read more