zhaoyangjian724的专栏

if [ $# -ne 2 ]then echo "请输入update xx"elseperl ./get_num.pl $1 $2 if [ $? -eq 0 ] then sh ./sed.sh fifiopen (A,"<","a.txt");open (B,">","b.txt");$a=$ARGV[0];$b=$ARGV[1]; while (

jrhnpt01:/root# ls -ltr / | grep nfs01drwxr-xr-x 6 root root 4096 Oct 27 13:24 nfs01[root@nfs01 ~]# ls -ltr / | grep nfs01drwxr-xr-x 6 root root 4096 May 13 2015 nfjrhnpt01

598224: daysOfYear=360,737706: daysOfYear=360,760428: daysOfYear,803628: daysOfYear=360,829346: daysOfYear=360,830128: daysOfYear=360,830559: daysOfYear=360,831028: daysOfYear=

格式优美的perl代码不但让人赏心悦目，而且可以方便阅读.perltidy的是sourceforge的一个小项目,在我们写完乱七八糟的代码后，他能像变魔术一样把代码整理得漂漂亮亮，快来体验一下吧！！！下载地址：http://jaist.dl.sourceforge.net/sourceforge/perltidy/Perl-Tidy-20071205.tar.gz安装方法：进入解压

zjzc01:/root/big# cat grades A 70B 80C 90D 50E 60F 80zjzc01:/root/big# cat a6.pl open(GRADES, "grades") or die "Can't open grades: $!\n"; while ($line = ) { ($student, $grade) = split(" ", $

zjzc01:/root/big# cat grades A 70B 80C 90D 50E 60F 80zjzc01:/root/big# cat a7.pl open(GRADES, "grades") or die "Can't open grades: $!\n"; while ($line = ) { ($student, $grade) = split(" ", $

[root@dr-mysql01 ~]# cat x.pl @arr=($tmp1[-1], $tmp2[-1],2);if (@arr){print "111111\n"};print "\$arr[0] is $arr[0]\n";print "\$arr[1] is $arr[1]\n";[root@dr-mysql01 ~]# perl x.pl 111111$arr[0]

use Weixin::Client; use Encode; #目前只能用于群回复 my $client = Weixin::Client->new(debug=>0); #加载ShowMsg插件，用于打印消息 $client->load("ShowMsg"); #客户端登录 $client->login(); #设置客户端接收消息

use Net::Ping;use Socket;use LWP::Simple qw(get); use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping; use Socket;use Net::SMTP;sub send_mail{if (@_ != 2){print "请输入2个参数\n"

jrhmpt01:/tmp# cat sum.pl open (LOG ,"<","tmp.out"); while () { chomp; ##10.171.246.184 - - [05/Feb/2016:20:32:50 +0800] "POST /web/sendregistersmscode HT

zjzc01:/root/big2# cat a27.pl $curip="$ARGV[0]";$str='export CATALINA_OPTS="$CATALINA_OPTS -Djava.rmi.server.hostname=$curip -Dcom.sun.management.jmxremote -Dcom.sun.management.jmxremote.port=10053

my $dir = '/usr/local/apache-tomcat-7.0.55_8082/logs';my $SDATE = strftime("%Y-%m-%d",localtime());my $file = "localhost.$SDATE.log";$mon_file = "$dir/$file";##########监控关键字，以空格隔开################

flow02:/home/tomcat> cat m1.pl #!/usr/bin/perl use POSIX;my $dir = '/home/tomcat';my $file = '1.log';$mon_file = "$dir/$file";my $SDATE = strftime("%Y%m%d%H%M%S",localtime());$UPLOADPATH = "/d

$dirname = "C:\\a1";opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";while( ($filename = readdir(DIR))){ push @arr1,$filename."\n";}closedir(DIR);sort @arr1;print @a

oadb01:/home/oracle> cat a1.pl my @a=qw(1 2 3 4 5 aa bb );my @b=qw(1 2 );@b = grep {$count{$_} == 1 } grep {++$count{$_}} (@a, @b);print "@b\n"oadb01:/home/oracle> perl a.1Can't open perl script

use Net::SMTP; use HTTP::Date qw(time2iso str2time time2iso time2isoz); my $CurrTime = time2iso(time()); my $dis_mainpublish='中均资本';my $menu= <<EOF; DATE:$CurrTime --------

#!/bin/bashpasswd='1234567'/usr/bin/expect<<EOFset time 30spawn ssh root@192.168.32.65expect {"*yes/no" { send "yes\r"; exp_continue }"*password:" { send "$passwd\r" }}expect "*#"send "who\

redis01:/root# cd .ssh-bash: cd: .ssh: No such file or directoryredis01:/root# pwd/rootredis01:/root# cd .sshredis01:/root/.ssh# lsknown_hostsredis01:/root/.ssh# lsid_rsa id_rsa.pub known

一个较大的Subsersion版本库想用最少的空间来将它备份下来，用这个命令（请将/repo替换成你的版本库路径）svnadmin dump --deltas /repos |bzip2 |tee dump.bz2 | md5sum >dump.md5最重要的一步是 -deltas,将消耗更多的CPU资源，但拥有更有效的差异存储办法。bzip2压缩方案比gzip慢，但换来的更好的压缩率。更

flow02:/home/tomcat> cat tmp.out 1.1.1.1flow02:/home/tomcat> flow02:/home/tomcat> flow02:/home/tomcat> cat a2.pl open (LOG ,"<","tmp.out"); while () {

通过ip访问,可以看到无法访问接口,接口是通过域名zjcap.cn请求

for((i=15;i<=174;i++));doif [ -d "$i" ]thencd $iecho 当前产品sn==$ils -ltr *pdf | grep -v tmp | wc -lcd ..fidonemysql -uroot -p'xxxxxx' -e "select * from (select productSn from zjzc.ClientInve

变量定义和变量为空问题:jrhmpt01:/root# cat x1.pl my $xx="";if (defined($xx)){print "111111111\n"};jrhmpt01:/root# perl x1.pl 111111111defined 只要变量定义 不管是空 是真是假 就成立jrhmpt01:/root# cat x1.pl my $xx="";i

yum安装图形界面：1) yum groupinstall "X Window System"yum install xclockyum groupinstall -y "Desktop"启动图形界面:

use Net::SMTP;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use Encode;use Switch;use File::Temp qw/tempfile/;use HTTP::Date qw(time2iso str2time time2iso time2isoz

一般配置SLB的时候有个权重0到100，是如何选择数值的？ 权重需要您根据后端机器的配置进行选择比如AB两台机器性能一致就分别设置50，这样请求就会在这两台机器上轮询，不同权重决定请求分发的分配。slb中权重是什么概念， 值越大是不是分担越多？ 权重比越高的ECS将被分配到更多的访问请求

[root@wx03 ~]# cat q1.pl my @arr=();open (LOG ,"<","aaa"); while () { if ($_ =~/AAA/){$num=$.; push (@arr, $num)};};print $arr[0]."\n";print $arr[-1]."\n";[root@wx03 ~]# vim aaa

#!/bin/bash#nohup bash check_new_pkgs_dev.sh &#steps below:##发布的机器上运行这个脚本#定时遍历发布包存放路径#1.遍历所有要发布的包#2.对于每一个包，找到这个包的时候，停止相应的服务#3.将deployed下面相应的已发布目录归档到history中#4.将压缩包解压到deployed下面相应的项目目录中#5.将

一个潜在的有用的是使用闭包来产生动态的子函数 基于一个模板,使用一个相对简单的例子:[root@wx03 0729]# cat a1.pl sub multiply_by { my $multiplier = $_[0]; return sub { return $_[0] * $multiplier; }}my $times2 = multiply_by(2);

(echo o conf urllist unshift http://mirrors.163.com/cpan/ http://mirrors.sohu.com/CPAN/ http://www.perl.com/CPAN/; echo o conf commit) | perl -MCPAN -e shell

perl 跨行匹配；6.6. Matching Within Multiple Lines6.6.1. ProblemYou want to use regular expressions on a string containing more than one logical line, but the special characters . (any character but ne

use Win32::Process::Info;while (1==1){use Sys::Hostname;use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP; if ( $#ARGV < 1 ){ print "please input 程序目录 程序名!\n

perl unicode 字符转换[root@dr-mysql01 ~]# cat hg.pl use Encode;use Encode::CN;use JSON; use URI::Escape;use LWP::Simple;open (LOG ,"<","hg.txt");while (){$content=$_;$content =~ s/\\u([0-9a-fA-

redis01:/root# cat abcGET /api/sale/get_voucher_list?loupan_id=32300&suid=kJIjl&loupan_site=sc&code=d30d52a87c0ba4e342c9315d44845be5&source=pc HTTP/1.1GET /api/sale/get_voucher_list?loupan_id=108578

redis01:/root# cat x2.pl my $str="212121a19823a456123";if ($str =~/.*a(.*)23/){print "1----".$1."\n";};if ($str =~/.*?a(.*)23/){print "2----".$1."\n";};redis01:/root# perl x2.pl 1----45612----19

redis01:/root# cat x2.pl my $str="a19823a456123";if ($str =~/a(.*)23/){print "1----".$1."\n";};if ($str =~/a(.*?)23/){print "2----".$1."\n";};redis01:/root# perl x2.pl 1----19823a45612----198

. ~/.bash_profilepasswd='xxx'expect <<!set timeout -1spawn rsync -avH /webapps/Seeyon/A8/base/upload/ root@120.26.93.217:/webapps/Seeyon/A8/base/upload/expect { "(yes/no)?" { send "

encode_utf8等于 $octets = encode_utf8($string); 这个字符串 在$string 在Perl的内部格式,返回结果是作为一个顺序的字节。因为所有的可能的字符串在Perl是松散,不严格的 UTF-8表示decode_utf8 解码utf-8

api 配置:haproxy 跳转: acl api_req path_beg -i /api use_backend appserver_8082 if api_reqj

Net::SSH::Perl - Perl client Interface to SSH Perl SSH的客户端接口 use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new($host); $ssh->login($user, $pass); my($stdout, $stderr, $exit) = $ssh->