2019年6月18日火曜日

開発環境

初めてのPerl 第7版 (Randal L. Schwartz(著)brian d foy(著)Tom Phoenix(著)近藤 嘉雪(翻訳)嶋田 健志(翻訳)オライリージャパン)の11章(Perlモジュール)、11.4(練習問題)1の解答を求めてみる。

コード

#!/usr/bin/env perl
## Copyright (C) 2019 by kamimura
use strict;
use warnings;
use utf8;
use autodie;
use v5.18;
# Wide character in print at ... line ...が出力されないようにに指定
# 付録C(Unicode入門)、C.4(ファンシーな文字)、C.4.2(さらにファンシーな文字)より
# WindowsとmacOSのどちらでも標準入力、標準出力、標準エラーについてちゃんと動くように設定
use Encode::Locale;
binmode STDIN, ':encoding(console_in)';
binmode STDOUT, ':encoding(console_out)';
binmode STDERR, ':encoding(console_out)';

use Module::CoreList;

say '1.';



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


for (sort keys  %modules) {
    last if $_ gt 'D';
    say $_;    
}

入出力結果(Bash、cmd.exe(コマンドプロンプト)、Terminal)

$ ./sample1.pl
1.
Amiga::ARexx
Amiga::Exec
AnyDBM_File
App::Cpan
App::Prove
App::Prove::State
App::Prove::State::Result
App::Prove::State::Result::Test
Archive::Tar
Archive::Tar::Constant
Archive::Tar::File
Attribute::Handlers
AutoLoader
AutoSplit
B
B::Concise
B::Debug
B::Deparse
B::Op_private
B::Showlex
B::Terse
B::Xref
Benchmark
CPAN
CPAN::Author
CPAN::Bundle
CPAN::CacheMgr
CPAN::Complete
CPAN::Debug
CPAN::DeferredCode
CPAN::Distribution
CPAN::Distroprefs
CPAN::Distrostatus
CPAN::Exception::RecursiveDependency
CPAN::Exception::blocked_urllist
CPAN::Exception::yaml_not_installed
CPAN::Exception::yaml_process_error
CPAN::FTP
CPAN::FTP::netrc
CPAN::FirstTime
CPAN::HTTP::Client
CPAN::HTTP::Credentials
CPAN::HandleConfig
CPAN::Index
CPAN::InfoObj
CPAN::Kwalify
CPAN::LWP::UserAgent
CPAN::Meta
CPAN::Meta::Converter
CPAN::Meta::Feature
CPAN::Meta::History
CPAN::Meta::Merge
CPAN::Meta::Prereqs
CPAN::Meta::Requirements
CPAN::Meta::Spec
CPAN::Meta::Validator
CPAN::Meta::YAML
CPAN::Mirrors
CPAN::Module
CPAN::Nox
CPAN::Plugin
CPAN::Plugin::Specfile
CPAN::Prompt
CPAN::Queue
CPAN::Shell
CPAN::Tarzip
CPAN::URL
CPAN::Version
Carp
Carp::Heavy
Class::Struct
Compress::Raw::Bzip2
Compress::Raw::Zlib
Compress::Zlib
Config
Config::Extensions
Config::Perl::V
Cwd
$ 

0 コメント:

コメントを投稿