PPI - чернослив PPI :: Токен :: Пробелы - вопрос - PullRequest
Новая
       8

PPI - чернослив PPI :: Токен :: Пробелы - вопрос

1 голос
/ 19 ноября 2010

Когда я использую "$ module-> prune ('PPI :: Token :: Whitespace');" и сохранить результаты в $ file. Есть ли простой способ вернуться к рабочему коду для сохраненного кода? Я попробовал "Perl :: Tidy", и после этого он выглядит намного лучше, но id не исправляет все. 

#!/usr/bin/env perl
use warnings;
use 5.012;
use PPI;
my $file = 'my_file.pm';

my $module = PPI::Document->new( $file );
$module->prune( 'PPI::Token::Pod' );
$module->prune( 'PPI::Token::Comment' );
$module->prune( 'PPI::Token::Whitespace' );
# ...
# ...
$module->save( $file ) or die $!;

редактирование:

Я больше не могу восстановить свой код, который у меня был. С включенным prune-whitespace я мог бы использовать что-то вроде этого 

$a = $module->find( sub { 
    $_[1]->isa('PPI::Statement') and
    $_[1]->content eq q(if($@){$have_Term_ReadKey=0;$have_Term_Size=1;eval'require "Term/Size.pm"';if($@){$have_Term_Size=0;}})
});

вместо 

$a = $module->find( sub { 
    $_[1]->isa('PPI::Statement') and
    $_[1]->schild(0)->content eq q(if) and
    $_[1]->schild(1)->isa('PPI::Something') and
    ...
    ...
});

чтобы найти точку для добавления чего-либо. Но знайте, после повторной попытки я думаю, что это не может работать (кроме того факта, что я не могу восстановить код без полей).

1 Ответ

5 голосов
/ 19 ноября 2010

Некоторые пробелы являются значительными, и в целом вы нарушите свой код, если удалите его: 

use PPI;
$document = PPI::Document->new(\'sub sq{$_[0]**2}');
$document->prune('PPI::Token::Whitespace');
print $document->serialize;

Вывод этой программы: 

subsq{$_[0]**2}

К сожалению. Perl::Tidy ничего не может с этим поделать.

Было бы безопасно (я думаю - не могу представить контрпример), чтобы удалить верхний уровень пробел 

# just prune top-level whitespace
$document->prune(  sub { $_[1]->parent->isa('PPI::Document') 
                         and $_[1]->isa('PPI::Token::Whitespace') } );

Перечисление всех остальных правил (например, «пробел между двумя PPI::Token::Word элементами не безопасен для удаления») звучит как трудная проблема.

...