UNIX for Dummies Questions & Answers

 
echo 'date'
while read first
 do
  while read second
      do
        while read third
         do
            printf "%-9s %-9s %-9s %-9s %-9s %-9s %-9s %-9s %-9s %-9s\n" $first $second $third 4 5 1 2 1 5 2 >> file.txt
          done < $3
        done < $2
   done < $1
date

# ./perm.pl
Thu Feb 24 15:28:41 CET 2011
Thu Feb 24 15:30:56 CET 2011
# cat perm.pl
#!/usr/bin/perl

use strict;
use warnings;

my ( $fh1, $fh2, $fh3, $out );
my ( @file1, @file2, @file3 );
system("date");
{
    local $/;
    open $fh1, '<', 'file1';
    my $file1 = <$fh1>;
    @file1 = split /\n/, $file1;
    close $fh1;
}
{
    local $/;
    open $fh2, '<', 'file2';
    my $file2 = <$fh2>;
    @file2 = split /\n/, $file2;
    close $fh2;
}
{
    local $/;
    open $fh3, '<', 'file3';
    my $file3 = <$fh3>;
    @file3 = split /\n/, $file3;
    close $fh3;
}

chomp @file1;
chomp @file2;
chomp @file3;

open $out, '>', 'file2.txt';
foreach my $first (@file1) {
    foreach my $second (@file2) {
        foreach my $third (@file3) {
            printf $out "%-9s %-9s %-9s %-9s %-9s %-9s %-9s %-9s %-9s %-9s\n",
              $first, $second, $third, 4, 5, 1, 2, 1, 5, 2;
        }
    }
}
close $out;
system("date");

 
./format.pl [4] use: not found
./format.pl [5] use: not found
./format.pl: 0403-057 Syntax error at line 7 : `(' not expected