#!/bin/perl use strict; open(IN,"file1"); open(IN2,"file2"); open (OUT,"> output"); while (my $str = <IN>) { chomp($str); my $data = <IN2>; $data =~ s/(.*?)\s(.*)/$1 $str $2/; print OUT ($data); }
In reply to Re: read column in perl
by jbrugger
in thread read column in perl
by dee00zee
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |