HDTenEightyP/NetNews huggingface dataset:
From: logic@mtak.bsj.com (Masami Takikawa)
Newsgroups: fj.lang.lisp
Subject: Re: funarg problem
Date: 13 Nov 92 17:52:20 GMT
	<BxMrvK.1L5@ulis.ac.jp>
Reply-To: logic@mtak.bsj.com (Masami Takikawa)
Distribution: fj
Organization: The Takikawa, Corvallis, Oregon, U.S.A.
Posting-Front-End: Terakoya-u kaku 2.04 March 31, 1990

$B$3$s$K$A$O!"Bl@n$G$9!#(J

In article <BxMrvK.1L5@ulis.ac.jp>
	saka@ulis.ac.jp (Tetsuo Sakaguchi) writes:
>$B$J$<(J "FunArg" $B$J$N$+$N@bL@$,3'L5$J$N$G!"$"$N@bL@$G$O!V8e!W7/$O(J
>$B!V(JFunArg $BLdBj(J = $BJQ?t$N%9%3!<%W5,B'LdBj!W$H2r<a$7$F$7$^$&2DG=@-$,(J
>$B$;$a$F!"(JCommon Lisp $B$r=P$7$?;~$K(J closure $B$K?($l$F$$$l$P?oJ,%$%a!<%8$,(J
>$BJQ$o$k$G$7$g$&!#(J

$B$=$&$G$9$M!#(Jstatic scope $B$r$A$c$s$H$d$m$&$H$9$l$P!"(Jclosure $B$,I,MW$J$N(J
$B$O!":#$@$+$i>o<1$J$N$G$"$C$F!"@N$+$i%3%s%Q%$%i$O(J static scope $B$N$b$N$,(J
$BB?$+$C$?$1$I(J funarg $BLdBj$O2r7h$G$-$F$$$J$+$C$?$N$@$+$i!"(Jscope $B$@$1$NOC(J
$B$_$?$$$K=q$/$H8m2r$r>7$-$^$9$M!#(J

$B$^$"!"$3$NLdBj$O$b$H$b$H!"(Jdynamic scope $B$N(J interpreter $B$H(J static scope
$B$N(J compiler $B$rF1;~$K;H$&$HLdBj$,L@$i$+$K$J$kLdBj$G!"(JCommon Lisp (Scheme)
$B$O!"(Jinterpreter $B$b(J static scope $B$K$9$k$3$H$G!"LdBj$r2r7h$7$?$h$&$K8+$((J
$B$k$H$3$m$,!"8m2r$r8F$V860x$G$7$g$&$M!#(J


>$B$=$b$=$b!"(J
>$B!V%m!<%+%k$KDj5A$7$?4X?t$rJL$N4X?t$K0z?t$H$7$FEO$9!W(J
>$B$H$$$&OC$,I,MW$J$s$@$H;W$$$^$9$1$I(J

$B$=$&!#LdBj$NDj5A$r$A$c$s$H$7$J$$$H!#(J


>$BNLE*LdBj$b$"$C$?$s$G$7$g$&$M!#(J

$B$I$&$$$&0UL#$G$7$g$&!)(J
--
$B$?$-$+$o!w$*$l$4$s(J
From: logic@mtak.bsj.com (Masami Takikawa)
Newsgroups: fj.lang.lisp
Subject: Re: funarg problem
Date: 13 Nov 92 17:40:04 GMT
Reply-To: logic@mtak.bsj.com (Masami Takikawa)
Distribution: fj
Organization: The Takikawa, Corvallis, Oregon, U.S.A.
Posting-Front-End: Terakoya-u kaku 2.04 March 31, 1990

$B$3$s$K$A$O!"Bl@n$G$9!#(J

In article <NISHIOKA.92Nov12123825@sp10.sanken.osaka-u.ac.jp>
	nishioka@sanken.osaka-u.ac.jp (Shingo NISHIOKA) writes:
>UNIX Magazine $B$N(J11$B7n9f(J91$BJG$K(Jfunarg$BLdBj$H8@$&8@MU$,$,=P$FMh$F$^$9$,(J, $B$"(J
>$B$N@bL@$OJQ$8$c$J$$$G$9$+(J?  ($B5$$K$J$k$N$O;d$@$1(J?)

$BKM$bFI$s$G$$$FJQ$@$H;W$$$^$7$?!#(J
--
$B$?$-$+$o!w$*$l$4$s(J
From: hisato@packet.packet.tsh.cae.ntt.jp
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 5 Nov 92 23:59:39 GMT
Reply-To: hisato@packet.packet.tsh.cae.ntt.jp (Hisato Yoshimura)
Distribution: fj
Organization: NTT Telecommunications Software Headquarters, Tokyo, Japan.

$B5HB<!w#N#T#T$G$9!#(J
In article <KANEKO.92Nov5134902@grain.rcais.tohoku.ac.jp> kaneko@rcais.tohoku.ac.jp (Yutaka Kaneko) writes:
>  $BElKLBg$N6b;R$G$9!#(J
>
>In article <KEITH.92Nov5115655@qdn.fhl.fujitsu.co.jp> keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka) writes:
>  > $B:#!"(Jperl script$B$G%U%!%$%k$K9THV9f$rIU$1$F!"(J
>  > $B%W%j%s%H$r$7$h$&$H$7$F$k$N$G$9$,!"(J
>  > $B$&$^$/HV9f$,$D$-$^$;$s!#(J

>	#/usr/local/bin/perl
>	$i=0; while(<>) {
>		printf("%6d %s",++$i, $_);
>	}

>$B$G$$$+$,$G$7$g$&!)(J

$B;d$J$i!J;d$K8B$i$J$$$H;W$&$,(J^_^$B!K!"(J

	#!/usr/local/bin/perl
	while(<>) {
		printf("%6.6d\t%s", $., $_);
	}

$B%U%!%$%k$4$H$K9THV9f$rIU$1$k$J$i!"(J

	#!/usr/local/bin/perl
	while(<>) {
		printf("%6.6d\t%s", $., $_);
		close ARGV if eof;
	}

$B$=$N$?$a$K(J$.$BFC<lJQ?t$,$"$k$N$G$9$+$i!#(J
$B!J$G$b$G$-$l$P(Jprintf$B$O$D$+$$$?$/$J$$$J%"!#!K(J
Newsgroups: fj.lang.perl
From: utashiro@sran230.sra.co.jp (Kazumasa Utashiro)
Subject: Re: print line number
Organization: Software Research Associates, Inc., Japan
Date: Mon, 9 Nov 1992 02:50:10 GMT
Distribution: fj

In article <1549@packet.packet.tsh.cae.ntt.jp>
	hisato@packet.packet.tsh.cae.ntt.jp (Hisato Yoshimura) writes:

>> $B!J$G$b$G$-$l$P(Jprintf$B$O$D$+$$$?$/$J$$$J%"!#!K(J

$B$A$g$C$H<Y0-$G$9$,!"(J

	$# = '%6g\t';

$B$H$$$&<j$b$"$j$^$9!#(J

--utashiro (perl -0777pe '$*=1; s/^/++$i . "\t"/ge')
From: himazu@isl.mei.co.jp (Imazu Hideyo)
Newsgroups: fj.lang.perl
Subject: Re: how to make perl header file ?
Date: 5 Nov 92 10:05:52 GMT
Distribution: fj
Organization: Matsushita Eletric Industrial Co., Ltd. Japan
	     06:01:20 GMT

>>>>> "$@sNC+(J" == a50350@sakura.kudpc.kyoto-u.ac.jp (mugitani)
>>>>> <A50350.92Nov2150120@sakura.sakura.kudpc.kyoto-u.ac.jp>

$@sNC+(J> perl4.019 $@$r(J SunOS 4.1.2+JLE 1.2 $@$N>e$G;H$C$F$$$^$9!#$H$3$m$,(J 
$@sNC+(J> ioctl() $@$r;H$*$&$H$9$k$H$&$^$/$$$+$:$K:$$C$F$$$^$9!#(J

SunOS4.1.1 non JLE $@$G(J perl $@$r;H$C$F$$$^$9!#(J
$@;d$O0J2<$N$h$&$K$7$F$$$^$9!#(J
$@$^$:!"(Jh2ph $@$K0J2<$N%Q%C%A$rEv$F$^$9!#(J

$ diff -c h2ph.dist h2ph
*** h2ph.dist	Wed Nov 13 15:49:25 1991
--- h2ph	Thu May 14 16:30:39 1992
***************
*** 177,195 ****
  		$new .= 'defined';
  	    }
  	    elsif (/^\(/) {
! 		s/^\((\w),/("$1",/ if $id =~ /^_IO[WR]*$/i;	# cheat
  		$new .= " &$id";
  	    }
  	    elsif ($isatype{$id}) {
! 		if ($new =~ /{\s*$/) {
! 		    $new .= "'$id'";
! 		}
! 		elsif ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
  		    $new =~ s/\(\s*$//;
  		    s/^[\s*]*\)//;
  		}
  		else {
! 		    $new .= $id;
  		}
  	    }
  	    else {
--- 177,202 ----
  		$new .= 'defined';
  	    }
  	    elsif (/^\(/) {
! 		s/^\((\w),/("$1",/ if $id =~ /^_IO([WR][A-Z]*)?$/i; # cheat
  		$new .= " &$id";
  	    }
  	    elsif ($isatype{$id}) {
! #		if ($new =~ /{\s*$/) {
! #		    $new .= "'$id'";
! #		}
! #		elsif ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
! #		    $new =~ s/\(\s*$//;
! #		    s/^[\s*]*\)//;
! #		}
! #		else {
! #		    $new .= $id;
! #		}
! 		if ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
  		    $new =~ s/\(\s*$//;
  		    s/^[\s*]*\)//;
  		}
  		else {
! 		    $new .= "'$id'";
  		}
  	    }
  	    else {

$@sNC+$,$*$C$7$c$k$h$&$K!"$=$N$^$^$N(J h2ph $@$G$O!V;H$($k!W(J*.ph $@$,:n$l$J$$$h(J
$@$&$J$N$G!#(J
$@$=$7$F!"(JTIOCGETP, TIOCSETP $@$r$9$k$N$G$"$l$P%W%m%0%i%`$K(J

	$sizeof{'struct sgttyb'} = 6;
	$sizeof{'int'} = 4;

$@$rF~$l$^$9!#(J
--
$@:#DE(J $@1Q@$(J($@$$$^$E(J $@$R$G$h(J)	$@>>2<EE4o(J $@>pJs%7%9%F%`8&5f=j(J
From: ichikawa@micro.lsi.melco.co.jp (ICHIKAWA Shuichi)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 6 Nov 92 09:09:30 GMT
Reply-To: ichikawa@pxl.cll.melco.co.jp
Distribution: fj
Organization: Mitsubishi Electric Corp., LSI Lab., Itami, Japan.
X-Newsreader: Tin 1.1 PL5

Yutaka Kaneko (kaneko@rcais.tohoku.ac.jp) wrote:
:   > $@:#!"(Jperl script$@$G%U%!%$%k$K9THV9f$rIU$1$F!"(J
:   > $@%W%j%s%H$r$7$h$&$H$7$F$k$N$G$9$,!"(J
:   > $@$&$^$/HV9f$,$D$-$^$;$s!#(J
                : 
: 	perl -ne 'printf("%6d %s",++$i, $_);'
: 
: $@$G$b$$$$$s$@$1$I!#(J

$@@^3Q$@$+$i(J$.$@$r;H$($P>/$7C;$$$N$G$O!#(J

        perl -ne 'printf("%6d $_", $.);'

--
	$@;T@n!!<~0l(J  (ICHIKAWA Shuichi)  ichikawa@lsi.melco.co.jp
From: keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 5 Nov 92 23:59:21 GMT
	<HOSONO.92Nov5193213@cse.cs.gunma-u.ac.jp>
Distribution: fj
Organization: Fujitsu Ltd., Tokyo, Japan.

$@862,!wIY;NDL$G$9!#(J

In article <HOSONO.92Nov5193213@cse.cs.gunma-u.ac.jp> hosono@cs.gunma-u.ac.jp (Fumio HOSONO) writes:

>$@;O$a$^$7$F!":YLn!w72GOBg3X1!$G$9!#(J
>
>	$@!JESCf>JN,!K(J
>
>$@MW$O!"(J$. $@$H$$$&(J perl $@$NFC<lJQ?t(J(?)$@$,(J $@8=:_$NF~NO9T$N(J
>$@9THV9f$r5-21$7$F$$$k$H$$$&$3$H$G$9$M!#(J(^.^)

$@$J$k(J$@$[$I!"(J$. $@$G8=:_$NF~NO9T$N9THV9f$r5-21$9$k$N$+$!!#(J
perl$@$C$F#C8@8l$d(Jawk$@$HF1$88+$?$$$G$9$M!#(J

$@!t$3$l$G$^(J$@$9$^$9(Jperl$@$K$O$^$j$=$&(J^^;
--
Yoshiyuki Haraoka              keith@fhl.fujitsu.co.jp     
Planning Section, Quality Systems Dept. Systems Engineering Group,   
Fujitsu Ltd.  Japan.  Phone: +81-3-5210-5621  Fax: +81-3-5210-5951 
Sanbancho Yayoikan    6-2,Sanban-cho,chiyoda-ku,Tokyo 102,JAPAN
From: keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 5 Nov 92 06:50:05 GMT
	<KANEKO.92Nov5134902@grain.rcais.tohoku.ac.jp>
Distribution: fj
Organization: Fujitsu Ltd., Tokyo, Japan.

$@862,!wIY;NDL$G$9!#(J

In article <KANEKO.92Nov5134902@grain.rcais.tohoku.ac.jp> kaneko@rcais.tohoku.ac.jp (Yutaka Kaneko) writes:

>  $@ElKLBg$N6b;R$G$9!#(J
>
>	 #/usr/local/bin/perl
>	 $i=0; while(<>) {
>		 printf("%6d %s",++$i, $_);
>	 }
>
>$@$G$$$+$,$G$7$g$&!)(J

$@$3$$$D$r$=$N$^$^(J$@F0$+$=$&$H$7$?$i!"(J

i: Undefined variable.

$@$,=P$^$7$?!#(J
$@$I$&$7$F$G$7$g$&$+(J?


>	 perl -ne 'printf("%6d %s",++$i, $_);'
>
>$@$G$b$$$$$s$@$1$I!#(J

$@$3$l$O!"$A$c$s$HF0:n$7$^$7$?!#(J:-)
$@M-$jFq$&$4$6$$$^$9!#(J(_$@!{(J_)


$@!t;d$O@55,I=8=$r;H$C$F:n$m$&$H$7$F$?$1$I!"$G$b$3$l$r8+$k$H(J
$@!t@55,I=8=$r;H$C$F$^$;$s$M!#(J
$@!t$7$+$7!"(J$@;d$O>/$74*0c$$$r$7$F$D$/$C$F$?$s$G$9$M!#(J
--
Yoshiyuki Haraoka              keith@fhl.fujitsu.co.jp     
Planning Section, Quality Systems Dept. Systems Engineering Group,   
Fujitsu Ltd.  Japan.  Phone: +81-3-5210-5621  Fax: +81-3-5210-5951 
Sanbancho Yayoikan    6-2,Sanban-cho,chiyoda-ku,Tokyo 102,JAPAN
From: kaneko@rcais.tohoku.ac.jp (Yutaka Kaneko)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 5 Nov 92 04:49:02 GMT
Distribution: fj
Organization: Research Center for Applied Information Sciences, Tohoku
	University


  $@ElKLBg$N6b;R$G$9!#(J

In article <KEITH.92Nov5115655@qdn.fhl.fujitsu.co.jp> keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka) writes:
  > $@:#!"(Jperl script$@$G%U%!%$%k$K9THV9f$rIU$1$F!"(J
  > $@%W%j%s%H$r$7$h$&$H$7$F$k$N$G$9$,!"(J
  > $@$&$^$/HV9f$,$D$-$^$;$s!#(J
  > $@$I$N$h$&$K$9$l$PHV9f$,IU$/$N$G(J$@$7$g$&$+(J?
  > $@HV9f$N<u$1EO$7$NJ}K!$,J,$+$j$^$;$s!#(J

	#/usr/local/bin/perl
	$i=0; while(<>) {
		printf("%6d %s",++$i, $_);
	}

$@$G$$$+$,$G$7$g$&!)(J

	perl -ne 'printf("%6d %s",++$i, $_);'

$@$G$b$$$$$s$@$1$I(J$@!#(J
--
$@6b;R!!M5(J $@!w(J $@ElKLBg3X!&1~>p8&!J>pJs9)3X@l96(J $@$"$$$+$o$i$:#D#3!K(J
Junet: kaneko@rcais.tohoku.ac.jp        BITNET: t1c4kpc@jpntohok.bitnet
##  $@H17?$,$+$o$j$^$7$?!#@-3J$O$+$o$C$F$$$^$;$s!#(J
From: keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 5 Nov 92 09:32:56 GMT
	<KANEKO.92Nov5134902@grain.rcais.tohoku.ac.jp>
	<KEITH.92Nov5155005@qdn.fhl.fujitsu.co.jp>
	<KANEKO.92Nov5165539@grain.rcais.tohoku.ac.jp>
Distribution: fj
Organization: Fujitsu Ltd., Tokyo, Japan.

$@862,!wIY;NDL$G$9!#(J

In article <KANEKO.92Nov5165539@grain.rcais.tohoku.ac.jp> kaneko@rcais.tohoku.ac.jp (Yutaka Kaneko) writes:

>  $@ElKLBg$N6b;R$G$9!#(J
>
>In article <KEITH.92Nov5155005@qdn.fhl.fujitsu.co.jp> keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka) writes:
>  > $@862,!wIY;NDL$G$9!#(J
>
>  $@;d(J>	 #/usr/local/bin/perl
>  $@;d(J>	 $i=0; while(<>) {
>  $@;d(J>		 printf("%6d %s",++$i, $_);
>  $@;d(J>	 }
>  > 
>  > $@$3$$$D$r$=$N$^$^F0$+$=$&$H$7$?$i!"(J
>  > 
>  > i: Undefined variable.
>  > 
>  > $@$,=P$^$7(J$@$?!#(J
>  > $@$I$&$7$F$G$7$g$&$+(J?
>
>  $@:G=i$N9T$K(J`!'$@$,H4$1$F$$$k$?$a$G$9(J (^^;)$@!#(J

'!'$@$rIU$1$?$N$G$9$,!"(J

Badly placed ()'s.

$@$H8@$&$N$,=P$F$-$^$7$?!#(J
$@:#EY$O$I$&$7$F$3$NMM$J%(%i!<$,=P$?$N$G$7$g$&$+!)(J
$@!t;d$N4D(J$@6-$N$;$$$+$J!)(J


>  > $@!t;d$O@55,I=8=$r;H$C$F:n$m$&$H$7$F$?$1$I!"$G$b$3$l$r8+$k$H(J
>  > $@!t@55,I=8=$r;H$C(J$@$F$^$;$s$M!#(J
>  > $@!t$7$+$7!";d$O>/$74*0c$$$r$7$F$D$/$C$F$?$s$G$9$M!#(J
>
>  $@$I$&$7$F$b@55,I=8=$,;H$$$?$1(J$@$l$P!"(J
>
>	 perl -pe 's/^/sprintf("%6d ", ++$i)/e;' 
>
>$@$+$J!#(J

$@$X!A!#$3$s$JIw$K=q$$$F$bA4$/(J(?)$@F1$8$3(J$@$H$,=PMh$k$N$G$9$M!#(J
perl$@$C$F2?$G$b=PMh$^$9$M!#(J

$@6b;R$5$s!"2?EY$bK\Ev$K$"$j$,$H$&$4$6$$$^$9!#(J(_$@!{(J_)


$@!t$A$g$C$H!"K\9x$rF~$l$F(Jperl$@$rJY6/$7$h$&$+$J!)(J

--
Yoshiyuki Haraoka              keith@fhl.fujitsu.co.jp     
Planning Section, Quality Systems Dept. Systems Engineering Group,   
Fujitsu Ltd.  Japan.  Phone: +81-3-5210-5621  Fax: +81-3-5210-5951 
Sanbancho Yayoikan    6-2,Sanban-cho,chiyoda-ku,Tokyo 102,JAPAN
From: sakamoto@sm.sony.co.jp (Tomohiko Sakamoto)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 12 Nov 92 13:48:22 GMT
Reply-To: sakamoto@sm.sony.co.jp
Distribution: fj
Organization: Workstation Div., Supermicro Systems Group, Sony Corporation

In article <KUROKI.92Nov7063954@matsu.math.tohoku.ac.jp>,
        kuroki@math.tohoku.ac.jp (Gen Kuroki) says:
> $B:G6a$N(B fj.binaries.msdos $B$KN.$l$?@g@P!wF|N)$5$s$N(B sed $B$N(B lecture
>   Subject: v007i0177: sedlec, sed lecture from NIFTY Serve (1/1)
>   Message-ID: <1992Oct30.075203.5175@merope.pleiades.or.jp>
>   Date: 30 Oct 1992 16:52:03 JST
> $B$K$h$k$H!"(Bsed $B$G$b9THV9f$,IU$1$i$l$k$_$?$$$G$9$M!#(B(^^;)

$B;d$b9M$($F$_$^$7$?!#$3$s$J$N$O$I$&$G$9$+(B?  ($B%Q%$%W$r;H$&$N$OH?B'$+$J(B)

sed = file | sed 's/^/     /;s/.*\(......\)/\1/;N;s/\n/	/'
	             ($B",%9%Z!<%9(B 5$B8D(B)                ($B",%?%V(B)
--
$B:dK\CRI'(B
sakamoto@sm.sony.co.jp
From: kuroki@math.tohoku.ac.jp (Gen Kuroki)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 6 Nov 92 21:39:54 GMT
Distribution: fj
Organization: Mathematical Institute, Tohoku University, Sendai JAPAN.
In-reply-to: keith@fhl.fujitsu.co.jp's message of 5 Nov 1992 11:56:55 JST

$@9uLZ!wElKLBg3X$G$9!#(J

In article <KEITH.92Nov5115655@qdn.fhl.fujitsu.co.jp>
keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka) writes:
 |$@:#!"(Jperl script$@$G%U%!%$%k$K9THV9f$rIU$1$F!"(J
 |$@%W%j%s%H$r$7(J$@$h$&$H$7$F$k$N$G$9$,!"(J
 |$@$&$^$/HV9f$,$D$-$^$;$s!#(J
 |$@$I$N$h$&$K$9$l$PHV9f$,IU$/$N$G$7$g$&$+(J?
 |$@HV9f$N<u(J$@$1EO$7$NJ}K!$,J,$+$j$^$;$s!#(J
 |
 |$@!t0x$_$K;d$O(Jperl$@$r:rF|3P$($?$P$+$j$J$N$G!"(J
 |$@!t$o$+$i$J$$$N$bEvA32?(J$@$G$9$,!D!D(J
 |$@!t(Jsed$@$HF1$8MM$J;H$$J}$J$i>/$7$G$-$k$s$@$1$I$J$!(J

$@:G6a$N(J fj.binaries.msdos $@$KN.$l$?@g@P!w(J$@F|N)$5$s$N(J sed $@$N(J lecture

  Subject: v007i0177: sedlec, sed lecture from NIFTY Serve (1/1)
  Message-ID: <1992Oct30.075203.5175@merope.pleiades.or.jp>
  Date: 30 Oct 1992 16:52:03 JST

$@$K$h$k$H!"(Jsed $@$G(J$@$b9THV9f$,IU$1$i$l$k$_$?$$$G$9$M!#(J(^^;)
--
$@9uLZ8<!wElKLBg3XM}3XIt?t3X65<<(J
From: kaneko@rcais.tohoku.ac.jp (Yutaka Kaneko)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 5 Nov 92 14:30:25 GMT
	<KANEKO.92Nov5134902@grain.rcais.tohoku.ac.jp>
	<KEITH.92Nov5155005@qdn.fhl.fujitsu.co.jp>
	<KANEKO.92Nov5165539@grain.rcais.tohoku.ac.jp>
	<KEITH.92Nov5183256@qdn.fhl.fujitsu.co.jp>
Distribution: fj
Organization: Research Center for Applied Information Sciences, Tohoku
	University


  $@ElKLBg$N6b;R$G$9!#(J

In article <KEITH.92Nov5183256@qdn.fhl.fujitsu.co.jp> keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka) writes:
  > >  $@;d(J>	 #/usr/local/bin/perl
  > >  $@;d(J>	 $i=0; while(<>) {
  > >  $@;d(J>		 printf("%6d %s",++$i, $_);
  > >  $@;d(J>	 }
  > >
  > >  $@:G=i$N9T$K(J`!'$@$,H4$1$F$$$k$?$a$G$9(J (^^;)$@!#(J
  > 
  > '!'$@$rIU$1$?$N$G$9$,!"(J
  > 
  > Badly placed ()'s.
  > 
  > $@$H8@$&$N$,=P$F$-$^$7$?!#(J
  > $@:#EY$O$I$&$7$F$3$NMM$J%(%i!<$,=P$?$N$G$7$g$&$+!)(J
  > $@!t;d$N4D6-$N$;$$$+$J!)(J

  $@$9$G$K5$$,$D$+$l$?$H$O(J$@;W$$$^$9$,G0$N$?$a!#(J

	< #/usr/local/bin/perl

$@$,8m$j$G@52r$O(J

	> #!/usr/local/bin/perl

$@$G$9!#(J

  $@$I(J$@$&$b$*$5$o$,$;$7$^$7$?!#(J

##  $. $@$+!#CN$i$J$+$C$?(J(^^;)$@!#;H$C$?;v$J$$$b$s$@$+$i!&!&!&(J
--
$@6b;R!!M5(J $@!w(J $@El(J$@KLBg3X!&1~>p8&!J>pJs9)3X@l96(J $@$"$$$+$o$i$:#D#3!K(J
Junet: kaneko@rcais.tohoku.ac.jp        BITNET: t1c4kpc@jpntohok.bitnet
##  $@H17?$,$+$o$j$^$7$?!#@-3J$O$+$o$C$F$$$^$;$s!#(J
From: hisato@packet.packet.tsh.cae.ntt.jp
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 11 Nov 92 03:04:42 GMT
Reply-To: hisato@packet.packet.tsh.cae.ntt.jp (Hisato Yoshimura)
Followup-To: fj.lang.perl
Distribution: fj
Organization: NTT Telecommunications Software Headquarters, Tokyo, Japan.

$B5HB<!w#N#T#T$G$9!#(J
In article <BxFH7n.F7L@sran230.sra.co.jp> utashiro@sran230.sra.co.jp (Kazumasa Utashiro) writes:
>In article <1549@packet.packet.tsh.cae.ntt.jp>
>	hisato@packet.packet.tsh.cae.ntt.jp (Hisato Yoshimura) writes:
>
>>> $B!J$G$b$G$-$l$P(Jprintf$B$O$D$+$$$?$/$J$$$J%"!#!K(J
>
>$B$A$g$C$H<Y0-$G$9$,!"(J
>
>	$# = '%6g\t';
>
>$B$H$$$&<j$b$"$j$^$9!#(J
>
$B$J$k$[$I!#$G$b$3$&$$$&$3$H$r9M$($k$H7k6I(Jprint$B$b(Jprintf$B$J$N$G$9%M(J^_^;

$B$G$O!"$D$$$G$K$b$&0l$D!#(J%6g $B$G$O$J$/$F!"(J%6.6g$B$G$J$$$H;H$($^$;$s$,(J

#!/usr/local/bin/perl
$num = "000000";
while (<>) {
	print ++$num,"\t",$_;
	$num = "000000" if eof ;
}

$B$G$b(J
>--utashiro (perl -0777pe '$*=1; s/^/++$i . "\t"/ge')

$B$3$l$G$"$l$P!"(J$num = 0; $B$G$b$$$$$N$+$J!#(J
From: kaneko@rcais.tohoku.ac.jp (Yutaka Kaneko)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 5 Nov 92 07:55:39 GMT
	<KANEKO.92Nov5134902@grain.rcais.tohoku.ac.jp>
	<KEITH.92Nov5155005@qdn.fhl.fujitsu.co.jp>
Distribution: fj
Organization: Research Center for Applied Information Sciences, Tohoku
	University


  $@ElKLBg$N6b;R$G$9!#(J

In article <KEITH.92Nov5155005@qdn.fhl.fujitsu.co.jp> keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka) writes:
  > $@862,!wIY;NDL$G$9!#(J

  $@;d(J>	 #/usr/local/bin/perl
  $@;d(J>	 $i=0; while(<>) {
  $@;d(J>		 printf("%6d %s",++$i, $_);
  $@;d(J>	 }
  > 
  > $@$3$$$D$r$=$N$^$^F0$+$=$&$H$7(J$@$?$i!"(J
  > 
  > i: Undefined variable.
  > 
  > $@$,=P$^$7$?!#(J
  > $@$I$&$7$F$G$7$g$&$+(J?

  $@:G=i$N9T$K(J`!'$@$,H4$1$F$$$k$?$a$G$9(J (^^;)$@!#(J

  > $@!t;d$O@55,I=8=$r;H$C$F:n$m$&$H$7$F$?$1$I!"$G$b$3$l$r8+$k$H(J
  > $@!t@5(J$@5,I=8=$r;H$C$F$^$;$s$M!#(J
  > $@!t$7$+$7!";d$O>/$74*0c$$$r$7$F$D$/$C$F$?$s$G$9$M!#(J

  $@$I$&$7$F$b@55,I=8=(J$@$,;H$$$?$1$l$P!"(J

	perl -pe 's/^/sprintf("%6d ", ++$i)/e;' 

$@$+$J!#(J
--
$@6b;R!!M5(J $@!w(J $@ElKLBg3X!&1~>p8&!J(J$@>pJs9)3X@l96(J $@$"$$$+$o$i$:#D#3!K(J
Junet: kaneko@rcais.tohoku.ac.jp        BITNET: t1c4kpc@jpntohok.bitnet
##  $@H17?$,$+$o$j$^$7$?!#@-3J$O$+$o$C$F$$$^$;$s!#(J
From: ichikawa@micro.lsi.melco.co.jp (ICHIKAWA Shuichi)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 8 Nov 92 23:43:07 GMT
Reply-To: ichikawa@pxl.cll.melco.co.jp
Distribution: fj
Organization: Mitsubishi Electric Corp., LSI Lab., Itami, Japan.
X-Newsreader: Tin 1.1 PL5


  $@$9$$$^$;$s!"4V0c$$$^$7$?!#(J($@$$$^$5$i!D(J)

ICHIKAWA Shuichi (ichikawa@micro.lsi.melco.co.jp) wrote:
: 
: $@@^3Q$@$+$i(J$.$@$r;H$($P>/$7C;$$$N$G$O!#(J
: 
:         perl -ne 'printf("%6d $_", $.);'

$@$3$&$$$&$3$H",$r$9$k$H!"F~NO9T$,7A<0;XDj(J(%s$@Ey(J)$@$r4^$s$G$$$k$HF0$-$^$;$s(J_o_
$@2y$7$$$N$G!"$5$i$KC;$$$N$r9M$($^$7$?!#(J

        perl -npe 'printf("%6d ",$.);'

--
$@%3%l$G$I$&$@!#(J
--
	$@;T@n!!<~0l(J  (ICHIKAWA Shuichi)  ichikawa@lsi.melco.co.jp
From: obara.eiji@d70.tsh.cae.ntt.jp (Obara Eiji shutoken)
Newsgroups: fj.lang.perl
Subject: Re: how to make perl header file ?
Date: 10 Nov 92 03:45:31 GMT
	<HIMAZU.92Nov5190552@isl.mei.co.jp>
Distribution: fj
Organization: NTT Telecommunications Software Headquarters, Tokyo, Japan.


$@$3(B$@$3$K$O;O$a$F$N%]%9%H$G$9!#(B
$@$h$m$7$/$*4j$$$7$^$9!#(B

In article <HIMAZU.92Nov5190552@isl.mei.co.jp> himazu@isl.mei.co.jp (Imazu Hideyo) writes:

 |SunOS4.1.1 non JLE $@$G(B perl $@$r;H$C$F$$$^$9!#(B
 |$@;d$O0J2<$N$h(B$@$&$K$7$F$$$^$9!#(B
 |$@$^$:!"(Bh2ph $@$K0J2<$N%Q%C%A$rEv$F$^$9!#(B

$@!JN,!K(B

 |$@$=$7$F!"(BTIOCGETP, TIOCSETP $@$r$9$k(B$@$N$G$"$l$P%W%m%0%i%`$K(B
 |
 |	  $sizeof{'struct sgttyb'} = 6;
 |	  $sizeof{'int'} = 4;


$@$3$l!"$d$C$F$_(B$@$^$7$?!#(B
$@$&$^$/$$$-$^$7$?!#(B

$@$3$N(Bheader file$@$,$&$^$/F0$+$J$+$C$?$N$G!"(B
$@6l$7$^$.$l$K$3$NItJ,$@$1(B C$@$G=q(B$@$$$F$=$l$r(Bsystem$@$G8F$V$H$$$&(B
$@!v>p$1$J$$!vJ}K!$r$H$C$F@)8f$7$F$$$^$7$?!#(B

$@$"$j$,$H$&$4$6$$$^$7$?!#(B

--
$@>.861Q<#(B mail:obara.eiji@d70.tsh.cae.ntt.jp 03-5487-9101(3248)
$@9g$$8@MU$O!VI4N$$NH>$P$r6e==6eN$$H$9$k(B$@D6?t3X$rCN$j$?$$!#!W(B
From: ara@g5.crl.mei.co.jp (ARAKAWA Kay)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 6 Nov 92 09:19:50 GMT
Distribution: fj
Organization: Matsushita Electric Industrial Co.,Ltd.
In-reply-to: kaneko@rcais.tohoku.ac.jp's message of 5 Nov 92 07:55:39 GMT


$@$3$N(J NG $@$O=i$a$F$N(J perl $@=i?4<T(J $@$"$i!w$Q$J$=$K$C$/(J $@$G$9!#(J

$@6b(J>   $@ElKLBg$N6b;R$G$9!#(J
$@!%!%N,!%!%(J
$@6b(J> 	perl -pe 's/^/sprintf("%6d ", ++$i)/e;' 

perl -pe 's/^/$.:/'

$@$NJ}$,%?%$%T%s%0$,>/$J$/$9$_$^$9$M(J(;^_^)$@!#(J

$@$H$3(J$@$m$G;d$O(J 'perl -pe ' $@$r(J pe $@$K(J 'perl -ane' $@$r(J ane $@$K(J alias $@$7$F(J 
sed, awk $@$,$o$j$K;H$C$F$$$k$s$G$9$,!J(J$@@55,I=8=$,(J perl $@$NJ}$,6/NO$J$b$s(J
$@$G!D!K!"$3$l$C$F<Y0-$G$7$g$&$+!)(J(;^_^)

--
$@$"$i!w$Q$J$=$K$C$/!s$^$?$D(J$@$^$i$L%]%9%H$r$7$F$7$^$C$?!D(J
From: keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 13 Nov 92 11:46:35 GMT
	<KANEKO.92Nov5134902@grain.rcais.tohoku.ac.jp>
	<KEITH.92Nov5155005@qdn.fhl.fujitsu.co.jp>
	<KANEKO.92Nov5165539@grain.rcais.tohoku.ac.jp>
	<KEITH.92Nov5183256@qdn.fhl.fujitsu.co.jp>
Distribution: fj
Organization: Fujitsu Ltd., Tokyo, Japan.

$@862,!wIY;NDL$G$9!#(J

In article <KEITH.92Nov5183256@qdn.fhl.fujitsu.co.jp> keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka) writes:

 >In article <KANEKO.92Nov5165539@grain.rcais.tohoku.ac.jp> kaneko@rcais.tohoku.ac.jp (Yutaka Kaneko) writes:
 >>  $@ElKLBg$N6b;R$G$9!#(J
 >>In article <KEITH.92Nov5155005@qdn.fhl.fujitsu.co.jp> keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka) writes:
 >>  $@;d(J>	 #/usr/local/bin/perl
 >>  $@;d(J>	 $i=0; while(<>) {
 >>  $@;d(J>		 printf("%6d %s",++$i, $_);
 >>  $@;d(J>	 }
 >>  > 
 >>  > $@$3$$$D$r$=$N$^$^F0$+$=$&$H$7$?$i!"(J
 >>  > 
 >>  > i: Undefined variable.
 >>  > 
 >>  > $@$,=P$^$7$?!#(J
 >>  > $@$I$&$7$F$G$7$g$&$+(J?
 >>
 >>  $@:G=i$N9T$K(J`!'$@$,H4$1$F$$$k$?$a$G$9(J (^^;)$@!#(J
 >
 >'!'$@$rIU$1$?$N$G$9$,!"(J
 >
 >Badly placed ()'s.
 >
 >$@$H8@$&$N$,=P$F(J$@$-$^$7$?!#(J
 >$@:#EY$O$I$&$7$F$3$NMM$J%(%i!<$,=P$?$N$G$7$g$&$+!)(J
 >$@!t;d$N4D6-$N$;$$$+$J!)(J

$@$?$@C1$K%P!<%8(J$@%g%s$,Dc$$0Y$K(J

Badly placed ()'s.

$@$,=P$F$^$7$?!#(J

$@%P!<%8%g%s$,Dc$$$HF0:n$7$J$$$J$s$F!D(J
$@$I$3$,860x$G(J$@!.(JBadly placed ()'s.$@!G$,=P$F$?$s$G$7$g$&!)(J
$@$I$3$,%P!<%8%g%s$,9b$/$J$$$H=PMh$J$$5-=R$J$N$G$7$g$&$M!)(J
$@;d(J$@$K$O$h$/J,$+$j$^$;$s!#(J

$@!t0x$_$KA0$N%P!<%8%g%s$O(J4.0.1.1$@$G$7$?!#(J
--
Yoshiyuki Haraoka              keith@fhl.fujitsu.co.jp     
Planning Section, Quality Systems Dept. Systems Engineering Group,   
Fujitsu Ltd.  Japan.  Phone: +81-3-5210-5621  Fax: +81-3-5210-5951 
Sanbancho Yayoikan    6-2,Sanban-cho,chiyoda-ku,Tokyo 102,JAPAN
From: hosono@cs.gunma-u.ac.jp (Fumio HOSONO)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 5 Nov 92 10:32:13 GMT
Distribution: fj
Organization: Gunma Univ.
In-reply-to: keith@fhl.fujitsu.co.jp's message of 5 Nov 92 02:56:55 GMT

$@;O$a$^$7$F!":YLn!w72GOBg3X1!$G(J$@$9!#(J

>>>>> In article <KEITH.92Nov5115655@qdn.fhl.fujitsu.co.jp>,
      keith@fhl.fujitsu.co.jp (Yoshiyuki Haraoka) writes:
$@862,(J> $@:#!"(Jperl script$@$G%U%!%$%k$K9THV9f$rIU$1$F!"(J
$@862,(J> $@%W%j%s%H$r$7$h$&$H$7$F(J$@$k$N$G$9$,!"(J
$@862,(J> $@$&$^$/HV9f$,$D$-$^$;$s!#(J
$@862,(J> $@$I$N$h$&$K$9$l$PHV9f$,IU$/$N$G$7$g$&$+(J?

$@0J2<$N$h$&(J$@$J(J perl script $@$G=P$^$9!#(J

	#!/usr/local/bin/perl
	while (<>) {
	    printf("%4d  %s", $., $_);
	}

$@%3(J$@%^%s%I9T$G(J

	... | perl -ne 'printf("%4d  %s", $., $_);'

$@$H$7$F$b$$$$$s$G$9$1$I!#(J

$@MW$O!"(J$. $@$H$$$&(J perl $@$NFC<lJQ?t(J(?)$@$,(J $@8=:_$NF~NO9T$N(J
$@9THV9f$r5-21$7$F$$$k$H$$$&$3$H$G$9$M!#(J(^.^)
--
	Fumio HOSONO  ( E-mail: hosono@cs.gunma-u.ac.jp )
	Dept. Computer Science, Gunma Univ.
From: yutaka@sys1.cpg.sony.co.jp (SAITO Yutaka)
Newsgroups: fj.lang.perl
Subject: Re: print line number
Date: 5 Nov 92 14:37:20 GMT
Distribution: fj
Organization: Sony Corp. Broadcast Products Group.
In-reply-to: kaneko@rcais.tohoku.ac.jp's message of 5 Nov 92 13:49:02 JST

In article <KANEKO.92Nov5134902@grain.rcais.tohoku.ac.jp> 
	kaneko@rcais.tohoku.ac.jp (Yutaka Kaneko) writes:
  >	   perl -ne 'printf("%6d %s",++$i, $_);'

perl -ne 'print "$.:$_"'

$@$O$I$&$G$9$+!)(J
--
				$@$5$$$H$&(J $@$f$?$+(J
				yutaka@sys1.cpg.sony.co.jp