RE: Dark Theme for /. through Perl

For the sake of all that's holy, use some line breaks!
I was scrolling for a while to catch the end of the code...
I guess it would be kind of silly to change something like

           $site =~ s/<BODY bgcolor="#000000" text="#000000" link="#00
+6666" vlink="#000000">/<BODY bgcolor="#000001" text="#4FFFAF" link="#
+00BBBB" vlink="#4F2F9F">/;
[download]

    my $from = '<BODY bgcolor="#000000" text="#000000" link="#006666" 
+vlink="#000000">';
    my $to = '<BODY bgcolor="#000001" text="#4FFFAF" link="#00BBBB" vl
+ink="#4F2F9F">';
        $site =~ s/$from/$to/;
[download]

Perhaps extended regexps are the answer?

$site =~ s/
    <BODY\sbgcolor="\#000000"\stext="\#000000"\slink="\#006666"\svlink
+="\#000000">
    /<BODY bgcolor="#000001" text="#4FFFAF" link="#00BBBB" vlink="#4F2
+F9F">/x;
[download]

Or even

$site =~ s/
    <BODY[ ]bgcolor="\#000000"[ ]text="\#000000"[ ]link="\#006666"[ ]v
+link="\#000000">
    /<BODY bgcolor="#000001" text="#4FFFAF" link="#00BBBB" vlink="#4F2
+F9F">/x;
[download]

What do you think? It looks a little ugly, I suppose.

Instead of useing extended regexps, we could just use the
(somewhat less well known) regexp extensions:

$site =~ s/<BODY bgcolor="#000000" text="#000000" link="#006666" vlink
+="#000000">(?#
     )/<BODY bgcolor="#000001" text="#4FFFAF" link="#00BBBB" vlink="#4
+F2F9F">/;
[download]

Which is probably the way to go.

Comment on RE: Dark Theme for /. through Perl Select or Download Code


Perl: the Markov chain saw
	PerlMonks