我以为这会做到...
$rowfetch = $DBS->{Row}->GetCharValue("meetdays");
$rowfetch = /[-]/gi;
printline($rowfetch);
但似乎我错过了正则表达式语法的一个小而关键的部分。
$rowfetch
总是沿着以下路线:------S
-M-W---
--T-TF-
等等...代表一周中发生 session 的日子
最佳答案
$rowfetch =~ s/-//gi
这就是你在那里的第二行所需要的。您只是在寻找东西,而不是在没有“s”前缀的情况下实际更改它。
为此,您还需要使用正则表达式运算符“=~”。
关于regex - 如何使用 Perl 正则表达式删除所有连字符?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/504892/