主页 / user-357628

Bart's questions

Martin Hope
Bart
Asked: 2019-08-27 23:32:35 +0800 CST
  • 4

我有一个创建 PDF 并将其发送到运行 CUPS 的远程打印服务器的脚本。

使用Net::Printer，我设置了打印机：

my $print_server        = "remote_print.server";
my $printer             = "lp1234";

my $lineprinter = new Net::Printer( 
                          filename    => $pdf,
                          printer     => $printer,
                          server      => $print_server,   
                          port        => 515
);

[...]

# Print and get printer stauts.
$result = $lineprinter->printfile();

远程打印机是标签打印机Zebra ZT420，配置了Zebra PPD。

现在，问题在于，无论我如何设置 PDF 文件（无论是强制它是垂直还是水平），打印的标签都会以某种方式在途中某处被强制为垂直方向，而不是水平方向。

手动打印时，例如使用 GNOME 上的 Document Viewer 或系统打印对话框，可以正确打印输出。

为什么我的代码会发生这种情况？

我错过了什么或配置错误？

将其发送到打印机时有没有办法强制定向？

linux perl
Martin Hope
Bart
Asked: 2019-07-13 06:30:50 +0800 CST
  • 1

我正在尝试使用 Perl CGI (Mason) 将 xlsx 文件转换为 pdf。

由于我没有找到使用纯 perl 转换文件的方法，所以我正在使用soffice它来执行这项工作。

这工作正常，直到我通过浏览器完成。

负责转换的代码非常简单：

my @cmd = ( "soffice", "--headless", "--convert-to", "pdf", $filename );
system(@cmd);

这在命令行上运行良好，当由普通用户运行时，但以 Apache 用户（Apache 上的 Mason）运行它，会引发错误：

(process:14954): dconf-CRITICAL **: 14:28:42.846: unable to create directory '/usr/share/httpd/.cache/dconf': Permission denied.  dconf will not work properly.

谁能指出我正确的方向？

有没有办法只使用 perl 而不是系统命令将 xlsx 转换为 pdf？

编辑

为了传递dconf错误，我手动创建了它抱怨的目录树并将其分配给 apache 用户，但是，出现了下一个错误：

[Java framework] Error in function createSettingsDocument (elements.cxx).
javaldx failed!
Warning: failed to read path from javaldx

如果我尝试也一样unoconv：

Error: Unable to connect or start own listener. Aborting.

解决方案

unoconv --listener在操作之前手动启动，可以解决我的问题。正在创建 PDF 文件。

linux apache-httpd
Martin Hope
Bart
Asked: 2019-06-13 23:25:33 +0800 CST
  • 1

我有一个包含重复项的数组，例如

THE_LIST=(
"'item1' 'data1 data2'"
"'item1' 'data2 data3'"
"'item2' 'data4'"
)

基于上述，我想创建一个关联数组，将其分配itemN为键和dataN值。

我的代码遍历列表，并像这样分配 key => 值（附加函数被缩短，因为它在列表上执行一些额外的工作）：

function get_items(){
    KEY=$1
    VALUES=()
    shift $2
    for VALUE in "$@"; do
        VALUES[${#VALUES[@]}]="$VALUE"
    done
}

declare -A THE_LIST
for ((LISTID=0; LISTID<${#THE_LIST[@]}; LISTID++)); do
    eval "LISTED_ITEM=(${THE_LIST[$LISTID]})"
    get_items "${LISTED_ITEM[@]}"
    THE_LIST=([$KEY]="${VALUES[@]}")
done

当我打印数组时，我得到类似：

item1: data1 data2
item1: data2 data3
item2: data4

但相反，我想得到：

item1: data1 data2 data3
item2: data4

找不到合并重复键以及删除键的重复值的方法。

这里的方法是什么？

更新

实际代码是：

THE_LIST=(
"'item1' 'data1 data2'"
"'item1' 'data2 data3'"
"'item2' 'data4'"
)

function get_backup_locations () {
  B_HOST="$2"
  B_DIRS=()
  B_DIR=()
  shift 2

  for B_ITEM in "$@"; do
    case "$B_ITEM" in
      -*) B_FLAGS[${#B_FLAGS[@]}]="$B_ITEM" ;;
      *) B_DIRS[${#B_DIRS[@]}]="$B_ITEM" ;;
    esac
  done

  for ((B_IDX=0; B_IDX<${#B_DIRS[@]}; B_IDX++)); do
    B_DIR=${B_DIRS[$B_IDX]}

    ...do stuff here...

  done
}

function get_items () {
  for ((LOCIDY=0; LOCIDY<${#LOCATIONS[@]}; LOCIDY++)); do
    eval "LOCATION=(${LOCATIONS[$LOCIDY]})"
    get_backup_locations "${LOCATION[@]}"
    THE_LIST=([$B_HOST]="${B_DIR[@]}")
  done | sort | uniq
}

打印数组时：

for i in "${!THE_LIST[@]}"; do
    echo "$i : ${THE_LIST[$i]}"
done

我明白了

item1: data1 data2
item1: data2 data3
item2: data4
bash shell-script