AWS 看过一个文章说pintrest 用的AWS 一下子增强了月小升得信息，决定变更阿里云到亚马逊云 Root device type: ebs Virtualization type: hvm ENA Enabled: No Root device type: ebs Virtualization type: paravirtual ENA Enabled: No Virtualization type: hvm Virtualization type: paravirtual HVM: hardware virtual machine 全虚 More
起因： 我的服务器只有一台，尽管只放了自己的java-er.com的资料，但是我还是想一些备份的事情，每次都是把服务器资料下载到本地，然后上传到百度云，未免麻烦。 系统： CentOS 系统 安装pip 首先安装epel扩展源： yum -y install epel-release 更新完成之后，就可安装pip： yum -y install python-pip 安装完成之 More
php可以像java perl python 那样运行，今天发现如果我早早知道这个，或许我不会去学习java 和 python 当年学java不过为了一个程序放在服务器上，不停的跑啊跑，原来php也可以。 php -h Usage: php [options] [-f] [--] [args...] php [options] -r [--] [args...] php [options] [-B ] -R [-E ] [--] [args...] php [options] [-B ] -F [-E ] [ More
背景：公司需要开发一套大型客服系统 需求为100个客服同时回复N个用户的邮件，所以找个perl来自动读取一个特定邮箱的邮件比如service@java-er.com #!/usr/bin/perl -w use strict; use Mail::POP3Client; my $pop; my $num_mesg; my $i; my $username; our $mail_host = 'imap.exmail.qq.com'; our $mail_user = 'yuexiaosheng@java- More
因为我需要抓取供应商的app里的产品图片，所以用了一个下午研究了下如何用电脑抓取手机的app的流量请求，这样我就能快速的抓取图片了。 供应商app的图片，无法放大，但是手机上又看不清楚，所以很想弄到电脑上来看。 以下方法覆盖https的抓取破解 1、首先安装fiddler抓包工具 2、安装成功后对fiddler进行简单配置： 打开fiddler，Tools More
use LWP::UserAgent; $ua = LWP::UserAgent->new; $ua->agent("$0/0.1 " . $ua->agent); # $ua->agent("Mozilla/8.0") # pretend we are very capable browser $req = HTTP::Request->new( GET => 'http://www.baidu.com'); $req->header('Accept' => 'text/html'); # send request $res = $ua->request($req); print $res-> More
svn update U Controller/order.class.php svn log order.class.php svn diff -r 3116:3355 order.class.php svn merge -r 3355:3116 order.class.php 1、保证我们拿到的是最新代码： svn update 假设最新版本号是28。 2、然后找出要回滚的确切版本号： svn log [somefile] 如果log很多，可以使用参数--limit svn log --li More
perl -v mac 系统自带 安装mysql DBI use strict; use DBI; my $host = "localhost"; # 主机地址 my $driver = "mysql"; # 接口类型 默认为 localhost my $database = "crm"; # 数据库 # 驱动程序对象的句柄 my $dsn = "DBI:$driver:database=$database:$host"; my $userid = "urldb"; # 数据库用户名 my $ More
perl有趣的骆驼代码 #!/usr/bin/perl -w # camel code use strict; $_='ev al("seek\040D ATA,0, 0;");foreach(1..3) {;}my @camel1hump;my$camel; my$Camel ;while( More