[perl] Perl에서 두 문자열을 어떻게 비교합니까?

문자열 비교 연산자의 Sinan Ünür 종합 목록에 추가하여 Perl 5.10은 스마트 일치 연산자를 추가합니다.

스마트 일치 연산자는 유형에 따라 두 항목을 비교합니다. 5.10 동작에 대해서는 아래 차트를 참조하십시오 (5.10.1에서는이 동작이 약간 변경되는 것으로 보입니다).

perldoc perlsyn“스마트 매칭 상세” :

스마트 매치의 행동은 논증의 유형에 따라 다릅니다. 항상 정류 적입니다. 즉와 $a ~~ $b동일하게 동작합니다 $b ~~ $a. 동작은 다음 표에 의해 결정됩니다. 어느 순서로든 적용되는 첫 번째 행이 일치 동작을 결정합니다.

  $ a $ b 일치 유형의 암시 적 일치 코드
  ====== ===== ===================== ==============
  (과부하가 모든 것을 능가합니다)

  코드 [+] 코드 [+] 참조 동등성 $ a == $ b
  모든 코드 [+] 스칼라 하위 진리 $ b −> ($ a)

  해시 해시 해시 키 동일 [정렬 키 % $ a] ~~ [정렬 키 % $ b]
  해시 배열 해시 슬라이스 존재 grep {exists $ a −> {$ _}} @ $ b
  해시 정규식 해시 키 grep grep / $ b /, 키 % $ a
  해시 모든 해시 항목이 존재합니다 $ a −> {$ b}

  배열 배열 배열이 동일 함 [*]
  배열 정규식 배열 grep grep / $ b /, @ $ a
  배열 Num 배열은 숫자 grep을 포함합니다 $ _ == $ b, @ $ a
  배열 모든 배열은 문자열 grep $ _ eq $ b, @ $ a를 포함합니다.

  정의되지 않은 undefined! defined $ a
  모든 정규식 패턴 일치 $ a = ~ / $ b /
  Code () Code () 결과는 $ a −> () eq $ b −> ()와 같습니다.
  모든 Code () 간단한 폐쇄 진실 $ b −> () # $ a 무시
  숫자 numish [!] 숫자 같음 $ a == $ b
  모든 Str 문자열 동등성 $ a eq $ b
  임의의 숫자 숫자 동등성 $ a == $ b

  임의의 문자열 동등성 $ a eq $ b

+-프로토 타입 (있는 경우)이 ""가 아닌 코드 참조 여야합니다.
( ""프로토 타입이있는 서브 시스템은 아래의 'Code ()'항목으로 처리됩니다)
*-즉, 각 요소는 다른 요소의 동일한 색인 요소와 일치합니다.
정렬. 순환 참조가 발견되면 참조로 넘어갑니다.
평등.
! − 실수 또는 숫자처럼 보이는 문자열

“일치 코드”는 물론 실제 매칭 코드를 나타내지 않습니다. 의도 된 의미를 설명하기 위해서입니다. grep과 달리 스마트 매치 연산자는 가능할 때마다 단락됩니다.

오버로드를 통한 사용자 지정 일치 ~~연산자 를 오버로드하여 개체가 일치하는 방식을 변경할 수 있습니다 . 이것은 일반적인 스마트 일치 의미를 능가합니다. 참조하십시오 overload.

답변

print "Matched!\n" if ($str1 eq $str2)

if ( 4 == "4" ) { print "true"; } else { print "false"; }
true

if ( "4" == "4.0" ) { print "true"; } else { print "false"; }
true

print "3"+4
7

if ( "4" eq "4.0" ) { print "true"; } else { print "false"; }
false

if ( "4.0" eq "4.0" ) { print "true"; } else { print "false"; }
true