Chinaunix

标题: 如何判定一个字符串在文本中的位置 [打印本页]

---

作者: Perlvim    时间: 2012-01-18 23:37
标题: 如何判定一个字符串在文本中的位置
一个文本中，有许多字符。如何定位某个字符所在的行？

例如如下文本

1 空行
2 hello world __LINE__
3 hello world __LINE__
4 hello world __LINE__
5 hello world __LINE__

如何获取每个__LINE__ 字符串所在行的行号？
替换成
1 空行
2 hello world 2
3 hello world 3
4 hello world 4
5 hello world 5

---

作者: kurri    时间: 2012-01-18 23:37

1. perl -pi -e's/__LINE__/$./' txt

复制代码

---

作者: pengphy    时间: 2012-01-18 23:43
grep -n

---

作者: Perlvim    时间: 2012-01-18 23:49

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use 5.010;
   
6. use File::Slurp qw(read_file);
   
7. 
   
8. my $file = 'test.c';
   
9. my $text = read_file $file;
   
10. 
    
11. if ($text =~ m{__LINE__}) {
    
12.     $text = replace_line_number($text);
    
13. }
    
14. 
    
15. say $text;
    
16. 
    
17. sub replace_line_number {
    
18.     my $text = shift;
    
19.     my @lines = split /\n/, $text;
    
20.     my $number = 1;
    
21.     foreach my $line (@lines) {
    
22.         $line =~ s/__LINE__/$number/g;
    
23.         $number++;
    
24.     }
    
25.     my $new_text = join "\n", @lines;
    
26.     return $new_text;
    
27. }
    

复制代码

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2