Mail::POP3Clientモジュールを使ってGMailのメールボックスよりメール受信をするPerlプログラムを書く。 このモジュールはSSL上のPOP3にも対応していてくれているので便利だ。 （GMailでPOP受信する際はSSLが必須であるようだ） インスタンス作成時にUSESSL…

$temp =~ s/[\012\015]//g;

perl -MCPAN -e shell sudo perl -MCPAN -e install Unicode::String

cat /usr/local/apache2/conf/httpd.conf | perl -lne 'print "$_" if /^[^#]/'

my $path='/var/www/svn/rep'; my @excludelist = qw(dt3_temp dt3_temp2); my @files = (); my %excludelist ; foreach (@excludelist){ $excludelist{$_} = 'true'; } chdir($path); @files = ; foreach my $file (@files){ if(-d $file && !exists($exclu…

パイプ動作オプション-p、上書きオプション-iを指定すると、引数で指定 されたすべてのファイルに対する置換実行を行える。 以下の例は、カレントディレクトリのMakefile中のCFLAGS=という行を CFLAGS=-g -O2で置き換える。 % perl -pi -e 's,^(CFLAGS\s*=\s…

use Date::Manip qw(ParseDate);my $datestring = '20050229'; # 日付として解析できる文字列であればなんでもよい if(!ParseDate($datestring){ #不正な日付の時の処理 }

my $source = 'hogehoge';#文字列 use Digest::MD5 qw(md5_hex); my $md5 = md5_hex($source);

eval{ #ここに、例外発生する可能性のある処理を記述する。 !system('mkdir /root') or die; my_subroutine();#サブルーチン中で例外が起こったらdieする }; if($@ ne ''){#例外を捕捉する。 die "error in eval:$@\n"; }

use Date::Calc qw(Add_Delta_YMD); my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time()); $mon = $mon + 1; $year = $year + 1900; ($sy,$sm,$sd) = Add_Delta_YMD($year,$mon,1,0,-1,0); ($ey,$em,$ed) = Add_Delta_YM…

use Encode::Guess qw/euc-jp shiftjis 7bit-jis/; #（文字列が短いと正確な判定が出来ないことがある） my $enc = guess_encoding($str); print "encoding is ", $enc->name, "\n";

use Encode; print Encode::is_utf8($str) ? 'UTF-8 Flag' : 'not UTF-8 Flag';

use Encode; #$strをコード変換する（代入不要） Encode::from_to($str, $fromenc, $toenc);

use Encode; $str = Encode::encode($toenc,$str);

use Encode; $str = Encode::decode($fromenc,$str);

open(FILEIN,"; close(FILEIN); #$contents = join('',@contents); #contentsは内部コード文字列

#$strは内部コード文字列 open(FILEOUT,">:encoding(Shift_JIS)",$filename); #または open(FILEOUT,"> $filename"); print FILEOUT $str; close(FILEOUT);

use Data::Dumper; open(FILEOUT,">:encoding(Shift_JIS)","logfile.txt"); print FILEOUT Dumper($reference); close(FILEOUT);

$str = sprintf("num：%02d",$num);

use Date::Calc qw(Add_Delta_YMD); my ($year,$month,$day) = Add_Delta_YMD($year,$month,$day,$Dy,$Dm,$Dd);

my $uniqueid = sprintf("%010d",time()).sprintf("%05d",$$);

print EOD"; Content-type: text/html;CHARSET=Shift_JIS$html EOD xmlの場合はこんな感じ print EOD"; Content-Type: text/xml Accept-ranges: bytes$xml EOD

BEGIN {unshift(@INC,'/var/www/html/hogehoge/cgi-bin')};

my ($param1,$param2) = @ARGV;

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time()); $mon = $mon + 1; $year = $year + 1900;

print "Location: http://hogehoge.jp/index.html\n\n";

use CGI; my $query = new CGI; my %param = $query->Vars;

my $val = '';#ここに入力データが入る chop($val = );

$val = EOD"; EOD

コマンド実行可能なパスを追加する export PATH=/usr/share/ssl/misc:$PATH