How to divide up?

[Gary Kline]

On Sun, Jul 20, 2008 at 05:03:15AM +0300, Giorgos Keramidas wrote:
> On Sun, 20 Jul 2008 03:44:07 +0300, Giorgos Keramidas <keramida at ceid.upatras.gr> wrote:
> > Now, if you want to merely "hack something quick and dirty", a short
> > Perl script can probably do regexp substitution similar to
> >
> >         #
> >         # WARNING: THIS HAS NOT BEEN TESTED :P
> >         #
> >         my $foo = <STDIN>;
> >         $foo = s:(<[^>]+>[^<]*</[^>]+>):$1\n:ge;
> >         print "$foo";
> >
> > but you shouldn't trust the output of such a quick hack too much.
> 
> As I wrote in reply to the personal email, this was untested and a bit
> wrong in places, but now I've tried something like:
> 
>   $ echo '<hello>world</hello><hello>next world</hello>' | \
>   perl -e '$foo = <STDIN>; $foo =~ s:(<[^>]+>[^<]*</[^>]+>):$1\n:g; print "$foo";'
> 
> and it does seem to sort of work.  The output is:
> 
>   <hello>world</hello>
>   <hello>next world</hello>
> 
> Maybe that's good enough?  They say `the perfect is the enemy of good
> enough', so if this works for your data set, it's probably ok to use it :-)
> 
> Have fun,
> Giorgos
> 

	Fun?!  welll, but yes, anything that can save me from
	hand-editing  ~~70 files will be a riot;)

	gary



-- 
 Gary Kline  kline at thought.org  http://www.thought.org  Public Service Unix
        http://jottings.thought.org   http://transfinite.thought.org