perl 數(shù)據(jù)轉(zhuǎn)換

lhohoz

1013          4        5        5        8        8        8        16        20        20        10        10        18
1026          6        8        9        11        12        14        15        22        33        44        55        66
1088          7        11        13        13        12        14        15        22        33        46        55        66

想將上組數(shù)據(jù)變成下列格式，請教高手perl code，謝謝

1013 4
1013 5
1013 5
1013 8
1013 8
1013 8
1013 16
1013 20
1013 20
1013 10
1013 10
1013 18
1026 6
1026 8
1026 9
1026 11
1026 12
1026 14
1026 15
1026 22
1026 33
1026 44
1026 55
1026 66
1088 7
1088 11
1088 13
1088 13
1088 12
1088 14
1088 15
1088 22
1088 33
1088 46
1088 55
1088 66

rubyish

1. #!/usr/bin/perl
   
2. while (<DATA>){
   
3.     my @a = split;
   
4.     print for map "$a[0] $_\n", @a[1..$#a];
   
5. }
   
6. __DATA__
   
7. 1013          4        5        5        8        8        8        16        20        20        10        10        18
   
8. 1026          6        8        9        11        12        14        15        22        33        44        55        66
   
9. 1088          7        11        13        13        12        14        15        22        33        46        55        66
   

復制代碼

lhohoz

謝謝        

rubyish

:

1. while (<DATA>){
   
2.     my ( $h, @t ) = split;
   
3.     print for map "$h $_\n", @t;
   
4. }

復制代碼

mcshell

1. perl -ne 's/^(\d+)(.*)/$m=$1;$n=$2;$n=~s|(\d+)|print "$m $1\n"|eg;/eg'  file

復制代碼

回復 1# lhohoz


   

rubyish

mcshell 發(fā)表于

1. perl -ne 's/^(\d+)(.*)/$m=$1;$n=$2;$n=~s|(\d+)|print "$m $1\n"|eg;/eg'  file

復制代碼

{:3_203:} {:3_203:}

1. perl -ane 'print map "$F[0] $_$/",@F[1..$#F]' file

復制代碼

yinyuemi

1. perl -lne 'print $1." ".$2 while(s/(\S+)\s+(\S+)/\1/)'

復制代碼

lhohoz

謝謝，如果想在中間插一列為4,5,6,7,8,9,10,11,12,1,2,3的數(shù)組呢，例如下列
1013 4 4
1013 5 5
1013 6 5
1013 7 8
1013 8 8
1013 9 8
1013 10 16
1013 11 20
1013 12 20
1013 1 10
1013 2 10
1013 3 18
......
1026 4  6
1026 5 8
1026 6 9
1026 7 11
1026 8 12
1026 9 14
1026 10 15
1026 11 22
1026 12 33
1026 1 44
1026 2 55
1026 3 66

yinyuemi

perl -lne '@insert=qw/1 2 3 4 5 6 7 8 9 10 11 12 1 2 3/;
$i=0;
print $1." ".$inset[$i++]." ".$2 while(s/(\S+)\s+(\S+)/\1/)'

inchonline

回復 7# yinyuemi
這個思路有點想不明白，大俠能解釋下不