Skip to Content
Go Back
안형우

안녕하세요. 14년차 풀스택 웹개발자 안형우입니다. 이 블로그에서는 WordPress, PHP, CSS, 사용성, 리눅스 서버 등 풀스택 웹개발에서 마주하는 다양한 문제 상황과 해결책, 필요한 개념들을 다룹니다. 👉 소개


작업물

📌 CSS가 어려운 이유 — 프로젝트 중심 실전 CSS 강의 소개 2023-04-13
📌 워드프레스, 답답한 빌더와 플러그인 대신 시원하게 커스터마징하기(강의) 2023-01-15
📌 아무도 말하지 않는 PHP의 좋은 점 2018-10-13
📌 유지보수하기 쉬운 CSS 전략(슬라이드) 2016-12-20
📌 워드프레스 테마에서 템플릿 파일 매칭 순서 2013-05-12
📌 [번역] CSS 코드 냄새 2013-01-01

[perl] md를 구글 번역기를 이용해 일본어로 번역한 뒤 정돈하는 스크립트

이건 아주 특수한 경우에 사용하는 거다.

블로그 글을 쓸 때 최근에 일단은 마크다운으로 작성하기 시작했다. 그리고 html로 변환해서 올린다. 그리고 구글 일본어 번역기로 가서 마크다운 텍스트를 넣고 바로 번역시킨다. 번역된 결과를 복사한다. 그리고 이것저것 정돈을 한다. 그 뒤 찾기 바꾸기로 파일을 정리한 다음 올리곤 했는데, 그냥 펄 스크립트로 만들었다. 앞으론 구글 번역기로 돌린 다음 그냥 이 펄 스크립트에 집어 넣어서 나온 결과물을 일본어 블로그에 바로 올리면 된다. 참고할 사람은 참고하시길.

파일명은 arrange-translate.pl이다. 실행권한을 줘야 한다는 걸 잊지 말고. 터미널에서 돌리는 놈이라는 것도 잊지 말길.

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Data::Dumper;
use File::Basename;
use File::Spec;

our @content;
our $name;
our $path;
our $suffix;
our $new_filepath;

if( ! $ARGV[0]){
    say "Write filepath. for example, arrange-translate.pl /my/path/my/filename";
    exit;
}

open (MYFILE, $ARGV[0]);
@content = ();

our $index = 0;
while (<MYFILE>) {
    chomp;
    if($_ eq '' and $index == 0){
        $index++;
        next;
    }
    $index++;

    $_ =~ s/\<\/ /\<\//g;
    $_ =~ s/\< \/ /\<\//g;
    $_ =~ s/\[\/ /\[\//g;
    $_ =~ s/(/(/g;
    $_ =~ s/)/)/g;
    $_ =~ s/!/!/g;
    $_ =~ s/@ /@/g;
    $_ =~ s/#/#/g;
    $_ =~ s/ \^ \= /\^\=/g;
    $_ =~ s/ / /g;
    $_ =~ s/:/: /g;
    $_ =~ s/:  /: /g;
    $_ =~ s/ __/__/g;
    $_ =~ s/^\*/\* /g;
    $_ =~ s/】/\]/g;
    $_ =~ s/http :\/ \/ /http:\/\//g;
    $_ =~ s/`([a-zA-Z\-\_ \:\@]*)'/`$1`/g;
    $_ =~ s/'([a-zA-Z\-\_ \:\@]*)`/`$1`/g;

    # pre 안의 코드
    if( index($_, '    ') == 0 ||  index($_, '/\t/') == 0 ){
        $_ =~ s/、/, /g;
        $_ =~ s/。/./g;
        $_ =~ s/([a-z]) \[/$1\[/g;
    }

    push (@content, $_);
}
close (MYFILE);

# 새 파일 이름을 만들기 위해 
($name,$path,$suffix) = fileparse($ARGV[0], qr/\.[^.]*/);

$new_filepath = $path . $name . '-arranged' . $suffix;

say "Arranged file is ", $new_filepath;

open (FILE_TO_WRITE, '>' . $new_filepath);
for (@content) {
    say FILE_TO_WRITE $_;
}
close (FILE_TO_WRITE);

안녕하세요. 14년차 풀스택 웹개발자 안형우입니다. 이 블로그에서는 WordPress, PHP, CSS, 사용성, 리눅스 서버 등 풀스택 웹개발에서 마주하는 다양한 문제 상황과 해결책, 필요한 개념들을 다룹니다. 👉 소개


작업물

답글 남기기

이메일 주소는 공개되지 않습니다. 필수 필드는 *로 표시됩니다