Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!csdnews.sm.sony!atg2gw!atggw!cpggw!cpgvgw!ymatsu
From: ymatsu@vid.cpg.sony.co.jp (Yutaka Matsumoto)
Subject: Please tell me how to use print in sub.
Message-ID: <1996Nov19.053408.11575@vid.cpg.sony.co.jp>
Lines: 28
Sender: news@vid.cpg.sony.co.jp (Usenet News System)
Nntp-Posting-Host: ven118
Organization: Sony
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
Date: Tue, 19 Nov 1996 05:34:08 GMT
Lines: 28
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1461
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1461&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>>K\(B@$B%7%9%3%s$G$9!#(B

$B$3$3$O!"5W$7$V$j$G$9!#!J(Bperl $B$N%W%m%0%i%`$,5W$7$V$j$@$+$i!K(B
$B$A$g$C$H$*$*$\$1$+$b$7$l$^$;$s$1$I!#(B

print "I'm in main script\n" ;
printhelp ;

sub printhelp
{
    print "I'm in sub\n" ;
}

$B$r<B9T$7$?$i!"(Bsub $B$NCf$G$N!!(Bprint $B=PNO$,=P$F$-$^$;$s!#$I$3$+$K(B
$B>C$($F$7$^$$$^$9!#(B

    print STDOUT "I'm in sub\n" ;

$B$H$d$C$F$bBLL\$_$?$$$G$9!#$I$&$7$F$G$7$g$&$+!)(B
perl $B$N%P!<%8%g%s$O!"(B4.0 p36$B$G$9$,!#(B

                    +-----+-------------------------------------+
                    | WWW |   $BL>A0(B: $B>>K\!!K-(B  Yutaka Matsumoto  |   
                    | ^_^ | $B%a!<%k(B: ymatsu@vid.cpg.sony.co.jp   |
                    +-----+ $B8D?M(BID: NIFTY  GHG03566             |
                    |         $B=jB0(B: $B%7%9%F%`%3%s%5%k%?%s%D(B($B3t(B)  |
                    |       $B;E;v>l(B: 0462-30-5995($B8F$S$@$7(B)      |
                    +-------------------------------------------+
