펄/Perl] 문자열 비교, eq, ne / 정규식 비교 - Compare Strings / regex

#!/usr/bin/perl
use strict; use warnings;

########################################################################
## eq 로 문자열 비교
########################################################################
  my $foo = "똠방";

  if ($foo eq "똠방") {
    print "똠방: 같은 문자열이군요!\n";
  } else {
    print "똠방: 다른 문자열이군요!\n";
  }
  # 숫자가 아닌, 문자열은 == 이런 등호 2개로 비교할 수 없습니다.
  # 반드시 eq 를 사용해야 합니다.
  # 결과: 똠방: 같은 문자열이군요!



  if ("foo" =~ /FOO/i) { print "foo와 FOO는 같은 문자열이군요!\n"; }
  # 대소문자 구분없이 비교
  # 결과: foo와 FOO는 같은 문자열이군요!
  # 정규식에 i 옵션을 붙이면 대소문자 구분없이 비교


  if ($foo ne "하하하") { print "하하하: 다른 문자열이군요!\n"; }
  # ne 는, 정반대로, 다른 문자열이라면 참(true)이 됩니다.
  # 결과: 하하하: 다른 문자열이군요!



########################################################################
## 정규식으로 문자열 비교
########################################################################
  my $bar = "각하";

  if ($bar =~ /^각하$/) {
    print "(정규식으로) 같은 문자열이군요!\n";
  } else {
    print "(정규식으로) 다른 문자열이군요!\n";
  }
  # 위의 if문은 ^각하$ 라는 정규식을, 변수인 $bar 의 내용과 비교합니다.
  # 결과: (정규식으로) 같은 문자열이군요!