helm/hxsp/make.pl

   1 #!/usr/bin/perl
   2 open(MAIN, ">","./hxsp.pl")|| die "Can't open ./hxsp.pl : $!";
   3 my $pd = "./splitted/";
   4 my @pieces = ("0.init.p.pl","1.globvars.p.pl","2.start.p.pl",
   5               "3.daemon.p.pl","4.hash.p.pl","5.libxslt.p.pl",
   6               "6.commands.p.pl","7.qsparse.p.pl",
   7               "8.strrep.p.pl","9.load.p.pl");
   8
   9 foreach $p (@pieces)
  10 {
  11    open(P, "$pd$p") || die "Can't open $pd$p : $!";
  12    while(my $line = <P>) { print MAIN $line; }
  13    close P;
  14    print MAIN "\n";
  15 }
  16
  17 close MAIN;