むしゃくしゃしてCSS整形するやつ作った

gistfile1.txt

#!/usr/bin/env perl
use 5.16.2;
use strict;
use warnings;
use utf8;

for my $f (@ARGV){
    my $s = "";
    {
        open my $fh , '<' , $f or die 'cant open file !';
        while(<$fh>){
            $s .= $_;
        }
        close $fh;
    }
    $s =~ s/\r|\n//gm;
    $s =~ s/\{/\{\n/gm;
    $s =~ s/\}/\n\}/gm;
    $s =~ s/;/;\n/gm;
    $s =~ s/^ *//gm;
    $s =~ s/^$(\r|\n)//gm;
    $s =~ s/([^(\{|\})][^;])$/$1;/gm;
    $s =~ s/\{;/{/gm;
    $s =~ s/\}/\}\n\n/gm;
    $s =~ s/^([^@](.*;))/    $1/gm;
    $s =~ s!/\*.*?\*/!!gm;

    my @s = split("\n" => $s);
    my $indent = 0;
    my $media_indent = 0;

    for (0..@s -1){
        if($s[$_] =~ /\{/){
            $indent++;
        }
        if($s[$_] =~ /\}/){
            $indent--;
        }

        if($media_indent && $s[$_] =~ /\}/ && $indent == 0){
            $media_indent--;
        }
        if($media_indent){
            if($s[$_] eq ";"){
                $s[$_] = ""
            }else{
                $s[$_] = "    " . $s[$_];
            }
        }

        if($s[$_] =~ /\{/ && $s[$_] =~ /\@/){
            $media_indent ++;
        }
    }
    @s = map{$_ eq ";" ? "" : $_}@s;
    $s = join("\n" => @s);

    {
        open my $fh , '>' , $f or die 'cant open file !';
        print $fh $s;
        close $fh;
    }
}