关于锚定匹配的问题

太阳peach

现在有一个文档，其中包含有类似的行如下：
-
-
-
-
-
-
pay-per-view
...
我需要将“-”换为其他语句，但是在匹配的时候不能够换掉“pay-per-view"当中的“-”。所以使用了锚定/^-$/，但是这么使用的时候无法匹配到这些连字符，只有使用/^-/的时候才可以匹配到。已知连字符后就是换行符；而且就算chomp了也没有用。请问这是为什么？

谢谢~

大米白面

无代码，无真相。

rubyish

可以我:
请问这是为什么？

1. #!/usr/bin/perl
   
2. 
   
3. my $other = '其他语句';
   
4. while (<DATA>) {
   
5.     s/^-$/$other/;
   
6.     print;
   
7. }
   
8. __DATA__
   
9. -
   
10. -
    
11. -
    
12. -
    
13. -
    
14. -
    
15. pay-per-view

复制代码

1. 其他语句
   
2. 其他语句
   
3. 其他语句
   
4. 其他语句
   
5. 其他语句
   
6. 其他语句
   
7. pay-per-view
   

复制代码

mcshell

此"-"非彼-？{:3_199:}

Perlvim

在默认情况下，^ 和 $ 分别匹配字符串的开始和结束。但要匹配多行文本中每行的开始和结束，要加 //m标志。

1. use 5.010;
   
2. 
   
3. my $str =<<EOF;
   
4. 1
   
5. 2
   
6. 3
   
7. EOF
   
8. 
   
9. # //s 标志是让 . 可以匹配回车
   
10. if ($str =~ /^(.*?)$/s) {
    
11.     say $1;
    
12. }
    
13. # 输出：
    
14. # 1
    
15. # 2
    
16. # 3
    
17. 
    
18. if ($str =~ /^(.*?)$/ms) {
    
19.     say $1;
    
20. }
    
21. # 输出：
    
22. # 1

复制代码