PerlでCSSを検索するにはどうすればよいですか？

Question

長年のユーザーからの最初の質問。

私はいくつかのHTMLファイルを調べ、「color：」や「background-color：」（CSSタグ）のインスタンスを一行ずつ検索し、これらのインスタンスのいずれかを参照すると、行全体が表示されます。これはかなり簡単です。

私はまだ初心者ですが、この次の部分は非常に明白かもしれませんが、私はここに来ました。

"color："または "background-color："のインスタンスが見つかったときに、それをトレースして要素の名前を探して印刷したいと思っています。私の文書は、以下のCSS含まれる場合

：たとえば

css_class,#FFEFA1 

理想的には、それがテキストファイルとして出力し、これを希望：

.css_class { 
    font-size: 18px; 
    font-weight: bold; 
    color: #FFEFA1; 
     font-family: Arial, Helvetica, sans-serif; 
} 

を私のような何かを出力するスクリプトをしたいでしょう。

私はこのことについて私に与えられたアドバイスを大変感謝しています！ここで

はこれまで、フルで私のスクリプトです：

$color = "color:"; 


open (FILE, "index.html"); 
@document = `<FILE>`; 
close (FILE); 

foreach $line (@document){ 
    if($line =~ /$color/){ 
     print $line; 
    } 
} 

Answer 1

アドバイスを求められたので（これはコーディングサービスではありません）、私はをちょうどとします。

open(FILE, 'filename') or die "Can't read file 'filename' [$!]\n"; 

利用代わりグロブのオープンと字句ファイルハンドルの三引数の形式：：

use strict; 
use warnings; 

は必ずopen呼び出しの戻り値をチェックします。

必ず狭窄と警告を使用します

open(my $fh, '<', 'filename') or die "Can't read file 'filename' [$!]\n"; 

行単位で処理するときにスラップしないでください。

の

while (my $line = <$fh>) { 
    # do something with $line 
} 

使用後方参照は正規表現のマッチからデータを取得します

if ($line =~ /color *: *(#[0-9a-fA-F]{6})/) { 
    # color value is in $1 
} 

保存一時変数で、クラス名、あなたがそれを持っていることをあなたは色と一致して：まあ

if ($line =~ /^.(\w+) *\{/) { 
    $class = $1; 
} 

Answer 2

私は以下のコードをテストしていませんが、このような何かが動作するはずですが：

if ($line =~ m/\.(.*?) \{(.*?)color:(.*?);(.*)/) { 
print "$1,$3\n"; 
} 

あなたが定期的に学習いくつかの時間を投資する必要がありますPerlの式。

Answer 3

を、これはそう簡単ではありません。

CSSクラスはさまざまな方法で定義できます。たとえば、

.classy { 
     color: black; 
    } 

これを解析するための行単位のアプローチを使用してください。

実際、私の最初のアプローチはCPANの検索です。これは有望に見える：

CSS - Object oriented access to Cascading Style Sheets (CSS)

編集：私はCPANからHTML :: TreeBuilderとCSSモジュールをインストールし、次収差でっち上げ

：すべて

use strict; 
use HTML::TreeBuilder; 
use CSS; 

foreach my $file_name (@ARGV) { 
    my $tree = HTML::TreeBuilder->new; # empty tree 
    $tree->parse_file($file_name); 

    my $styles = $tree->find('style'); 

    if ($styles) { 
     foreach my $style ($styles) { 
      # This is an insane hack, not guarantee 
      # to work in the future. 
      my $css = CSS->new; 
      $css->read_string(join "\n", @{$style->{_content}}); 

      print $css->output; 
     } 
    } 
    $tree = $tree->delete; 
} 

この事だけプリントをCSSセレクタはHTMLファイルのリストから作成されますが、ここから続けることができるように整形されています。

Answer 4

さらに別の方法として、perlに、行以外のファイルの読み込みを要求することができます。たとえば、レコード区切り文字として "}"を使用します。

my $color = "color:"; 

open (my $fh, '<', "index.html") || die "Can't open file: $!"; 

{ 
    local $/ = "}"; 
    while(my $section = <$fh>) { 
    if($section =~ /$color(.*)/) { 
     my ($selector) = $line =~ /(.*){/; 
     print "$selector, $section\n"; 
    } 
} 

未テスト！また、これは当然ながら、あなたのCSSがセクションをaで終わらせていることを前提としています。

Answer 5

私は正規表現に問題はありませんが、データのキャプチャではありません。 CSS要素は通常複数行であるため、リスト項目の区切り文字として{と}の間に配列を作成する方法を理解する必要があります。

いいえ、ありません。

述べたような問題のために、関心ののみ線はクラス名または色の定義のいずれかを含有するもの、およびクラスの終わりをマークするために}を含む可能性もラインであろう。他の行はすべて無視することができるので、配列に入れる必要はありません。

クラス仕様はネストすることができないため、最後に見たクラス名のセットは常にアクティブなクラスセットになります。したがって、最後に表示されたクラス名のセットだけを記録すればよく、カラー指定があった場合は、それらのクラス名を印刷します。

仕様ブロックが複数のクラス（.foo, .bar, .baz { ... }）で共有されているケースを処理する可能性がありますが、複数の行にまたがっている場合とそうでない場合があります。複数の属性が同じ行に定義されていても、それらは既に私が既に計画したものからかなり簡単に続くべきです。入力データに応じて、コメントの有無を追跡するために、基本的な状態エンジンを組み込む必要があるかもしれません。

[1]つまり、あなたがそのような.fooや.foo .barとして意味的に、ネストされたクラスを持つことができますが、彼らは

.foo { 
    ... 
} 
.foo .bar { 
    ... 
} 

としてCSSファイルで指定する必要があり、

.foo { 
    ... 
    .bar { 
    ... 
    } 
}