Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sinfony-news!news.kddnet.ad.jp!news.dvlp.kddnet.ad.jp!news.cs.ritsumei.ac.jp!kuis-news!wnoc-kyo-news!aist-nara!ie.u-ryukyu.ac.jp!hakata!kudpc!cancer.nca5.ad.jp!nfeed.gw.nagoya-u.ac.jp!vega!mimasa
From: mimasa@vega.aichi-u.ac.jp (Masayasu Ishikawa)
Subject: Re: How to read file ?
Sender: news@vega.aichi-u.ac.jp (News Master)
Message-ID: <Dyn31u.L6u@vega.aichi-u.ac.jp>
Date: Wed, 2 Oct 1996 08:17:54 GMT
Lines: 56
References: <52ss7q$gj6@nikko.utsunomiya-u.ac.jp>
Nntp-Posting-Host: vega
Organization: Aichi University Computer Center, Aichi University, Aichi, Japan.
X-Newsreader: mnews [version 1.18PL3+] 1994-08/01(Mon)
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1311
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1311&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@P@n!w0&CNBg3X$G$9!#(B

$B;d$N5-21$,3N$+$J$i$P!"(BJST$B;~4V(B1996$BG/(B10$B7n(B02$BF|(B($B?e(B) 13$B;~(B48$BJ,(B58$BIC:"!"(B
fj.lang.perl$B$N(B<52ss7q$gj6@nikko.utsunomiya-u.ac.jp>$B$N5-;v$K$*$$$F(B
a953159@cc.utsunomiya-u.ac.jp$B$5$s$O=q$-$^$7$?!#(B

>$BL5KE$K$b(BCGI$B$r:n$C$F$$$k$N$G$9$,!"$o$+$i$J$$;v$,$"$j$^$9!#(B
>
>#$BB>?MMM$+$iGR<Z$7$?%W%m%0%i%`(B
>$FILE = '/usr/home-directory/data';#$B%"%/%;%98"$O$"$k(B
>open(FILE,">$FILE");
>@lines=<FILE>;
>close(FILE);
>$data=@lines;
>print "$data";
>
>$B$H=q$/$H!V#1!W$H$7$+I=<($5$l$^$;$s$G$7$?!#(B
>$B$"$k%U%!%$%k$K=q$$$F$"$kA4$F$NJ8;zNs$rJQ?t(B $data $B$KF~$l$F$+$i(B
>    ~~~~~~~~~~~~~~~~~~~~~~~~
>$BI=<($7$?$$$N$G$9$,!"$I$&=q$$$?$i@5$7$/$G$-$k$N$G$7$g$&$+!#(B

$B%U%!%$%k$+$iFI$_9~$_$?$$$N$J$i!"(B

>open(FILE,">$FILE");
            ~
$B$N2U=j$G%U%!%$%k%O%s%I%k$r=PNOMQ$K%*!<%W%s$7$?$N$G$O$^$:$/$"$j$^$;$s$+(B?
$B$=$l$K!"JQ?t$KA4J8;zNs$rF~$l$k$@$1$GNI$$$J$i!"2?$b%j%9%H$KF~$l$J$/$F$b(B
$BD>@\(B$data$B$KF~$l$F$7$^$($PNI$$$h$&$J!D!#(B

$B2?$;(Bperl$B$N$3$H$G$9$+$i$d$jJ}$O$$$/$i$G$b$"$k$G$7$g$&$,!"85$N5-=R$r$J$k(B
$B$Y$/@8$+$9$J$i!"(B

$/=undef;
$FILE = '/usr/home-directory/data';#$B%"%/%;%98"$O$"$k(B
open(FILE,"$FILE");
$data=<FILE>;
close(FILE);
print $data;

$B$H$+!D!VJQ?t(B$data$B$KF~$l$k!W$3$H$K$3$@$o$i$J$$$J$i!"%j%9%H$KF~$l$F(B

$FILE = '/usr/home-directory/data';#$B%"%/%;%98"$O$"$k(B
open(FILE,"$FILE");
@lines=<FILE>;
close(FILE);
print @lines;

$B$J$s$F$N$b$*<j7Z$G$$$$$+$b$7$l$^$;$s!#$I$&$7$F$b$$$C$?$s(B$data$B$KF~$l$k(B
$BI,MW$,$"$k$J$i!"(Bjoin$B$r;H$($P$$$$$G$9$M!#(B

$B!t%O%:$7$F$?$i$4$a$s$J$5$$!#(B

-- 
``If I like a program I must share it with other people who like it.''
                                                   -- Richard Stallman
$B0&CNBg3XBg3X1!K!3X8&5f2J(B  $B@P@n(B $B2m9/(B / E-mail: mimasa@aichi-u.ac.jp
