3

Inkscapeには、このように呼び出されるシェルモードがあります

inkscape --shell

ここで、次のようなコマンドを実行できます。

some_svg_file.svg -e some_png_output.png -y 1.0 -b #ffffff -D -d 150

PNGファイルを生成するか、次のようになります。

/home/simone/some_text.svg -S

これにより、次のようなリターンメッセージでファイル内のすべての要素のバウンディングボックスが表示されます

 svg2,0.72,-12.834,122.67281,12.942
 layer1,0.72,-12.834,122.67281,12.942
 text2985,0.72,-12.834,122.67281,12.942
 tspan2987,0.72,-12.834,122.67281,12.942

これの利点は、毎回Inkscapeを再起動しなくても、SVGファイルに対して操作を実行できることです。

私はこのようなことをしたいと思います：

sub do_inkscape {
     my ($file, $commands) = @_;
     # capture output
     return $output
}

open2を使用し、次のようにフォークすれば、問題なく動作します。

use IPC::Open2;

$pid = open2(\*CHLD_OUT, \*CHLD_IN, 'inkscape --shell');
$\ = "\n"; $/ = ">";

my $out; open my $fh, '>', \$out;

if (!defined($kidpid = fork())) {
    die "cannot fork: $!";
} elsif ($kidpid == 0) {
    while (<>) { print CHLD_IN $_; }
} else { 
    while (<CHLD_OUT>) { chop; s/\s*$//gmi; print "\"$_\"";  }
    waitpid($kidpid, 0); 
}

しかし、1行だけを入力し、毎回Inkscapeを再起動せずに、その出力だけをキャプチャする方法を見つけることができません。

ありがとう

シモーネ

4

1 に答える 1

3

フォークする必要はありませんopen2。それ自体で処理します。あなたがする必要があるのは、 がいつinkscape入力を待っているかを検出する方法を見つけることです。

これを達成する方法の非常に基本的な例を次に示します。

#! /usr/bin/perl
use strict;
use warnings;

use IPC::Open2;

sub read_until_prompt($) {
    my ($fh) = (@_);
    my $done = 0;
    while (!$done) {
        my $in;
        read($fh, $in, 1);
        if ($in eq '>') {
            $done = 1;
        } else {
            print $in;
        }
    }
}

my ($is_in, $is_out);
my $pid = open2($is_out, $is_in, 'inkscape --shell');

read_until_prompt($is_out);
print "ready\n";

print $is_in "test.svg -S\n";
read_until_prompt($is_out);

print $is_in "quit\n";
waitpid $pid, 0;

print "done!\n";

は、文字が見つかるまで s 出力read_until_promptから読み取り、文字が見つかると準備ができていると想定します。inkscape>inkscape

注: これは単純すぎるため、>予想される出力でプロンプトの外に a が表示される場合、より確実に機能させるために、おそらくさらに多くのロジックが必要になるでしょう。また、上記のスクリプトではエラー チェックがまったく行われていませんが、これは悪いことです。

于 2011-10-08T08:47:55.307 に答える