如何清空文本perl周圍的星號框？

-2

我從文件中引入文本，我需要它周圍有星號邊框。我怎麼做？如何清空文本perl周圍的星號框？

我已經試過這樣：

my $x  = 100; # width 
my $y  = 96; # number of "hollow" rows 

my $solid = '*' x $x . $/; 
my $hollow = '*' . ' ' x ($x-2) . '*' . $/; 

print OUT $solid, 
    ($hollow) x $y, 
     $solid;

來源

2015-04-02 Leo

$text =~ s/[*]//;

要在一行的開始取代通過可選空白包圍星號'我的$ x = 100; ＃width my $ y = 96; ＃「空心」行數 my $ solid ='*'x $ x。 $ /; my $ hollow ='*'。 ''x（$ x-2）。 '*'。 $ /; print OUT $ solid，（$ hollow）x $ y， $ solid;' – Leo 2015-04-02 01:15:39

如您所見，代碼不會正確顯示在註釋中。請將此添加到您的問題中。 – SomethingDark 2015-04-02 01:21:08

您可以用兩種\*或[*]正則表達式匹配的星號。因此，要刪除一個星號只是沒有什麼替代它：

$text =~ s/^\s*[*]+\s*//mg;

同樣在最後：

$text =~ s/\s*[*]+\s*$//mg;

來源

2015-04-02 01:08:04

如何清空文本perl周圍的星號框？

回答

相關問題