728x90 반응형 perl6 (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 스크립트를 통한 해킹 사고 올해 들어서 벌써 2번째 해킹사고가 발생하였다. 한번은 exim 이라는 SMTP를 통해서, 그리고, 어제는 apache+php 를 통해서 이루어졌다. 각기 다른 서비스를 통해서 당했지만, 해킹 형태는 비슷하였다. 해당 서비스의 취약점을 통해서 /tmp 디렉토리에 perl 스크립트를 심고, 데몬으로 돌려서 특정 사이트에 과다 트래픽을 발생시켜서 마비시키는 것이었다. 이를 해결하는 방법으로는 아래 소개한 여러 복잡한 방법이 있지만, 공통점은 perl 을 이용한다는 것이므로, 가장 간단한 방법은 perl을 삭제하여 없애버리는 것이다. ^^; Simple is Best ??? http://blog.naver.com/PostView.nhn?blogId=nicegass&logNo=130033355546&redire.. 2011. 6. 23. (Perl) perlbrew 를 이용하여 다양한 버전의 Perl을 설치해보자! CentOS 5.6 에 기본으로 설치되어 있는 Perl 의 버전은 5.8.8 이다. 버전이 낮아도 한참 낮다. 요즘 다른 OS에는 5.10을 기본으로 사용하도록 되어 있으며, 최신 버전은 5.12 이다. 거기에 벌써 5.14 RC 버전까지 나온 상태이다. 이런 구닥다리 버전을 벗어나서 그나마 남들도 쓰는 버전을 쓰려면, 별도로 Perl 을 설치해야 되는데... 직접 소스 파일을 다운로드하여 컴파일/설치 하는 것도 방법이겠지만... 더욱 유연하고 확장성 있는 방법을 소개하고자 한다. 지난번 pythonbrew 를 이용해서 여러 버전의 python 을 설치하는 법을 알려드렸는데, 이것의 원조인 perlbrew 를 이용하면 우리가 원하는 것을 할 수 있다.먼저 perlbrew를 설치한다.$ curl -Lk h.. 2011. 5. 23. (Perl) (Debian-Perl) Linux 에서 MS-SQL 연결하기 요즘 Perl 짓을 조금 하고 있는 중이다. 어쩌다 보니, MS-SQL도 사용하게 되었는데, 여러가지 방법이 있었지만, FreeTDS를 이용하는 것이 가장 간편한 것 같아서 정리해보았다.Install FreeTDS# apt-get install freetds-*Install Sybase module# apt-get install libdbd-sybase-perl/etc/freetds/freetds.conf 수정...[Our-MS-SQL] host = 아이피주소 port = 1433 tds version = 7.0...예제 코드#!/usr/bin/env perl use DBI; my ($dbh, $sth, $sql);$dbh = DBI->connect("DBI:Sybase:server=Ou.. 2011. 3. 24. (Perl) 디렉토리 순회하기 윈도우 파일서버에서 100MB 가 넘는 파일을 찾기 위해서 디렉토리를 순회하는 방법을 찾아보았다. 보통은 File-Find 를 많이 쓰지만, 1TB이상 사용하고 있는 드라이브에서는 검색 도중에 Out of memory 메시지와 함께 멈추는 현상이 있었고, 대신 File-Find-Object 로 해보니, 아주 깔끔하게 검색이 되었다.File-Find일반적으로 많이 알려진 방법인데, 1TB 용량의 드라이브 검색시 죽는 현상을 발견하였다.# 100MB 넘는 파일 목록 출력 use strict;use warnings;use File::Find; my $limited_size = 100_000_000; # 100MBfind(\&process_file, ("P:/")); sub process_file { my.. 2011. 3. 23. 이전 1 다음 728x90 반응형
