小编Che*_*eso的帖子

为什么Perl在退出之前不打印最后一个文本?

我的代码不会在" exit;" 之前运行最后一行,我不知道为什么.我之前试图增加printf $fh一条线exit,但这也没有用; 它不会打印任何一行.除了退出前的最后一个打印语句外,其他所有内容都打印正常.

任何线索为什么会这样?或者更好的是,如何修复或解决它?

    if($i>0 && $i<3)
    {
        printf $fh "Partial match found.\n";
        if($matched_uid){printf $fh "UID #: ".$arguid." exists.\n";}
        if($matched_id){printf $fh "ID #: ".$argid." exists.\n";}
        if($matched_uname){printf $fh "Username: ".$arguname." exists.\n";}
        printf $fh "Aborting."; 
        exit;
    }
Run Code Online (Sandbox Code Playgroud)

编辑:
我复制的部分代码包含此内容

select $fh; $| = 1; #set auto flush
Run Code Online (Sandbox Code Playgroud)

也许这就是我的结果无法复制的原因....

perl printf exit

4
推荐指数
3
解决办法
2252
查看次数

PHP - preg_match()

好吧,所以我希望用户能够输入AZ中的每个字符和0-9中的每个数字,但我不希望它们输入"特殊字符".

码:

if (preg_match("/^[a-zA-Z0-9]$/", $user_name)) {
    #Stuff
}
Run Code Online (Sandbox Code Playgroud)

它如何检查给定的所有字符,然后检查它们是否匹配?我试过了preg_match_all(),但我并没有真正理解它.

就像用户输入"FaiL65Mal"一样,我希望它允许它继续前进.但如果他们输入"Fail {] ^ 7(,",我希望它出现错误.

php regex preg-match

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

如何将"lastname,firstname"拆分为单独的字符串?

什么是将"Parisi,Kenneth"分为"Kenneth"和"Parisi"的最佳方式?
我仍在学习如何用这些正则表达式解析字符串,但不太熟悉如何设置vars等于匹配的字符串和匹配(或不匹配)字符串的输出.

regex perl

3
推荐指数
1
解决办法
3534
查看次数

如何使用Perl检索临时表的SQL字段名称?

下面是我用来运行查询,解析结果集和解析行的代码(分别)

$exec_ret = $DBS->SQLExecSQL($STMT);

while ($DBS->SQLFetch() == *PLibdata::RET_OK)
{
      $rowfetch = $DBS->{Row}->GetCharValue($colname[$i]);
}
Run Code Online (Sandbox Code Playgroud)

我可以使用类似的语法获取临时表的列/字段名称吗? $colname[$i]在顶部预定义以保存列/字段名称.这是现在的硬编码,但我宁愿通过将值推入到$colname解析行之前运行的循环内部来自动化它.

sql perl field

3
推荐指数
1
解决办法
2080
查看次数

如何在不使用GUI的情况下创建SQL Server代理?

我使用的是Angel LMS,它建立在SQL Server平台上.我相信它的2005年,但不是100%肯定.

无论如何,也许我的伪代码将阐明这个答案.单引号也必须用于字符串,连接字符是+.

我需要每天运行2-5次(频率尚未确定,但你明白了).这是事务块/伪代码:

BEGIN TRANSACTION
BEGIN TRY

<select statement>
<update statement>
<delete statement>
<insert statement>

COMMIT TRANSACTION
END TRY
BEGIN CATCH
        ROLLBACK TRANSACTION
        DECLARE @Msg NVARCHAR(MAX)  
        SELECT @Msg=ERROR_MESSAGE() 
        RAISERROR('Error Occured: %s', 20, 101,@msg) WITH LOG
END CATCH
Run Code Online (Sandbox Code Playgroud)

我唯一访问数据库的是一个运行sql命令的文本框.我可以创建和删除表,运行事务块,显然选择/插入/更新/删除.我找不到任何创建代理的命令,但只能找到使用企业管理器或调用GUI的步骤.

此外,关于如何操纵代理的时间安排的一些参考将有所帮助.当我测试它时,我想将它设置为每十五分钟左右运行一次.


编辑
EXEC dbo.sp_add_job @ job_name = N'test'返回错误
无法找到存储过程'dbo.sp_add_job'.

sql command-line sql-server-agent transactions agent

3
推荐指数
1
解决办法
8983
查看次数

PHP解析文件路径的目录和子目录以及仅jpg图像类型的名称

我希望修改这个PHP代码,在具有未知数量的子目录的单个已知目录上执行递归"搜索和显示图像".

这是我扫描单个目录并将文件回显到html的代码:

<?php 
    foreach(glob('./img/*.jpg') as $filename)
    {
        echo '<img src="'.$filename.'"><br>';
    }
?>
Run Code Online (Sandbox Code Playgroud)

假定基本目录$base_dir="./img/";包含具有未知数量的子目录和它们自己的子目录的层,这些子目录都仅包括.jpg文件类型.

基本上需要构建子目录的所有路径的数组.

php directory recursion parsing loops

3
推荐指数
1
解决办法
5021
查看次数

如何使用Perl对Gmail进行身份验证?

我已安装模块以获取Gmail收件箱中的访问权限和控制权.但是,当我尝试通过一个小的Perl脚本连接并测试功能时,我收到此错误消息.

Error: Could not login with those credentials - could not find final URL
  Additionally, HTTP error: 200 OK
Run Code Online (Sandbox Code Playgroud)

这是Gmail.pm模块中内置的错误.

我可以ping有问题的网址(https://www.google.com/accounts/ServiceLoginBoxAuth),所以我觉得麻烦的是找不到网址.此外,我知道凭据是正确的,并且在该URL上工作,因为我已经手动尝试过.

我正在使用这个脚本进行测试.我已在适当的地方提供了我的凭证.


我也安装了这个模块有相同类型的错误.

知道为什么我被封锁了吗?

authentication perl gmail module login-script

3
推荐指数
1
解决办法
6931
查看次数

这个Perl代码有什么作用?

在cPanel中,它们告诉您将此代码插入Perl文件的开头.我不确定它是做什么的.我已经在文件的开头尝试了有和没有这个的代码,似乎所有工作都是一样的.我没有用cron运行代码来测试它,但只有我自己.通过"测试它",我的意思是使用打印行,数据库连接和返回,子,变量等...

BEGIN 
{
    my $base_module_dir = (-d '/home/root/perl' ? '/home/root/perl' : ( getpwuid($>) )[7] . '/perl/');
    unshift @INC, map { $base_module_dir . $_ } @INC;
}
Run Code Online (Sandbox Code Playgroud)

perl include cpanel

3
推荐指数
2
解决办法
464
查看次数

SQL存储过程中"引用旧"和"引用新"有什么区别?

我不确定这种语法是否是特定于Informix的,但是我在创建触发器时遇到了麻烦,直到找到包含这些行中的一个或两个的语法:

CREATE TRIGGER      accuplacer_trig
UPDATE OF           processed
ON                  accuplacer_rec
REFERENCING OLD AS  proc_pre_upd 
FOR EACH ROW        (EXECUTE PROCEDURE accuplacer_proc(proc_pre_upd.exam_num));
Run Code Online (Sandbox Code Playgroud)

有时它写成 REFERENCING OLD AS alias1, NEW AS alias2

是什么区别REFERENCING OLD ASREFERENCING NEW AS,和他们做什么/是他们需要的,为什么?

sql syntax informix triggers stored-procedures

3
推荐指数
1
解决办法
1万
查看次数

如果给出一个输入字,如何生成一个发音相似的单词列表?

当你拼错谷歌中的一个单词时(例如"appples"),它会为你提供现在熟悉的"你的意思是:苹果 "的建议.

根据搜索结果的相关性排除Google猜测您的意图的能力,我如何开发一个听起来相同的单词列表?

这些词不一定是英语,也不一定存在.因此,举例来说,如果我给输入"漏洞",我会找回一个列表,其中包括:"整体","hola","妓女","角色","磨牙"等...

我猜可能有一些在线的东西可以开发这个列表,但我找不到任何东西.如果没有站点,并且可以使用Perl完成,是否有CPAN模块可以帮助我这样做?

perl words auto-generate phonetics

3
推荐指数
1
解决办法
2664
查看次数