Nautilus: конвертируем изображения в JPEG или PNG

topng
topng

Иногда приходится конвертировать изображения с одного формата в другой, основные это JPEG и PNG.
Добавим сценарии в контекстное меню Nautilus при клике правой кнопки на файле.

Для этого создадим 4 файл со следующим содержимым:
1) toPNG.sh

1
2
#!/bin/bash
perl ~/.gnome2/nautilus-scripts/toPNG.pl $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS

2) toJPG.sh

1
2
#!/bin/bash
perl ~/.gnome2/nautilus-scripts/toJPG.pl $NAUTILUS_SCRIPT_SELECTED_FILE_PATHS

3) toPNG.pl

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use Image::Magick;

my($image, $obj, $imagename);
$imagename = $ARGV[0];
$imagename =~ s/(.*)\.[a-z]+/\1/i;
$image = Image::Magick->new;
$obj = $image->Read($ARGV[0]);
$obj = $image->Write($imagename.".png");

4) toJPG.pl

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use Image::Magick;

my($image, $obj, $imagename);
$imagename = $ARGV[0];
$imagename =~ s/(.*)\.[a-z]+/\1/i;
$image = Image::Magick->new;
$obj = $image->Read($ARGV[0]);
$obj = $image->Write($imagename.".jpg");

Теперь кладем все это добро в директорию ~/.gnome2/nautilus-scripts/, также скрипты на баше нужно сделать
исполняемыми (chmod +x to*.sh — из директории скриптов).

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *