#!/usr/bin/perl use warnings; use strict; open my $a, "<", "file1.txt" or die "Failed to open File : $!"; open my $b, "<", "file2.txt" or die "Failed to open File : $!"; chomp(my @file1=<$a>); chomp(my @file2=<$b>); close $a; close $b; my $max = @file1; my $min = 0; while ($min < $max) { print "$file1[$min] : $file2[$min]\n"; $min++; }
In reply to Re^3: Two Column Data
by edimusrex
in thread Two Column Data
by PilotinControl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |