728x90 반응형 Programming/Perl10 (Perl) 폴더 사이즈 구하기 Perl에서 더 좋은 모듈을 발견하지는 못해서, 일일이 파일 사이즈를 모두 더해서 폴더 사이즈를 구하였다. 그래서 시간이 좀 걸린다. 첫번째 방법use v5.10;use strict;use warnings;use File::Find;sub get_folder_size { my ($dst_folder) = @_; my $folder_size = 0; find( sub { $folder_size += -f $_ ? -s _ : 0 }, $dst_folder ); return $folder_size;}say "Folder Size : ".get_folder_size("C:\\");두번째 방법# -----------------------------------------------------.. 2014. 5. 3. (Perl) MojoExample 이용해서 사이트 만들기 http://mojoexample.herokuapp.com/에 Mojolicious 의 아주 좋은 샘플을 만들어 놓았지만, 2년전에 만들어져서 최신 버전에서 실행하려면 약간의 문제를 일으킵니다. 이를 조금 수정해서 제대로 돌아가게 해보았습니다. Install MojoExample$ cpanm -n Mojolicious Modern::Perl DBIx::Class DateTime DateTime::Format::SQLite Time::Duration File::Slurp SQL::Translator$ git clone https://github.com/tempire/MojoExample.git /opt/project/project_name바로 실행하면 에러가 발생하며, script/mojo_full의 마지.. 2014. 5. 1. (Perl) Hitachi Storage 장애 체크 (Web) 히다찌 스토리지에서는 상태점검을 위해서 웹인터페이스를 제공하고 있다. 해당 웹페이지의 메뉴에서 Warning Information 에서 문제가 있으면 로그가 표시되는데, 여기에 아무것도 없으면 장애가 없는 것이고, 뭔가 하나라도 있으면 장애가 있다는 것이다. 해당 페이지의 첫번째 TEXTAREA 태그의 내용을 확인하며 되며, 이를 위해서 WWW::Mechanize 모듈을 사용하였다. 그리고, 장애 발견시 담당자에게 문자를 보내도록 하였다. Strawberry Perl 5.16.2 에서 테스트하였으며, 사용하는 모듈은 모두 기본으로 내장되어 있어서 별도로 설치할 필요없다. #!perl# -------------------------------------------------------------------.. 2013. 3. 14. (Perl) SAN 스위치 장애 체크 (Telnet) 대부분의 네트워크 장비에서는 콘솔로 작업을 할 수 있도록 ssh, telnet 등의 접속을 지원하고 있다. 가장 많이 이용되는 SAN 스위치 중의 하나인 브로케이드(EMC) 의 SAN 스위치에서는 switchstatusshow 명령을 통해서 장비의 상태를 확인할 수 있는데, SwitchState 항목을 체크하면 장비의 전체적인 상태를 알아볼 수 있다. 여기에서는 간단하게 Telnet 으로 접근하여 해당 항목이 HEALTHY 인지 여부에 따라서 정상이 아니면, 담당자에게 문자를 보낼 수 있다록 해보았다. Ruby 에서도 한번 구현해보려고 했는데, 신형 장비(EMC)에는 잘 접속이 되었으나, 구 장비(Brocade)에는 로그인이 제대로 성공하지 못했다. #!perl# ---------------------.. 2013. 3. 11. Perl : 모듈 관리 Perl 의 모듈관리 기능을 정리해보았다. Ruby 의 gem 처럼 하나의 툴로 이쁘게 관리되면 좋겠는데, 아직까지는 번거롭게 몇가지 툴을 설치해서 따로 따로 사용해야 된다는 것이 아쉽다. Windows 용 Perl 인 ActivePerl 에서는 ppm 이라는 툴을 제공하긴 하지만, cpan 을 이용할수 없다는 것이 흠이다. 설치할 모듈 검색https://metacpan.org/http://www.cpan.org/모듈관리도구 설치$ cpan App::cpanminus App::cpanoutdated Devel::Loaded App::pmuninstall모듈 설치$ cpanm [모듈이름]or$ cpan [모듈이름]모든 모듈 업데이트$ cpan-outdated | cpanm설치된 모듈 검색$ pminst [.. 2012. 11. 5. Perl : StrawberryPerl 에서 PAR::Packer 설치하기 보통은 아래와 같이 CPAN 을 이용해서 모듈을 설치할 수 있다.C:\> cpanm PAR::Packer그런데, 최신 버전인 1.013은 에러 발생하며 설치 안된다. 부엉이님 께서 Perl / Win32 / PAR::Packer - PAR::Packer 1.013 설치 중 windres: can’t open file pp.manifest 오류가 발생하는 경우 에서 1.013 설치법을 설명을 해주었지만, 뭔가 좀 깔끔치 못한 느낌이다. 그래서, 바로 밑에 버전 1.012 을 설치하려고 하는데, 어떻게 해야될지 모르겠더라. CPAN 사이트에서 직접 다운로드 하여, 컴파일해서 설치할 수도 있겠지만, 좀 원시적인 느낌이다. cpan 을 사용해서 좀 더 편하게 설치할 수는 없을까? 하고 찾아보니, 방법이 없지는 .. 2012. 5. 14. 이전 1 2 다음 728x90 반응형