Combine multiple string into 1 string group by certain criteria

whchee · #1 (**permalink**) 05-08-2009

Hi all,

I am newbie in unix. Just have some doubts on how to join multiple lines into single line.

I have 1 file with following contents.

R96087641
HostName-kul480My
This is no use any more
%%
E78343970
LocalPath-/app/usr/SG
(Blank in this line)
%%
E73615740
LocalPath-/app/usr/US
Urgent Needed
%%
.....
.....
.....
.....

Each grouping is separated by %%. There are basically 2 kinds of grouping which is HostName and LocalPath. I need to format the content into 2 separate files differentiate by HostName and LocalPath. In the files, the keyword HostName and LocalPath must be removed. Below is the sample of formatted data.

(HostName.txt)
R96087641|kul480My|This is no use any more
.....
.....

(LocalPath.txt)
E78343970|/app/usr/SG|
E73615740|/app/usr/US|Urgent Needed
.....
.....

I have really no idea on how to sort it out. My knowledge on awk also not strong enough to make it.

Hopes someone could help to solve my problem.
Thanks.

vgersh99 · #2 (**permalink**) 05-08-2009

nawk -f wh.awk myFile

wh.awk:

Code:

BEGIN {
  FS="-"
  OFS="|"
  FILEhost="HostName.txt"
  FILElocal="LocalPath.txt"
}
/^%%/ { for(i=1;i<=cnt;i++) printf("%s%c", a[i], (i==cnt)?ORS:OFS) > file; cnt=0;next}
{ cnt++ }
/^HostName/ { file=FILEhost; a[cnt]=$2;next}
/^LocalPath/ { file=FILElocal; a[cnt]=$2;next}
{a[cnt]=$0}

whchee · #3 (**permalink**) 05-09-2009

Hi Vgersh,

The logic seems working by reading it, neat and understandable. However, i can only test it on Monday. Will let you know the result then.

Btw, if i keen on using awk only, will there be lot diff with nawk?

I am not so sure is nawk working in HP-UX environment not...
Kindly advice.

whchee · #4 (**permalink**) 05-11-2009

Hi Vgersh,

Thanks. It works well

summer_cherry · #5 (**permalink**) 05-11-2009

Code:

$/="%%\n";
open FH1,"+>HostName.txt";
open FH2,"+>LocalPath.txt";
while(<DATA>){
	my @tmp=split("\n",$_);
	my @t1=split("-",$tmp[1]);
	$tmp[1]=~s/.*-//;
	my $str=join "|",@tmp[0..2];
	if($t1[0] eq "HostName"){
		print FH1 $str."\n";
	}
	else{
		print FH2 $str."\n";
	}
}

__END__
R96087641
HostName-kul480My
This is no use any more
%%
E78343970
LocalPath-/app/usr/SG
(Blank in this line)
%%
E73615740
LocalPath-/app/usr/US
Urgent Needed
%%

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
Multiple search string in multiple files using awk	pinnacle	Shell Programming and Scripting	0	05-05-2009 01:08 PM
PERL: add string to multiple lines	bonny	Shell Programming and Scripting	4	05-19-2008 12:11 PM
last occurrence of a string across multiple files	porphyrin	UNIX for Dummies Questions & Answers	2	12-24-2007 09:39 AM
String replacement in multiple files	WABonnett	Shell Programming and Scripting	2	02-17-2004 03:49 PM
Editing one string in multiple files	Skoshi	UNIX for Dummies Questions & Answers	1	11-10-2001 02:13 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by