perl 에서 특정 문자 갯수 세기

Mar 03

$string 에서 * 의 갯수 세기

$cnt = $string =~ tr/*/*/;

$string 에서 숫자의 갯수 세기

$cnt = $string =~ tr/0-9//;

문자의 숫자를 세는 것 외에 단어 갯수를 세거나 배열을 해당 문자로 구분된 문자열로 만들었을 경우 차후에 문자열을 다시 배열로 만들지 않고도 그 배열의 갯수를 알고자 할 때 사용할 수 있다.

주의 : 원 문자열을 수정해버리기 때문에 숫자의 갯수 세기처럼 사용을 할 경우에는 $string 에 숫자가 모두 삭제되어버린다.

$string = "perl tr counter";
$cnt = $string =~ tr/ / /;
printf "\$string 에는 %d 개의 단어가 포함되어 있습니다", $cnt + 1;

동방불패
Mar 03, 2006 @ 17:03:51

문자수 세기전에 형태소 분석하시면 폴리스 폴~(^^)이 됩니다.
와~ 올블이 닷넷1.1이군요.
제가 바보다 보니, 확장자가 없어서 깜쪽같이 속았다는…ㅠㅜ
아니면 IIS에 PHP??
암튼 새로운 시도들 화이팅입니다!
하늘이
Mar 04, 2006 @ 12:00:44

동방불패님, 저희는 웹 서비스는 닷넷으로 되어 있고, 내부는 perl 로 되어있어요~ 물론 서버도 윈도우와 리눅스로 나눠서 쓰고 있고요. 헤헷~
동방불패
Mar 04, 2006 @ 14:33:25

와~ 올블 사장님이시군요~
골빈님 같은 좋은 분이 옆에 있으니, 항상 든든하시겠어요!
모두 모두 잘됬으면 좋겠어요~ 화링!

Hacker Who