/[suikacvs]/messaging/manakai/bin/domts2perl.pl
Suika

Diff of /messaging/manakai/bin/domts2perl.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Sun Oct 10 06:09:47 2004 UTC revision 1.2 by wakaba, Sat Oct 16 13:34:56 2004 UTC
# Line 16  $file_pattern ||= qr/\.xml$/; Line 16  $file_pattern ||= qr/\.xml$/;
16    
17  opendir my $dirh, $dir or die "$0: $dir: $!";  opendir my $dirh, $dir or die "$0: $dir: $!";
18  for (grep {$_ ne 'alltests.xml'} grep /$file_pattern/, readdir $dirh) {  for (grep {$_ ne 'alltests.xml'} grep /$file_pattern/, readdir $dirh) {
19      my $out_file = $out_dir.'/'.$_.'.pl';
20    my @cmd = ('perl', map ({"-I$_"} @INC),    my @cmd = ('perl', map ({"-I$_"} @INC),
21               'domtest2perl.pl', $dir.'/'.$_,               'domtest2perl.pl', $dir.'/'.$_,
22               '--output-file' => $out_dir.'/'.$_.'.pl');               '--output-file' => $out_file);
23    print STDERR join " ", @cmd, "\n";    print STDERR join " ", @cmd, "\n";
24    system @cmd and die "$0: domtest2perl.pl: $@";    system @cmd and die "$0: domtest2perl.pl: $@";
25      system 'perl', map ({"-I$_"} @INC), '-c', $out_file
26        and die "$0: $out_file: $@";
27  }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24