Snort::Rule

Snort的規則::是一個Perl擴展動態構建Snort規則。
概要
  使用Snort規則::;
  $規則= Snort的::基於規則>新（
        -action =>'提醒'，
        -proto =>“TCP”，
        -src =>'任何'，
        -sport =>'任何'，
        -dir =>' - >'，
        -dst =>'192.188.1.1'，
        -dport =>'44444'，
  ）;
  $基於規則>選擇採用（'味精'，'測試規則“”）;
  $基於規則>選擇採用（'門檻'，'型的限制，追踪by_src，計數1，3600秒'）;
  $基於規則>選擇採用（'SID'，'500000'）;
  打印$基於規則>字符串（）“N”。
  要么
  $規則='警報TCP $ SMTP_SERVERS任何 - > $ 25 EXTERNAL_NET（味精：“帶血的政策SMTP美國絕密PROPIN”;流量：to_server，建立;內容：“除| 3A |”; PCRE：“/（TOPsSECRET （？= //（25）？| TS）// [SW，/ - - ] * PROPIN [SW，/] * X [1-9]）/主義“; CLASSTYPE：政策違規; SID：2002448;啟：1;）“;
  $規則= Snort的::基於規則>新（-parse => $規則）;
  打印$基於規則>字符串（）“N”。
這是一個非常簡單的Snort規則的對象。它的開發是為了允許腳本動態創建規則。理想情況下，你可以採取動態壞主機的列表，並建立Snort規則的對象從該列表中的數組。 。然後寫使用字符串（）方法將Snort規則文件列表

要求：

• 在Perl中