2009/02/19

FTPサーバ(vsftpd)の構築(SuSE編)

FTPサーバ(vsftpd)の構築(SuSE編)

第37回 Perlで小技5 - bingo_nakanishiの他言語出身者のためのPerl入門

第37回 Perlで小技5 - bingo_nakanishiの他言語出身者のためのPerl入門

2009/02/15

Perlで1日以上古いファイルのgzip圧縮(特定ディレクトリを以下すべてを再帰的に)

#!/usr/bin/perl

use File::Find;

@directories_to_search = "圧縮したいファイルの保管されたディレクトリのフルパス";
find(\&wanted, @directories_to_search);

sub wanted{
my $file = $File::Find::name;
if ($file =~ /\.gz/) {
} else {
if (-f $file){
system ("/bin/gzip $file")
# print $file,"\n"
if (-M "$file" > 1);
}
}
}

Perlで1日以上古いファイルのgzip圧縮

#!/usr/bin/perl

$dirlinkfile = "圧縮したいファイルの保管されたディレクトリのフルパス";

opendir(DIR,$dirlinkfile);
@dirfile = readdir DIR;
closedir DIR;

foreach $dirfile(@dirfile){

system ("/bin/gzip $dirlinkfile/$dirfile")
if (-f "$dirlinkfile/$dirfile" && -M "$dirlinkfile/$dirfile" > 1);

}

2009/02/11

Perlで365日以上古いファイルの削除

#!/usr/bin/perl

$dirlinkfile = "削除したいファイルの保管されたディレクトリのフルパス";

opendir(DIR,$dirlinkfile);
@dirfile = readdir DIR;
closedir DIR;

foreach $dirfile(@dirfile){
unlink("$dirlinkfile/$dirfile")
if (-f "$dirlinkfile/$dirfile" && -M "$dirlinkfile/$dirfile" > 365);
}

MSN相談箱 最新のファイルのみ検索

MSN相談箱 最新のファイルのみ検索

2009/02/10

Perlのほそ道・けもの道

Perlのほそ道・けもの道: "ファイルテスト演算子"

2009/02/09

日ごとのデータ

日ごとのデータ: "perl ファイル 削除"

2009/02/07

2009/02/01

Zabbix, SNMP traps mapped to the right host « Pierky’s Blog

Zabbix, SNMP traps mapped to the right host « Pierky’s Blog: "bix_sender ZABBIX_SENDER='/home/zabbix/zabbix-1.6.2/src/zabbix_sender/zabbix_sender'; # path to zabbixhosts"

Makefile.am を作る

Makefile.am を作る: "automake"

@IT:iSCSIを用いた仮想化環境の構築手順(1/3)

@IT:iSCSIを用いた仮想化環境の構築手順(1/3)

技術的雑談-iSCSIお試し - Tsubasa's HomePage

技術的雑談-iSCSIお試し - Tsubasa's HomePage: "マウント"

メモめもMemo・・・ » iscsi

メモめもMemo・・・ » iscsi: "etch1:~# iscsiadm -m node --target iqn.2001-04.com.example:storage.disk2.sys1.xyz --portal 192.168.0.187 --op update -n node.session.auth.authmethod -v CHAP etch1:~# iscsiadm -m node --target iqn.2001-04.com.example:storage.disk2.sys1.xyz --portal 192.168.0.187 --op update -n node.session"