문자열 찾아 봐꾸기!!!

"뒤적거릴 문자열" =~ s/찾을 문자열/바꿀 문자열/옵션;

# subst.pl

$_ = "Where is my baby, Oh Baby !";

if( $count = ( s/baby/lover/ ) )  # $_ =~ s/.... 로 인정됩니다.
  {  print "Replaced $count time(s).\n   \"$_\"\n";  }
else  {  print "Failed.\n";  }

print "Fore : $`\nAft  : $'\n";

일반변수가 있어야 할 자리에 없으면 $_로 계산하고 if문에서는 $_=~ 로 인정이 된다.( 생략 )

뒤의 Baby의 값은 봐뀌지 않는다...

대문자라서? i를 옵션으로 줘도 안된다.

s는 기본적으로 하나의 문자열만 치환하기 때문에 g(gloval)옵션을 부여하여야 된다.

문자의 치환은?

tr///;

tr/a-z/A-Z/ # 각 소문자를 대문자로 치환