プログラミング学習の記録 592.2 11章(Perlモジュール)の練習問題1 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の11章(Perlモジュール), 11.4(練習問題)、1を解いてみる。

 

1.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

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

use Module::CoreList;

my %modules
    =%{$Module::CoreList::version{5.008}};

my $result=join "\n",keys %modules;

print $result,"\n";

入出力結果(Ternimal)

$ ./my_program Config Locale::Country ExtUtils::MM_MacOS ExtUtils::Embed Text::Tabs File::Path ExtUtils::Mksymlists Memoize::Expire ExtUtils::MakeMaker PerlIO::encoding Text::ParseWords SDBM_File IPC::Open2 File::stat ExtUtils::MM_Any bytes B::Deparse autouse Shell Math::Complex FileHandle File::DosGlob ExtUtils::MM_VMS IO::Poll vmsish threads::shared File::Spec::Functions Socket File::Glob Tie::File Net::FTP::A Devel::SelfStubber utf8 Thread::Specific Encode::Symbol B::Debug File::Spec::Cygwin VMS::Filespec I18N::LangTags::List IO::Pipe ExtUtils::Constant CGI::Util IO::Socket::UNIX List::Util ExtUtils::Command File::Spec::VMS Opcode ExtUtils::MM_UWIN PerlIO::via::QuotedPrint File::CheckTree File::Copy Term::ANSIColor Encode::EBCDIC ByteLoader re MIME::QuotedPrint Net::Netrc B Test::More B::Concise PerlIO Thread::Queue ExtUtils::MM_BeOS Encode::Encoder IO::Dir CGI::Cookie UNIVERSAL Fcntl Test::Simple B::Disassembler ExtUtils::MM_Cygwin B::Bytecode B::Asmdata Fatal IPC::Msg B::Terse Hash::Util CPAN blib Net::netent Encode Net::FTP::I base ODBM_File Net::FTP Memoize::SDBM_File charnames Pod::Man Dumpvalue Net::POP3 Math::BigRat JPL::AutoLoader B::Xref ExtUtils::testlib bigint Unicode Encode::Encoding VMS::Stdio Tie::RefHash GDBM_File OS2::Process Sys::Syslog Unicode::Normalize ExtUtils::MM_DOS Filter::Util::Call Text::Wrap ExtUtils::MM_OS2 Text::Abbrev Pod::Parser Encode::KR Exporter SelectSaver Time::gmtime AutoLoader CGI::Fast B::Stackobj Pod::Text::Color Time::tm B::Stash Net::NNTP Devel::DProf locale CGI IO Time::Local Encode::KR::2022_KR ExtUtils::Manifest Getopt::Long Pod::ParseLink attrs B::CC overload Tie::Handle Memoize::ExpireFile Pod::LaTeX Text::Soundex PerlIO::via diagnostics Net::FTP::E IO::Select SelfLoader Locale::Maketext Encode::CJKConstants I18N::Collate CPAN::FirstTime File::Spec Locale::Constants File::Compare ExtUtils::Installed User::grent Pod::Html VMS::DCLsym lib Encode::CN::HZ ExtUtils::Packlist Thread Unicode::Collate Time::HiRes Net::protoent Net::Config IPC::Semaphore IPC::SysV Encode::JP::JIS7 Encode::Alias Memoize::AnyDBM_File Sys::Hostname Pod::Text::Overstrike IO::Socket::INET Storable Symbol Term::Cap if Encode::Byte JPL::Compile less Math::BigInt DynaLoader B::Lint Pod::Find warnings English Net::FTP::dataconn Pod::InputObjects vars Tie::Hash Tie::Scalar open Math::BigFloat::Trace B::Assembler Math::BigInt::Calc File::Spec::Mac XSLoader Filter::Simple JNI IO::Handle Math::Trig Tie::Array I18N::Langinfo Test::Harness ExtUtils::MM_Win95 Attribute::Handlers Memoize::NDBM_File Carp sort Search::Dict Net::servent ExtUtils::Liblist fields B::Bblock Class::Struct Encode::Guess IO::Seekable Tie::Memoize ops B::Showlex subs Test::Builder Pod::Plainer ExtUtils::MM_NW5 Test::Harness::Straps CGI::Carp DB Getopt::Std Data::Dumper Env ExtUtils::MM_Win32 Term::ReadLine Encode::CN OS2::REXX Encode::Unicode sigtrap Scalar::Util Locale::Language Benchmark FindBin Net::hostent Net::Cmd Encode::Config ExtUtils::MY CGI::Switch Encode::JP::H2Z ExtUtils::XSSymSet Digest FileCache bigrat Math::BigFloat Pod::Select Test::Harness::Iterator Encode::JP Pod::Checker Pod::Text::Termcap Net::Time warnings::register Test::Harness::Assert Class::ISA Cwd ExtUtils::Mkbootstrap File::Spec::Win32 Pod::Usage Pod::Text Memoize::ExpireTest ExtUtils::Install Pod::ParseUtils IPC::Open3 OS2::ExtAttr I18N::LangTags Safe encoding IO::File Switch Net::Ping strict Math::BigInt::Trace PerlIO::scalar Net::FTP::L Encode::MIME::Header attributes Thread::Semaphore NEXT Tie::SubstrHash CGI::Apache File::Find bignum ExtUtils::Liblist::Kid Test Exporter::Heavy NDBM_File OS2::DLL constant Net::SMTP MIME::Base64 File::Basename Devel::Peek Carp::Heavy CGI::Pretty File::Spec::Unix integer ExtUtils::MM Time::localtime Locale::Currency DirHandle Pod::Functions OS2::PrfDB CPAN::Nox ExtUtils::MM_Unix File::Spec::Epoc Devel::PPPort DB_File XS::Typemap File::Spec::OS2 IO::Socket ExtUtils::Command::MM File::Temp JPL::Class Locale::Script B::C Memoize Thread::Signal Term::Complete POSIX Digest::MD5 CGI::Push Text::Balanced User::pwent Net::Domain O Memoize::Storable filetest Unicode::UCD Encode::TW threads XS::APItest AnyDBM_File AutoSplit

ファイルの用意が必要な場合はO'Reilly Japan - 初めてのPerl 第5版の関連ファイルのプログラム例に含まれているものを使用しています。