如何清空文本perl周围的星号框？

Question

我从文件中引入文本，我需要它周围有一个星号边框。我怎么做？

我试过这个：

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;

Answer 1

您可以将正则表达式中的星号与\*或[*]匹配。因此，要删除星号，只需将其替换为空：

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

在行的开头替换由可选空格包围的星号：

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

同样在最后：

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