perl
xxxooo1985
这个作者很懒,什么都没留下…
展开
-
perl io的autoflush设置
perl脚本中有下面一段代码, 结果久久不能看到输出. 一开始怀疑是sleep函数有bug, google后恍然大悟:IO的autoflush没打开...佛祖啊, Jesus啊[code="java"]while(1){ sleep $SAMPLE_INTERVAL; doSomeThing();}[/code]在脚本的开始加入: [code="java"]$|=1[/co...原创 2011-04-25 09:06:49 · 597 阅读 · 0 评论 -
weblogic自动打印threaddump代码
当weblogic进程的cpu超过阀值时, 运行wlst脚本, dump出thread stack.[code="perl"]#!/usr/bin/perl -wuse warnings;use strict;$| = 1;my $SAMPLE_INTERVAL = 2;my @SAMPLE_PROCESS = ('domain=ecssApp','domain...原创 2011-04-25 14:31:11 · 468 阅读 · 0 评论