نديم ابن ﺤﻣﻮﺪﺓ الخمير - Nadim Khemir > Text-Editor-Vip > Text::Editor::Vip::Buffer::Plugins::FindReplace

Download:
Text-Editor-Vip-0.08.1.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Module Version: 0.01   Source  

NAME ^

Text::Editor::Vip::Buffer::Plugins::FindReplace- Find and replace functionality plugin for Vip::Buffer

SYNOPSIS ^

  is_deeply([$buffer->FindOccurence('1', 0, 0)], [0, 5, '1'], 'Found occurence 1') ;
  is($buffer->GetText(), $text, 'Text still the same') ;
  is($buffer->GetSelectionText(), '', 'GetSelectionText empty') ;
  
  #FindNextOccurence
  $buffer->SetModificationPosition(0, 0) ;
  is_deeply([$buffer->FindNextOccurence()], [0, 5, '1'], 'FindNextOccurence') ;
  
  $buffer->SetModificationPosition(0, 5) ;
  is_deeply([$buffer->FindNextOccurence()], [0, 9, '1'], 'FindNextOccurence') ;
  
  # FindNextOccurenceForCurrentWord
  $buffer->SetModificationPosition(0, 0) ;
  is_deeply([$buffer->FindNextOccurenceForCurrentWord()], [1, 0, 'line'], 'FindNextOccurenceForCurrentWord') ;
  
  $buffer->SetModificationPosition(1, 0) ;
  is_deeply([$buffer->FindNextOccurenceForCurrentWord()], [2, 0, 'line'], 'FindNextOccurenceForCurrentWord') ;
  
  $buffer->SetModificationPosition(4, 0) ;
  
  is_deeply([$buffer->FindNextOccurenceForCurrentWord()], [undef, undef, undef], 'FindNextOccurenceForCurrentWord') ;
  
  # Regex search
  is_deeply([$buffer->FindOccurence(qr/..n[a-z]/, 0, 0)], [0, 0, 'line'], 'Found occurence with regex') ;

DESCRIPTION ^

Find and replace functionality plugin for Vip::Buffer

FUNCTIONS ^

FindOccurence

Finds the text matching the regex argument starting at the line and character arguments. If no line argument is passed, the modification position is used.

This sub returns an array containing: ($match_line, $match_position, $match_word)

The Selection is not modified by this sub. To set the modification at the match position:

  my ($match_line, $match_position, $match_word) = $buffer->FindOccurence($regex, $line, $character) ;
  
  if(defined $match_line)
        {
          $buffer->SetModificationPosition($match_line, $match_position + length($match_word)) ;
          $buffer->{SELECTION}->Set($match_line, $match_position,$match_line, $match_position + length($match_word)) ;
        }

FindOccurenceWithinBoundaries

Finds the text matching the regex argument within tha passed boundaries starting at the line and character arguments. If no line argument is passed, the modification position is used.

Arguments:

This sub returns an array containing: ($match_line, $match_character, $match_word)

The Selection an the current modification position are not modified by this sub.

  $buffer->FindOccurenceWithinBoundaries('line', @boundaries) ;

FindNextOccurence

Find the next occurence matching the search regex.

FindNextOccurenceForCurrentWord

Finds the next occurence for the word at the modification position.

FindOccurenceBackwards

Searches for the regex going backwards in the buffer. Intricate regexes might not work.

FindPreviousOccurence

Searches for the next occurence going backwards in the buffer

FindPreviousOccurenceForCurrentWord

Finds the previous occurence for the word at the modification position.

ReplaceOccurenceWithinBoundaries

Finds a match for the search_regex argument and replaces it with the replacement.

Arguments:

If line or character are undefined or invalid, the current modification position is used.

Valid boudaries must be passed to this sub or it will return undef. No replacement is done if the searched regex doesn't match within the boudaries.

This sub returns an array containing: ($match_line, $match_position, $match_word, $replacement)

String replacement

  $buffer->ReplaceOccurence(qr/..(n[a-z])/, 'replacement') ;

Regex replacement

if the replacement is a regex, parenthesis can be be used to assign $1, $2, ..

  $buffer->ReplaceOccurence(qr/..(n[a-z])/, 'xx$1', @boundaries) ;

Sub replacement

Arguments:

the sub returns a string which will be be inserted at the matching position.

  sub replacement_sub
  {
  my($buffer, $match_line, $match_character, $match_word) = @_ ;
  
  join(', ', ref($buffer), $match_line, $match_character, $match_word, "\n") ;
  }
  
  $buffer->ReplaceOccurenceWithinBoundaries('match_this', \&sub_reference, @boundaries)

ReplaceOccurence

Finds a match for the search_regex argument and replaces it with the replacement.

Arguments:

If line or character are undefined or invalid, the current modification position is used.

This sub returns an array containing: ($match_line, $match_position, $match_word, $replacement)

String replacement

  $buffer->ReplaceOccurence(qr/..(n[a-z])/, 'replacement') ;

Regex replacement

  $buffer->ReplaceOccurence(qr/..(n[a-z])/, 'xx$1') ;

if the replacement is a regex, parenthesis can be be used to assign $1, $2, ..

  $buffer->ReplaceOccurence(qr/..(n[a-z])/, 'xx$1') ;

Sub replacement

Arguments:

the sub returns a string which will be be inserted at the matching position.

  sub replacement_sub
  {
  my($buffer, $match_line, $match_character, $match_word) = @_ ;
  
  join(', ', ref($buffer), $match_line, $match_character, $match_word, "\n") ;
  }
  
  $buffer->ReplaceOccurenceWithinBoundaries('match_this', \&sub_reference)

AUTHOR ^

        Khemir Nadim ibn Hamouda
        CPAN ID: NKH
        mailto:nadim@khemir.net
        http:// no web site

COPYRIGHT ^

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

syntax highlighting: