(autoload 'cperl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
(add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\|t\\|cgi\\)\\'" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl5" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("miniperl" . cperl-mode))
;;; cperl-mode is preferred to perl-mode
;;; "Brevity is the soul of wit" <foo at acm.org>
(defalias 'perl-mode 'cperl-mode)
 
(setq cperl-indent-level 4
      cperl-continued-statement-offset 4
      cperl-close-paren-offset -4
      cperl-label-offset -4
      cperl-comment-column 40
      cperl-highlight-variables-indiscriminately t
      cperl-indent-parens-as-block t
      cperl-tab-always-indent nil
      cperl-font-lock t)
(add-hook 'cperl-mode-hook
          '(lambda ()
             (progn
               (setq indent-tabs-mode nil)
               (setq tab-width nil)
 
               ; perl-completion
               (require 'auto-complete)
               (require 'perl-completion)
               (add-to-list 'ac-sources 'ac-source-perl-completion)
               (perl-completion-mode t)
              )))
 
; perl tidy
; sudo aptitude install perltidy
(defun perltidy-region ()
  "Run perltidy on the current region."
  (interactive)
  (save-excursion
    (shell-command-on-region (point) (mark) "perltidy -q" nil t)))
(defun perltidy-defun ()
  "Run perltidy on the current defun."
  (interactive)
  (save-excursion (mark-defun)
                  (perltidy-region)))
(global-set-key "\C-ct" 'perltidy-region)
(global-set-key "\C-c\C-t" 'perltidy-defun)

;; flymake for perl
(defvar flymake-perl-err-line-patterns '(("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1)))
(defconst flymake-allowed-perl-file-name-masks '(("\\.pl$" flymake-perl-init)
                                               ("\\.pm$" flymake-perl-init)
                                               ("\\.t$" flymake-perl-init)
                                               ))
 
(defun flymake-perl-init ()
  (let* ((temp-file (flymake-init-create-temp-buffer-copy
                     'flymake-create-temp-inplace))
         (local-file (file-relative-name
                      temp-file
                      (file-name-directory buffer-file-name))))
    (list "perl" (list "-wc" local-file))))
 
(defun flymake-perl-load ()
  (interactive)
  (set-perl5lib)
  (defadvice flymake-post-syntax-check (before flymake-force-check-was-interrupted)
    (setq flymake-check-was-interrupted t))
  (ad-activate 'flymake-post-syntax-check)
  (setq flymake-allowed-file-name-masks (append flymake-allowed-file-name-masks flymake-allowed-perl-file-name-masks))
  (setq flymake-err-line-patterns flymake-perl-err-line-patterns)
  (flymake-mode t))
 
(add-hook 'cperl-mode-hook '(lambda () (flymake-perl-load)))
 
(defun next-flymake-error ()
  (interactive)
  (flymake-goto-next-error)
  (let ((err (get-char-property (point) 'help-echo)))
    (when err
      (message err))))
(global-set-key "\C-ce" 'next-flymake-error)

use strict;
use warnings;

(require 'yasnippet)
 
(require 'dropdown-list)
(setq yas/text-popup-function #'yas/dropdown-list-popup-for-template)
 
;; コメントやリテラルではスニペットを展開しない
(setq yas/buffer-local-condition
      '(or (not (or (string= "font-lock-comment-face"
                             (get-char-property (point) 'face))
                    (string= "font-lock-string-face"
                             (get-char-property (point) 'face))))
           '(require-snippet-condition . force-in-comment)))
 
;; yasnippet 公式提供のものと、
;; 自分用カスタマイズスニペットをロード同名のスニペットが複数ある場合、
;; あとから読みこんだ自分用のものが優先される。
;; また、スニペットを変更、追加した場合、
;; このコマンドを実行することで、変更・追加が反映される。
(defun yas/load-all-directories ()
  (interactive)
  (yas/reload-all)
  (mapc 'yas/load-directory-1 my-snippet-directories))
;;; yasnippet展開中はflymakeを無効にする
(defvar flymake-is-active-flag nil)
(defadvice yas/expand-snippet
  (before inhibit-flymake-syntax-checking-while-expanding-snippet activate)
  (setq flymake-is-active-flag
        (or flymake-is-active-flag
            (assoc-default 'flymake-mode (buffer-local-variables))))
  (when flymake-is-active-flag
    (flymake-mode-off)))
(add-hook 'yas/after-exit-snippet-hook
          '(lambda ()
             (when flymake-is-active-flag
               (flymake-mode-on)
               (setq flymake-is-active-flag nil))))
 
(setq yas/root-directory (expand-file-name "~/.emacs.d/snippets"))
;; 自分用スニペットディレクトリ(リストで複数指定可)
(defvar my-snippet-directories
  (list (expand-file-name "~/.emacs.d/mysnippets")))
 
(yas/initialize)
(yas/load-directory "~/.emacs.d/snippets")
(yas/load-all-directories)

private static final Logger log = LoggerFactory.getLogger(MyClass.class);

private static final Logger log = LoggerFactory.getLogger(${primary_type_name}.class);

private static final Logger log = LoggerFactory
	.getLogger(MonitoringServerRunner.class);

(add-hook 'python-mode-hook
          '(lambda ()
             (setq indent-tabs-mode nil)
             (setq py-indent-offset 4)))

$ tar xvzf pyflakes-0.4.0.tar.gz
$ cd pyflakes-0.4.0
$ sudo python setup.py install

 sudo aptitude install pyflakes

(defun flymake-python-init ()
  (let* ((temp-file (flymake-init-create-temp-buffer-copy
                     'flymake-create-temp-inplace))
         (local-file (file-relative-name
                      temp-file
                      (file-name-directory buffer-file-name))))
    (list "pyflakes" (list local-file))))
 
(defconst flymake-allowed-python-file-name-masks '(("\\.py$" flymake-python-init)))
(defvar flymake-python-err-line-patterns '(("\\(.*\\):\\([0-9]+\\):\\(.*\\)" 1 2 nil 3)))
 
(defun flymake-python-load ()
  (interactive)
  (defadvice flymake-post-syntax-check (before flymake-force-check-was-interrupted)
    (setq flymake-check-was-interrupted t))
  (ad-activate 'flymake-post-syntax-check)
  (setq flymake-allowed-file-name-masks (append flymake-allowed-file-name-masks flymake-allowed-python-file-name-masks))
  (setq flymake-err-line-patterns flymake-python-err-line-patterns)
  (flymake-mode t))
(add-hook 'python-mode-hook '(lambda () (flymake-python-load)))

(defun next-flymake-error ()
  (interactive)
  (flymake-goto-next-error)
  (let ((err (get-char-property (point) 'help-echo)))
    (when err
      (message err))))
(global-set-key "\C-c e" 'next-flymake-error)

savacan
|
`-- napoli.lampetty.net
    |
    `-- files
        `-- etc
            |-- apache2
            |   |-- error-document.conf
            |   |-- icon.conf
            |   |-- language.conf
            |   |-- log-env.conf
            |   `-- mod_php.conf
            |-- init.d
            |   |-- mysql
            |   |-- reverse_proxy_nginx
            |   `-- svscan
            |-- logrotate.d
            |   `-- reverse_proxy_nginx
            |-- my.cnf
            `-- nginx
                |-- htpasswd
                |-- mime.types
                `-- reverse_proxy_nginx.conf

sudo dd if=/dev/sda of=/dev/sdb

$ cat /proc/partitions

--- ifcfg-eth1.orig     2010-04-12 00:11:39.000000000 +0900
+++ ifcfg-eth1  2010-04-12 00:18:52.000000000 +0900
@@ -1,6 +1,9 @@
 # Advanced Micro Devices [AMD] 79c970 [PCnet32 LANCE]
 DEVICE=eth1
-BOOTPROTO=dhcp
+BOOTPROTO=static
 HWADDR=08:00:27:BD:DD:6C
 ONBOOT=yes
-DHCP_HOSTNAME=centos-01
+IPADDR=192.168.56.101
+NETMASK=255.255.255.0
+NETWORK=192.168.56.0

# /etc/init.d/network restart

$ ping 192.168.1.102

#!/usr/bin/env perl
 
use strict;
use warnings;
use Getopt::Compact;
use Data::Dumper;
 
my $getopt = Getopt::Compact->new(
    name => 'getopt_compact.pl',
    modes => [ qw(verbose) ],
    args => 'FILE',
    version => '0.1',
    struct => [
        [ [ qw(f force) ], 'force overwrite of output file and compress links' ],
        [ [ qw(l level) ], 'compress level', '=i' ],
        [ [ qw(S suffix) ], 'use suffix on compressed files', '=s' ],
    ]
);
 
my $options = $getopt->opts;
my $file = shift @ARGV;
unless ($file) {
    print STDERR $getopt->usage;
    exit 1;
}
 
print "options -----\n";
print Dumper $options;

$ perl getopt_compact.pl --help

getopt_compact.pl v0.1
usage: getopt_compact.pl [options] FILE
options                                                          
-h, --help      This help message                                
-v, --verbose   Verbose mode                                     
-f, --force     Force overwrite of output file and compress links
-l, --level     Compress level                                   
-S, --suffix    Use suffix on compressed files                   
    --man       Display documentation

$ perl getopt_compact.pl --hoge
Unknown option: hoge
getopt_compact.pl v0.1
usage: getopt_compact.pl [options] FILE
options                                                          
-h, --help      This help message                                
-v, --verbose   Verbose mode                                     
-f, --force     Force overwrite of output file and compress links
-l, --level     Compress level                                   
-S, --suffix    Use suffix on compressed files                   
    --man       Display documentation

#!/bin/sh
 
for OPT in $*
do
    case $OPT in
    '-x' )
        FLAG_X="TRUE"
        ;;
    '-y' )
        shift
        FLAG_Y="TRUE"
        VALUE_Y=$1
        ;;
    esac
 
    shift
done
 
if [ "$FLAG_X" = "TRUE" ]; then
    echo "Option -x specified."
fi
 
if [ "$FLAG_Y" = "TRUE" ]; then
    echo "Option -y $VALUE_Y specified."
fi

#!/bin/sh
 
while getopts xy: OPT
do
    case $OPT in
    "x" )
        FLAG_X="TRUE"
        ;;
    "y" )
        FLAG_Y="TRUE"
        VALUE_Y=$OPTARG
        ;;
    esac
done
 
if [ "$FLAG_X" = "TRUE" ]; then
    echo "Option -x specified."
fi
 
if [ "$FLAG_Y" = "TRUE" ]; then
    echo "Option -y $VALUE_Y specified."
fi

$ ./getopts.sh -z

/home/oinume/tmp/script/getopts.sh: illegal option -- z

shift `expr $OPTIND - 1`
if [ -n "$1" ]; then
    echo "Argument $1 specified."
fi

$ ~/tmp/script/getopts.sh -x -y yyy hoge

Option -x specified.
Option -y yyy specified.
Argument hoge specified.

#!/bin/sh
 
ARRAY1=(1.1.1.1 2.2.2.2)
ARRAY2=(3.3.3.3 4.4.4.4)
ARRAY3=(4.4.4.4 5.5.5.5)
 
MERGED=(${ARRAY1[*]} ${ARRAY2[*]} ${ARRAY3[*]})
 
for n in ${MERGED[*]}; do
    echo $n
done

1.1.1.1
2.2.2.2
3.3.3.3
4.4.4.4
4.4.4.4
5.5.5.5

env.mysqladmin /usr/local/bin/mysqladmin

$ sudo -umunin munin-run mysql_bytes

# dpkg-reconfigure tzdata

DBI->connect('dbi:mysql:database=hoge', 'root', 'whatever', { ... });

package MyDB;
 
use strict;
use warnings;
use Carp ();
use DBI;
 
sub new {
    bless {}, shift;
}
 
sub connect {
    my ($self) = @_;
    $self->{dbh} = DBI->connect(
        'dbi:mysql:database=dbix_thin_test', 'root', 'root',
        { RaiseError => 1, HandleError => \&Carp::confess } # here
    );
}
 
sub select {
    my ($self, $sql) = @_;
    my $sth = $self->{dbh}->prepare($sql); # error!
    $sth->execute();
}
 
1;

#!/usr/bin/env perl
 
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin";
use MyDB;
 
my $db = MyDB->new;
$db->connect();
$db->select("select * from not_exist");

$ perl ~/script/perl/dbi_handle_error.pl
DBD::mysql::st execute failed: Table 'dbix_thin_test.not_exist' doesn't existDBI::st=HASH(0x248a900) at /home/kazuhiro/script/perl/MyDB.pm line 23
        MyDB::select('MyDB=HASH(0x21b8df0)') called at /home/kazuhiro/script/perl/dbi_handle_error.pl line 11

$ perl ~/script/perl/dbi_handle_error.pl
DBD::mysql::st execute failed: Table 'dbix_thin_test.not_exist' doesn't exist at /home/kazuhiro/script/perl/MyDB.pm line 23.
DBD::mysql::st execute failed: Table 'dbix_thin_test.not_exist' doesn't exist at /home/kazuhiro/script/perl/MyDB.pm line 23.