Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!aist-nara!odins-suita!itserv.it.okayama-u.ac.jp!elecnews!libero!yama
From: yama@biotech.okayama-u.ac.jp (Mamoru Yamanishi)
Subject: Re: [Q] teach me about file split
Sender: news@plasma.elec.okayama-u.ac.jp
Message-ID: <yama-0901981255340001@libero.biotech.okayama-u.ac.jp>
Date: Fri, 9 Jan 1998 03:55:34 GMT
Content-Type: text/plain; charset=iso-2022-jp
References: <694297$c8e$1@tp01.maw.melco.co.jp>
Nntp-Posting-Host: libero.biotech.okayama-u.ac.jp
Mime-Version: 1.0
Organization: Okayama Univ., Biotech. Dept.
X-Newsreader: NewsWatcher-J18 (2.1.6)
Lines: 29
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:2512
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=2512&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.

> $B2~9T%3!<%I(B(\n)$B$NL5$$%U%!%$%k$K#4#6#0%P%$%HKh$K(B
> $B2~9T%3!<%I$rIU2C$7$h$&$H$7$F$$$^$9!#(B
> $B0J2<$N$h$&$J%9%/%j%W%H$r:n$j$^$7$?$,!"ESCf$G(B
> $B=*$o$C$F$7$^$$$^$9(B(INPUT.TXT$B$,(B13907180byte$B$J$N$K(B
> out$B$,(B6968938byte)
> $B$I$3$+$*$+$7$$$N$G$7$g$&$+!#(B
> $B$h$m$7$/$*$M$,$$$7$^$9!#(B
> 
> #!/usr/bin/perl -w
> $| = 1 ;
> $foo = 460 ;
> open (IN,"INPUT.TXT");
> while ($foo ne "") {
>   read (IN,$foo,460);
>   print STDOUT $foo,"\n";
>  seek (IN,460,1);
> }
> close (IN);

seek$B$N9T$,M>J,$@$H;W$$$^$9!#(B

$B$3$l$r$9$k$H!":G=i#4#6#0%P%$%HFI$s$G=q$-=P$7!"(B
$B<!$N#4#6#0%P%$%H$rFI$_Ht$P$7!"$r7+$jJV$9$N$G!"(B
$B7k6I#9#2#0%P%$%H$E$D$h$s$G:G=i$N#4#6#0%P%$%HJ,$r(B
$B=q$-=P$7$F$$$k$3$H$K$J$j$^$9!#(B

-- 
$B;3@>!!<i(B <yama@biotech.okayama-u.ac.jp>
086-251-8196, 086-251-8264(fax)
