Eu tenho um script que cria um PDF e o envia para o servidor de impressão remoto executando o CUPS.

Usando Net::Printer, eu configurei a impressora:

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();

A impressora remota é uma impressora de etiquetas, Zebra ZT420 , configurada com Zebra PPD .

Agora, o problema é que a etiqueta impressa é forçada de alguma forma, em algum lugar no caminho, para a orientação vertical, em vez da horizontal, não importa como eu configure o arquivo PDF (seja forçá-lo a ser vertical ou horizontal).

Ao imprimir manualmente, por exemplo, usando o Visualizador de Documentos no GNOME ou a caixa de diálogo de impressão do sistema, a saída é impressa corretamente.

Por que isso acontece com meu código?

O que eu perdi ou configurei incorretamente?

Existe uma maneira de forçar a orientação ao enviá-lo para uma impressora?

Eu tenho um processo de longa duração que está atingindo um limite de recursos, como o número máximo de arquivos abertos.

Eu não quero matá-lo.

Normalmente, você faria:

(stop service)
ulimit -n <new limit>
(start service)

Existe uma maneira de evitar ter que parar e iniciar o serviço e aumentar os limites?

Existe uma maneira de restaurar/recuperar um arquivo removido quando ainda estiver em uso?

Existe uma maneira de inicializar outro sistema operacional ou um kernel diferente na próxima vez que a máquina for reinicializada, mas na reinicialização depois disso, volte ao padrão original?

Estou tentando converter um arquivo xlsx para pdf usando Perl CGI (Mason).

Como não encontrei uma forma de converter um arquivo usando perl puro, estou usando sofficepara realizar o trabalho.

Isso funciona bem até que eu faça isso através do navegador.

O código responsável pela conversão é bem simples:

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

Isso funciona bem na linha de comando, quando executado por um usuário comum, mas executá-lo como usuário Apache (Mason on Apache), gera um erro:

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

Alguém pode me indicar a direção certa?

Existe uma maneira de converter xlsx em pdf usando apenas perl, não comandos do sistema?

Editar

Para passar dconfo erro, criei manualmente a árvore de diretórios da qual ela está reclamando e a chown para o usuário do apache, no entanto, há o próximo erro:

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

O mesmo acontece se eu tentar unoconv:

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

Solução

Iniciando unoconv --listenermanualmente antes da operação, faz o truque e resolve meu problema. Os arquivos PDF estão sendo criados.

Eu tenho uma matriz que contém itens duplicados, por exemplo

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

Com base no exposto, quero criar uma matriz associativa que atribua itemNcomo chave e dataNcomo valor.

Meu código itera sobre a lista e atribui key => valor assim (a função adicional é encurtada, pois executa alguns trabalhos adicionais na lista):

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

quando eu imprimo o array, estou recebendo algo como:

item1: data1 data2
item1: data2 data3
item2: data4

mas em vez disso, quero obter:

item1: data1 data2 data3
item2: data4

Não é possível encontrar uma maneira de mesclar as chaves duplicadas, bem como remover valores duplicados para a chave.

Qual seria a abordagem aqui?

ATUALIZAR

O código real é:

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
}

ao imprimir a matriz com:

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

eu recebo

item1: data1 data2
item1: data2 data3
item2: data4