> > my $fh = IO::File->new( $filename, '>' ) or croak( q(Can't Open ) . $filename );
> > if ( scalar( @array ) > 0 ) {
> > 	while ( my ( $id, $name, $prefix ) = $sth->fetchrow_array() ) {
> > 		for ( my $i = 0; $i < 10; $i++ ) {
> > 			print $fh map { $_ . "\n" } ( @{$buf} );
> > 		}
> > 	}
> > } else {
> > 	$foo = Hoge::bar();
> > }
> > Perlの漏れ
> > print以外はﾏﾒにというか必要以上に()で囲うくせが(;´Д`)でもｻﾌﾞﾙｰﾁﾝに&はつけない
> Perlはﾗｲﾌﾞﾗﾘが豊富で便利そうだけど
> foreachとか大嫌いだし@とか$とかいっぱいありすぎて分かんないちゅぎー

foreachは別にいいけど

参考：2005/01/31(月)03時23分23秒