どうでもいい、じじぃの日記。
テレビを見ていたら、ある番組で今年は今日で終わりです。又来年お会いしましょう。なんてやってた。
いくら何でも12月の第2週に入ったばかりで又来年お会いしましょうは早いんじゃないのと思いながら見ていると
他の番組もこの1年間やっていたまとめの特集をやってたりしている。
12月に入り、それなりに寒い。東北などでは雪が降っているようだ。
石油ストーブをつけて、コタツでじじぃとばばぁはミカンを食べながら丸くなっています。
この2年ほど風邪をひいていない。
風邪の予防にと散歩を1時間ほど。
又、風邪の予防にビタミンＣがいいということでインターネットで調べてみた。
一番ビタミンＣを多く含むものは？
ピーマン、キウイ、ミカン、トマト、ブロッコリー、カリフラワー、キャベツ、ほうれん草、レモン、柿、いちごなど。
ミカンは実と皮とどっちが体に効くかと言えば、皮らしい。
昔はミカンを皮ごと食べる習慣があったとのこと。ミキサーなんかで混ぜると食べやすくなるかもしれない。
キウイフルーツは１個で大体ミカン2個分のビタミンＣがあるそうだ。
キウイフルーツはマタタビ科・マタタビ属の植物で、原産地は中国の揚子江流域らしい。
もとは「チャイニーズ・グーズベリー」と呼ばれていて、中国では古くからその存在が知られていたとのこと。
原産地はニュージーランドと思っていた。
話変わって
perlとrubyとjavaの比較のためディレクトリサーチ・ファイル一覧を表示するプログラムを作ってみた。
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
・perlの場合 （dirsearch.pl）
# perl dirsearch.pl
my $dirname = "perl_ruby";
if (-d $dirname){
# **は再帰的検索。\0は複数パターンの区切り。.*は隠しファイル取得
my @files = glob("$dirname/**/*\0$dirname/**/.*");
foreach my $file (@files) {
print "$file\n";
}
}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
・rubyの場合 （dirsearch.rb）
# ruby dirsearch.rb
class Obaka
def dirsearch(dirname)
if FileTest.directory?(dirname)
Dir.glob("#{dirname}/**/*\0#{dirname}/**/.*").each{|name|
p "#{name}"
}
end
end
end
h = Obaka.new
h.dirsearch("perl_ruby")
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
・javaの場合 （dirsearch.java）
// javac dirsearch.java
import java.io.File;
class dirsearch{
public static void main(String argv){
String path = "perl_ruby";
File directory = new File(path);
String directory_list = directory.list();
for (int i = 0; i < directory_list.length; i++){
String wpath = directory_list[i];
File dir = new File(path+"/"+wpath);
File[] files = dir.listFiles();
for (int j = 0; j < files.length; j++){
File file = files[j];
System.out.println(file);
}
}
}
}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
実行結果（javaの場合）
C:\Test>java dirsearch
perl_ruby\filelist\filelist.c
perl_ruby\filelist\filelist.java
perl_ruby\filelist\filelist.pl
perl_ruby\filelist\filelist.rb
perl_ruby\obaka\obakajiji.c
perl_ruby\obaka\obakajiji.java
perl_ruby\obaka\obakajiji.pl
perl_ruby\obaka\obakajiji.rb
