Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!nec-tyo!tyo1-nec!newssv1-nec!tnessv1!akyu.bsd.tnes.nec.co.jp!rifu.bsd.tnes.nec.co.jp!yos
From: yos@rifu.bsd.tnes.nec.co.jp (Yoshihiro Kudo)
Subject: [FORMAT]Break character
Sender: news@akyu.bsd.tnes.nec.co.jp
Message-ID: <D5Kz92.180@akyu.bsd.tnes.nec.co.jp>
Date: Fri, 17 Mar 1995 10:46:14 GMT
Organization: NEC Software Tohoku, Ltd. Sendai, Japan
Lines: 55
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:360
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=360&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.

$B9)F#(B@NEC$B%=%U%H%&%'%"ElKL$G$9!#(B

format$B$G!"(Bbreak$B$9$k%-%c%i%/%?$r(B"\n"$B$@$1$K$7$?$$$s$G$9$,!"$&$^$/$$$-$^$;$s!#(B

#!/usr/local/bin/perl

$STR = "a aa\nb bb\n###";

$writestr = $STR;
write while $writestr;

$: = "\n";
$writestr = $STR;
write while $writestr;

$: = "";
$writestr = $STR;
write while $writestr;


format STDOUT =
^<<
$writestr
.

$B$3$l$r<B9T$9$k$H!"(B

a
aa
b
bb
###
($B:G=i$N(Bwrite$B$N7k2L(B)

a a
a b
 bb
 ##
#
(2$B2sL\$N(Bwrite$B$N7k2L(B)

a a
a b
 bb
 ##
#
($B:G8e$N(Bwrite$B$N7k2L(B)

$B$H$$$&$U$&$K!"(B$:$B$K(B"\n"$B$r@_Dj$7$F$b(B""$B$H$^$C$?$/F1$87k2L$K$J$C$F$7$^$&$s(B
$B$G$9(B(Perl-4.036/Perl-5.000$B$G$d$C$F$_$^$7$?(B)$B!#(B
"\n"$B$@$1$r(Bbreak character$B$K$9$k$K$O$I$&$9$l$P$$$$$N$G$7$g$&$+(B?
-- 

      $B9)F#(B $BgP90(B
       yos@bsd.tnes.nec.co.jp
