如何清空文本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周围的星号框？

回答

相关问题