多年来，我自学了多种编程语言，包括 Perl。 我发现的一种学习工具是使用某种语言参考，以避免通过手册中的多个章节来找到一个起点的挫败感。
另一个好的学习技巧是找到一个 Perl 程序，它做的事情与你想要做的类似，然后通过修改它的行为来逐渐修改它，并在遇到困难时使用你的参考。 最终，在你形成了一些你想做什么的想法之后，你就能从头开始了，然后将它翻译成一组编程指令。
几年前，在合作编写 Scribus 手册的过程中，我花了很多时间在 freenode.net 的 Scribus 频道上，与我的德国合作者和其他主要生活在欧洲的人交谈。 你最终会就各种话题进行大量对话，无论你在世界的哪个地方，你都会谈论天气，但当然他们谈论的是摄氏温度，而我体验的是华氏温度。 所以我用 Perl 做了一个小工具来查看 14°C 是多少，或者也许我不用 °F 告诉他们我的天气，而是能够给他们一个 °C 的数字。
让我们用这个来谈谈 Perl。
#!/usr/bin/perl -w
print "\nThis is the program for Fahrenheit to Celsius\n
and Celsius to Fahrenheit temperature conversion\n\n";
$temp = $ARGV[0];
$f1temp = $temp . "°F";
$ctemp = ($temp - 32)* 5.0/9.0;
$rtemp = sprintf("%.1f", $ctemp);
$c1temp = $rtemp . "°C";
print "$f1temp is $c1temp\n\n";
$ftemp = $temp* 9.0/5.0 + 32;
$rtemp = sprintf("%.1f", $ftemp);
$c2temp = $temp . "°C";
$f2temp = $rtemp . "°F";
print "$c2temp is $f2temp\n\n";我将它命名为 tempconv.pl，所以首先要指出的是，你用 .pl 扩展名来命名文件，以表明这是一个 Perl 脚本。 接下来，看看第一行。 它以这些字符开头：#! 这有一个名称，shebang，之后它告诉你的计算机在哪里找到解释器，-w 请求有关我在编写此脚本时可能犯的错误的警告。 这一行必须是脚本的第一行。
第二行只是给自己的一个小消息，以确认它在做什么，当然这不仅是输出的一部分，而且当我查看文件时我可以阅读它，所以在这种情况下，它是这个脚本的完整文档。 你反复看到的这个 \n 是为了让打印输出（在本例中是在屏幕上）添加一个新行或回车符。 如果你稍微分解输出，它更容易阅读。 我使用了双引号，它的行为与单引号不同。 例如，单引号内的 \n 会按字面打印；它不会被解释，也不会创建新行。
第三行终于到了我们运行它的目的的核心。 注意所有以 $ 开头的单词或单词片段。 所有变量名都必须以特殊字符开头。 $ 表示标量变量，或者换句话说，具有单个值的变量。 ARGV 是 Perl 使用的特殊变量名，用于引用程序运行时发送给脚本的任何输入。
事实上，我可以输入多个数字，tempconv.pl 45 23 38，在这种情况下，这三个值会创建一个数组 @ARGV，从中我们可以指定 $ARGV[0]，这将是 45，或 $ARGV[1] 代表 23，等等。 由于这个脚本的编写方式，无论你包含多少个值都无关紧要，因为它只会使用第一个值。（我们稍后再讨论。）
要转换温度，请输入 tempconv.pl 45 以转换值 45。 ARGV 指的是该输入，45。
接下来，发生了一些有趣的事情。 注意我是如何将 45 °F 的字符串值分配给变量 $f1temp 的（句点是一个连接运算符，将这两个字符串粘合在一起）。 在下一行中，我采用相同的输入并对其执行数学运算。 那么 45 是一个字符串还是一个数字？ 显然两者都是。 你应该能够识别出华氏温度转换为摄氏温度的公式 ($temp - 32)*9.0/5.0。
剩下的就是打印结果，但我想确保它以一位小数点的浮点数输出，这就是 sprintf 命令的作用。
此脚本的其余部分只是假设 45 是摄氏度并转换为华氏度，因此该脚本的总输出为
This is the program for Fahrenheit to Celsius and Celsius to Fahrenheit temperature conversion 45°F is 7.2°C 45°C is 113.0°F
我这样做似乎很奇怪，但实际情况是，我最初制作了两个脚本，一个名为 celsius.pl，另一个名为 fahren.pl，每个脚本只做一次计算。 问题是，过了一段时间后，我忘记了 celsius.pl 是想要一个摄氏值还是在生成一个摄氏值。 我觉得最简单的事情就是将操作结合起来，给出两个答案并保持使用的简单性。 为了进一步简化，我还创建了一个在 Bash 中运行的别名，称为 temp，它不仅节省了键入整个文件名的时间，而且还节省了键入其路径的时间。
一个不太困难的添加是创建一个循环，以便可以输入多个值，并进行串行计算。 主要考虑因素是检测输入了多少个值以避免生成错误。 更重要的是，我还没有看到这种需求。 但让我们在这里提到 Perl 的一个你可能已经注意到的特性，那就是除了第一个之外，每行都以分号结尾。 我应该补充说，每个可执行语句都以分号结尾。 例如，假设我们想根据条件在末尾添加一条可选消息
if ($rtemp > 99) {
print "Wow! That's hot!\n\n";
}
可执行部分仍然以分号结尾，但 if 条件有它自己的结构，使用大括号来包含如果满足条件将执行的所有行。 通常，这些行会缩进，以便你在阅读脚本时更容易地将它们突出显示。
很容易想象将你在这里看到的内容用于制作各种其他小实用程序来转换重量、距离、排版度量等等，事实上我已经做了很多这样的事情。
9 条评论