perl script question.

[Matthew Seaman]

On Sat, Jan 10, 2004 at 11:39:07PM +0100, Björn Andersson wrote:
> On Sat, Jan 10, 2004 at 10:33:08PM +0000, Matthew Seaman wrote:
> > On Sat, Jan 10, 2004 at 02:10:36PM -0800, Gary Kline wrote:

> > > 	Folks,

> > > 	Let's see if perl can do this one; it's as obscure a task
> > > 	as I've run into.  I have scores of files with:

> > > 	A regular sentence, or phrase. then_one_containing_underscores_-
> > > 	between_each_word  Followed by another regular, space-delimited
> > > 	sentence.  Followed_by_another_string_with_underscaores.

> > > 	Is there a perl way to get rid of the
> > > 	string_containing_underscores and leave the regular sntences??

> >     perl -pi.bak -e 's/\s+\w+_\w+\.?//;' filename

> If this occures more than once on a line we should have the line as this:
>   perl -pi.bak -e 's/\s+\w+_\w+\.?//g;' filename

Good point.  Also, if the stuff_separated_by_underscores wraps around
onto more than one line, then there may not be any leading whitespace:

    perl -pi.bak -e 's/\s*\w+_\w+\.?//g;' filename

	cheers,

	Matthew

-- 
Dr Matthew J Seaman MA, D.Phil.                       26 The Paddocks
                                                      Savill Way
PGP: http://www.infracaninophile.co.uk/pgpkey         Marlow
Tel: +44 1628 476614                                  Bucks., SL7 1TH UK
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 187 bytes
Desc: not available
Url : http://lists.freebsd.org/pipermail/freebsd-questions/attachments/20040110/88742662/attachment.bin