Perl/펄] 파일명에서, 확장자 구하는 함수; Get File Extension Only

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

=pod
편의상, <txt> 이런 식으로 출력했지만
함수 자체는
txt
이런 값을 반환합니다.
=cut


  print "<", &getFileExtension("test.txt"), ">\n";
  # 출력 결과: <txt>


  print "<", &getFileExtension("foo.c"), ">\n";
  # 출력 결과: <c>


  print "<", &getFileExtension("APPLE.JPEG"), ">\n";
  # 출력 결과: <JPEG>


  # 공백 들어간 파일명에서
  print "<", &getFileExtension("My Test.doc"), ">\n";
  # 출력 결과: <doc>


  # 점이 2개 있는 파일명에서
  print "<", &getFileExtension("google.ani.gif"), ">\n";
  # 출력 결과: <gif>


  # 공백 있는 확장자명에서
  print "<", &getFileExtension("hmmmm.foo bar"), ">\n";
  # 출력 결과: <foo bar>


  # 확장자가 없는 파일에서
  print "<", &getFileExtension("COOL"), ">\n";
  # 출력 결과: <> (없음; 빈 문자열)


  # 유닉스 히든파일명에서
  print "<", &getFileExtension(".bash_history"), ">\n";
  # 출력 결과: <> (없음; 빈 문자열)




# 확장자 없는 경우에는 $pos 가 -1
# 유닉스 히든파일은 $pos 가 0

sub getFileExtension {
  my $pos = rindex $_[0], ".";
  return "" if $pos < 1;
  substr $_[0], $pos + 1;
}