블로그 이미지
부엉이쌤의 나라말, 우분투, 국어교육 곽성호(자유)

카테고리

분류 전체보기 (1642)
일상 (26)
오늘의 명언 (300)
문화사랑방 (81)
우리말사랑 (162)
유니텔 시사한자 (10)
아하그렇구나 (47)
동영상 (0)
거꾸로교실 (3)
1교시 국어영역 (272)
꿈꾸는 정원사 (70)
부엉이쌤의 수업이야기 (17)
성공하는 사람들의 습관 (21)
컴도사 (116)
도종환의 엽서 (6)
좋은글좋은생각 (111)
잼난야그 ㅣ 심테 (1)
오픈오피스 3.2 (53)
우분투 10.04 (리눅스) (296)
2009 남목고 (39)
백업2015 (1)
Total
Today
Yesterday
*아래 글은 우분투 한국 사용자 모임에서 옮겨오거나 인용한 것입니다.

저는 개인적으로 zip파일에 한글명이 있을 경우에는 J-zip을 사용합니다.
약간 번거롭지만 kozip보다는 쉽게 사용이 가능하다고 생각했습니다.
그런데 우분투 사용자 모임에서 노틸러스를 이용해 압축을 풀 수 있는 방법이 있어 소개합니다.

먼저 노틸러스 확장 기능을 설치합니다.

$ sudo apt-get install nautilus-actions 

다음은 kozip 파일을 생성하는 것입니다.

$  sudo apt-get install libarchive-zip-perl
$ sudo gedit /usr/local/bin/kozip

으로 파일을 생성하여 
아래 내용을 저장합니다.

Code:
#!/usr/bin/perl

use strict;
use Encode;
use Archive::Zip;
use Cwd 'abs_path';
use File::Basename;

my $full_path = abs_path($ARGV[0]); # 해당 화일의 풀패스를 얻어옴..

# 나중에 해당 zip 화일 명으로 폴더를 만들어 넣기 위해 확장자를 뺀 화일 이름을 구함
my ($fileNameOnly, $directory, $ext) = fileparse($full_path, '\.[^.]*');  

chdir $directory ; # 경로가 계정 위치가 되는 것을 막기 위해 해당 zip화일이 있는 곳으로 경로 변경

my $zip = Archive::Zip->new();

$zip->read($ARGV[0]) == 0 or
   die "$0: couldn't read $ARGV[0]\n";

# 만일 zip 화일 명이 한글일 경우 이런 식으로 안하면 디렉토리 글자가 깨짐 이유는 모름 -_-;
my $ExtractFileName;
my $FileNameUTF8 = decode("utf-8",$fileNameOnly);

foreach my $mref ($zip->members) 
{
    my $n = decode("cp949",$mref->fileName);
    print "Extracting <$n>\n";

    $ExtractFileName = $FileNameUTF8 . "/" . $n; # 디렉토리 밑에다가 압축 화일을 넣기 위해 이름 설정

    $zip->extractMember($mref,$ExtractFileName) == 0 or
   die "$0: couldn't extract $n\n";
}


 [시스템]>[기본설정]>[노틸러스 동작설정(Nautilus Actions Configuration)]에서
아래와 같이





Posted by 곽성호(자유)
, |