use strict; use Fcntl qw(:flock); use POSIX qw(strftime); open (FD, " < test.txt") or die "$!\n"; flock(FD, LOCK_EX); print "I
1、第一种方式,不管系统资源,如果文件多的话,会是一个相当大的数组 内存可能耗尽。#!/usr/bin/perl -w use strict; use File::Find::Rule; my @files = File::Find::Rule->file()->name("*.pl")->in
脚本来源与高阶perl
splice函数有三个作用。第一个作用是向数组中间的一部分插入内容。例如: @d=(1..9); my @e=("a".."f"); splice(@d,2,2,@e);#目标数组, 插入起始位置, 覆盖长度, 插入数组将会得到12abcdef56789,注意这里是从第二个开始插入,不是从下标为2的元素开始插入的。splice的第二个功能是删除,例如在刚才的代码上面再加上:splice(@
use List::Util 'shuffle'; my @list = (1..33); my @blue = (1..16); my $y = $#blue; my $i=10; while ($i>0){ @shuffled = shuffle(@list); my @result = sort {$a <=> $b} (@shuff
#!/usr/bin/perl use List::Util 'shuffle'; #随机数组元素 my @list = (1..6); sub fisher_yates_shuffle { my $deck = shift; # $deck is a reference to an array re
#!/usr/bin/env perl $time = localtime(time); print "$time\n"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); print "$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst\n"; @m
#!/usr/bin/env perl print "\nReceived signal at " , scalar localtime , "\n"; sub test1 { $_ = 'http://www.perl.com/index.html'; if (m#([^:]+)://(.*)#){ print "\$1,\$2 =
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号