perl_编程技术问答社区_程序员问答知识库

以下是关于 perl 的编程技术问答

我已经写了Perl中的加密功能，我正在尝试在PHP中使用相同的方式. 在perl中: #!/usr/bin/perl use strict; use warnings; use Crypt::CBC; use Crypt::Rijndael; my $cryptkey = '_PRIVATE_'; my $cipher = Crypt::CBC->new( -key => $cryptkey, -salt => 1, -cipher => 'Rijndael', ); my $data = "hello"; my $ciphertext = $cipher->encrypt_hex($data); print "HEX_KEY: '$ciphertext' \n"; 输出:

0 2023-05-31 编程技术问答社区 php perl encryption

PHP或Vanilla Perl CGI更快吗?

我正在为Apache共享托管服务器开发一个Web应用程序.我已经在perl中写了一些代码，但最近我发现，令我惊讶的是，共享的托管提供商未提供mod_perl或安装它的方法. 我有点担心在没有mod_perl的情况下通过CGI运行Perl Web应用程序会使它非常慢吗?我应该将所有代码转换为PHP，这会更快吗? 我首先选择Perl的原因是，我对Perl比PHP非常熟悉.我也希望能够在网络开发领域之外使用我的perl库. 因此，如果你们中的任何一个都有Apache Web开发的经验，您可以阐明我应该采取哪个方向. 为了这个问题，可以说Web应用程序每天将获得500多次命中. 如果没有mod_perl? 哪个会更快或perl? 事先感谢您的帮助. 解决方案每天仅500次命中，您几乎可以用任何东西编写代码，而不必担心减速.每天500次命中每3分钟约1页.即使假设命中率是非正态分布，您也不应该真正担心这么小的流量. 其他解决方案 PHP会更快.

0 2023-05-31 编程技术问答社区 php perl

如何使用PHP的一些参数运行Perl脚本

我的HTML网页拨打PHP脚本以从本地计算机上传到服务器，如下所示. (1) Upload your reading text file. 为了使用上传的文件处理，我的PHP脚本调用Shell脚本 $output=system('/bin/sh connector_0.sh'); 我的shell脚本由一系列Python/Perl脚本组成. #!/bin/sh python ma

0 2023-05-31 编程技术问答社区 php python perl shell

正则表达式-如何在字符第一次出现时停止

我试图从标签中提取SRC值，到目前为止，我似乎能够在SRC值和字符串中的最终引号之间提取字符串字符串: ，例如.在PHP中: preg_match('/src=\"(.*)\"/', $row->find('a img',0), $matches); if($matches){ echo $matches[0]; } 打印出 src="http://i.bookfinder.com/about/booksellers/logo_borderless/amazon_uk.gif" width="89" height="31" alt="" 但是我真正想要的印刷是... src="http://i.b

0 2023-05-31 编程技术问答社区 java c# php regex perl

从php和瞬时输出返回网页的bash脚本执行

我有bash和perl脚本的集合在Linux Box上开发想要部署的目录结构 (可选)从SVN 导出代码从此来源构建包裹这在终端中运行良好.现在，我的客户端请求此过程的Web界面. 例如，在某些页面上的"创建新软件包"按钮将在一个步骤中逐个调用，并将输出返回到用户作为脚本回声，而不是整个脚本执行时. 是否可以通过程序执行函数(System，System，exec，passhru ...或任何其他适合此过程流程)调用它的瞬时输出到网页或PHP脚本? > 什么是优雅为什么这样做? 在执行此类操作时应该采取什么安全预防措施(如果可能的话)? 编辑经过一番搜索，我找到了解决方案的一部分，但仍无法正常工作: $cmd = 'cat ./password.txt|sudo -S ./setup.sh '; $descriptorspec = array( 0 => array("pipe", "r"), // st

0 2023-05-31 编程技术问答社区 php perl bash nonblocking

自动化工作中的作业：将Powerpoint项目符号文本导入Excel工作表

我被要求在今天的工作中自动化一项特定的任务，这占用了我们的大量时间！以下是需要做的事情，如果可能的话，我将感谢在我的知识领域内如何做到这一点(实施建议)的任何帮助. . 问题我有一个 powerpoint document document(.ppt).我想从那里提取文本(文本为子弹点格式).我想将这些子弹插入一个因此，基本上是:从ppt提取 - >插入Excel表中，每行是子弹点. 我可以使用的技术 Perl，PHP和Java. 我会更喜欢php 说实话，因为这是我的主要语言，但是我很高兴考虑到你们/加尔斯认为最好的其他任何东西.第二是perl，然后是爪哇.我不想为此编译课程并安装JDK！ :) 关键问题您如何引用子弹点? 我可能最终只会在excel表中获得大量的非结构化文本吗? 从ppt文件中阅读有任何障碍? 更新，如果MS Technologies(VB等)会考虑生活更轻松，但我从未使用过它，并且我鄙视MS Tech

0 2023-05-31 编程技术问答社区 java php perl implementation project-planning

替换一个字符串中的重复字符串

我试图在字符串中找到(并替换)重复的字符串. 我的字符串看起来像这样: lorem ipsum dolor sit amet sit amet sit amet sit amet sit nostrud练习 amit sit ullamco laboris nisi nisi ut nisi ut equip equip earquip ear ear ear commodo commodo commodo commodo commoto commoto a后果. 这应该变成: lorem ipsum dolor sit amet sit nostrud练习 amit sit ullamco laboris nisi ut nisi ut eeliquip equip equip ex ea commodo commodo. 请注意 amit sit 未删除，因为它没有重复. 或字符串可以是这样: lorem ipsum dolor sit am

0 2023-05-31 编程技术问答社区 php regex perl string-search

如何从模量，指数和私人指数中创建一个crypt :: RSA对象?

我正在尝试将以下PHP功能移植到Perl: public function loadKey($mod, $exp, $type = 'public') { $rsa = new Crypt_RSA(); $rsa->signatureMode = CRYPT_RSA_SIGNATURE_PKCS1; $rsa->setHash('sha256'); $rsa->modulus = new Math_BigInteger(Magicsig::base64_url_decode($mod), 256); $rsa->k = strlen($rsa->modulus->toBytes()); $rsa->exponent = new Math_BigInteger(Magicsig::base64_url_decode($exp), 256); // snip... } 我需要在表格中转换一个字符串("rsa.$ mod.$

0 2023-05-30 编程技术问答社区 php perl rsa

如何找到一个不在另一个特定单词之前的单词?

我可以使用哪个正则表达式查找所有字符串bar不含字符串foo之前?两者之间的空格也是非法的. 因此，正则应匹配以下字符串 foo is bar hello bar 但不是这些 foobar foo bar 我尝试使用以下 (?! 1, 'hello bar' => 1, 'foobar' =>

2 2023-05-30 编程技术问答社区 php regex perl regex-negation

Perl相当于PHP'的get_file_contents()?

以下PHP代码完全可以做我想做的事情.问题是我需要在Perl中重新创建它，并且我一直在玩open()和sysopen() perl功能，但无法做到.有人有任何帮助或知道可能有帮助的链接吗?谢谢. $URL = "http://example.com/api.php?arguments=values"; echo file_get_contents($URL); 解决方案您可以使用 lwp :::::: use LWP::Simple; $contents = get $URL or die; print $contents;

0 2023-05-30 编程技术问答社区 php perl get file-get-contents lwp

proc_open:扩展文件描述符编号以从perl脚本启用"状态"反馈

php的 proc_open 手动状态: 文件描述符编号不限于0、1和2-您可以指定任何有效的文件描述符编号，并将其传递给子进程.这使您的脚本可以与其他作为"共同处理"运行的脚本互操作.特别是，这对于以更安全的方式传递给PGP，GPG和OpenSSL等程序很有用.它对于读取这些程序在辅助文件描述符上提供的状态信息也很有用. 发生了什么:我在基于PHP的Web应用程序中称为Perl脚本并在呼叫中传递参数.我将来不需要将数据发送到脚本.通过stdout [1]，我从perl脚本json_encoded数据中收到了我在PHP应用程序中使用的数据. 我想添加的内容: perl脚本正在通过网站进行，根据其初始调用中传递的参数收集信息.我想将我可以用作作为进度栏的文本字符串发送回PHP应用程序. 我认为我应该如何做:我希望(每1-2秒)对该"进步"更新设置的频道进行调查.我将使用JavaScript/jQuery写入HTML Div容器中，以供用户查看.我认为我不应该将"进度

4 2023-05-30 编程技术问答社区 php perl proc-open

OS X上的Composer错误和PHP使用的OpenSSL

我删除了我的旧XAMPP本地服务器，并安装了最新的服务器，其中包括 apache/2.4.18(unix) openssl/1.0.2e php/7.0.1 mod_perl/2.0.8-dev perl/v5.16.3 但是当我尝试安装它时: curl -sS https://getcomposer.org/installer | php 它说: Some settings on your machine may cause stability issues with Composer. If you encounter issues, try to change the following: The OpenSSL library (0.9.8zc) used by PHP does not support TLSv1.2 or TLSv1.1. If possible you should upgrade OpenSSL to version

2 2023-05-30 编程技术问答社区 php macos perl

如何捕获杀戮，HUP或用户流产信号?

我有一个在Linux服务器的背景上运行的脚本，我想捕获重新启动或任何会杀死此脚本的信号，而是在实际退出之前保存任何重要的信息. 我认为我需要抓住的大部分是sigint，sigterm，sighup，sigkill. 如何捕获这些信号中的任何一个并执行退出功能，否则继续执行它的工作? 伪perl代码: #!/usr/bin/perl use stricts; use warnings; while (true) { #my happy code is running #my happy code will sleep for a few until its breath is back to keep running. } #ops I have detected an evil force trying to kill me #let's call the safe exit. sub safe_exit() { # save st

0 2023-05-30 编程技术问答社区 php perl signals

Perl与PHP的print_r()是什么关系？

我在php中找到print_r非常有用，但是想知道perl中是否有远程等效的东西? 解决方案注意@tchrist推荐上面链接中显示的示例的片段. use Data::Dumper; package Foo; sub new {bless {'a' => 1, 'b' => sub { return "foo" }}, $_[0]}; package Fuz; # a weird REF-REF-SCALAR object sub new {bless \($_ = \ 'fu\'z'), $_[0]}; package main; $foo = Foo->new; $fuz = Fuz->new; $boo = [ 1, [], "abcd", \*foo, {1 => 'a', 023 => 'b', 0x45 => 'c'}, \\"p\q\'r", $foo, $fuz];

0 2023-05-30 编程技术问答社区 php perl debugging

在我的电脑上启动Apache服务器时，程序无法启动，因为缺少api-ms-win-crt-runtime-l1-0.dll。

为了快速设置我的PHP/Perl开发环境，我安装了 xampp .具体来说，我尝试使用以下方式安装:xampp-win32-7.0.1-0-VC14-installer. 启动程序时，我遇到了与dll文件有关的错误.我还尝试了这个问题听起来像是解决了相同问题. 尝试上述问题仍未解决. 解决方案我正面临同一问题. 经过多次尝试以下解决方案对我有用. 安装VC ++之前安装Windows更新. 1.开始 - 控制面板 - Windows更新 2.检查更新. 3.安装所有更新. 4.重新启动您的系统. 之后，您可以按照以下步骤进行操作. @abhi kumar 下载Visual C ++重新分布2015 Visual C ++可用于Visual Studio 2015(64位) 的重新分布 Visual C ++可用于Visual Studio 2015(32位)的重新分布 (如果已经安装，则恢复使用)然后重新启动计算机或使用Win

0 2023-05-30 编程技术问答社区 php apache perl dll

Perl和PHP之间的差异

我打算学习perl 5，并且由于我一直使用PHP，所以我想对这些语言彼此之间的不同了解. 作为一组" perl hacks"，PHP显然克隆了一些Perls功能. 语法中的主要区别是什么?确实，有了Perl，您有更多的选择和表达内容的方法? 为什么Perl不再经常用于动态网站?是什么使PHP变得更受欢迎? 解决方案 perl和PHP与相似之处更为不同.让我们考虑一下Perl 5，因为Perl 6已成为其自己的语言(Raku)，而不是Perl的新版本.每种语言都在不断发展，因此此列表中的某些项目可能会过时；读者应依靠官方文档来了解每种语言的当前功能. 一些差异，大致按主题分组: perl具有本地正则表达支持，包括Regexp文字. PHP使用Perl的Regexp函数作为扩展. 在PHP中的语言级别支持许多语言功能，但在Perl中以软件包的形式实现(例如生成器和某些OOP操作员).其中一些如下所述. 既支持字符串中的逃脱序列，又支持某些相同

8 2023-05-29 编程技术问答社区 php perl

xampp apache不工作 err message api ms win丢失

检测到的问题！如果没有配置的端口免费！，Apache将不会启动 You need to uninstall/disable/reconfigure the blocking application or reconfigure Apache and the Control Panel to listen on a different port Starting Check-Timer Control Panel Ready Problem detected! Port 80 in use by "Unable to open process" with PID 4! Apache WILL NOT start without the configured ports free! You need to uninstall/disable/reconfigure the blocking application or reconfigure Apache and the Contr

0 2023-05-29 编程技术问答社区 java php android apache perl

将PERL代码转换为PHP

我需要将以下perl函数转换为php: pack("SSA12AC4L", $id, $loc, $name, 'ar', split(/\./, $get->getIP), time+(60*60); 我在PHP中使用以下代码(测试): echo pack("SSA12AC4L", '25', '00001', '2u7wx6fd94fd', 'f', preg_split('/\./','10.2.1.1', -1, PREG_SPLIT_NO_EMPTY), time()+(60*60)); 但是我会收到以下错误: 警告:pack()[function.pack]:type c:d:\ wamp \ www \ test.php在第8行8 中的参数太少. 有什么建议吗?非常感谢. 解决方案问题是代码给出pack()(我是指最后一个

2 2023-05-29 编程技术问答社区 php perl pack

脚本语言如何使用插座?

python，perl和php，所有支持当客户端连接到特定端口时，如何调用脚本文件? 脚本是否在连接期间保持"运行"? (可能是小时) 那么，脚本的多个"实例"会同时运行? 那么，如何从脚本的一个实例对另一个实例进行方法调用? 解决方案脚本语言的使用方式与编译语言完全相同. 1)脚本通常打开并使用套接字.它不是由套接字"运行"或"调用"，而是通过库直接控制它(通常在OS的本机C api中调用). 2)是. 3)不一定.大多数现代脚本Langauges都可以在一个"脚本"应用程序中处理多个插座. 4)n/a，请参见3) 编辑问题和评论的变化: 这现在很明显，您正在尝试在托管服务器的上下文中运行此操作.通常，如果您在Apache或类似服务器中使用脚本，则情况的工作方式有所不同. Apache打开并维护套接字，并执行您的脚本，将相关数据(帖子/获取结果等)传递给您的脚本处理.当您处理CGI等脚本时，插座通常不会发挥作用.

0 2023-05-29 编程技术问答社区 php python perl sockets scripting

正则:必须从字母或数字开始，但其余的都可以是任何东西

我正在尝试构建一种模式以用于验证. 我的目标是让第一个字符是字母或数字，其余的Anyhing. i.ex: a'r4nd0m！ 9！h3ll0. b1llin6s 我想到:[a-zA-Z0-9_/][.*]++ 解决方案是什么? 谢谢！解决方案正如我所评论的那样，字母或数字是[\pL\pN].因此，以其中一个开始的字符串将匹配模式 /^[\pL\pN]/ 其他解决方案如果第一个数字是数字或字母，则有^[A-Za-z0-9]. (^匹配字符串的开头.)对于其余的东西，简单的.*就足够了，因此您有^[A-Za-z0-9].*. 其他解决方案您可以稍微缩小义务: ^[a-zA-Z0-9].* 以字母/数字开始，可以在任何长度或任何字符之后.

0 2023-05-29 编程技术问答社区 php regex perl

首页
<
1
2
3
4
5
6
7
8
>
尾页