代码之家 › 专栏 › 技术社区 › David Tonhofer

Perl的“Switch”抓住了HERE文档中的一个“case”字符串,然后弄糊涂了?

perl

David Tonhofer · 技术社区 · 6 年前

我有一些Perl代码,还有一个HERE文档。在HERE文档的文本中,嵌入了关键字案例 . 这似乎使整个国家感到不安 Switch

#!/usr/bin/perl

use strict;
use warnings;
use utf8;  # Meaning "This lexical scope (i.e. file) contains utf8"

use Switch;

sub printUsage {
   print STDERR << "HERE";

                       +
  --rollback           | - In case of "--reallydo", perform a ROLLBACK instead of a COMMIT at
                       |   transaction end.
                       + 
HERE
}

在Perl 5.16中运行此命令可以得到:

Bad case statement (invalid case value?) near avo2.pl line 13

即 In case of Perl bug tracker ?

1 回复 | 直到 6 年前

JGNI 6 年前

不要 use Switch 如果您可以避免它,它是一个源代码过滤器,您已经发现了一个潜伏在它的深处的bug。given()/when()会更好,但这有问题,现在被标记为实验性的。如果你想要一个案例陈述的等价物,试试看

for ($test_this) {
    if ( ! /\D/ ) {
        say 'is numbers';
        last;
    }
    if ( $_ eq 'exit' ) {
        say 'exit found';
        last;
    }
    if (/^\p{Lu}/) {
        say 'Upper case letter';
        last;
    }
    # Default option
    say 'Default';
    last;
}

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前