Remove brackets repeats and separate in columns

Dev Shed Forums Sponsor:

August 10th, 2012, 12:21 AM

manigrover

Contributing User

Join Date: May 2012

Posts: 60

Time spent in forums: 10 h 42 m 3 sec
Reputation Power: 2

Remove brackets repeats and separate in columns

Hi all,

I want to remove the remove bracket sign ( ) and put in the separate column I also want to remove the repeated entry like in first row in below input (PA156) is repeated

Code:

ESR1 (PA156) leflunomide (PA450192) (PA156) leflunomide (PA450192)
CHST3 (PA26503) docetaxel (PA449383);thalidomide (PA451644) (PA26503) docetaxel (PA449383);thalidomide (PA451644) (PA26503) docetaxel (PA449383);thalidomide (PA451644) (PA26503) docetaxel (PA449383);thalidomide (PA451644) (PA26503) docetaxel (PA449383);thalidomide (PA451644) (PA26503) docetaxel (PA449383);thalidomide (PA451644) (PA26503) docetaxel (PA449383);thalidomide (PA451644)
LPL (PA232) fenofibrate (PA449594)
GALNT14 (PA134920089) cisplatin (PA449014);fluorouracil (PA128406956);mitoxantrone (PA450526) (PA134920089) cisplatin (PA449014);fluorouracil (PA128406956);mitoxantrone (PA450526) (PA134920089) cisplatin (PA449014);fluorouracil (PA128406956);mitoxantrone (PA450526) (PA134920089) cisplatin (PA449014);fluorouracil (PA128406956);mitoxantrone (PA450526) (PA134920089) cisplatin (PA449014);fluorouracil (PA128406956);mitoxantrone (PA450526) (PA134920089) cisplatin (PA449014);fluorouracil (PA128406956);mitoxantrone (PA450526) (PA134920089) cisplatin (PA449014);fluorouracil (PA128406956);mitoxantrone (PA450526)
CTLA4 (PA27006) glatiramer acetate (PA449760

I want output for first row and other rows shuld be like this format

Code:

ESR1 PA156 leflunomide PA450192 leflunomide PA450192

August 10th, 2012, 03:06 AM

Laurent_R

Contributing User

Join Date: Jun 2012

Posts: 506

Time spent in forums: 4 Days 19 h 5 m 2 sec
Reputation Power: 385

Try this:

Perl Code:

Original - Perl Code
while (<FILE_IN>) { tr/()//d; # ... }

while (<FILE_IN>) {
     tr/()//d;
     # ...
}

Viewing: Dev Shed Forums > Programming Languages > Perl Programming > Remove brackets repeats and separate in columns

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

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

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump