Just another Windows perl site

色が薄い文字(書類・図面類をスキャンした)画像を濃くする(その2・効率化)

2018/02/04
 
この記事を書いている人 - WRITER -

画像ソフトで変換してもいいのだが、画像ファイルが100個以上あると大変だ。
そんな時に perl(ruby, python php等でも良いのだが)でやると、効率的だ。
プログラムさえ出来れば、あとは「指一本で、一回」プログラムを起動するだけだ。
perl には「ImageMgick] のモジュールがある。
「ImageMgick] の変換種類イメージは以下を見ていただければわかる。
イメジマジックexamples.jpg

その中から、「イメージを鮮明にするコマンド」を探すと
Contrast Stretch
Normalize
Sharpen
が、良さそうだ。
試しにやってみたら「図面画像の鮮明化」には「Contrast Stretch」がよさそうだ。
perl のプログラムなら以下のとおりだ。
(jpeg 画像の有るフォルダで実行すると、ファイルごとに、変換後に、「名前+[_ContrastStretch.jpg] というファイル名で、新しく出力する)
#————————————————————
use Image::Magick;
$img = Image::Magick->new();
opendir(DRC,”.”);@f_jpg = grep(/\.jpg/i,readdir(DRC));closedir(DRC);
foreach $f_jpg (@f_jpg) {
$x = $img->ReadImage($f_jpg) || warn “$x”;
($ff) = ($f_jpg =~ /([^\.]+)\.jpg/i);
$example = $img->Clone();
$write_name = $ff . “_ContrastStretch.jpg”;
$example->ContrastStretch(‘1%’);
$example->Write($write_name);
}
print “end”;;
#————————————————————
簡単でしょう?? これぐらいなら、30分以下でプログラムは出来てしまう。
あとは「一回」プログラムを起動するだけだ。
画像が100個も有れば、時間が係る。そこであなたは、「休憩タイム」。。。

スポンサードリンク


この記事を書いている人 - WRITER -

- Comments -

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

Copyright© 仕事の進め方の効率化ブログ , 2017 All Rights Reserved.