2

Perl コードを含むファイルがあるとします。そのファイル内の特定のサブルーチンの終了 "}" を見つけることができるモジュールがあるかどうか、誰かが知っていますか? 例えば：

#!/usr/bin/env perl
use warnings;
use 5.012;

routine_one( '{°^°}' );

routine_two();

sub routine_one {
    my $arg = shift;
    if ( $arg =~ /}\z/ ) {
    say "Hello my }";
    }
}

sub routine_two {
    say '...' for 0 .. 10
}

モジュールは、routine_one 全体を削除できる必要があります。または、そのルーチンの終了 "}" の行番号を教えてくれるはずです。

4

3 に答える 3

12

Perl コードを解析する場合は、PPIを使用します。

于 2010-11-12T07:44:40.870 に答える
3 
#!/usr/bin/env perl
use warnings;
use 5.012;
use PPI;

my $file = 'Example.pm';

my $doc = PPI::Document->new( $file );
$doc->prune( 'PPI::Token::Pod' );
$doc->prune( 'PPI::Token::Comment' );
my $subs = $doc->find( sub { $_[1]->isa('PPI::Statement::Sub') and $_[1]->name eq 'layout' } );
die if @$subs != 1;

my $new = PPI::Document->new( \qq(sub layout {\n    say "my new layout_code";\n}) );
my $subs_new = $new->find( sub { $_[1]->isa('PPI::Statement::Sub') and $_[1]->name eq 'layout' } );


$subs->[0]->block->insert_before( $subs_new->[0]->block ) or die $!;
$subs->[0]->block->remove or die $!;


# $subs->[0]->replace( $subs_new->[0] );
# The ->replace method has not yet been implemented at /usr/local/lib/perl5/site_perl/5.12.2/PPI/Element.pm line 743.

$doc->save( $file ) or die $!;
于 2010-11-12T11:24:49.300 に答える
0

例のように、サブルーチンに空白行が含まれていない場合、次のようになります。

#!/usr/bin/perl -w

use strict;

$^I = ".bkp";  # to create a backup file

{
   local $/ = ""; # one paragraph constitutes one record
   while (<>) {
      unless (/^sub routine_one \{.+\}\s+$/s) {  # 's' => '.' will also match "\n"
         print;
      }
   }
}
于 2010-11-12T09:44:18.463 に答える