[Bioperl-l] fixing personal CVS copies

Aaron J Mackey Aaron J. Mackey" <amackey@virginia.edu
Thu, 10 Oct 2002 12:38:10 -0400 (EDT)


On 3 Oct 2002, Heikki Lehvaslaiho wrote:

> This script does work:
>
> find . -name "Root" ! -type d | xargs perl -p -i.orig -e \
> 's/ext:(\w+)\@[^\/]+/ext:$1\@dev.open-bio.org/'

I had to do this:

find . -name "Root" ! -type -d | xargs perl -p -i.orig -e \
's/ext:(\w+)\@[^\/]+:?/ext:$1\@dev.open-bio.org:/'

i.e. to handle :ext:amackey@bio.perl.org:/home/repository/bioperl

-Aaron

-- 
 Aaron J Mackey
 Pearson Laboratory
 University of Virginia
 (434) 924-2821
 amackey@virginia.edu