Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
SOAPsh.bat	3.35 KB	-rwxrwxrwx	2021-01-24 18:08
SOAPsh.pl	2.75 KB	-rw-rw-rw-	2021-01-24 18:01
bdf2gdfont.bat	5.26 KB	-rwxrwxrwx	2021-01-24 18:08
bdf2gdfont.pl	4.75 KB	-rw-rw-rw-	2021-01-24 17:46
chartex	5.67 KB	-rw-rw-rw-	2021-01-24 18:01
chartex.bat	6.47 KB	-rwxrwxrwx	2021-01-24 18:08
config_data	7.2 KB	-rw-rw-rw-	2021-01-24 18:01
config_data.bat	7.73 KB	-rwxrwxrwx	2024-07-26 17:42
corelist.bat	15.75 KB	-rwxrwxrwx	2023-11-19 11:41
cpan	8.06 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-mirrors	4.18 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-mirrors.bat	5.1 KB	-rwxrwxrwx	2021-01-24 18:08
cpan-outdated	8.85 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-outdated.bat	9.67 KB	-rwxrwxrwx	2021-01-24 18:08
cpan.bat	9.16 KB	-rwxrwxrwx	2021-01-24 18:08
cpan2dist	21.22 KB	-rw-rw-rw-	2021-01-24 18:01
cpan2dist.bat	22.39 KB	-rwxrwxrwx	2021-01-24 18:08
cpandb	6.6 KB	-rw-rw-rw-	2021-01-24 18:01
cpandb.bat	7.37 KB	-rwxrwxrwx	2021-01-24 18:08
cpanel_json_xs	9.75 KB	-rw-rw-rw-	2021-01-24 18:01
cpanel_json_xs.bat	10.58 KB	-rwxrwxrwx	2021-01-24 18:08
cpanfile-dump	3.45 KB	-rw-rw-rw-	2021-01-24 16:20
cpanfile-dump.bat	4.08 KB	-rwxrwxrwx	2021-01-24 18:08
cpanm	295.67 KB	-rw-rw-rw-	2021-01-24 16:36
cpanm.bat	297.23 KB	-rwxrwxrwx	2021-01-24 18:08
cpanp	3.22 KB	-rw-rw-rw-	2021-01-24 18:01
cpanp-run-perl	459 B	-rw-rw-rw-	2021-01-24 16:38
cpanp-run-perl.bat	990 B	-rwxrwxrwx	2021-01-24 18:08
cpanp.bat	3.84 KB	-rwxrwxrwx	2021-01-24 18:08
crc32	1.01 KB	-rw-rw-rw-	2021-01-24 18:01
crc32.bat	1.57 KB	-rwxrwxrwx	2021-01-24 18:08
dbicadmin	7 KB	-rw-rw-rw-	2021-01-24 18:01
dbicadmin.bat	7.87 KB	-rwxrwxrwx	2021-01-24 18:08
dbilogstrip	1.39 KB	-rw-rw-rw-	2021-01-24 17:15
dbilogstrip.bat	1.89 KB	-rwxrwxrwx	2021-01-24 18:08
dbiprof	6.31 KB	-rw-rw-rw-	2021-01-24 17:15
dbiprof.bat	6.82 KB	-rwxrwxrwx	2021-01-24 18:08
dbiproxy	5.44 KB	-rw-rw-rw-	2021-01-24 17:15
dbiproxy.bat	5.95 KB	-rwxrwxrwx	2021-01-24 18:08
enc2xs	40.68 KB	-rw-rw-rw-	2021-01-24 18:01
enc2xs.bat	42.87 KB	-rwxrwxrwx	2021-01-24 18:08
encguess	2.91 KB	-rw-rw-rw-	2021-01-24 18:01
encguess.bat	3.8 KB	-rwxrwxrwx	2021-01-24 18:08
exe_update.bat	4.71 KB	-rwxrwxrwx	2021-01-24 18:08
exe_update.pl	4.05 KB	-rw-rw-rw-	2021-01-24 18:01
exetype.bat	3.53 KB	-rwxrwxrwx	2021-01-24 18:08
extract_vba	2.98 KB	-rw-rw-rw-	2021-01-24 18:01
extract_vba.bat	3.62 KB	-rwxrwxrwx	2021-01-24 18:08
factor.bat	3.77 KB	-rwxrwxrwx	2021-01-24 18:08
factor.pl	3.16 KB	-rw-rw-rw-	2021-01-24 18:01
findrule	3.24 KB	-rw-rw-rw-	2021-01-24 16:52
findrule.bat	3.88 KB	-rwxrwxrwx	2021-01-24 18:08
h2ph.bat	30.27 KB	-rwxrwxrwx	2024-07-26 17:42
h2xs.bat	62.43 KB	-rwxrwxrwx	2024-07-26 17:42
htmltree	1.28 KB	-rw-rw-rw-	2021-01-24 18:01
htmltree.bat	1.81 KB	-rwxrwxrwx	2024-07-26 17:42
hypnotoad	1.03 KB	-rw-rw-rw-	2021-01-24 16:59
hypnotoad.bat	1.58 KB	-rwxrwxrwx	2021-01-24 18:08
instmodsh	4.09 KB	-rw-rw-rw-	2021-01-24 18:01
instmodsh.bat	5.03 KB	-rwxrwxrwx	2021-01-24 18:08
json_pp	4.77 KB	-rw-rw-rw-	2021-01-24 18:01
json_pp.bat	5.52 KB	-rwxrwxrwx	2024-07-26 17:42
json_xs	6.84 KB	-rw-rw-rw-	2021-01-24 18:01
json_xs.bat	7.6 KB	-rwxrwxrwx	2021-01-24 18:08
kwalitee-metrics	2.34 KB	-rw-rw-rw-	2021-01-24 18:01
kwalitee-metrics.bat	2.96 KB	-rwxrwxrwx	2021-01-24 18:08
libgcc_s_seh-1.dll	74.5 KB	-rw-rw-rw-	2019-03-14 23:36
libnetcfg.bat	16.88 KB	-rwxrwxrwx	2024-07-26 17:42
libstdc++-6.dll	1.36 MB	-rw-rw-rw-	2019-03-14 23:36
libwinpthread-1.dll	51 KB	-rw-rw-rw-	2019-03-14 23:36
llw32helper.bat	4.8 KB	-rwxrwxrwx	2021-01-24 18:08
llw32helper.pl	4.13 KB	-rw-rw-rw-	2021-01-24 17:51
lwp-download	10.04 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-download.bat	10.88 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-dump	2.64 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-dump.bat	3.26 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-mirror	2.35 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-mirror.bat	2.96 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-request	15.81 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-request.bat	16.88 KB	-rwxrwxrwx	2021-01-24 18:08
mech-dump	4.74 KB	-rw-rw-rw-	2021-01-24 18:01
mech-dump.bat	5.44 KB	-rwxrwxrwx	2021-01-24 18:08
minicpan	5.36 KB	-rw-rw-rw-	2021-01-24 18:08
minicpan.bat	6.05 KB	-rwxrwxrwx	2021-01-24 18:08
module-version	2.06 KB	-rw-rw-rw-	2021-01-24 17:51
module-version.bat	2.65 KB	-rwxrwxrwx	2021-01-24 18:08
mojo	408 B	-rw-rw-rw-	2021-01-24 16:59
mojo.bat	953 B	-rwxrwxrwx	2021-01-24 18:08
moose-outdated	427 B	-rw-rw-rw-	2021-01-24 18:01
moose-outdated.bat	977 B	-rwxrwxrwx	2021-01-24 18:08
morbo	2.15 KB	-rw-rw-rw-	2021-01-24 16:59
morbo.bat	2.72 KB	-rwxrwxrwx	2021-01-24 18:08
mymeta-cpanfile	2.7 KB	-rw-rw-rw-	2021-01-24 16:20
mymeta-cpanfile.bat	3.32 KB	-rwxrwxrwx	2021-01-24 18:08
nssm_32.exe	288 KB	-rwxrwxrwx	2021-01-24 16:50
nssm_64.exe	323.5 KB	-rwxrwxrwx	2021-01-24 16:50
package-stash-conflicts	463 B	-rw-rw-rw-	2021-01-24 18:01
package-stash-conflicts.bat	1013 B	-rwxrwxrwx	2021-01-24 18:08
parinstallppd	3.35 KB	-rw-rw-rw-	2021-01-24 18:01
parinstallppd.bat	3.99 KB	-rwxrwxrwx	2021-01-24 18:08
perl.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
perl5.32.1.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
perl532.dll	3.26 MB	-rw-rw-rw-	2021-01-24 16:07
perlbug.bat	46.8 KB	-rwxrwxrwx	2024-07-26 17:42
perldoc.bat	1016 B	-rwxrwxrwx	2023-11-19 11:41
perlglob.bat	1.95 KB	-rwxrwxrwx	2021-01-24 18:08
perlglob.exe	17 KB	-rwxrwxrwx	2021-01-24 16:01
perlivp.bat	11.72 KB	-rwxrwxrwx	2024-07-26 17:42
perlthanks.bat	46.8 KB	-rwxrwxrwx	2024-07-26 17:42
perltidy	175.27 KB	-rw-rw-rw-	2021-01-24 18:01
perltidy.bat	180.32 KB	-rwxrwxrwx	2021-01-24 18:08
pgplet	10.37 KB	-rw-rw-rw-	2021-01-24 18:01
pgplet.bat	11.22 KB	-rwxrwxrwx	2021-01-24 18:08
piconv	8.07 KB	-rw-rw-rw-	2021-01-24 18:01
piconv.bat	9.13 KB	-rwxrwxrwx	2021-01-24 18:08
pkg-config	46.94 KB	-rw-rw-rw-	2021-01-24 18:01
pkg-config.bat	49.2 KB	-rwxrwxrwx	2021-01-24 18:08
pl2bat.bat	11.49 KB	-rwxrwxrwx	2021-01-24 18:08
pl2bat.pl	10.4 KB	-rw-rw-rw-	2021-01-24 18:01
pl2pm.bat	5.56 KB	-rwxrwxrwx	2024-07-26 17:42
pler	540 B	-rw-rw-rw-	2021-01-24 18:01
pler.bat	1.07 KB	-rwxrwxrwx	2021-01-24 18:08
pm-uninstall	820 B	-rw-rw-rw-	2021-01-24 18:01
pm-uninstall.bat	1.28 KB	-rwxrwxrwx	2023-11-19 11:41
pod2html.bat	5.02 KB	-rwxrwxrwx	2024-07-26 17:42
pod2latex	10.39 KB	-rw-rw-rw-	2024-07-26 17:42
pod2latex.bat	10.92 KB	-rwxrwxrwx	2024-07-26 17:42
pod2man.bat	15.42 KB	-rwxrwxrwx	2023-11-19 11:41
pod2text.bat	11.29 KB	-rwxrwxrwx	2023-11-19 11:41
pod2usage	4.16 KB	-rw-rw-rw-	2021-01-24 16:27
pod2usage.bat	4.67 KB	-rwxrwxrwx	2021-01-24 18:08
pod_cover	1.37 KB	-rw-rw-rw-	2021-01-24 18:01
pod_cover.bat	1.94 KB	-rwxrwxrwx	2021-01-24 18:08
podchecker	3.7 KB	-rw-rw-rw-	2021-01-24 16:27
podchecker.bat	4.21 KB	-rwxrwxrwx	2021-01-24 18:08
podselect	2.56 KB	-rw-rw-rw-	2021-01-24 16:25
podselect.bat	3.07 KB	-rwxrwxrwx	2021-01-24 18:08
ppd2par	4.64 KB	-rw-rw-rw-	2021-01-24 18:01
ppd2par.bat	5.32 KB	-rwxrwxrwx	2021-01-24 18:08
ppm.bat	35.53 KB	-rwxrwxrwx	2021-01-24 18:08
ppm.pl	33.99 KB	-rw-rw-rw-	2021-01-24 18:01
primes.bat	21.45 KB	-rwxrwxrwx	2021-01-24 18:08
primes.pl	20.34 KB	-rw-rw-rw-	2021-01-24 18:01
prove.bat	14.07 KB	-rwxrwxrwx	2023-11-19 11:41
ptar	3.38 KB	-rw-rw-rw-	2021-01-24 18:01
ptar.bat	4.28 KB	-rwxrwxrwx	2021-01-24 18:08
ptardiff	2.48 KB	-rw-rw-rw-	2021-01-24 18:01
ptardiff.bat	3.35 KB	-rwxrwxrwx	2021-01-24 18:08
ptargrep	4.19 KB	-rw-rw-rw-	2021-01-24 18:01
ptargrep.bat	5.14 KB	-rwxrwxrwx	2021-01-24 18:08
runperl.bat	2.72 KB	-rwxrwxrwx	2021-01-24 18:08
scan-perl-prereqs-nqlite	5.28 KB	-rw-rw-rw-	2021-01-24 16:24
scan-perl-prereqs-nqlite.bat	6 KB	-rwxrwxrwx	2021-01-24 18:08
search.bat	55.83 KB	-rwxrwxrwx	2021-01-24 18:08
shasum.bat	10.48 KB	-rwxrwxrwx	2023-11-19 11:41
splain.bat	20.43 KB	-rwxrwxrwx	2024-07-26 17:42
streamzip	5.45 KB	-rw-rw-rw-	2021-01-24 18:01
streamzip.bat	6.17 KB	-rwxrwxrwx	2021-01-24 18:08
stubmaker.bat	4.01 KB	-rwxrwxrwx	2021-01-24 18:08
stubmaker.pl	3.35 KB	-rw-rw-rw-	2021-01-24 18:01
test-yaml	1017 B	-rw-rw-rw-	2021-01-24 18:01
test-yaml.bat	1.56 KB	-rwxrwxrwx	2021-01-24 18:08
tpage	8.85 KB	-rw-rw-rw-	2021-01-24 18:01
tpage.bat	9.64 KB	-rwxrwxrwx	2021-01-24 18:08
ttree	38.21 KB	-rw-rw-rw-	2021-01-24 18:01
ttree.bat	39.9 KB	-rwxrwxrwx	2021-01-24 18:08
use-devel-checklib	2.7 KB	-rw-rw-rw-	2021-01-24 16:53
use-devel-checklib.bat	3.31 KB	-rwxrwxrwx	2021-01-24 18:08
whirlpoolsum	4.93 KB	-rw-rw-rw-	2021-01-24 18:01
whirlpoolsum.bat	5.67 KB	-rwxrwxrwx	2021-01-24 18:08
wperl.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
xml_grep	13.32 KB	-rw-rw-rw-	2021-01-24 18:01
xml_grep.bat	14.3 KB	-rwxrwxrwx	2021-01-24 18:08
xml_merge	3.89 KB	-rw-rw-rw-	2021-01-24 18:01
xml_merge.bat	4.55 KB	-rwxrwxrwx	2021-01-24 18:08
xml_pp	7.82 KB	-rw-rw-rw-	2021-01-24 18:01
xml_pp.bat	8.61 KB	-rwxrwxrwx	2021-01-24 18:08
xml_spellcheck	6.34 KB	-rw-rw-rw-	2021-01-24 18:01
xml_spellcheck.bat	7.1 KB	-rwxrwxrwx	2021-01-24 18:08
xml_split	21.13 KB	-rw-rw-rw-	2021-01-24 18:01
xml_split.bat	22.27 KB	-rwxrwxrwx	2021-01-24 18:08
xsubpp.bat	5.78 KB	-rwxrwxrwx	2023-11-19 11:41
zipdetails	56.01 KB	-rw-rw-rw-	2021-01-24 18:01
zipdetails.bat	58.95 KB	-rwxrwxrwx	2021-01-24 18:08

Rename

#!perl -w
# $Id: /xmltwig/trunk/tools/xml_merge/xml_merge 12 2007-04-22T06:04:54.627880Z mrodrigu  $
use strict;

use XML::Twig;
use FindBin qw( $RealBin $RealScript);
use Getopt::Std;

$Getopt::Std::STANDARD_HELP_VERSION=1; # twice to prevent warning with 5.6.1 (I know it's dumb!)
$Getopt::Std::STANDARD_HELP_VERSION=1; # to stop processing after --help or --version

use vars qw( $VERSION $USAGE);

$VERSION= "0.02";
$USAGE= "xml_merge [-o <output_file>] [-i] [-v] [-h] [-m] [-V] [file]\n";

{ # main block

my $opt={};
getopts('o:ivhmV', $opt);

if( $opt->{h}) { die $USAGE, "\n";            }
if( $opt->{m}) { exec "pod2text $RealBin/$RealScript"; }
if( $opt->{V}) { print "xml_merge version $VERSION\n"; exit; }

if( $opt->{o})
  { open( my $out, '>', $opt->{o}) or die "cannot create $opt->{o}: $!";
    $opt->{fh}= $out; # used to set twig_print_outside_roots
  }
else
  { $opt->{fh}= 1; }  # this way twig_print_outside_roots outputs to STDOUT

$opt->{subdocs} = 1;
$opt->{file}    = $ARGV[0];

$opt->{twig_roots}= $opt->{i} ? { 'xi:include' => sub { $opt->{file}= $_->att( 'href');
                                                        if( $_->att( 'subdocs')) { merge( $opt); }
                                                        else                     { spit(  $opt); }
                                                      },
                                }
                              : { '?merge'     => sub { $opt= parse( $_->data, $opt);
                                                        if( $opt->{subdocs}) { merge( $opt); }
                                                        else                 { spit(  $opt); }
                                                      },
                                }

;

merge( $opt);

if( $opt->{v}) { warn "done\n"; }

}

sub merge
  { my( $opt)= @_;
    my $t= XML::Twig->new( keep_encoding => 1, keep_spaces => 1,
                           twig_roots => $opt->{twig_roots},
                           twig_print_outside_roots => $opt->{fh},
                         );
    if( $opt->{v} && $opt->{file}) { warn "merging $opt->{file} (parsing)\n"; }
    if( $opt->{file}) { $t->parsefile( $opt->{file}); } else { $t->parse( \*STDIN); }
  }

sub spit
  { my( $opt)= @_;
    if( $opt->{v} && $opt->{file}) { warn "merging $opt->{file} (no parsing)\n"; }
    open( my $in, '<', $opt->{file}) or die "cannot open sub document '$opt->{file}': $!";
    while( <$in>)
      { next if( m{^\Q<?xml version} || m{^\s*</?xml_split:root});
        if( $opt->{o}) { print {$opt->{fh}} $_; } else { print $_; } 
      }
    close $in;
  }

# data is the pi data, 
# (ugly) format is keyword1 = val1 : keyword2 = val2 ... : filename
# ex: subdoc = 1 : file-01.xml

sub parse
  { my( $data, $opt)= @_;
    while( $data=~ s{^\s*(\S+)\s*=\s*(\S+)\s*:\s*}{}) { $opt->{$1}= $2; }
    $opt->{file}= $data;
    return $opt;
  }
    
   
# for Getop::Std
sub HELP_MESSAGE    { return $USAGE;   }
sub VERSION_MESSAGE { return $VERSION; }

__END__

=head1 NAME

xml_merge - merge back XML files split with C<xml_split>

=head1 DESCRIPTION

C<xml_merge> takes several xml files that have been split using
C<xml_split> and recreates a single file.

=head1 OPTIONS

=over 4

=item -o <output_file>

unless this option is used the program output goes to STDOUT

=item -i

the files use XInclude instead of processing instructions (they
were created using the C<-i> option in C<xml_split>)

=item -v

verbose output

=item -V

outputs version and exit

=item -h

short help

=item -m

man (requires pod2text to be in the path)

=back

=head1 EXAMPLES

xml_merge foo-00.xml             # output to stdout
  xml_merge -o foo.xml foo-00.xml  # output to foo.xml

=head1 SEE ALSO

XML::Twig, xml_split

=head1 TODO/BUGS

=head1 AUTHOR

Michel Rodriguez <mirod@cpan.org>

=head1 LICENSE

This tool is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.