RE: HTML de-uglifier in 2 lines of perl
[email protected] ("Allen, Greg")
| Newsgroups | perl.golf |
|---|---|
| Message-ID | <[email protected]> |
Here's a very naïve approach, which will probably work. Might screw up your
<PRE> sections though...
perl -p0
s/
>/>
/g;s/^[^>]{1,69}[>"]/join$",split' ',$&/mge
Including an end of line match might make it a little more resilient:
^[^>]{1,69}[>"]$
It puts the attributes with the entity, but that looks right to me... i.e.
you get:
<META NAME="GENERATOR">
Instead of
<META
NAME="GENERATOR">
Greg
-----Original Message-----
From: Phil Carmody [mailto:[email protected]]
Sent: Friday, October 10, 2003 1:34 PM
To: [email protected]
Subject: HTML de-uglifier in 2 lines of perl
#!/usr/bin/perl -n
chomp;if($#p>=0&&s/^(\"?>)//){$p[-1].="$1\n";print(join($w<70?'
':"\n",@p));@p=($_);$w=0}
else{push@p,$_}$w+=length;}{print(join("\n",@p))if($#p>=0);
I wrote that because docbook2html produces ugly HTML:
<<<
<HTML
><HEAD
><TITLE
>A World Wide Web Interface to CTAN</TITLE
><META
NAME="GENERATOR"
CONTENT="Modular DocBook HTML Stylesheet Version 1.76b+
"></HEAD
><BODY
...
>>>
and I wanted (IMHO) prettier HTML:
<<<
<HEAD>
<TITLE>
A World Wide Web Interface to CTAN</TITLE>
<META
NAME="GENERATOR"
CONTENT="Modular DocBook HTML Stylesheet Version 1.76b+">
</HEAD>
<BODY
...
>>>
The script also tries to join multiple attributes onto the same line,
as long as the line wouldn't be too long (70 chars) as I also find that
improves the readability of HTML (by reducing the noise level).
As I suck at perl, I reckon that something only half the length of that
might be possible.
Don't spend more than 2 minutes on it. I didn't!
Phil
------------------------------------------------------------------------------
This message is intended only for the personal and confidential use of the designated recipient(s) named above. If you are not the intended recipient of this message you are hereby notified that any review, dissemination, distribution or copying of this message is strictly prohibited. This communication is for information purposes only and should not be regarded as an offer to sell or as a solicitation of an offer to buy any financial product, an official confirmation of any transaction, or as an official statement of Lehman Brothers. Email transmission cannot be guaranteed to be secure or error-free. Therefore, we do not represent that this information is complete or accurate and it should not be relied upon as such. All information is subject to change without notice.