php - 如何在 Perl 中设置状态码，就像在 PHP 中一样？

Question

这个 PHP 代码的模拟是什么，在 Perl 中会做同样的事情？

<?php 
if (false !== strpos($_SERVER['REQUEST_URI'], '(foo|bar)')) {
    header('410 Gone');
} 
?>

标签： phpperlhttp-headers

Answer 1

我不是 PHP 用户，但strpos看起来像 Perl 的index，如果它没有找到刺痛，它会返回 -1 （越界位置）。

if( -1 != index $some_string, $substring ) { ... }