Perl

1、动漫 重新编译php，支持openssl与mysqli。 ./configure –prefix=/home/php523 –with-apxs2=/home/apache224/bin/apxs –enable-sockets –enable-mbstring –with-mysql=/home/mysql4114 –with-png-dir –with-zlib –with-gd –with-jpeg-dir –with-freetype-dir –with-libxml-dir=/usr/local/libxml –with-openssl –with-mysqli=/home/mysql4114/bin/mysql_config make && make install —–apache—— ./configure –prefix=/home/apache224 –enable-so –enable-speling –enable-rewrite –enable-forward –with-mpm=worker make && make install —–libxml—— ./configure –prefix=/usr/local/libxml make && make install —–mysql—— cd /home/software/mysql4114/ chown -R root . chown -R mysql data chgrp -R mysql . bin/mysqld_safe –user=mysql & scripts/mysql_install_db –user=mysql chown -R root . chown -R mysql data chgrp -R mysql . bin/mysqld_safe –user=mysql & ——END—— 2、工业设计 取消头像，等待头像服务器修复后再恢复； 更改导航中动漫的链接； 更改页面底部隐藏域的链接；

Amazon S3 Viewer zGia! wuliuqiba AT gmail.com http://zgia.net/ 简介 采用Amazon S3上提供的perl类库：Amazon S3 Library for REST in Perl，这个 类库完成了PUT，GET，HEAD，DELETE等几乎所有的操作。 地址：http://developer.amazonwebservices.com/connect/entry.jspa?externalID=133&categoryID=47 我所做的仅是用perl写了个web程序，有一个简单的UI，基本无创新，仅供参考。 使用说明 1、linux下，将文件logger.log，文件夹acl设置为777； 2、编辑文件ZWFrameConfig.pm； 3、可能需要安装某些类，请查阅：S3_README； 4、使用md5.pl获得新的$cfg{‘password’}， 5、必需要修改的：$cfg{‘awsAccessKeyID’}、$cfg{‘awsSecretAccessKey’} 和$cfg{‘password’}； 6、可能要修改的：$cfg{‘webName’} 和 $cfg{‘uniqueCookie’}，其他的随便。 ...

编写S3相关程序时，将key做MD5，然后存到服务器，有些key包含中文，就出现了这个问题。 因为程序采用的是UTF-8编码，因此，先对key进行utf8编码，再MD5，就没有这个问题了。 ...

日志内容： …… authentication failure; logname= uid=0 euid=0 tty=NODEVssh ruser= rhost=61.146.178.13 authentication failure; logname= uid=0 euid=0 tty=NODEVssh ruser= rhost=bin86.ee.ccu.edu.tw authentication failure; logname= uid=0 euid=0 tty=NODEVssh ruser= rhost=137.65.134.61.net.jq.gs.dynamic.163data.com.cn …… #!/usr/bin/perl use strict; # Open log file open(XXX, "/path/to/logfile") || die "Error Reading File : $!"; my @urls = <xxx>; close(XXX); my $i = 0; my @ips = (); for my $ip (@urls) { #if ($ip =~ /rhost=((d{1,3}.d{1,3}.d{1,3}.d{1,3})?.*) /isg) { if ($ip =~ /rhost=(.*) /isg) { $i ++; unless (is_in_array($1, @ips)) { push @ips, $1; } } } print "All attack count : $in"; print "Use $#ips IP(s)n"; print "The ips are : @ipsn"; sub is_in_array { my $ip = shift(); my $s = shift(); my @ips = @$s; my $in = 0; for (@ips) { if ($_ eq $ip) { $in = 1; last; } } return $in; }