Perl
mila07
这个作者很懒,什么都没留下…
展开
-
Perl打印输出二进制文件
比如a.txt文本内容为: 要将这些数据当做十六进制数写到二进制文件test.yuv里,如此操作:#!/usr/bin/perl open(RFP,"a.txt") || die; open(WFP,">test.yuv") || die; while(<RFP>) { while(/(\w+)/g) { $yuv_data = $原创 2016-05-06 14:09:43 · 1693 阅读 · 0 评论 -
Perl使用用户自定义信号SIGUSR1/2来控制父子进程
父子进程间通信通常会用到pipe通道,但pipe毕竟有阻塞属性,有时用的并不那么顺。如果父进程在正常处理事务时,想在子程序出现某种状况时父进程能暂停当前动作立即进行一些额外处理,那么这时候perl的信号处理就大派用场了。 如下:#!/usr/bin/perl$SIG{USR1} = \&usr1_handle;sub usr1_handle { ##parent do something原创 2016-06-16 15:16:11 · 942 阅读 · 0 评论 -
Perl脚本按CTRL+C无法退出的解决办法
有时候perl脚本里执行多次循环,当键盘上按了CTRL+C键想中途退出,发现会无法停止脚本执行。 可通过脚本里加入自定义的SIGINT信号处理程序来解决这个问题。#!/usr/bin/perl$SIG{INT} = sub { print "you has enter the CTRL+C keys,now exit\n"; exit 0;} ## main perl ##原创 2016-06-16 15:37:11 · 1764 阅读 · 0 评论 -
Perl读取二进制流文件
参考自:https://blog.csdn.net/u011729865/article/details/54575956open(BIN_FP,"<",“test.bin");open(HEX_TXT_FP,"<",“test.txt");while(read(BIN_FP,my $buffer,1)) { my $hex=unpack("H*",$buffer);...原创 2019-04-13 14:54:20 · 1090 阅读 · 0 评论