In message <[EMAIL PROTECTED]> on Thu,
26 Dec 2002 09:36:09 -0800 (PST), Tim Rice <[EMAIL PROTECTED]> said:
tim> Perhaps we are going down the wrong path. Instead of wasting our time
tim> trying to figure out each platform's sed, maybe we should be using perl.
tim> Perl should work the same on all platforms.
You're right, perl is more reliable.
tim> Unfortunately neither of these work
tim> perl -pi -e 's/ \?\([\.,@]\) */\1/g;' -e 's/ *:/:/g;' -e 's/#.*//'
/tmp/testfile
tim> perl -pi -e 's/ +\([\.,:@]\) +/\1/g;' -e 's/#.*//' /tmp/testfile
tim> for lines like
tim> . type md5_block_asm_host_order , @ function
The syntax for perl regexps is a little bit different. This works:
perl -pi -e 's/ ?([\.,@]) +/\1/g; s/ +:/:/g; s/#.*//;'
Here are a few test lines (paired with results):
. type md5_block_asm_host_order , @ function
.type md5_block_asm_host_order,@function
foo :
foo:
foo : # bah
foo:
--
Richard Levitte \ Spannvägen 38, II \ [EMAIL PROTECTED]
Redakteur@Stacken \ S-168 35 BROMMA \ T: +46-8-26 52 47
\ SWEDEN \ or +46-708-26 53 44
Procurator Odiosus Ex Infernis -- [EMAIL PROTECTED]
Member of the OpenSSL development team: http://www.openssl.org/
Unsolicited commercial email is subject to an archival fee of $400.
See <http://www.stacken.kth.se/~levitte/mail/> for more info.
______________________________________________________________________
OpenSSL Project http://www.openssl.org
Development Mailing List [EMAIL PROTECTED]
Automated List Manager [EMAIL PROTECTED]
