小编McL*_*vin的帖子

使用Perl正则表达式中包含特殊字符的变量

我正在尝试在数组中搜索包含$ inbucket [0]的行.我的一些$ inbucket [0]值包含特殊字符.这个脚本正是我想要的,直到我遇到一个特殊字符.

我希望查询不区分大小写,匹配字符串$ var的任何部分,并按字面处理特殊字符,就好像它们不是特殊的一样.有任何想法吗?

谢谢!

sub loopthru() {
    warn "Loopthru begun on $inbucket[0]\n";
    foreach $c (@chat) {
        $var = $c->msg;
        $lookfor2 = $inbucket[0];
        if ( $var =~ /$lookfor2/i ) {
            ($to,$from) = split('-',$var);
            $from =~ s/\.$//;
            print MYFILE "$to\t$from\n";
            &fillbucket($to);
            &fillbucket($from);
        }
    }
}
Run Code Online (Sandbox Code Playgroud)

regex variables perl special-characters

4
推荐指数
1
解决办法
8227
查看次数

随机查找方法

我有一个postgres数据库,其中包含一个表,其中包含我想以伪随机间隔查找的行.有些我想每小时看一次,有的每天一次,有的每周一次.我希望查找在其时间窗口内以伪随机间隔进行.所以,我想每天做一次的查找应该在每次运行的不同时间进行.

我怀疑有一种更简单的方法可以做到这一点,但这是我的粗略计划:为每个查找项目设置一个设置列.当脚本启动时,它会随机化每次查找的纪元时间,并将其设置在设置列中,以确定下次查找的时间.然后我运行一个等待1的连续循环,以查看纪元时间是否与任何请求的查找匹配.在运行查找时,它会在下一次查找时重新计算.

我的问题:即使在设计阶段,这看起来像是一个胶带和缠绕的例程.这样做的正确方法是什么?

如果偶然,我的想法是正确的方法,我的想法是重复循环等待1正确的方式去?如果我有两次背靠背查找,我有可能错过一次,但我可以忍受.

谢谢你的帮助!

random postgresql perl time timer

2
推荐指数
1
解决办法
105
查看次数

标签 统计

perl ×2

postgresql ×1

random ×1

regex ×1

special-characters ×1

time ×1

timer ×1

variables ×1