Sponsored Content
Top Forums Shell Programming and Scripting two-column data to matrix in AWK Post 302511344 by pravin27 on Wednesday 6th of April 2011 03:06:44 PM
Old 04-06-2011
Perl
Code:
#!/usr/bin/perl

while (<DATA>) {
@a=split(/\s+/);
unless (exists $col2{$a[1]}) {$col2{$a[1]}++;}
$b{$a[0]}=$b{$a[0]}." ".$a[1];
}

printf "\t";
printf "%s ",$_ foreach (sort(keys(%col2)));
print "\n";

$sc=keys %col2;
foreach (sort(keys(%b))){
printf "%s\t","$_";
   undef @fld;
   @fld=split(/\s+/,$b{$_});
        $lst=1;
        foreach (sort(keys(%col2))) {
        $cl=$_;
        for($i=$lst;$i<=$sc;$i++) {
        if ($cl eq $fld[$i]) {printf "%s ","1";$lst=$i+1;last;} else {printf "%s ","0";$lst=$i;last;}
        }
        }
        printf "\n";
}

__DATA__
X       A
X       B
Y       A
Y       C
Z       B
Z       C
P       A
Q       A

This User Gave Thanks to pravin27 For This Post:
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

extract data from a data matrix with filter criteria

Here is what old matrix look like, IDs X1 X2 Y1 Y2 10914061 -0.364613333 -0.362922333 0.001691 -0.450094667 10855062 0.845956333 0.860396667 0.014440333 1.483899333... (7 Replies)
Discussion started by: ssshen
7 Replies

2. Emergency UNIX and Linux Support

AWK - check column data

Hi, I have a data in a file . Infile: 1 e 1.2 1.6 5 f 2.3 3.6 3 g 1.2 2.6 6 i 2.3 3.6 8 o 1.2 3.6 output: 1 e 1.2 1.6 5 f 2.3 3.6 3 g 1.1 2.6 6 i 2.2 3.5 8 o 1.0 3.4 (17 Replies)
Discussion started by: vasanth.vadalur
17 Replies

3. Ubuntu

How to convert full data matrix to linearised left data matrix?

Hi all, Is there a way to convert full data matrix to linearised left data matrix? e.g full data matrix Bh1 Bh2 Bh3 Bh4 Bh5 Bh6 Bh7 Bh1 0 0.241058 0.236129 0.244397 0.237479 0.240767 0.245245 Bh2 0.241058 0 0.240594 0.241931 0.241975 ... (8 Replies)
Discussion started by: evoll
8 Replies

4. Shell Programming and Scripting

convert data into matrix- awk

is it possible to count the number of keys based on state and cell and output it as a simple matrix. Ex: cell1-state1 has 2 keys cell3-state1 has 4 keys. Note: Insert 0 if no data available. input key states cell key1 state1 cell1 key1 state2 cell1 key1 ... (21 Replies)
Discussion started by: quincyjones
21 Replies

5. Shell Programming and Scripting

Printing another column using awk and input data

Hi, I have data of the following type, chr1 234 678 39 852 638 abcd 7895 chr1 526 326 33 887 965 kilj 5849 Now, I would like to have something like this chr1 234 678 39 852 638 abcd 7895 <a href="http://unix.com/thread=chr1:234-678">Link</a> chr1 526 326 33 887 965 kilj 5849 <a... (5 Replies)
Discussion started by: jacobs.smith
5 Replies

6. Shell Programming and Scripting

3 column .csv --> correlation matrix; awk, perl?

Greetings, salutations. I have a 3 column csv file with ~13 million rows and I would like to generate a correlation matrix. Interestingly, you all previously provided a solution to the inverse of this problem. Thread title: "awk? adjacency matrix to adjacency list / correlation matrix to list"... (6 Replies)
Discussion started by: R3353
6 Replies

7. Shell Programming and Scripting

column to matrix

Hello All, I need your help in the following problem. I have a matrix of 500 columns and 1000 rows and in each cell, it is having a value range from 0 to 9. I would like to convert each column in to a matrix, according to the value in each cell (ie) 0 to 9. For each column, I need a matrix... (5 Replies)
Discussion started by: Fredrick
5 Replies

8. Shell Programming and Scripting

How order a data matrix using awk?

is it possible to order the following row clusters from ascending to descending. thanx in advance input 1 2 4 0 1 2 4 0 3 3 3 3 1 5 1 0 1 5 1 0 6 0 0 0 5 1 1 1... (4 Replies)
Discussion started by: quincyjones
4 Replies

9. Shell Programming and Scripting

Transpose matrix based on second column using awk

Hi, Is it possible to transpose the matrix like this using awk ? Many thanks in advance Input abc Name_1 0 abc Name_2 1 abc Name_3 2 abc Name_4 0.4 def Name_1 0 def Name_2 9 def Name_3 78 def Name_4 1 Output abc def Name_1 0 ... (4 Replies)
Discussion started by: quincyjones
4 Replies

10. Shell Programming and Scripting

How to get row data printed in column using awk?

Hi team, I have below sample file. $ cat sample dn: MSISDN=400512345677,dc=msisdn,ou=NPSD,serv=CSPS,ou=servCommonData,dc=stc structuralObjectClass: NphData objectClass: NphData objectClass: MSISDN entryDS: 0 nodeId: 35 createTimestamp: 20170216121047Z modifyTimestamp: 20170216121047Z... (3 Replies)
Discussion started by: shanul karim
3 Replies
Git::SVN::Fetcher(3)					User Contributed Perl Documentation				      Git::SVN::Fetcher(3)

NAME
Git::SVN::Fetcher - tree delta consumer for "git svn fetch" SYNOPSIS
use SVN::Core; use SVN::Ra; use Git::SVN; use Git::SVN::Fetcher; use Git; my $gs = Git::SVN->find_by_url($url); my $ra = SVN::Ra->new(url => $url); my $editor = Git::SVN::Fetcher->new($gs); my $reporter = $ra->do_update($SVN::Core::INVALID_REVNUM, '', 1, $editor); $reporter->set_path('', $old_rev, 0); $reporter->finish_report; my $tree = $gs->tmp_index_do(sub { command_oneline('write-tree') }); foreach my $path (keys %{$editor->{dir_prop}) { my $props = $editor->{dir_prop}{$path}; foreach my $prop (keys %$props) { print "property $prop at $path changed to $props->{$prop} "; } } foreach my $path (keys %{$editor->{empty}) { my $action = $editor->{empty}{$path} ? 'added' : 'removed'; print "empty directory $path $action "; } foreach my $path (keys %{$editor->{file_prop}) { ... } foreach my $parent (keys %{$editor->{absent_dir}}) { my @children = @{$editor->{abstent_dir}{$parent}}; print "cannot fetch directory $parent/$_: not authorized? " foreach @children; } foreach my $parent (keys %{$editor->{absent_file}) { ... } DESCRIPTION
This is a subclass of "SVN::Delta::Editor", which means it implements callbacks to act as a consumer of Subversion tree deltas. This particular implementation of those callbacks is meant to store information about the resulting content which git svn fetch could use to populate new commits and new entries for unhandled.log. More specifically: o Additions, removals, and modifications of files are propagated to git-svn's index file $GIT_DIR/svn/$refname/index using git update- index. o Changes in Subversion path properties are recorded in the "dir_prop" and "file_prop" fields (which are hashes). o Addition and removal of empty directories are indicated by entries with value 1 and 0 respectively in the "empty" hash. o Paths that are present but cannot be conveyed (presumably due to permissions) are recorded in the "absent_file" and "absent_dirs" hashes. For each key, the corresponding value is a list of paths under that directory that were present but could not be conveyed. The interface is unstable. Do not use this module unless you are developing git-svn. DEPENDENCIES
SVN::Delta from the Subversion perl bindings, the core Carp, File::Basename, and IO::File modules, and git's Git helper module. "Git::SVN::Fetcher" has not been tested using callers other than git-svn itself. SEE ALSO
SVN::Delta, Git::SVN::Editor. INCOMPATIBILITIES
None reported. BUGS
None. perl v5.16.3 2013-06-10 Git::SVN::Fetcher(3)
All times are GMT -4. The time now is 06:46 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy