The UNIX and Linux Forums  

Go Back   The UNIX and Linux Forums > Top Forums > Shell Programming and Scripting
Google UNIX.COM


Shell Programming and Scripting Post questions about KSH, CSH, SH, BASH, PERL, PHP, SED, AWK and OTHER shell scripts here.

More UNIX and Linux Forum Topics You Might Find Helpful
Thread Thread Starter Forum Replies Last Post
Need Replacement for sed dbsurf Shell Programming and Scripting 0 01-25-2008 03:47 PM
Regarding Replacement rajx UNIX for Dummies Questions & Answers 2 05-22-2007 06:19 AM
String Replacement with Perl Lindarella Shell Programming and Scripting 4 09-29-2006 11:05 AM
Replacement using sed handak9 UNIX for Dummies Questions & Answers 5 07-13-2004 08:28 AM
cpu replacement. help IMPTRUE UNIX for Dummies Questions & Answers 3 07-25-2003 05:40 AM

Reply
 
Submit Tools LinkBack Thread Tools Search this Thread Display Modes
  #1  
Old 01-25-2008
Registered User
 

Join Date: Jan 2008
Posts: 23
Replacement of sed with perl

Hi using the below cmd i am identifying wheether last character in each line in thousands of files as semicolon or not.If last character is semicolon i am removing semicolon .If last character is not semicolon then i am appending next line to present line .

For example my input file consists of

ABC|FGH|HJK|JKK;
BHJ|AAA|BBB|L
NNNN|JJJJ|LLLL;
JJJJJJ;
out put file consists of
ABC|FGH|HJK|JKK
BHJ|AAA|BBB|L NNNN|JJJJ|LLLL
JJJJJ
I am achieving the above requirement using sed as below

sed -e :a -e '/;$/!N;s/\n//; ta' -e 's/;$//' file

but i have thousands of files in one directory its consuming more and more time .

Can anyone replace the above requirement in perl with xargs

like xargs perl option

cn anyone suggest the easiest way without looping
Reply With Quote
Forum Sponsor
  #2  
Old 01-25-2008
...@...
 

Join Date: Feb 2004
Location: NM
Posts: 4,298
how about sed:
Code:
sed -e :a -e '/$;/N; s/\\\n//; s/$;//; ta'  oldfile > newfile
Reply With Quote
  #3  
Old 01-25-2008
Registered User
 

Join Date: Jan 2008
Posts: 23
Hi Jim ,

The above code works with sed but it is consuming too much time ..can you provide the same with perl syntax.
THe functionality is it has to identify last character in each line of all files as semicolon.if it founds as semicolon it has to replace with blank space otherwise need to append next line with present one.
Reply With Quote
  #4  
Old 01-25-2008
Registered User
 

Join Date: Jan 2008
Posts: 328
see your other thread
Reply With Quote
  #5  
Old 01-25-2008
Registered User
 

Join Date: Jan 2008
Posts: 23
cn anyone provide me the solution for replacing sed with perl in the above
Reply With Quote
Google The UNIX and Linux Forums
Reply

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes




All times are GMT -7. The time now is 06:52 AM.


Powered by: vBulletin, Copyright ©2000 - 2006, Jelsoft Enterprises Limited.
The UNIX and Linux Forums Content Copyright ©1993-2008. All Rights Reserved.Ad Management by RedTyger Visit The Complex Event Processing Blog

Content Relevant URLs by vBSEO 3.2.0