短さをとことん追求。 use strict; も use warnings; もとっぱらってなんと 2 行。 #!/usr/bin/perl print exec '/bin/date +"%Y/%m/%d"'; > perl date.pl 2005/10/31ごめんなさいごめんなさい。 ...でもこれでもちゃんと 「スクリプトを実行することで、現…

【 ほでなすPHP 】 関数ミニリファレンス -> 日付・時刻関数http://www.shigeweb.jp/php/project_p/?section=miniref&page=date#format PHP にはそのものずばり date() という関数があるみたいです。 $date = date('Y/m/d'); echo $date; ?>これだけで 2005/…

GABA

パン パスタサラダ

いろづきはじめた。

あんドーナツ からあげクン ゆず緑茶

uname -prs && perl -v の結果 FreeBSD 5.4-RELEASE-p2 i386This is perl, v5.8.7 built for i386-freebsd-64int (以下略) 我が家と言ってもホストは大学にあったりして。

そもそもお題が 「スクリプトを実行することで、現在の日付を返すスクリプト」 だったので、純粋に「現在の日付」だけ返すようにして完成。 #!/usr/bin/perl use strict; use warnings; my ($sec, $min, $hour, $mday, $mon, $year) = localtime(); print sp…

#!/usr/bin/perl use strict; use warnings; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=localtime(); print sprintf("%d/%02d/%02d %s %02d:%02d:%02d\n", $year+1900,$mon+1,$mday,sprintf("%s",("Sun","Mon","Tue","Wed","Thu","Fri","Sat")[$wd…

ココとPerlで遊びませんか(年月日や曜日・時刻の取得)http://cocohome.hp.infoseek.co.jp/cocohome/l_yymmdd.html を参考に。 #!/usr/bin/perl use strict; use warnings;my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); my $jpwd…

やってみました。 sprintf 関数リファレンス -Perl講座 [SMART!]http://www.rfs.jp/sitebuilder/perl/05/func/sprintf.html #!/usr/bin/perl use strict; use warnings;my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); my $jp…

perl はほとんど使ったことがありません。というかプログラミングしません。いや、これからするのです。 既にあるスクリプトとかプログラムをいじったりするのはよくやるんですけど、いちから書いたことはありません。 というわけで勝手に講座聴講開始。 た…