> 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とか大嫌いだし@とか$とかいっぱいありすぎて分かんないちゅぎー

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