分类目录归档:Linux

php命令行写shell应用

php可以像java perl python 那样运行,今天发现如果我早早知道这个,或许我不会去学习java 和 python 当年学java不过为了一个程序放在服务器上,不停的跑啊跑,原来php也可以。 php -h Usage: php [options] [-f] <file> [--] [args...] php [options] -r <code> [--] [args...] php [options] [-B <begin_code>] -R <code> [-E <end_code>] [--] [args...] php [options] [-B <begin_code>] -F <file> [-E <end_code>] … 继续阅读

发表在 Linux, PHP | 标签为 , | 留下评论

perl利用pop3 收取邮件

背景:公司需要开发一套大型客服系统 需求为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-er.com’; our $mail_pass = ’8888899999′;   my $pop = new Mail::POP3Client( $mail_user, $mail_pass, $mail_host ); … 继续阅读

发表在 Linux, Perl | 标签为 , , , | 留下评论

fiddler抓取手机请求

因为我需要抓取供应商的app里的产品图片,所以用了一个下午研究了下如何用电脑抓取手机的app的流量请求,这样我就能快速的抓取图片了。 供应商app的图片,无法放大,但是手机上又看不清楚,所以很想弄到电脑上来看。 以下方法覆盖https的抓取破解 1、首先安装fiddler抓包工具 2、安装成功后对fiddler进行简单配置: 打开fiddler,Tools->Fiddler Options -勾选“Decrpt HTTPS traffic”,选中后Fiddler可以截获HTTPS请求 -勾选“Allow remote computers to connect”,选中后允许别的机器把HTTP/HTTPS请求发送到Fiddler上 这样代理端口就设置好了 配置完成后,重新启动Fiddler 3. 查看我的局域网ip ipconfig 192.168.0.110 4. 查看成功了么 http://192.168.0.110:8888/ 如果不行 但是http://127.0.0.1:8888/可以 关闭电脑所有防火墙,杀毒软件 修改注册表,这部分内容因为我电脑始终无法访问http://192.168.0.110:8888/ 官方文章这么写 Create a new DWORD named ReverseProxyForPort inside HKEY_CURRENT_USER\SOFTWARE\Microsoft\Fiddler2 路径为HKEY_CURRENT_USER\SOFTWARE\Microsoft\Fiddler2 修改完毕重启fiddler 5. … 继续阅读

发表在 Linux, MAC | 标签为 , | 留下评论

perl读取远程文件lwp安装

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->decoded_content; 缺少网络连接库 LWP的时候报错 Can’t locate LWP/UserAgent.pm in @INC (you may need to install the LWP::UserAgent module) … 继续阅读

发表在 Linux | 标签为 , | 留下评论

svn 回滚到指定版本

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 –limit 10 [somefile] 假设根据svn log日志查出要回滚的版本号是25,此处的somefile可以是文件、目录或整个项目 如果想要更详细的了解情况,可以使用 svn diff -r 3355: 3116 [somefile] … 继续阅读

发表在 Linux | 标签为 | 留下评论

perl 链接lampp的mysql数据库 mac 系统

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 = … 继续阅读

发表在 Linux | 留下评论

perl有趣的骆驼代码

perl有趣的骆驼代码 #!/usr/bin/perl -w # camel code use strict;   $_=’ev al("seek\040D ATA,0, 0;");foreach(1..3) {<DATA>;}my @camel1hump;my$camel; my$Camel ;while( <DATA>){$_=sprintf("%-6 9s",$_);my@dromedary 1=split(//);if(defined($ _=<DATA>)){@camel1hum p=split(//);}while(@dromeda ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;} $CAMEL–;if(d efined($_=shift(@dromedary1))&&/\S/){ $camel1hump+=1 <<$CAMEL;}$CAMEL–;if(defined($_=shift( @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL–;if( defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@ camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\ 064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse; print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y /LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/; $_=reverse;print"\040$_$Camel\n";}’;;s/\s*//g;;eval; … 继续阅读

发表在 Linux | 留下评论

mysql一台服务器不同库的两个表数据同步

问题的起源: 我需要在同一个服务器,将数据进行自动同步,每天同步一次即可,方便第二天进行数据统计 方法1: 老表1.crm 新表.crm_test 从表crm 直接复制表到crm_test里 create table crm_test.fis_cash select * from crm.fis_cash; 已经创建了新表fis_cash的情况下 insert into crm_test.fis_cash select * from crm.fis_cash; 以上采用sql语句直接搞定 方法2: 如果不同的机器,其实可以用这个办法的,进行文件移动建立远程目录拷贝,再导入。同一个机器当然方便很多 讲老表crm的数据 备份表 mysqldump -uroot -proot -h192.168.0.88 crm fis_cash > cash.sql 然后在新表执行导入命令 use crm_test source cash.sql; … 继续阅读

发表在 Linux | 留下评论

perl 国际时区设置

#!/usr/bin/perl ############################################### ## testtime.pl – 设置时区并获得该时区的时间 ### ## by LoRui(i@lorui.com, www.lorui.com) ### ############################################### use strict; use warnings; use POSIX qw(tzset);   #输出HTTP头 print "content-type:text/html;charset=utf-8;\n\n";   #获取服务器默认时间 my $was = localtime; print "服务器默认时间: $was <br />\n";   #设置时区为东八区,中 国标准时间 $ENV{TZ} = … 继续阅读

发表在 Linux | 标签为 , | 留下评论

letsencrypt 续期域名无法被解析出错

./letsencrypt.sh ./letsencrypt.conf Generate CSR…java-er.csr Parsing account key… Parsing CSR… Registering account… Already registered! Verifying java-er.com… java-er.com verified! Signing certificate… Traceback (most recent call last): File “/tmp/acme_tiny.py”, line 198, in main(sys.argv[1:]) File “/tmp/acme_tiny.py”, line 194, in main signed_crt = get_crt(args.account_key, args.csr, … 继续阅读

发表在 Linux, 运营 | 标签为 , | 留下评论