중급 Perl 제3 장 방과 후 문제

3. 10. 1. 연습 1 [25 분] 현재 디 렉 터 리 의 파일 목록 을 읽 고 전체 경로 로 변환 합 니 다. 셸 명령 이나 외부 프로그램 으로 현재 디 렉 터 리 를 읽 을 수 없습니다. Perl 의 File: Spec 과 Cwd 두 모듈 은 이 프로그램 에 도움 이 됩 니 다. 각 경로 항목 은 현재 네 개의 빈 칸 을 추가 하고 각 항목 마다 새 줄 을 엽 니 다. 두 번 째 장 에서 연습 한 것 처럼 원래 의 프로그램 을 다시 사용 할 수 있 습 니까?

use Cwd;

use File::Spec;



my $cwd = getcwd ; # 获取当前目录

print map { "    " . File::Spec->catfile($cwd,$_) . "
" } glob("*.* *");

 
3. 10. 2. 연습 2 [35 분] 이 책의 국제 표준 도서 번호 (0596102062) 를 분석 해 보 세 요. CPAN 에 Business: ISBN 모듈 을 설치 하고 이 를 이용 하여 ISBN 숫자 에서 국가 코드 와 발행 자 코드 를 추출 합 니 다.

use Business::ISBN;



my $isbn = Business::ISBN->new( $ARGV[0] );

print "ISBN is " . $isbn->as_string . "
";

#print "Country code: " . $isbn->country_code . "
";

print "Publisher code: " . $isbn->publisher_code . "
";