Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!nf4.iij.ad.jp!news.iij.ad.jp!nr1.scn.co.jp!sinfony-news!news.kddnet.ad.jp!news.dvlp.kddnet.ad.jp!news.cs.ritsumei.ac.jp!kuis-news!wnoc-kyo-news!wnoc-sfc-news!sfc-keio-news!gaku
From: gaku@sfc.keio.ac.jp (GAKU Hashimoto)
Subject: Re: what is this "q!"?
Message-ID: <1996Sep24.050934.3192@sfc.keio.ac.jp>
Sender: news@sfc.keio.ac.jp
Nntp-Posting-Host: ccn18.sfc.keio.ac.jp
Organization: Keio University Shonan Fujisawa Campus, Fujisawa Japan
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
References: <526e72$mdn@atlas.tokyo.inetc.com>
Date: Tue, 24 Sep 1996 05:09:34 GMT
Lines: 53
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1262
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1262&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.

$B$O$7$b$H$,$/$H?=$7$^$9!#(B

tetsuo@campusnet.or.jp$B$5$s$N(B
<526e72$mdn@atlas.tokyo.inetc.com>$B$N5-;v$h$j!#(B

$B")!!(B    unless (eval q!
$B")!!!]!]!JCfN,!K!]!](B
$B")!!(B    $SIG{'ALRM'} = "IGNORE";
$B")!!(B        !) {
$B")!!(B            return undef; # a error has occoured
$B")!!(B        }
$B")!!(B    close(FS);
$B")!!(B    $page;

$B")!!(B
$B")!!$3$l$O!"%?%$%`%"%&%H5!G=$r;}$C$?!"G$0U$N#h#t#m#l%U%!%$%k$rFI$_=P$9(B
$B")!!%9%/%j%W%H$J$N$G$9$,!"#69TL\!"(B
$B")!!(B>    unless (eval q!

$B$3$C$A$NJ}$O!"$i$/$@$NK\$N(B91,2$B%Z!<%8$/$i$$$K$"$j$^$9$,!"(B
$B:G8e$NJ}$N(B 

!) {

$B$H%Z%"$K$J$C$F$$$F!"J8;zNs$N%G%j%_%?$K$J$C$F$$$k$N$@$H;W$$$^$9!#(B
$BK\$K$O!V0lHL2=$5$l$?%7%s%0%k%/%)!<%H!W$H=q$$$F$"$j$^$9$,!"(B
$B$o$+$j$d$9$/=q$/$H!"(B

unless (eval q!....!){    # $B"+(B unless (eval '....'){  $B$HF1$8(B
    return undef; # a error has occoured
}

$B$H$J$j!"(Beval$B$NJV$jCM$N%A%'%C%/$r$7$F$$$F!"(B
$B$b$7(Beval$BFbIt$G%(%i!<$,5/$3$k$H(Bundef$B$rJV$9$h$&$K(B
$B$7$F$k$s$@$H;W$$$^$9!#(B

$B$G!"(Breturn$B$,$"$k$H$$$&$3$H$O!"(B
$B%5%V%k!<%A%s$NFbIt$J$N$@$H;W$o$l$^$9$,!"(B
$B$=$&$@$H$9$k$H!"(B

$B")!!:G8e$N9T(B
$B")!!(B>    $page;

$B$3$N%5%V%k!<%A%s$NJV$jCM$r!"(B$page
$B$H$7$F$$$k$N$G$7$g$&!#(B

return $page;

$B$HF1$8$G$9!#(B($B$i$/$@K\(B234$B%Z!<%8;2>H(B)

$B$G$O$G$O!#(B

---$B66K\(B $B3Y(B($B$O$7$b$H(B $B$,$/(B): gaku@mag.keio.ac.jp
