위키백과:도구/영문 날짜

출처: 위키백과:사랑방_(일반)/2017년_제34주#영어 날짜 변환

영어권에서 쓰는 날짜 형식을 일괄적으로 한국식으로 변환해주는 스크립트입니다. 예) January 24, 1982 → 1982년 1월 24일

설명

1. 바탕 화면에 "변환"이라는 이름의 폴더를 하나 만듭니다.

2. 메모장을 열고 다음의 내용을 붙여넣습니다

이 글을 보려면 오른쪽 '펼치기' 버튼 클릭

use strict;
use warnings;
my ($arg_file, $out_file) = @ARGV;

my %month = (
	"January" => "1월",
	"February" => "2월",
	"March" => "3월",
	"April" => "4월",
	"May" => "5월",
	"June" => "6월",
	"July" => "7월",
	"August" => "8월",
	"September" => "9월",
	"October" => "10월",
	"November" => "11월",
	"December" => "12월"
);
 
sub _slurp {
	my $filename = shift;
	my $open_failed=0;
	open my $in, '<', $filename or $open_failed=1;
	if ($open_failed eq 1) {
		print "Could not open $filename\n";
		exit 1;
	}
	local $/;
	my $contents = <$in>;
	close($in);
	return $contents;
}

sub _change {
	my $name;
	if ($arg_file) {
		$name = $arg_file;
	} else {
		$name = "temp.txt";
	}
	my $templine = _slurp($name);
	foreach my $key (keys %month) {
		my $value = $month{$key};
		$templine  =~ s/$key +(\d|\d\d), +(\d\d\d\d)/$2년 $value $1일/gi;
	}
	return $templine;
}

main(); sub main {
	my $templine = _change();
	my $name;
	if ($out_file) {
		$name = $out_file;
	} else {
		$name = "out.txt";
	}
	open my $ls2, ">", "$name" or die(0);
	print $ls2 $templine;
	close $ls2;
}

3. 파일 메뉴 → 저장을 클릭한 다음, 파일 형식을 "텍스트 문서"가 아닌 "모든 문서"로 바꾸고, 파일 이름은 change_month.pl로 입력해서 바탕 화면의 "변환" 폴더 저장합니다.

4. 스트로베리 펄을 받아 설치합니다. (다운로드 위치)

5. 메모장을 열고 자신이 원하는 내용을 바탕 화면의 변환 폴더에 temp.txt로 저장합니다. 예를 들어, 다음과 같은 내용을 temp.txt로 저장했다고 칩시다.

...
| [[3001 미켈란젤로]] ||  January 24, 1982 
|-
| [[3002 델라살]] ||  March 20, 1982 
|-
| [[3003 콘체크]] || December 28, 1983 
...

6. 바탕 화면의 변환 폴더에 있는 change_month.pl 을 더블 클릭합니다.

7. 바탕 화면의 변환 폴더에 다음의 내용이 포함된 "out.txt" 파일이 생성됩니다.

...
| [[3001 미켈란젤로]] || 1982년 1월 24일 
|-
| [[3002 델라살]] || 1982년 3월 20일 
|-
| [[3003 콘체크]] || 1983년 12월 28일 
...