名称 Vim::X - Vim 中 Perl 编程的糖果版本

版本 1.0.1

概要 


package Vim::X::Plugin::MostUsedVariable;  

use strict;  

use warnings;  

use Vim::X;  



sub MostUsedVariable :Vim {  

    my %var;  

    for my $line ( vim_lines ) {  

        $var{$1}++ while $line =~ /[$@%](w+)/g;  

    }  

    my ( $most_used ) = reverse sort { $var{$a} <=> $var{$b} } keys %var;  

    vim_msg "variable name $most_used $var{$most_used} times";  

}

然后