Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!wnoc-sfc-news!news.Hawaii.Edu!omron3!uhog.mit.edu!news.sgi.com!hunter.premier.net!uunet!in1.uu.net!192.244.176.52!news.iij.ad.jp!iijnet!news.nid.co.jp!takahasi
From: TAKAHASHI Masafumi <takahasi@soft.nid.co.jp>
Subject: Re: $year=localtime(time)[5]
In-Reply-To: Your message of "27 Jan 1997 16:49:22 +0900"
X-Nntp-Posting-Host: rio
Content-Type: Text/Plain; charset=iso-2022-jp
Message-ID: <E4nx6H.21M@Maria.nid.co.jp>
Sender: news@Maria.nid.co.jp
X-Dispatcher: impost version 0.96++ (Jan. 13, 1997)
Content-Transfer-Encoding: 7bit
Organization: Nippon Information Development Co.,Ltd. Tokyo, Japan
References: <UENO.97Jan27164822@ajisai.msil.co.jp>
Mime-Version: 1.0
Date: Mon, 27 Jan 1997 10:29:57 GMT
X-Pgp-Fingerprint: D8 AB 4C DD F4 CD 04 1F  E5 88 21 7D E3 23 FB 6D
X-Mailer: Mew version 1.54 on Emacs 19.28.1, Mule 2.3
Lines: 28
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1670
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1670&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

In message <UENO.97Jan27164822@ajisai.msil.co.jp>
  ueno@ajisai.msil.co.jp (Ueno Kouichi) writes:

> perl5.001$B$^$?$O(Bperl4.0$B$G(B
> ueno % perl
> $year= (localtime(time))[5];
> print $year,"\n";
> ^D
> 97
> 
> $B$G!"Ez$,#9#7$H5"$C$F$-$^$9!##1#9#9#7$H$9$kJ}K!$OL5$$$N$G$7$g$&$+!)(B

$B0U30$K;W$&$+$b$7$l$^$;$s$,!"(B

    $year= (localtime(time))[5] + 1900;


$B$"$k$$$O!"(B

    print $year + 1900,"\n";

$B$H$d$k$N$,@52r$G$9!#(Blocaltime $B$O(B tm $B9=B$BN$+$iCM$r(B
$B<h$C$FMh$^$9$N$G!#(B

-- 
$B9b662m;K(B ($B3t(B)$B%(%L%"%$%G%$(B
<takahasi@soft.nid.co.jp>

