본문 바로가기

language/perl

(16)
[perl] 카카오톡에 원하는 메시지 보내기 일정 시간마다 자료를 카톡방에 올릴 일이 있어서 만들었습니다. 직접 카카오톡에 접근하는건 아니고 카카오톡 Pc버전을 켜놓고서 거기에 원하는 방을 찾아서 입력하도록 하였습니다. 아래의 코드는 단체방이라는 곳에 테스트.txt 파일의 글을 복사해서 "단체방"에 6000초마다 올리도록 하는 코드입니다. 한글이 바로 입력이 않되어서 복사해서 붙여 넣는 방식을 사용했습니다. Win32::GuiTest는 매크로를 만들 수 있는 모듈입니다. 마우스 컨트롤 키보드 컨트롤 모두 가능하답니다. use Win32::GuiTest qw(FindWindowLike GetWindowText SetForegroundWindow SendKeys); $Win32::GuiTest::debug = 0; # Set to "1" to enab..
최근들어 다시 sleep is the enemy by striatic 최근들어 다시 PERL도 사용하고 VIM도 사용해 보고 있습니다. 최근 그런 프로그래밍이나 개발관련된 것들은 전혀 건드리지 않고 있었는데 제가 하고 있는 일들을 좀 더 편하게 할려고 툴을 살짝 만들다 보니 가장 먼저 떠오른게 PERL이었습니다. 그리고 그 뒤에는 VIM이 자연스레 따라오게 되구요. 흠 리눅스 까지 깔고 싶어지는 욕심도 듭니다. 오늘은 생각치도 않게 예전에 많이 쓰던 버츄얼 박스까지 쓰게 되는군요. 다시 개발 관련 된 것들이 손에 들어오기 시작하네요. 얼마전에는 가상호스팅으로 서버도 한대 사두었다지요 리눅스러 거기서 php와 펄로 이것 저것 만들어 볼생각입니다. 벌써부터 재미있어질 생각에 기대되는 군요. 요즘 추가적으로 일할꺼리가 없나..
[Perl] 이미지 편집하기 리눅스에서 커멘드라인 이미지 편집 프로그램으로 유명한 perlmagick의 perl모듈입니다. 여러장의 리사이징이나 편집등에 유용했던 프로그램인데요. perl 모듈을 통해 다루니 좀 더 강력하게 다룰 수 있을 듯 합니다. 간단한게 리사이징 하는 것을 보여드리고 참고할 만한 싸이트를 적어드리겟습니다. 먼저 모듈을 설치해주셔야 겠죠? 우분투의 경우에는 다음과 같이 설치하시면 편하게 설치됩니다. Cpan을 이용하셔서 설치학셔도 되구요 각자 편리한 방식으로 $ sudo aptitude install perlmagick 예제프로그램으로 이미지 리사이징을 해보겟습니다. use Image::Magick; #인자를 3개 받도록 체크 if(@ARGV != 3){ print "인자를 3개 입력해 주세요(편집파일 저장파일 ..
[Perl] Wx를 이용한 GUI프로그래밍 갑자기 perl로 GUI를 만들고 싶은 마음이 들어서 이런 저런 GUI를 보다가 WX가 가장 맘에 들어서 WX를 선택했습니다. 위젯도 많고 작성도 편리하다는 느낌이 들어서 요녀석으로 기억에 예전에 TCL로 짯었는데 그것보다 좀더 간결한 듯한 느낌이 들기도 합니다. wx는 python c++ perl등 대부분의 언어로 바인딩 되어 있어서 한번 배워두면 다른 언어에서 활용하기도 편리할 것 같구요 골빈 해커님이 WX의 좋은 문서를 번역해 주셧습니다. wxPerl: Perl 을 위한 또 다른 GUI APP를 상속받아 사용하는 것은 위의 문서가 있으므로 저는 좀더 간단하게 작성할 수 있는 방법인 SimpleApp를 통해 작성하는 방법과 메뉴등 간단한 몇가지에 대해 다루어 보겟습니다. SimpleAPP는 말그대로 ..
[perl] LWP와 CGI가 충돌할때 아래와 같이 CGI모듈과 LWP모듈을 함께 써주면 "Prototype mismatch: sub main::head:....."과 같은 에러가 나게 됩니다. use CGI qw(:standard); use LWP::Simple 이럴 때는 LWP모듈 선언 부분을 다음과 같이 바꾸어 줍니다. use LWP::Simple qw/get/; 앞으로 모듈이 충돌할 때에는 한 모듈에서 자신이 사용하는 메소드만을 빼서 선언해주고 사용하시면 됩니다. 요런 소소한 삽질들이 펄속으로 조금씩 더 빠져들게 해주네요 ^^
[perl] 펄이란? -펄연재 1편- 오늘부터 몇편에 이어서 펄에 대해서 연재를 해보도록 하겟습니다. 저도 초보이기에 저 스스로 공부도 할겸 많은 분들께 펄도 알릴겸 연재를 시작합니다. 프로그래밍을 모르는 일반인도 이 글을 읽고 재미로 자신이 필요한 것들을 만들어 사용할 수 있기를 바라며 완전초보라는 관점에서 글을 연재해 나가도록 하겟습니다. 오늘은 그 첫번째 시간으로 "대체 Perl이 뭐야?" "Perl 넌 누구냐?"라는 주제로 글을 써보겠습니다. 그 전에 먼저 프로그래밍 언어에 대해 정의를 내리고 가야 겟네요. 위키디피아에서는 다음과 같이 정의를 내립니다. 프로그래밍 언어는 컴퓨터 시스템을 구동시키는 소프트웨어를 작성하기 위한 언어이다. 고급 언어일 수록 사람이 사용하는 언어와 가깝다. 일반적으로 말할 때에는 프로그래밍 언어를 지원하는 ..
[perl] <STDIN> 입력시 여러줄 입력 받기 PERL로 작업을 하다보면 가끔 한줄만 입력 받는 것이 아닌 여러줄을 입력 받아야 할 때가 있습니다. 이럴 때면 헉 그런 방법도 있었나? 하게 되시죠 그런데 그런 방법이 있어요. 그냥 $input = 이라고 해서 입력을 받으면 딴 한줄 받죠 그런데 여러줄을 입력 받으려면 좀 힘들어요. @input = 이라고 $을 @로 바꾸어주면 되거든요. ^^ 입력을 마칠때는 CTRL+D키를 눌러주면 되요. 프로그램이 완전 종료되는 건 아니니까 안심하고 치세요. 예제 프로그램을 볼까요? #!/usr/bin/perl use strict; use warnings; print "CTRL+D to finish\n"; my @input = ; print "Result : \n"; print "@input"; 결과 간단하죠 ^^ ..
[perl] 한자풀이 프로그램 제가 최근에 동양학쪽에 관심을 가지면서 많은 한자들을 접하게 되는데 사실 한자와는 담을 쌓고 살아왔던 인생이었기에 일일이 네이버 사전을 뒤지며 조금씩 익혀가고 있는데 영 속도가 나지 않아 좋은방법이 없을까 하다가 직접 프로그램을 만들어 보았습니다. 얼마 안걸릴줄 알았는데. 한자처리에 관한한 자료가 없어서 찾느라 시간이 좀 걸렸네요 ^^ 우분투에서 작성했구요. 윈도우 유져들은 perl설치하신뒤 사용하시면 되겟습니다. 소스는 아래에 ^^ #!/usr/bin/perl -w use strict; use LWP::Simple; use Encode qw(decode encode); my $string = ""; print "한자풀이 하고 싶은 글을 입력해주세요 : \n"; $string = ; $string = d..