多年来，我自学了很多编程语言，包括 Perl。我发现的一种学习工具是使用某种语言参考，以避免为了弄清楚起点而不得不阅读手册中好几章的挫败感。
另一个好的学习技巧是找到一个与你想做的事情类似的 Perl 程序，然后通过摆弄它来逐步修改其行为，并在遇到困难时使用你的参考。最终，在对你想做什么有了一些想法，然后将其转化为一组编程指令之后，你就能从头开始了。
几年前，在合作编写 Scribus 手册的过程中，我花了很多时间在 freenode.net 的 Scribus 频道上，与我的德国合作者以及主要居住在欧洲某地的人交谈。你最终会就各种各样的话题进行很多对话，在世界任何地方你都会谈论天气，但当然他们谈论的是摄氏温度，而我体验的是华氏温度。所以我用 Perl 制作了一个小工具来查看 14°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 条评论