開発環境
- OS X Lion - Apple(OS)
- BBEdit - Bare Bones Software, Inc.(Text Editor)
- Script言語:Perl
その他参考書籍
1.
コード(BBEdit)
sample.pl
#!/usr/bin/env perl use strict; use warnings; use utf8; use 5.016; binmode STDOUT, ':utf8'; binmode STDIN, ':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/date.txt /Users/kamimura/Documents/perl/fred /Users/kamimura/Documents/perl/gilligan.info /Users/kamimura/Documents/perl/ginger.info /Users/kamimura/Documents/perl/hello_world.pl /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/ls.err /Users/kamimura/Documents/perl/ls.out /Users/kamimura/Documents/perl/maryann.info /Users/kamimura/Documents/perl/monkeyman.info /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/result /Users/kamimura/Documents/perl/sample /Users/kamimura/Documents/perl/sample.pl /Users/kamimura/Documents/perl/sample.pl.bak /Users/kamimura/Documents/perl/sample.py /Users/kamimura/Documents/perl/sample_folder /Users/kamimura/Documents/perl/sample_text /Users/kamimura/Documents/perl/skipper.info /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.txt /Users/kamimura/Documents/perl/test_folder /Users/kamimura/Documents/perl/test_link /Users/kamimura/Documents/perl/thurston.info /Users/kamimura/Documents/perl/tmp.txt /Users/kamimura/Documents/perl/tmp_folder /Users/kamimura/Documents/perl/total_bytes.dat /Users/kamimura/Documents/perl/untitled text 2.txt $
pythonの場合。
sample.py
コード(BBEdit)
#!/usr/bin/env python3.3 #-*- coding: utf-8 -*- import glob, os cwd = os.getcwd() sep = os.sep files = map(lambda x: " {0}".format(os.path.join(cwd, x)), glob.glob("*")) for file_name in files: print(file_name)
入出力結果(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/date.txt /Users/kamimura/Documents/perl/fred /Users/kamimura/Documents/perl/gilligan.info /Users/kamimura/Documents/perl/ginger.info /Users/kamimura/Documents/perl/hello_world.pl /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/ls.err /Users/kamimura/Documents/perl/ls.out /Users/kamimura/Documents/perl/maryann.info /Users/kamimura/Documents/perl/monkeyman.info /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/result /Users/kamimura/Documents/perl/sample /Users/kamimura/Documents/perl/sample.pl /Users/kamimura/Documents/perl/sample.pl.bak /Users/kamimura/Documents/perl/sample.py /Users/kamimura/Documents/perl/sample_folder /Users/kamimura/Documents/perl/sample_text /Users/kamimura/Documents/perl/skipper.info /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.txt /Users/kamimura/Documents/perl/test_folder /Users/kamimura/Documents/perl/test_link /Users/kamimura/Documents/perl/thurston.info /Users/kamimura/Documents/perl/tmp.txt /Users/kamimura/Documents/perl/tmp_folder /Users/kamimura/Documents/perl/total_bytes.dat /Users/kamimura/Documents/perl/untitled text 2.txt $
0 コメント:
コメントを投稿