Perl, Python - モジュールの使い方(File::Spec, Cwd)

続・初めてのPerl 改訂版
Randal L. Schwartz
brian d foy, Tom Phoenix 著

開発環境

OS X Lion - Apple(OS)
BBEdit - Bare Bones Software, Inc., Emacs(Text Editor)
プログラミング言語: Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤直也、田中慎司、吉川英興監訳、株式会社ロングテール/長尾高弘訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9)の3章(モジュールの使い方)の3.10(練習問題)1を解いてみる。

その他参考書籍

コード(BBEdit)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use 5.016;
use utf8;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';
binmode STDERR, ':utf8';
use File::Spec;
use Cwd;

my $dir = getcwd;

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

入出力結果(Terminal)

$ ./sample.pl
    /Users/kamimura/Documents/perl/.
    /Users/kamimura/Documents/perl/..
    /Users/kamimura/Documents/perl/.DS_Store
    /Users/kamimura/Documents/perl/.out
    /Users/kamimura/Documents/perl/__pycache__
    /Users/kamimura/Documents/perl/barney
    /Users/kamimura/Documents/perl/betty
    /Users/kamimura/Documents/perl/coconet.dat
    /Users/kamimura/Documents/perl/coconet_total.dat
    /Users/kamimura/Documents/perl/coconet_total_2.dat
    /Users/kamimura/Documents/perl/date.log
    /Users/kamimura/Documents/perl/date.txt
    /Users/kamimura/Documents/perl/distribute-0.6.34.tar.gz
    /Users/kamimura/Documents/perl/fred
    /Users/kamimura/Documents/perl/gilligan.info
    /Users/kamimura/Documents/perl/Gilligan:
    /Users/kamimura/Documents/perl/ginger.info
    /Users/kamimura/Documents/perl/Ginger:
    /Users/kamimura/Documents/perl/hello_world.pl
    /Users/kamimura/Documents/perl/html
    /Users/kamimura/Documents/perl/link_test
    /Users/kamimura/Documents/perl/ln.txt
    /Users/kamimura/Documents/perl/ln1.txt
    /Users/kamimura/Documents/perl/log
    /Users/kamimura/Documents/perl/log_file.txt
    /Users/kamimura/Documents/perl/lovey.info
    /Users/kamimura/Documents/perl/Lovey:
    /Users/kamimura/Documents/perl/ls.out
    /Users/kamimura/Documents/perl/maryann.info
    /Users/kamimura/Documents/perl/MaryAnn:
    /Users/kamimura/Documents/perl/monkeyman.info
    /Users/kamimura/Documents/perl/MonkeyMan:
    /Users/kamimura/Documents/perl/numbers
    /Users/kamimura/Documents/perl/Oogaboogoo
    /Users/kamimura/Documents/perl/perl_kamimura_blog
    /Users/kamimura/Documents/perl/perl_kamimura_blog.html
    /Users/kamimura/Documents/perl/perl_program1
    /Users/kamimura/Documents/perl/professor.info
    /Users/kamimura/Documents/perl/Professor:
    /Users/kamimura/Documents/perl/result
    /Users/kamimura/Documents/perl/sample
    /Users/kamimura/Documents/perl/sample.pl
    /Users/kamimura/Documents/perl/sample.py
    /Users/kamimura/Documents/perl/sample.txt
    /Users/kamimura/Documents/perl/sample_folder
    /Users/kamimura/Documents/perl/sample_text
    /Users/kamimura/Documents/perl/skipper.info
    /Users/kamimura/Documents/perl/Skipper:
    /Users/kamimura/Documents/perl/some_file
    /Users/kamimura/Documents/perl/some_folder
    /Users/kamimura/Documents/perl/sortable_hash
    /Users/kamimura/Documents/perl/standings.db
    /Users/kamimura/Documents/perl/test.out
    /Users/kamimura/Documents/perl/test.py
    /Users/kamimura/Documents/perl/test.txt
    /Users/kamimura/Documents/perl/test.txt.out
    /Users/kamimura/Documents/perl/test_folder
    /Users/kamimura/Documents/perl/test_link
    /Users/kamimura/Documents/perl/thurston.info
    /Users/kamimura/Documents/perl/Thurston:
    /Users/kamimura/Documents/perl/tmp.txt
    /Users/kamimura/Documents/perl/tmp1.txt
    /Users/kamimura/Documents/perl/tmp2.txt
    /Users/kamimura/Documents/perl/total_bytes.dat
    /Users/kamimura/Documents/perl/untitled text 2.txt

ちなみにpython3.3の場合。

コード(BBEdit)

sample.py

#!/usr/bin/env python3.3
## Copyright (C) 2013 by kamimura
#-*- coding: utf-8 -*-

import os
import glob

dir = os.path.abspath(os.path.curdir)

print("\n".join(list(map(lambda x: '    {0}{1}{2}'.format(
                                       dir, os.path.sep, x),
                         glob.glob('*')))))

入出力結果(Terminal)

$ ./sample.py
    /Users/kamimura/Documents/perl/__pycache__
    /Users/kamimura/Documents/perl/barney
    /Users/kamimura/Documents/perl/betty
    /Users/kamimura/Documents/perl/coconet.dat
    /Users/kamimura/Documents/perl/coconet_total.dat
    /Users/kamimura/Documents/perl/coconet_total_2.dat
    /Users/kamimura/Documents/perl/date.log
    /Users/kamimura/Documents/perl/date.txt
    /Users/kamimura/Documents/perl/distribute-0.6.34.tar.gz
    /Users/kamimura/Documents/perl/fred
    /Users/kamimura/Documents/perl/gilligan.info
    /Users/kamimura/Documents/perl/Gilligan:
    /Users/kamimura/Documents/perl/ginger.info
    /Users/kamimura/Documents/perl/Ginger:
    /Users/kamimura/Documents/perl/hello_world.pl
    /Users/kamimura/Documents/perl/html
    /Users/kamimura/Documents/perl/link_test
    /Users/kamimura/Documents/perl/ln.txt
    /Users/kamimura/Documents/perl/ln1.txt
    /Users/kamimura/Documents/perl/log
    /Users/kamimura/Documents/perl/log_file.txt
    /Users/kamimura/Documents/perl/lovey.info
    /Users/kamimura/Documents/perl/Lovey:
    /Users/kamimura/Documents/perl/ls.out
    /Users/kamimura/Documents/perl/maryann.info
    /Users/kamimura/Documents/perl/MaryAnn:
    /Users/kamimura/Documents/perl/monkeyman.info
    /Users/kamimura/Documents/perl/MonkeyMan:
    /Users/kamimura/Documents/perl/numbers
    /Users/kamimura/Documents/perl/Oogaboogoo
    /Users/kamimura/Documents/perl/perl_kamimura_blog
    /Users/kamimura/Documents/perl/perl_kamimura_blog.html
    /Users/kamimura/Documents/perl/perl_program1
    /Users/kamimura/Documents/perl/professor.info
    /Users/kamimura/Documents/perl/Professor:
    /Users/kamimura/Documents/perl/result
    /Users/kamimura/Documents/perl/sample
    /Users/kamimura/Documents/perl/sample.pl
    /Users/kamimura/Documents/perl/sample.py
    /Users/kamimura/Documents/perl/sample.txt
    /Users/kamimura/Documents/perl/sample_folder
    /Users/kamimura/Documents/perl/sample_text
    /Users/kamimura/Documents/perl/skipper.info
    /Users/kamimura/Documents/perl/Skipper:
    /Users/kamimura/Documents/perl/some_file
    /Users/kamimura/Documents/perl/some_folder
    /Users/kamimura/Documents/perl/sortable_hash
    /Users/kamimura/Documents/perl/standings.db
    /Users/kamimura/Documents/perl/test.out
    /Users/kamimura/Documents/perl/test.py
    /Users/kamimura/Documents/perl/test.txt
    /Users/kamimura/Documents/perl/test.txt.out
    /Users/kamimura/Documents/perl/test_folder
    /Users/kamimura/Documents/perl/test_link
    /Users/kamimura/Documents/perl/thurston.info
    /Users/kamimura/Documents/perl/Thurston:
    /Users/kamimura/Documents/perl/tmp.txt
    /Users/kamimura/Documents/perl/tmp1.txt
    /Users/kamimura/Documents/perl/tmp2.txt
    /Users/kamimura/Documents/perl/total_bytes.dat
    /Users/kamimura/Documents/perl/untitled text 2.txt
$

Kamimura's blog

ほしい物リスト

2013年9月5日木曜日

Perl, Python - モジュールの使い方(File::Spec, Cwd)

0 コメント:

コメントを投稿