[태그:] perl

구글 지도가 지원하는 clusterer를 사용하고 싶다. cpan으로 설치한 HTML:GoogleMap:V3 내부를 손봐야 했다. perl이 사용하는 perl module @INC(경로 비슷한?)를 찾았다. root@gen8# perl -V Summary of my perl5 (revision 5 version 30 subversion 1) configuration: Platform: osname=linux … @INC: /usr/local/lib/perl5/site_perl/5.30.1/x86_64-linux-gnu /usr/local/lib/perl5/site_perl/5.30.1 /usr/local/lib/perl5/vendor_perl/5.30.1/x86_64-linux-gnu /usr/local/lib/perl5/vendor_perl/5.30.1 /usr/local/lib/perl5/5.30.1/x86_64-linux-gnu /usr/local/lib/perl5/5.30.1 usr/local/lib 경로 아래 V3.pm을 찾아 지웠더니 에러를 받았다. 야호! perl을 잘 모르지만…… gps 태그 앨범 제작(5/4) 계속 읽기

제길. perl 제작한 프로그램에 버그가 있다. mysql 접근 권한을 update를 주면 perl이 접속하면서 gps 정보를 초기화한다. perl 조회 계정을 하나 만들어 select 권한만 주었다. 그리고 GPS에 N,S, E, W 네 방향이 있다. 완전 좌절.. 잘못한 update 칼럼을 찾아 다시 좌표를 넣어줘야 한다. #!/bin/bash #file 유무 확인 if [ ! -f $1 ];then echo “file is…… gps 태그 앨범 제작(4/4) 계속 읽기

perl을 쓰기 위해 docker를 사용했다. commit대신 간단한 Dockerrun을 만들었다. commit으로 이미지를 만들면 다음에 다시 만들 수 없다한다. FROM perl:v5.30.1 MAINTAINER ??? RUN apt-get -y update #GooglaMaps::V3 설치 RUN cpan HTML::GoogleMaps::V3 #https 설정. RUN cpan install LMP::UserAgen Mozilla::CA RUN cpan install LWP::Protocol::https RUN cpan install Bundle::DBI RUN cpan install DBD::mysql host에 있는 mysql에 접속하기 위해 옵션을…… gps 태그 앨범 제작(3/4) 계속 읽기

몇 번 해보니 gps 좌표가 여러 형식이다. 삼성 카메라로 3개 형식을 얻을 수 있다. Exif.GPSInfo.GPSLatitude Rational 3 37deg 34′ 0.982″ Exif.GPSInfo.GPSLatitude Rational 3 37deg 34′ 23″ Exif.GPSInfo.GPSLatitude Rational 3 35.4328992deg 모두 해당하는 경우를 하나 파일로 만들려 했으나, 틀을 깨어 3개 파일로 만들었다. 1번 파일이 2번 파일을 실행하고, 결과를 확인한다. 만족하지 못하면 3번 파일을 실행한다. 정규…… gps 태그 앨범 제작(2/4) 계속 읽기

휴대폰으로 gps 태그를 포함하여 사진을 저장할 수 있다. 보통 사진을 너무 많이 찍는데 기억할만한 장소를 표시하고 싶다. 역시 구글링을 해보니 perl로 제작한 좋은 페이지를 찾았다. http://advent.perl.kr/2016/2016-12-06.html https://metacpan.org/pod/HTML::GoogleMaps::V3 사진에 저장된 gps 태그를 보면 삼성 카메라 경우 각도+분+초로 되어있다. 이를 소수점으로 변환해야 한다. 공식은 (초/60 + 분)/60+각도다. 하나 문제가 있는데 사진을 저장할 때 숫자로 저장하지 않아 뒤쪽…… gps 태그 앨범 제작(1/4) 계속 읽기