正则表达式&Perl入门

最新推荐文章于 2024-07-25 16:39:13 发布

天下江南

最新推荐文章于 2024-07-25 16:39:13 发布

阅读量521

点赞数

分类专栏：脚本语言文章标签：正则表达式 Perl

本文链接：https://blog.csdn.net/searchnlp/article/details/9799651

版权

脚本语言专栏收录该内容

2 篇文章 0 订阅

订阅专栏

linux下安装perl

curl -L http://xrl.us/installperlnix | bash

一个简单的摄氏温度与华氏温度的perl转换脚本 sample

$celsius = 30;
$fahrenheit = ($celsius * 9 / 5) + 32;
print "$celsius C is $fahrenheit F.\n";

使用 perl -w sample执行，获得结果

30 C is 86 F.

Perl也提供了跟其他流行语言类似的控制结构

$celsius = 20;
while($celsius<=45)
{
        $fahrenheit = ($celsius * 9 / 5) + 32;
        print "$celsius C is $fahrenheit F.\n";
        $celsius = $celsius + 5;
}

Perl可以以多种方式使用正则表达式，最简单的就是检查变量中的文本能否由某个正则表达式匹配，如判断$reply是否全部由数字构成：

reply = 123;
if( $reply =~ m/^[0-9]+$/){
        print "only digits\n";
}else{
        print "not only digits\n";
}

其中 =~ 读作匹配， m/ /表示的要匹配的正则表达式

print "Enter a temperature in Celsius:\n";
$celsius = <STDIN>;#从用户处接受一个输入
chomp($celsius);#去掉$celsius后面的换行符

if( $celsius =~ m/^[0-9]+$/){
        $fahrenheit = ($celsius * 9 / 5) +32;
        print "$celsius C is $fahrenheit F\n";
}else{
        print "Expecting a number, so I don't understand \"$celsius\"\n";#使用到了转移字符"\"
}