当我运行一个以“＃！/ usr / bin / perl -w”开头的文件时，出现错误：“第153行的语法错误，靠近”=〜？“”

Question

When I run a file which is begin with #!/usr/bin/perl -w , I get a error:

syntax error at line 153, near "=~ ?"

I try to add "#!/bin/bash", this error is not append, but I get another

error: "line 34: syntax error near unexpected token `('"

line 153 in my file:

($output_volume =~ ?^([\S]+).mnc?) && ($base_name = $1) ||
  die "sharpen_volume failed: output volume does not appear to be"
  ." a minc volume.\n";

line34 in my file: use MNI::Startup qw(nocputimes);

Answer 1

$output_volume =~ ?^([\S]+).mnc?

This used to be valid perl and thus might appear in old code and instructional material.

From perlop :

In the past, the leading m in m?PATTERN? was optional, but omitting it would produce a deprecation warning. As of v5.22.0, omitting it produces a syntax error. If you encounter this construct in older code, you can just add m.

Answer 2

That is Perl code so the first error message is meaningful.

With delimiters other than // in the match operator you must have the explicit m for it, so

$output_volume =~ m?^([\S]+).mnc?

It is only with // delimiters that the m may be omitted.

From Regex Quote-Like Operators (in perlop)

If "/" is the delimiter then the initial m is optional.

See perlretut for a tutorial introduction to regex and perlre for reference.

Also note that the particular delimiters of ? trigger specific regex behavior in a special case. This is discussed by the end of the documentation section in perlop linked above.

Answer 3

You already have two answers that explain the problem.

• ? ... ? is no longer valid syntax for a match operator. You need m? ... ? m? ... ? instead.
• Until Perl 5.22, your syntax generated a warning. Now it's a fatal error (which is what you are seeing). So I assume you're now running this on a more recent version of Perl.

There are, however, a few other points it is probably worth making.

1. You say you tried to investigate this by changing the first line of your file from #!/usr/bin/perl -w to #!/bin/bash . I'm not sure how you think this was going to help. This line defines the program that is used to run your code. As you have Perl code, you need to run it with Perl. Trying to run it with bash is very unlikely to be useful.
2. The m? ... ? m? ... ? (or, formerly, ? ... ? ) syntax triggers an obscure and specialised behaviour. It seems to me that this behaviour isn't required in your case, so you can probably change it to the more usual / ... / .
3. Your regex contains an unescaped dot character. Given that you seem to be extracting the basename from a filename that has an extension, it seems likely that this should be escaped (using \\. ) so that it matches an actual dot (rather than any character).
4. If you are using this code to extract a file's basename, then using a regex probably isn't the best approach. Perhaps take a look at File::Basename instead.