From owner-freebsd-questions@FreeBSD.ORG Sat Jan 10 15:02:24 2004 Return-Path: Delivered-To: freebsd-questions@freebsd.org Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id A95E416A4CE for ; Sat, 10 Jan 2004 15:02:24 -0800 (PST) Received: from smtp.infracaninophile.co.uk (smtp.infracaninophile.co.uk [81.2.69.218]) by mx1.FreeBSD.org (Postfix) with ESMTP id 58AFE43D54 for ; Sat, 10 Jan 2004 15:02:22 -0800 (PST) (envelope-from m.seaman@infracaninophile.co.uk) Received: from happy-idiot-talk.infracaninophile.co.uk (localhost [IPv6:::1]) i0AN2Ifn005432 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Sat, 10 Jan 2004 23:02:18 GMT (envelope-from matthew@happy-idiot-talk.infracaninophile.co.uk) Received: (from matthew@localhost)id i0AN2IM1005431; Sat, 10 Jan 2004 23:02:18 GMT (envelope-from matthew) Date: Sat, 10 Jan 2004 23:02:18 +0000 From: Matthew Seaman To: FreeBSD Mailing List , Gary Kline Message-ID: <20040110230218.GA5347@happy-idiot-talk.infracaninophile.co.uk> Mail-Followup-To: Matthew Seaman , FreeBSD Mailing List , Gary Kline References: <20040110221036.GA44130@tao.thought.org> <20040110223308.GA4881@happy-idiot-talk.infracaninophile.co.uk> <20040110223907.GA16659@Uruk-Hai.Sanitarium.mine.nu> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="cNdxnHkX5QqsyA0e" Content-Disposition: inline In-Reply-To: <20040110223907.GA16659@Uruk-Hai.Sanitarium.mine.nu> User-Agent: Mutt/1.5.5.1i X-Spam-Status: No, hits=-4.9 required=5.0 tests=AWL,BAYES_00 autolearn=ham version=2.61 X-Spam-Checker-Version: SpamAssassin 2.61 (1.212.2.1-2003-12-09-exp) on happy-idiot-talk.infracaninophile.co.uk Subject: Re: perl script question. X-BeenThere: freebsd-questions@freebsd.org X-Mailman-Version: 2.1.1 Precedence: list List-Id: User questions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 10 Jan 2004 23:02:24 -0000 --cNdxnHkX5QqsyA0e Content-Type: text/plain; charset=iso-8859-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Sat, Jan 10, 2004 at 11:39:07PM +0100, Bj=F6rn 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 --=20 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 --cNdxnHkX5QqsyA0e Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (FreeBSD) iD4DBQFAAIR6dtESqEQa7a0RAorPAJ9ggpAo0t9mB4b4TvNGcr6sD159XQCWMuXT 0D+QPS2Pr52C0573mSwq4w== =0O18 -----END PGP SIGNATURE----- --cNdxnHkX5QqsyA0e--