perl

    5热度

    2回答

    我可以用它来包括文件a.pl: require 'a.pl'; 或者,我可以用这个: $fn = 'a.pl'; require $fn; 然而,一个子程序将无法正常工作: sub fn { return 'a.pl'; } require fn(); # This is a syntax error 有一个允许这个的语法?我注意到我可以通过 sub fn { return 'a.

    -1热度

    1回答

    如何将一个multipart/related消息的两部分发送到HTTP(S)服务器? 我需要这个https://cloud.google.com/storage/docs/json_api/v1/how-tos/multipart-upload 我们使用Perl 5

    0热度

    1回答

    如何嵌入像mysql -sN -e“query;”这样的命令?在perl脚本中,这样我的shell将成为进行数据库连接的shell。查询是一个有点复杂的查询,它可以从命令行完美运行,但是当我在我的perl程序中设置它时,我得到了一堆错误,如“在操作符预期的位置找到字符串”,“在操作符期望的地方找到字符串”以及语法错误。任何想法如何做到这一点,而无需给予perl访问数据库?

    3热度

    1回答

    我有一个纸箱cpanfile。在我使用sudo的服务器上,我很乐意在全局安装我的模块的最新版本。 我可以编写一个脚本来删除'requires'并使用cpan -i(尽管我担心我可能有太多不适合命令行的限制),还是这个功能已经在其他地方了?

    3热度

    2回答

    我喜欢在线程之间共享复杂数据结构。 据我所知,这是不可能的线程:共享(只有基本类型是可共享的)。 所以我想用JSON或Storable对序列化/反序列化结构,所以它只是一个字符串,我可以完美地共享。但是我需要在使用前将其打开并在更改后将其打包。 这是一种常见的解决方法吗? 有没有更好的方法? 您是否更喜欢JSON或可存储或其他? 感谢您的帮助! 编辑 我只是做了一些测试与可存储和JSON。 JSO

    1热度

    1回答

    仅当参数为假时才可以定义变量吗? 我有类似: my $object = Class::create($args); for my $i (@input) { if ($test) { # print some info here next; } #use of $object here } 如果我做这样的事情: my $object = Cl

    2热度

    3回答

    我想删除括号内的所有内容<>,如果一行只有一行<>,但是如果行有多个,它似乎删除里面的所有内容外部<>。 echo "hi, <how> are you" | sed 's/<.*>//' result: hi, are you echo "hi, <how> are <you>? " | sed 's/<.*>//' result: hi, ? 第一回声工作正常,但如果一个sente

    1热度

    1回答

    ,当我手动运行,但是当我把它使用反引号或系统命令的Perl脚本,它给这个错误 SH下面的命令正常工作: - C:0行:附近意外的标记语法错误'(” 脚本快照: #Find contents of myFile in zipfile and output the matched records to output.txt $cmd = "awk -F\"|\" 'NR==FNR{hash[\$0]

    0热度

    1回答

    我需要在perl中捕获{和}之间的所有内容{在一个字符串中。发生次数可以从0到有限数量。 我试着使用: my @tmp; my $extract = ""; $extract = $1 if $json =~ /\{([^}]+)\}/g; push @tmp, $extract; 其中$ JSON是我需要提取内容的字符串。 下面是两个项目的$ JSON一个例子: { “ID”:

    0热度

    3回答

    我在Debian 8机器上使用Perl 5.20.2和MySQL 5.5.57。我最近发现MySQL的utf8表限于三字节表。因此我无法储存emojis。 所以,我尝试了utfmb4应该解决这个问题的表格。我改变了表从UTF8到utf8mb4从MySQL客户端中:在MYTABLE ALTER DATABASE `mydb` CHARACTER SET = utf8mb4 COLLATE = utf