大文本字符串替换问题

smile1129

有个大文本1.txt，要求把里面的字符串), (替换为\n（换行），然后生成一个新的文本2.txt，或者直接在原来的文本中替换也行。
请问各位怎么写？谢谢

小白的大黑

正则表达式呗

xiaomm250

$line=~s/\), \(/\n/g

灿烂小猪

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $content;
   
7. 
   
8. while (<DATA>) {
   
9.     $content = $content . $_;
   
10. }
    
11. 
    
12. $content =~ s/\),\(/\n/g;
    
13. 
    
14. print $content;
    
15. 
    
16. __DATA__
    
17. AAAAAAAAAAAAAAAAAAAAAAAAAAA),(BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
    
18. ZXY),(HHHHHHHHHHHHHHHH

复制代码