自定義Perl Markdown來識別帶標題的註釋段落（newbie to perl）

Question

我對Perl一無所知，但我真的只需要對markdown語法做一點點改變。所以我很抱歉我提出了一個非常基本的問題。

我想創建一個定製的降價要做到這一點

<div class="note"> 
<b>My note title</b> 
My note texts 
</div> 

我發現this great post是能夠與筆記類中創建div，下面的語法：

~? This is a Note Block ~? 

~! This is a Warning Block ~! 

不過，我會喜歡能夠通過將標題封裝在某個符號中來指定該筆記的標題。類似下面：

~? #Title# 
This is a Note Block ~? 

下面是的Perl從崗位

sub _DoNotesAndWarnings { 
    my $text = shift; 

    $text =~ s{ 
      \n~([\!\?])  # $1 = style class 
      (.+?)   # $2 = Block text 
      ~[\!\?]   # closing syntax 
     }{ 
      my $style = ($1 eq '!') ? "Warning" : "Note"; 
      "<div class=\"$style\">" . _RunSpanGamut("<b>$style:</b> \n" . $2) . "</div>\n\n"; 
     }egsx; 

    return $text; 
} 

我應該如何修改這個代碼定製類？非常感謝您的幫助！

Answer 1

你想要什麼似乎是：

sub _DoNotesAndWarnings { 
    my $text = shift; 

    $text =~ s{ 
      \n~([\!\?])  # $1 = style class 
      (?:\s*\#([^\#]+)\#\s*)? # $2 = title, optional 
      (.+?)   # $3 = Block text 
      ~[\!\?]   # closing syntax 
     }{ 
      my $style = ($1 eq '!') ? "Warning" : "Note"; 
      my $title = $2 || $style; 
      "<div class=\"$style\">" . _RunSpanGamut("<b>$title:</b> \n" . $3) . "</div>\n\n"; 
     }egsx; 

    return $text; 
}