APM: replacing tab separated blanks

[ken carroll]

On Wednesday 04 December 2002 01:32 pm, david slimp wrote:

that only works on friday, we have to work in the middle of the week... :)

> On Wed, Dec 04, 2002 at 01:16:43PM -0500, Mike Stok wrote:
> > On Wed, 4 Dec 2002, Tom.Bakken wrote:
> > > I want to replace the following:
> > > TabTabTabTab
> > > with:
> > > Tab0Tab0TAb0
>
> 	Is there some reason you are just not doing this?
>
> 	s/\t/\t0/g
>
>
>
> david
>
> > Enter h or `h h' for help, or `man perldebug' for more help.
> >
> > main::(-e:1):   1
> >   DB<1> $s = 'TabTabTabTab'
> >
> >   DB<2> $s =~ s/(Tab)(?=Tab)/${1}0/g
> >
> >   DB<3> print $s
> > Tab0Tab0Tab0Tab
> >   DB<4>
> >
> > But I still have an extra 'Tab' on the end - your desired result was
> > Tab0Tab0Tab0.  If you want to get rid of that then you could just
> >
> >   s/Tab$//;
> >
> > afterwards.
> >
> > Hope this helps,
> >
> > Mike
> >
> > --
> > mike at stok.co.uk                    |           The "`Stok' disclaimers"
> > apply. http://www.stok.co.uk/~mike/       | GPG PGP Key     
> > 1024D/059913DA mike at exegenix.com                  | Fingerprint      0570
> > 71CD 6790 7C28 3D60 http://www.exegenix.com/           |                 
> > 75D2 9EC4 C1C0 0599 13DA
> >
> > _______________________________________________
> > Austin mailing list
> > Austin at mail.pm.org
> > http://mail.pm.org/mailman/listinfo/austin