#!/usr/bin/perl for my $d (map {chomp;$_} `find . -mindepth 1 -maxdepth 1 -type d`) { $d=~m{\A\./(.*)\z}; open my $f, '>', "../../tmp/doc/asciidoc-867_$1.txt" or die "open: $!"; select $f; print <<'TABLE'; ++++
++++ .... COL1 $row = $row eq 'odd' ? 'even' : 'odd'; if ($txt =~ /^\.\.\.\.$/m) { my $tmp = $txt; $tmp =~ s/^/ /mg; print $tmp; } else { print $txt; } print <<'COL2'; .... ++++ | ++++ COL2 print $txt; print <<'EOROW'; ++++ | ++++ EOROW } print <<'EOTABLE'; ++++