Rev 9094 |
Go to most recent revision |
Blame |
Compare with Previous |
Last modification |
View Log
| RSS feed
#!/usr/bin/perl
use strict "vars";
use strict "subs";
use warnings;
use Text
::Balanced qw (extract_bracketed extract_tagged
);
my $tag='test';
my $file='test';
my $out='.';
while ($_ = shift (@ARGV))
{
last if (!/^--/);
if (/^--file=(.*)$/) { $file = $1; }
elsif (/^--tag=(.*)$/) { $tag = $1; }
elsif (/^--out=(.*)$/) { $out = $1; }
else {
print STDERR "unknown option: $_\n" if (!/^--help
$/);
#usage(); # includes --help !
}
} ;
my $text; my $test=0;
while (<IN>){
next if !(/\<test\>/) && $test==0 ;
$test=1; $text .= $_;
}
my @u=extract_tagged ($text ,"<$tag>","</$tag>");
out("$out/$file",$u[0]);
sub out { my ($bloc, $text) = @_ ;
open (OUT
, ">$bloc") || warn "peut pas créer $bloc";
}