将真值表打印到odt文件中

Question

我想打印真值表到一个表在一个adt文件，没有一个程序，但我不知道如何得到淡水河或值打印到odt文件，这个程序只是打印结果在屏幕上！

sub truth_table {
    my $s = shift;
    #print "$s\n";
    my  @vars;
    for ($s =~ /([a-zA-Z_]\w*)/g) {
        push @vars, $_ ;

    }
    #print "$s\n";
    #print "$_\n";
    #print Dumper \@vars;
    #print "\n", join("\t", @vars, $s), "\n", '-' x 40, "\n";
    #print Dumper \@vars;
    @vars = map("\$$_", @vars);
    $s =~ s/([a-zA-Z_]\w*)/\$$1/g;
    $s = "print(".join(',"\t",', map("($_?'1':'0')", @vars, $s)).",\"\\n\")";
    $s = "for my $_ (0, 1) { $s }" for (reverse @vars);
    eval $s;
}
truth_table 'A ^ A_1';

Answer 1

使用Capture::Tiny获取eval的结果，然后将字符串拆分为一个基于https://stackoverflow.com/a/4226073/5100564的二维数组。

use Capture::Tiny 'capture_stdout';

sub truth_table {
    #...the rest of your code here...
    my $stdout = capture_stdout {
        eval $s;
    };
    return $stdout;
}
$truth_string = truth_table 'A ^ A_1';
my @truth_array;
foreach my $line (split "\n", $truth_string) {
    push @truth_array, [split ' ', $line];
}
foreach my $line (@truth_array) {
    foreach my $val (@$line) {
        print $val;
    }
    print "\n";
}

为了使其工作，我根据安装缺少的Perl模块的最简单方法执行了以下命令？

cpan
install Capture::Tiny

但是，我将在LibreOffice中使用Python宏来解决这个问题。APSO使输入和运行这段代码变得很方便。

import uno
from itertools import product

def truth_table():
    NUM_VARS = 2  # A and B
    columns = NUM_VARS + 1
    rows = pow(2, NUM_VARS) + 1
    oDoc = XSCRIPTCONTEXT.getDocument()
    oText = oDoc.getText()
    oCursor = oText.createTextCursorByRange(oText.getStart())
    oTable = oDoc.createInstance("com.sun.star.text.TextTable")
    oTable.initialize(rows, columns)
    oText.insertTextContent(oCursor, oTable, False)
    for column, heading in enumerate(("A", "B", "A ^ B")):
        oTable.getCellByPosition(column, 0).setString(heading)
    row = 1  # the second row
    for p in product((0, 1), repeat=NUM_VARS):
        result = truth_function(*p)
        for column in range(NUM_VARS):
            oTable.getCellByPosition(column, row).setString(p[column])
        oTable.getCellByPosition(column + 1, row).setString(result)
        row += 1

def truth_function(x, y):
    return pow(x, y);

g_exportedScripts = truth_table,

以这种方式使用product的基础是为Python中的任何表达式创建真值表。

有关Python-UNO的更多文档，请访问https://wiki.openoffice.org/wiki/python。