まにゅださ 今日のひとこと

_ じぇ

JRの禁煙タイムわ「お願い」なので強制わできねぇんだと Σ(゜д`*;)アッ,　アハァ? 放置してないでお願いして回れよ (　゜Д゜)ドルァ!!

_ でぃ

#!/usr/bin/perl
opendir(INDIR, ".") || die $!;
@files = readdir(INDIR);
closedir(INDIR);
foreach $file (@files){
    if ($file =~ /^\.{1,2}$/) {
	next;
    } else {
	print "$file\n";
    }
}