Mercurial > repos > ktnyt > gembassy
view GEMBASSY-1.0.3/doc/text/copydesc.pl @ 1:84a17b3fad1f draft
Uploaded
author | ktnyt |
---|---|
date | Fri, 26 Jun 2015 05:20:29 -0400 |
parents | 8300eb051bea |
children |
line wrap: on
line source
use strict; use warnings; my @progs = split "\n", `wossname -showembassy GEMBASSY -auto | cut -d ' ' -f 1| grep ^g | sort`; copy($_) foreach @progs; sub copy { my $prog = shift; print STDERR "\r\e[K$prog"; open my $rdr, "<", "old/$prog.txt"; open my $wtr, ">", "final/$prog.txt"; open my $tmp, "<", "new/$prog.txt"; my $out = join "", <$tmp>; my $progdesc; while(my $line = readline $rdr) { if($line =~ /^Description/) { readline $rdr; while($line !~ /SOAP/) { $line = readline $rdr; last if $line =~ /SOAP/; $progdesc .= $line; } $progdesc =~ s/\n+$//smg; } } $out =~ s/\[ProgDef\]\n/$progdesc/smg; print $wtr $out; }