perl

    -2热度

    1回答

    在我们的web应用程序中,我们使用网格显示作业当前状态,用户可以选择多个记录并单击该动作以更改作业状态。在动作点击时,我们将动作发送给vanilla CGI,以选择每个产生Perl脚本来改变状态的作业。我们这样做是因为每个工作都可以作为不同的用户运行,所以采取行动的人应该具有sudo权限才能采取行动。 我们计划通过发送所有选定的作业详细信息和产卵过程来对作业采取行动来提高性能。在探索更多CGI时,

    1热度

    1回答

    我试图用FCNTL库在同一时间只能运行一个脚本实例, 它的工作原理,当它是谁运行脚本(同一台服务器只能在一台服务器” t运行脚本的另一个实例),但如果我有另一个服务器(实际上访问相同的文件系统)运行脚本,它不起作用(他可以实际运行它)。 任何人对如何处理这个使用FCNTL库的想法(或其他?)提前 感谢。

    0热度

    1回答

    我有一个请求,我让使用API​​在GET LWP::UserAgent, 至多数据返回为JSON,至多两个结果如下: { "status":1, "time":1507891855, "response":{ "prices":{ "nome1\u2122":{ "preco1":1111, "preco2":158

    2热度

    1回答

    纵观近期的一些问题,我看到下面的尴尬建设:(我所熟悉的是while (my $line = <$IN>) {...}成语) open my $IN, "<", 'file' or die "can't read from 'file'. $!"; foreach my $line (<$IN>) { ... } 我的问题是,它的foreach成语迫使<>成列表上下文,并因此要求解

    3热度

    1回答

    我有一个Perl脚本,它在临时目录$tempdir中生成pdf $pdffile并使用xdg-open将其打开。一旦用户查看文件,该脚本应该删除工作目录。下面是我遇到的麻烦的部分代码: system "xdg-open $pdffile"; remove_tree($tempdir); 我的system理解是,它应该等到继续程序之前的命令返回。但是,当我执行此代码时,我收到消息“无法打开/t

    -1热度

    1回答

    为了输入数据,我有一个可变大小的散列,其中多个元素具有相似的名称。哈希可能看起来像是一个例子; wineName0 =>夏敦埃 wineFull0 => 4.00 wineHalf0 => 2.00 wineName1 =>黑比诺 wineFull1 => 16.00 wineHalf1 => 8.00 plateName0 =>侧腹牛排 plateCost0 => 14.00 plateTemp

    0热度

    2回答

    所有的数字我有一个在远程机器上运行shell:命令,该命令返回类似这样 ok: [proxmox] => { "CONTAINER_INFO": { "changed": true, "cmd": "pct list | grep -w test", "delta": "0:00:00.463029", "end": "2017-10-13

    2热度

    2回答

    我正在尝试创建几个可以一起工作的函数。 getFH应采用打开文件的模式(>或<),然后是文件本身(从命令行)。它应该做一些检查,看看文件是否可以打开,然后打开它,并返回文件句柄。 doSomething应该接受文件句柄,并循环数据并执行任何操作。但是,当程序行到while循环,我得到的错误: readline() on unopened filehandle 1 我在做什么错在这里? #! /us

    -4热度

    1回答

    如果我有一个Perl散列,并且我随机生成了一个数值,那么如何让我的代码检查随机生成的值是否已经存在于散列中?

    0热度

    2回答

    我目前正在将CGI应用程序迁移到Dancer2。我以前使用了使用MySQL的“手工制作”身份验证机制,并使用了属性为email,password和state的用户表。 state表示账户是active还是locked。 locked表示帐户被禁用(逻辑删除)。 我也有表roles和user_roles来实现我的两个角色:管理员和用户。 一切工作就像一个魅力,但有一个例外: 用我的旧的“手工制作”的