【ネタ】Perlかんたんプログラミング：ダメな会議のサンプルプログラム

世の中にあふれるダメな会議をPerlで書いてみました。かなり怪しいところだらけなのでご指摘などコメントでいただけたら修正します。

#!/usr/bin/perl

# 上司の満足度
$satisfy = 0;
#年数
$year = 0;
# 参加者数
$num_ppl;
# 賛同した人数
$follower;

print "会議の開始宣言";
print "意見交換";
while ( $satisfy < 15 ) {
	print $year . "年前の自慢話";
	print "周りへの同意の確認";
	$follower = <stdin>;
	if(num_ppl  = follower) { #全員が賛同（参加者数＝賛同者）したときTrue
		$satisfy ++;  #満足度が1ポイントアップ
		$year ++; #話が遡る年数が1年増える
		print "「俺ってすごいだろ」の念押し";
	}else{
		print "お前ら俺の凄さがわからないのか。ダメな奴らだ。。。";
	}
}

print "精神論主体の部下へのダメ出し";
print "速く俺に追いつけよという決め台詞";

# EOF