#!/usr/bin/perl

use strict;

my($file1, $file2) = @ARGV;

-f $file1 and -f $file2 or die "usage: file_1 file_2\n";

open my $f1, $file1 or die "can't open $file1: $!";
open my $f2, $file2 or die "can't open $file2: $!";

my @file1 = <$f1>;
my @file2 = <$f2>;

map{ chomp; s/^\W*(.+?)\s*$/$1/ }@file1,@file2;
map{ print$file1[$_],$file2[$_],$/ }0..@file1;

__END__

STDOUT results:
10;00;23;33;
22;00;93;3;
209;29;29;29;

#~
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
#~

Редактирано от zuluz на 18.08.05 02:30.