css - ファイル内の特定の CSS クラスを抽出する

Question

いくつかのクラスを含むファイルを使用しようとしていますが、緑色のクラスのみを含むall.cssファイルを取得したいと考えています。green.css

私はperl CSSモジュールを使用していますが、それを使用してcssブロックを含む行を検索してから抽出する方法についての提案は.greenありますか?{

私はperlを初めて使用します。これまでのところ、「緑」に一致するセレクター行を印刷しようとしましたが、動作させることができません:

my $css = CSS->new( { 'parser' => 'CSS::Parse::Lite'} );

print $styleSheetPath;
$css->read_file($styleSheetPath);

 open my $fileHandle, ">>", "green.css" or die "Can't open 'green.css'\n";

 #search for lines that contain .green and end { and then extract css block 
 #and write to green.css
 serialize($css);

 sub serialize{
       my ($obj) = @_;

    for my $style (@{$obj->{styles}}){
         print join "\n ", map {$_->{name}} @{$style->{selectors}};
         if ( grep( /green/, @{$style->{selectors}} )) {
           print "green matches ";
            print $_->{name};
         }

       }
}