Re^2: create a matrix for print 0 or 1 from pairing

Thanks vey much

If u have horse instead of A1 
          lion instead of A2
          mule instead of A3
          tiger instead of A4
[download]

 
__DATA__
horse;tiger
lion;mule
lion;tiger
horse;mule
[download]

Then in respone to that code tried to modify.

use strict;
use warnings;

my %A;
my ($max_row, $max_col) = (4,4);

# autovivify interesting rows/cols of %A
while (<DATA>) {
  warn("Line $.: cannot understand: $_") , next unless /(\w+);(\w+)/
+;
  my ($row, $col) = ($1,$2);
  $A{$row}{$col}++;
  $A{$col}{$row}++; # uncomment if relationship is not bidirectional
}

# print col. header
print "    ";
printf("%-3d",$_) for (1..$max_col);
print "\n";

#print matrix A
for my $row (1 .. $max_row) {
  printf("%-3d", $row);

  for my $col (1 .. $max_col) {
    printf(" %-3d",  exists $A{$row}{$col} ? "1" : "0" );
  }
  print "\n";
}
[download]

printing as 
    1  2  3  4  
1   0   0   0   0   
2   0   0   0   0    
3   0   0   0   0    
4   0   0   0   0
[download]

output shud be like

  
      horse lion mule tiger
horse  0     0    1    1
lion   0     0    1    1
mule   1     1    0    0
tiger  1     1    0    0
[download]

Comment on Re^2: create a matrix for print 0 or 1 from pairing Select or Download Code

Replies are listed 'Best First'.
Re^3: create a matrix for print 0 or 1 from pairing by vis1982 (Acolyte) on Oct 29, 2009 at 09:26 UTC
Thanks I have tried using that as per suggestions by Perlbotics /p> #use strict; use warnings; my %A = (horse=> 'a',lion=>'b' ,mule=>'c',tiger =>'d'); my @order= sort keys %A; while (<DATA>) { warn("Line $.: cannot understand: $_") , next unless /(\w+);(\w+)/; my ($row, $col) = ($1,$2); $A {$row}{$col}++; $A{$col}{$row}++; } # print col. header print " "; printf(" %2s",$_) for (@order); print "\n"; #print matrix A for my $row (@order) { printf(" %2s", $row); for my $col (@order) { printf(" %3d", exists $A{$row}{$col} ? "1" : "0" ); } print "\n"; } __DATA__ horse;tiger lion;mule lion;tiger horse;mule [download] `I have got ouput horse lion mule tiger horse 0 0 1 1 lion 0 0 1 1 mule 1 1 0 0 tiger 1 1 0 0` [download] However If u see in the code i have not use strict command; if using strict command in the first line error displayed will be Can't use string ("a") as a HASH ref while "strict refs" in use at work_matrix.pl line 12, <DATA> line 1. What can be possible solution if using strict command?	[reply] [d/l] [select]
Re^4: create a matrix for print 0 or 1 from pairing by jakobi (Pilgrim) on Oct 29, 2009 at 09:48 UTC
change lines 5+6 to `my %A; my @order=qw/horse lion mule tiger/;` Keywords to check are: soft references and auto-vivification: your strings 'a' to 'd' can be abused as soft references, which happens without `use strict`. With `use strict` however, you need a real hash-ref in the elements of `%A` instead - see perlreftut for more on references and soft references. Or omit the initialization of your hash-of-hashes `%A` to autovivify any `undef` values automagically as required (Autovivify definition or again: perlreftut). and for your aligning your table layout, consider something like sprintf "%5s", $stringvariable cu & HTH, Peter -- hints may be untested unless stated otherwise; use with caution & understanding.	[reply] [d/l] [select]