どうもあったテーブルをマトリックス?
-
22-08-2019 - |
質問
だったらテーブルのテキストファイルなど
- A B1
- C2
- D1
- B3
- C D2
- E1
- E D2
- C B2
- . . .
- . . .
- . . .
私は別のシンボルのリストを別のテキストファイルです。私たらすものに変えたいと思っているこのテーブルへのPerlのデータ構造になっています:
- _D E...
- A0 1 1...
- D1 0 2...
- E1 2 0になります。..
- . . . . . . .
もしも必要選択したシンボルは、例えばA,D,Eのシンボルテキストがユネスコ-アジア文化センターません。
解決
最初の2つ目のための2次元ハッシュの配列を使用します。最初のものはおおよそ次のようになります。
$list[0] # row 1 - the value is "A B 1"
などのハッシュます:
$hash{A}{A} # the intersection of A and A - the value is 0
問題を実装する方法を考え出す、私にとって精神的な戦いの約75%です。それは簡単ですので、私は、ハッシュや配列を印刷する方法についての詳細に入るつもりはないと私はまた、あなたがそれを印刷したいか、どのくらいあなたが印刷する方法に完全には明らかではありませんよ。しかし、ハッシュに配列を変換することになります。このようなビットます:
foreach (@list) {
my ($letter1, $letter2, $value) = split(/ /);
$hash{$letter1}{$letter2} = $value;
}
少なくとも、私はそれはあなたが探しているものだと思います。あなたがをした場合、本当には、正規表現を使用することができますしたいが、それは単なる文字列のうちの3つの値を抽出するため、おそらく行き過ぎだ。
編集:もちろん、あなたが@list
を見送る可能性があり、単にファイルから直接ハッシュを組み立てます。しかし、それは把握するあなたの仕事です、ない鉱山ます。
他のヒント
あなたはawkのでこれを試すことができます:
のawk -f matrix.awk yourfile.txt> newfile.matrix.txt
ここでmatrix.awkはあります:
BEGIN {
OFS="\t"
}
{
row[$1,$2]=$3
if (!($2 in f2)) { header=(header)?header OFS $2:$2;f2[$2]}
if (col1[c]!=$1)
col1[++c]=$1
}
END {
printf("%*s%s\n", length(col1[1])+2, " ",header)
ncol=split(header,colA,OFS)
for(i=1;i<=c;i++) {
printf("%s", col1[i])
for(j=1;j<=ncol;j++)
printf("%s%s%c", OFS, row[col1[i],colA[j]], (j==ncol)?ORS:"")
}
}
これを実行する別の方法は、2次元配列を作ることであろう -
my @fArray = ();
## Set the 0,0th element to "_"
push @{$fArray[0]}, '_';
## Assuming that the first line is the range of characters to skip, e.g. BC
chomp(my $skipExpr = <>);
while(<>) {
my ($xVar, $yVar, $val) = split;
## Skip this line if expression matches
next if (/$skipExpr/);
## Check if these elements have already been added in your array
checkExists($xVar);
checkExists($yVar);
## Find their position
for my $i (1..$#fArray) {
$xPos = $i if ($fArray[0][$i] eq $xVar);
$yPos = $i if ($fArray[0][$i] eq $yVar);
}
## Set the value
$fArray[$xPos][$yPos] = $fArray[$yPos][$xPos] = $val;
}
## Print array
for my $i (0..$#fArray) {
for my $j (0..$#{$fArray[$i]}) {
print "$fArray[$i][$j]", " ";
}
print "\n";
}
sub checkExists {
## Checks if the corresponding array element exists,
## else creates and initialises it.
my $nElem = shift;
my $found;
$found = ($_ eq $nElem ? 1 : 0) for ( @{fArray[0]} );
if( $found == 0 ) {
## Create its corresponding column
push @{fArray[0]}, $nElem;
## and row entry.
push @fArray, [$nElem];
## Get its array index
my $newIndex = $#fArray;
## Initialise its corresponding column and rows with '_'
## this is done to enable easy output when printing the array
for my $i (1..$#fArray) {
$fArray[$newIndex][$i] = $fArray[$i][$newIndex] = '_';
}
## Set the intersection cell value to 0
$fArray[$newIndex][$newIndex] = 0;
}
}
私は(コメント欄にご提案/変更を残してください)私はここで初心者で参照が、クマを扱っている方法についてあまりにも誇りに思っていないです。クリスによって、上記のハッシュ法は、(はるかに少ないタイピングを言及しないように)ずっと簡単に聞こえます。