string - 変数で文字列「%00」を検索するにはどうすればよいですか?

Question

文字列 "&00" を含む (端末呼び出しをリンクする) Perl 変数があります。文字列が大きな文字列に複数回存在する可能性があります。

大きな文字列に小さな文字列が含まれているかどうかを「切り刻む」にはどうすればよいですか? 常に文字列の最後に存在します。

何かのようなもの：

if ($string =~ (m//))

Answer 1

文字列の最後だけをチェックまたは置換したいとすると、

if ($string =~ /\&00$/)

それを検出します。

または、単に交換したい場合は、

$string =~ s/(.*)\&00$/$1/

Answer 2

インデックス関数を使用できます。

use strict;
use warnings;

my $sometext = "my text here contains &00 and some more text";
my $text_to_search = "&00";
print index($sometext, $text_to_search), "\n";

後でsubstrを使用して切り落とすことができます。

my $idx = index($sometext, $text_to_search);
print substr($sometext, 0, $idx); # if it's to the end, you can alter to suit.

Answer 3

最後にある場合にのみ削除したい場合：

if ( substr($string, -3) eq '&00' )