程序设计 perl

5

如何将所有CPAN模块更新到最新版本？

136 perl cpan

7

我喜欢在Perl中做这种事情：$foo = $bar || $baz分配$baz给$foo是否$bar为空或未定义。您还可以$foo ||= $bletch将只分配$bletch到$foo如果$foo没有定义或清空。在这种情况下，三元运算符既繁琐又累人。当然，PHP中提供了一种简单，优雅的方法吗？还是唯一的答案是使用isset（）的自定义函数？

134 php perl operators default-value

5

通过PHP / Perl在用户浏览器中显示PDF文件

我想向我的用户展示PDF文件。我使用cgi显示pdf的原因是我想跟踪pdf的点击次数，并隐瞒已保存pdf的真实位置。我一直在Internet上搜索，仅发现如何向用户显示保存对话框并创建pdf，而不向用户显示文件。我想要的是向用户显示我的pdf文件，而不是创建或下载 pdf。这是我从官方php文档中获得的信息： <?php header('Content-type: application/pdf'); readfile('the.pdf'); ?> 还有我的google-search-result perl代码： open(PDF, "the.pdf") or die "could not open PDF [$!]"; binmode PDF; my $output = do { local $/; <PDF> }; close (PDF); print "Content-Type: application/pdf\n"; print "Content-Length: " .length($output) . "\n\n"; print $output 如果您是用红宝石做的，请对我说。但是我不确定我的服务器是否支持导轨。对不起，如果我的代码与显示pdf的方法相距太远，因为我对pdf处理以及如何实现此问题一无所知。假设用户具有Adobe Reader插件。那么，如何解决我的问题呢？编辑：我想显示纯pdf文件。我的主要目的：跟踪我的pdf文件并使用一些精美的网址。编辑：这是我的主要PHP代码： …

121 php perl pdf

17

在Perl中，如何将整个文件读取为字符串？

我正在尝试打开.html文件作为一个大的长字符串。这是我得到的： open(FILE, 'index.html') or die "Can't read file 'filename' [$!]\n"; $document = <FILE>; close (FILE); print $document; 结果是： <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN 但是，我希望结果看起来像： <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 这样，我可以更轻松地搜索整个文档。

118 string perl slurp

4

为什么Perl 5的功能原型不好？

在另一个堆栈溢出问题中， Leon Timmermans断言：我建议您不要使用原型。它们有其用途，但不适用于大多数情况，并且绝对不在此情况下使用。为什么这可能是正确的（或相反）？我几乎总是为我的Perl函数提供原型，而且我从未见过有人对使用它们发表过不好的看法。

116 perl function prototype

10

如何告诉CPAN安装所有依赖项？

如何告诉CPAN安装所有依赖项？我尝试将这些设置为cpan： cpan> o conf prerequisites_policy follow cpan> o conf commit 我仍然不得不回答“ y”两次（但比以前感觉要少）。有没有办法让它总是继续安装？我想让它无人值守。似乎我想让一个标志始终信任CPAN做正确的事，如果它建议一个答案，我想跟随它（总是Enter在询问问题时点击）。

113 perl dependencies cpan

3

检查字符串是否包含子字符串

如何使用Perl检查给定的字符串是否包含某个子字符串？更具体地说，我想看看s1.domain.com给定的字符串变量中是否存在。

113 string perl string-matching

8

如何检查Perl中是否存在文件？

我有相对的路 $base_path = "input/myMock.TGZ"; myMock.TGZ是位于输入文件夹中的文件名。文件名可以更改。但是路径始终存储在中$base_path。我需要检查文件是否存在于中$base_path。

112 perl

4

如何匹配除特定字符以外的任何非空白字符？

在Perl中\S匹配任何非空白字符。如何匹配除反斜杠之外的任何非空白字符\？

111 regex perl

6

如何从Perl输出UTF-8？

我正在尝试使用“ utf8”编译指示来编写Perl脚本，并且得到了意外的结果。我正在使用Mac OS X 10.5（Leopard），并且正在使用TextMate进行编辑。我的编辑器和操作系统的所有设置都默认为以utf-8格式写入文件。但是，当我在文本文件中输入以下内容，将其另存为“ .pl”并执行时，我得到了友好的“带问号的钻石”来代替非ASCII字符。 #!/usr/bin/env perl -w use strict; use utf8; my $str = 'Çirçös'; print( "$str\n" ); 知道我在做什么错吗？我期望在输出中得到'Çirçös'，但是我得到的是'.ir s'。

110 perl unicode utf-8

16

使用awk打印除第一个字段以外的所有内容

我有一个看起来像这样的文件： AE United Arab Emirates AG Antigua & Barbuda AN Netherlands Antilles AS American Samoa BA Bosnia and Herzegovina BF Burkina Faso BN Brunei Darussalam 我想反转顺序，先打印除$ 1外的所有内容，然后打印$ 1： United Arab Emirates AE 如何做“除字段1之外的所有内容”的技巧？

108 perl awk sed

4

Perl标志-pe，-pi，-p，-w，-d，-i，-t？

我已经看到了许多运行带有不同标志的Perl代码或脚本的方法。但是，当我尝试用Google搜索每个标志的含义时，我主要是在通用Perl网站上获得结果，并且在那里找不到有关标志或标志的使用的特定信息。以下是我最常遇到的标志，我不清楚它们的含义： perl的-pe perl -pi perl -p perl -w perl的-d perl -i perl的-t 如果您能告诉我这些含义以及它们的用例，或者至少告诉我一种了解其含义的方法，我将不胜感激。

107 perl command-line flags

9

遍历Perl哈希键的最安全方法是什么？

如果我有一个带（键，值）对的Perl哈希，那么迭代所有键的首选方法是什么？我听说使用each可能以某种方式产生意外的副作用。那么，这是真的吗？以下两种方法之一是最佳方法吗？还是有更好的方法？ # Method 1 while (my ($key, $value) = each(%hash)) { # Something } # Method 2 foreach my $key (keys(%hash)) { # Something }

107 perl hash iteration each

6

在正则表达式中转义正斜杠

我的问题很简单，它涉及正则表达式转义。您是否必须/在正则表达式中转义正斜杠？您将如何去做呢？

106 regex perl escaping

8

为什么要使用严格和警告？

在我看来，如果人们使用，Perl标记中的许多问题都可以解决： use strict; use warnings; 我认为有些人认为它们类似于训练轮，或不必要的并发症，这显然是不正确的，因为即使是非常熟练的Perl程序员也都使用它们。似乎大多数精通Perl的人总是使用这两个编译指示，而那些从使用它们中受益最大的人却很少使用。因此，我认为在鼓励人们使用use strict和时，有一个要链接的问题是一个好主意warnings。那么，为什么一个Perl的开发use strict和warnings？

104 perl

Questions tagged «perl»