当我使用“$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 $!;
编辑:
我不再能够重建我最初拥有的代码。启用修剪空白后,我可以使用这样的东西
$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
...
...
});
找到一个点来附加一些东西。但是知道重试后我认为它不能工作(除了事实,没有空格我无法恢复代码)。