comment on

These are my own perl versions of some C programs at http://acme.com/. lam joins multiple files using the contents of each as a column in the output. overlay lays two files on top of each other (as if they were transparencies) and the second shows through where the first contains whitespace.

I imagine overlay can be handy with ascii-art. And lam might be useful for making simple brochures...

Sample lamination:

=begin file 1
One fish, two fish.
=end file 1
=begin file 2
Red fish, blue fish.
=end file 2
=begin output
One fish, two fish.Red fish, blue fish.
=end output

Sample overlay:

=begin file 1
***hello      ***
              !!!
=end file 1
=begin file 2
...cruel world
I like bananas
=end file 2
=begin output
***hello world***
I like bananas!!!
=end output

UPDATE: danger made the astute observation that I was making the nasty assumption of \t == ' 'x8. Per his suggestion I am now using Text::Tabs, and running with -w. There was also a nasty little bug where I did length($2) instead of length($two), guess that's an argument for picking good variable names ;-). Also, jeffa got a for loop.

UPDATE 2: Bug and robustness fixes from danger's comment.

lam source:

#!/usr/bin/perl -w
use strict;
use Text::Tabs;
use Symbol; #Symbol and
my @data;   #array instead of hash so the same file can be in several 
+columns
my $sep ='';
if( $ARGV[0] =~ /^-sep/ ){
  (undef, $sep, @ARGV) = @ARGV;
}
die("usage: lam [-sep seperator] file1 file2 [...]\n") unless scalar @
+ARGV >1;
for(my $i=0; $i < scalar @ARGV; $i++){
  open($data[$i]->{FH}=gensym, $ARGV[$i]);
  $data[$i]->{w}=0;
  while(readline(*{$data[$i]->{FH}})){
    my $length = length(expand($_));
    $data[$i]->{w} = $length > $data[$i]->{w} ? $length : $data[$i]->{
+w};
  }
  $data[$i]->{h} = $.;
  seek($data[$i]->{FH}, 0, 0);
}
my $max = (sort {$main::b <=> $main::a} map {$_->{h}} @data)[0];
for(my $j=0; $j<$max; $j++){
  for(my $i=0; $i < scalar @ARGV; $i++){
    if( $j > $data[$i]->{h} ){
      print ' 'x$data[$i]->{w};
    }
    else{
      chomp($_ = readline(*{$data[$i]->{FH}}));
      $_ = expand($_);
      print $_, ' 'x($data[$i]->{w}-1-length);
    }
    print $sep unless $i+1 == scalar @ARGV;
  }
  print "\n";
}
[download]

overlay source:

#!/usr/bin/perl -w
use strict;
use Symbol;
use Text::Tabs;
die("usage: overlay file1 file2\n") unless scalar @ARGV == 2;
my @data;
for(my $i=0; $i < scalar @ARGV; $i++){
  open($data[$i]->{FH}=gensym, $ARGV[$i]) || die("overlay($ARGV[$i]): 
+$!\n");
  1 while(readline(*{$data[$i]->{FH}}));
  $data[$i]->{LINE} = $.;
  seek($data[$i]->{FH}, 0, 0);
}
my $maxline = $data[0]->{LINE} > $data[1]->{LINE} ?
  $data[0]->{LINE} : $data[1]->{LINE};
for(my $i=0; $i < $maxline; $i++){
  if( $i > $data[0]->{LINE} ){
    while(readline(*{$data[1]->{FH}})){
      print;
    }
    last;
  }
  elsif( $i > $data[1]->{LINE} ){
    while(readline(*{$data[0]->{FH}})){
      print;
    }
    last;    
  }
  else{
    for my $data (@data){
        $data->{str} = readline(*{$data->{FH}});
        chomp($data->{str});
        $data->{str} = expand($data->{str});
    }
    my $maxchar = length($data[0]->{str}) > length($data[1]->{str}) ?
        length($data[0]->{str}) : length($data[1]->{str});
    my @onechars = split(//, $data[0]->{str});
    my @twochars = split(//, $data[1]->{str});
    my $str;
    for(my $j=0; $j<$maxchar; $j++){
      if( $j > $#onechars ){
        $str .= join('', splice(@twochars, $j));
      }
      elsif($j > $#twochars){
        $str .= join('', splice(@onechars, $j));
      }
      else{
        $str .= $onechars[$j] eq ' ' ? $twochars[$j] : $onechars[$j];
      }
    }
    print $str, "\n";
  }
}
[download]

-- perl -p -e "s/(?:\w);([st])/'\$1/mg"

In reply to Some missing textutils by belg4mit

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.