perl memo for photoshopPhotoshop を起動するには #!perl -w use Win32::OLE::Const 'Adobe Photoshop'; use strict; my $app = Win32::OLE->GetActiveObject('Photoshop.Application') || Win32::OLE->new('Photoshop.Application') or die "Cannot find Photoshop"; # 初期の設定値を保存する my @old_param; $old_param[0] = $app->preferences->{RulerUnits}; $old_param[1] = $app->preferences->{TypeUnits}; $old_param[2] = $app->{DisplayDialogs}; # 設定値を書き換える $a
