Hi guys
in input every 1st line 1st ID value [rs1040480_XXXXX.value] located in 2nd line 1st occurrence [0.7408157].
I need to print them down accordingly..
Thanx in advance
input
rs1040480_XXXXX.value rs1040481_YYYYY.value rs1040482_TXXXX.value
0.7408157 0.3410044 0.7408157
rs1040483_TYYYY.value rs1040481_YYYYY.value rs1040482_TXXXX.value
0.3410044 0.3410044 0.7408157
output
rs1040480_XXXXX.value 0.7408157
rs1040481_YYYYY.value 0.3410044
rs1040482_TXXXX.value 0.7408157
rs1040483_TYYYY.value 0.3410044
rs1040481_YYYYY.value 0.3410044
rs1040482_TXXXX.value 0.7408157
awk '{print $1}' urfile |xargs -n2
$ awk '{print $1}' test2.txt |xargs -n2
rs1040480_XXXXX.value 0.7408157
rs1040483_TYYYY.value 0.3410044
Sorry, I misunderstand your request. Ignore my previous post. Here is the fix:
awk '{if (NR%2) {split($0,a," ")} else {for (i=1;i<=NF;i++) print a, $i}}' urfile
hey rdcwayx i was trying your code
this is my input
a b c
1 2 3
output comes as
a 1
2
b 3
just tried i am novice so dont mistake me for trying your code
I got the right output:
$ cat urfile
a b c
1 2 3
$ awk '{if (NR%2) {split($0,a," ")} else {for (i=1;i<=NF;i++) print a, $i}}' urfile
a 1
b 2
c 3
#!/usr/local/bin/perl
use strict;
use warnings;
my $infile='input.dat';
my @rsarr=();
my @nrarr=();
my @tarr
open(IN,$infile) or die "Error: $!\n";
while (<IN>) {
chomp $_;
if ($_ =~ /^rs/) {
@tarr = split(/ /,$_);
push(@rsarr,@tarr); }
else {
s/ */ /g;
s/^ //g;
@tarr = split(/ /,$_);
push(@nrarr,@tarr); }
}
close(IN);
for my $i (0 .. $#rsarr) {
print "$rsarr[$i] $nrarr[$i]\n"; }