随笔分类 - perl
摘要：https://www.cnblogs.com/agostop/archive/2012/03/09/2387775.html https://blog.csdn.net/weixin_30825581/article/details/98601867 https://www.ibm.com/dev
阅读全文
摘要：来自mount_volume.sh文件https://opendev.org/opendev/system-config DEVICE=$1 MOUNT_PATH=$2 FS_LABEL=$3 parted --script $DEVICE mklabel msdos mkpart primary
阅读全文
摘要：信号量作为锁使用事例。 #!/usr/bin/perl # use strict; use IPC::Semaphore; use IPC::SysV qw(IPC_PRIVATE S_IRUSR S_IWUSR IPC_CREAT IPC_NOWAIT SEM_UNDO); our $sem =
阅读全文
摘要：server.pl #!/usr/bin/perl use strict; use IPC::Shareable; my $key = 'data'; my %options = ( create => 1, exclusive => 1, mode => 0644, destroy => 1, )
阅读全文
摘要：#!/usr/bin/perl use IPC::SysV qw(IPC_PRIVATE IPC_CREAT S_IRWXU); use IPC::Msg; my $queue = IPC::Msg->new(IPC_PRIVATE, S_IRWXU | IPC_CREAT); $msgtype =
阅读全文
摘要：https://www.cnblogs.com/f-ck-need-u/p/9693675.html fork是低层次的系统调用，通过复制父进程来创建子进程。 #!/usr/bin/perl use 5.010; my $pid=fork(); say $pid, " "; fork用来拷贝当前进程
阅读全文
摘要：$|是perl的内置变量，默认情况下是0，如果设置为非0的话，表示当前的输出不经过缓存立刻输出。相当于c语言的fflush()函数，立即刷新缓冲区。 比如你print或者write一个文件，实际是需要经过缓存的，但是设置该变量非0后就不经过缓冲立刻输出了 不过perl的只要一次设置$|=1，那么程序
阅读全文
摘要：use Net::OpenSSH;our $PC2 = "testPC2";our $pc2_ssh = Net::OpenSSH->new( "$PC2", user => "root", password => "password", master_opts => [-o => "StrictH
阅读全文
摘要：-> 有两种用法，都和解引用有关。第一种用法，就是解引用。根据 -> 后面跟的符号的不同，解不同类型的引用，->[] 表示解数组引用，->{} 表示解散列引用，->() 表示解子程序引用。例子：$arr_ref = @array;$arr_ref->[0] 访问数组 @array 的第一个元素。$h
阅读全文
