ASIC/FPGA Design and Verification Out Source Services

Run a perl script from vim on a block of text, to find N strings in consecutive lines.

1. A simple perl script to add to vim a nice sequence string search.
   


2. Today I needed to find a location (line number in a text file), that contains a sequence of assembly commands. Actually I had a CPU command trace, which I needed to find its location in a disassembly list.
   So I want to find a lines where:
   line N   contains string 0
   line N+1 contains string 1
   line N+2 contains string 2
   ...
   line N+n contains string n
   



3. The script can be operated on partial block of text from within vim or on the entire file:
   
   1. Put marks, say ma and mb and type
      :'a,'b !perl ~/bin/vim_find_consecutive.pl
      
   2. :%     !perl ~/bin/vim_find_consecutive.pl
      
   The results, line numbers for match, are appended to the text file end.



4. The code is shown below:
   
   
   1. #!/bin/perl
   3. #:'a,'b !perl ~/bin/vim_find_consecutive.pl
   4. #:% !perl ~/bin/vim_find_consecutive.pl
   6. #line N+0 contains ARGV[0]
   7. #line N+1 contains ARGV[1]
   8. #line N+2 contains ARGV[2]
   9. #...
   11. $num_args = $#ARGV + 1;
   12. $line=0;
   13. $ptr=0;
   14. @a = ();
   16. while (<STDIN>) {
   17.   chomp($_);
   18.   print("$_\n");
   19.   if($num_args > 0) {
   20.     $ix=index($_, $ARGV[$ptr]);
   21.     if($ix >= 0) {#match a member in the sequence
   22.       $ptr++;
   23.       if($ptr == $num_args) {#match of the entire sequence
   24.         $ptr=0;
   25.         push(@a, $line + 1 - $num_args);
   26.       }
   27.     } else { $ptr = 0; }
   28.   }
   29.   $line++;
   30. }
   31. foreach $j ( @a ) {
   32.   print("$j\n");
   33. }
   
   

Also available on this project:

Home	Some tips for controlling the xterm title