중급 Perl 제3 장 방과 후 문제
3042 단어 perl
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 . "
";
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
File::Temp를 사용하여 Perl에서 잠금 파일 만들기retrieve 명령은 "perl"이라는 단어에 대한 DuckDuckGo 검색의 HTML을 검색하여 $HOME/duckduckperl.html 에 쓰고 이미 있는 경우 이 파일을 덮어씁니다. print 명령은 $HO...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.