Вы можете использовать Perl Win32 :: GUI для макета окна, которое выглядит точно так же, как поисковая утилита для использования в качестве внешнего интерфейса для вашей программы Perl. Это позволит вам дважды щелкнуть результаты поиска и выполнить действия с этими результатами. Взгляните на эту ссылку , чтобы узнать, как перейти к определенной строке файла в VS. Вот быстрый пример:
use strict;
use Win32::GUI;
#example data structure containing the search text to print, the file location, and the line number for the search text
my $items = [
['first hit', 'C:\file.cs', '30'],
['second hit', 'C:\anotherfile.cs', '245'],
['third hit', 'C:\file.cs', '16']
];
my $main = Win32::GUI::Window->new(
-width => 250,
-height => 250
);
my $listbox = $main->AddListbox(
-name => 'search_hits',
-top => '10',
-left => '10',
-width => '100',
-height => '100',
);
foreach my $item(@$items){
$listbox->InsertItem($item->[0]);
}
$main->Show();
Win32::GUI::Dialog();
sub search_hits_DblClick{
my $index_selected = $listbox->GetCurSel();
exec('devenv /edit '.$items->[$index_selected]->[1].' /command "edit.goto '.$items->[$index_selected]->[2].'"');
}