perl学习札记2--条件分支

最新推荐文章于 2025-04-08 07:34:48 发布

jurisp

最新推荐文章于 2025-04-08 07:34:48 发布

阅读量664

点赞数

文章标签： perl string character

本文链接：https://blog.youkuaiyun.com/jurisp/article/details/1531457

版权

本文介绍了一个Perl脚本，该脚本用于检查从标准输入读取的字符串的长度，并根据不同长度输出相应的信息。如果字符串为空，则输出提示信息；如果字符串长度为1或2，则分别输出特定信息；对于更长的字符串，则输出一般信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    elsif中确实缺一个"e"

     1 #!/usr/bin/perl -w
     2 $a = <STDIN>;
     3 chop $a;
     4 if (!$a)
     5 {
     6    print "The string is empty!";
     7 }
     8 elsif (length($a) == 1)
     9 {
    10    print "The string has one character!/n";
    11 }
    12 elsif (length($a) == 2)
    13 {
    14    print "The string has two characters!/n";
    15 }
    16 else
    17 {
    18    print "the string has many characters!/n";
    19 }