码迷,mamicode.com
首页 >  
搜索关键字:qw    ( 69个结果
perl 对ENV环境变量的使用
1.hash 方式访问。 %ENV key为环境变量名,value为环境变量值 2.调用ENV模块 。 use Env qw(PATH); print "path is $ENV{path}\n"; 这段代码会创建(或者覆盖)环境里的PerlVar变量。 $ENV{PerlVar} = "Perl
分类:其他好文   时间:2016-01-31 21:28:16    阅读次数:3355
Qt中截图功能的实现
提要需求:载入一张图片并显示,能够放大缩小,能够截取图片的某个矩形并保存。原以为蛮简单的一个功能,事实上还是有点小复杂。最简单Qt图片浏览器能够參考Qt自带的Demo:Image Viewer Example看一下终于的实现效果:图片的载入显示这里须要实现一个QImageViewer的类。继承自QW...
分类:其他好文   时间:2016-01-17 09:48:57    阅读次数:197
[VIM插件]fedora22编译vim7.4对perl组件支持的问题
在fedora22下,重新编译安装vim7.4的时,在编译perl组件支持时,出现如下错误:/bin/perl -e 'unless ( $] >= 5.005 ) { for (qw(na defgv errgv)) { print "#define PL_$_ $_\n" }}' > aut.....
分类:系统相关   时间:2015-10-13 12:01:57    阅读次数:543
监控硬盘故障的nagios脚本
#!/usr/bin/perl use?strict; use?warnings; ? use?lib?"/usr/lib64/nagios/plugins"; ? use?utils?qw(%ERRORS); my?$usage?=?" Usage:?$0?host_addr?ipmi_user?ipmi_pass Connects?to?a?D...
分类:移动开发   时间:2015-09-06 14:47:36    阅读次数:259
Perl Connect to Database without password as sysdba
1 #!/oracle/product/11g/db/perl/bin/perl 2 use lib '/oracle/product/11g/db/perl/lib/site_perl/5.10.0'; 3 use DBI; 4 use DBD::Oracle qw(:ora_session_m....
分类:数据库   时间:2015-09-05 06:38:50    阅读次数:173
JQuery 选择器处理特殊字符
在使用JS 选择器的时候,如果含有特殊字符,则选择器选择不了,比如:元素的Id为:QW~~,$("#QW~~"),这样是选择不了的,所以就要对特殊字符进行转义。JS转义函数如下:function escapeJquery(srcString) { // 转义之后的结果 var escap...
分类:Web程序   时间:2015-07-20 20:56:40    阅读次数:216
perl远程交互简易示范版
#!/usr/bin/perluseExpect;#前提是你的服务器上得有Expect包,没有请安装,否无法使用交互my$PROMPT=‘[\]\$\>\#]\s*$‘;#远程系统的命令提示符模式@a=qw#100.100.100.200root#;#假设你要登陆的主机ip是100.100.100.200用户是root$obj=Expect->spawn("ssh-l$a[1]$a[0]")ord..
分类:其他好文   时间:2015-06-17 01:54:38    阅读次数:130
vim无法退出怎么办(recording)
对于我这样的vim新手,开始时最烦恼的莫过于怎么都没法退出vim了。据说:q或者:q!或者:qw可以退出,但是怎么都退不出去。然后发现下面有个单词:recording。其实这是进入了记录按键状态。你在一般模式(命令模式)下打q没有冒号时,就会进入这个状态。按q之后,你按的第一个字母..
分类:系统相关   时间:2015-06-15 00:34:25    阅读次数:1713
多线程拆分bam文件
#!perl use warnings; #use strict; use threads; use Thread::Semaphore; use File::Basename qw(basename); die "perl $0 \n" if @ARGV != 2; my $semaphore = Thread::Semaphore->new($ARGV[1]); my $id = bas...
分类:编程语言   时间:2015-06-01 16:45:13    阅读次数:856
Perl 学习笔记-正则表达式应用篇
1.以m//进行匹配 如:m/roger/,/roger/是它的简写; 在说明qw//时可以选择使用任何成对的定界符, 对应m//匹配也可以, 如写成:m(roger)mm{roger} m%roger%或m[roger], 也可以使用非成对定界符. 如果使用//作为定界符, 那么前面的m就可以.....
分类:其他好文   时间:2015-05-28 12:11:57    阅读次数:144
69条   上一页 1 ... 3 4 5 6 7 下一页
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!