前回の記事に trackback いただいてました。 kt’s diary - perl 講座を勝手に聴講 の続き その2http://d.hatena.ne.jp/kt_kyoto/20051101/1130872118 #ところで次のお題「localtimeがくる場所は？」というのがいまいちピンときてなったりしてます。。 のとこ…

次は「これで完成」として最後に書いたやつです。 (http://d.hatena.ne.jp/kt_kyoto/20051031/1130698524) #!/usr/bin/perl use strict; use warnings; my ($sec, $min, $hour, $mday, $mon, $year) = localtime(); print sprintf("%d/%02d/%02d\n", $year+1…

昨日のエントリーにコメントいただきました。多謝。 お題をいただいたりしてるんですが、その前に基本的なところから。。 まず最初のやつ。(http://d.hatena.ne.jp/kt_kyoto/20051031/1130693074) #!/usr/bin/perl use strict; use warnings;my ($sec,$min,$…

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

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