diff options
Diffstat (limited to 'contrib/amd/m4/chop-aclocal.pl')
-rwxr-xr-x | contrib/amd/m4/chop-aclocal.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/contrib/amd/m4/chop-aclocal.pl b/contrib/amd/m4/chop-aclocal.pl new file mode 100755 index 0000000..2bf6b75 --- /dev/null +++ b/contrib/amd/m4/chop-aclocal.pl @@ -0,0 +1,19 @@ +#!/bin/perl -w + +$seq = 1; +$file = ""; +$file = sprintf("tmp/%02d.m4", $seq); +open(FILE, ">$file") || die "cannot open \"$file\": $!"; +printf(STDOUT "FILE: $file\n"); +while (<>) { + if (/^$/) { + close(FILE); + $seq++; + $file = sprintf("tmp/%02d.m4", $seq); + open(FILE, ">$file") || die "cannot open \"$file\": $!"; + printf(STDOUT "FILE: $file\n"); + next; + } + printf FILE; +} +close(FILE); |