※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

こっちは自分のメモ用
#!/perl/bin/perl
 
print "お名前は? \n";
$name =<STDIN>;
print "こんにちは、$nameさん\n";
 
----
 
#!/perl/bin/perl
 
while(1){
	print "お名前は? \n";
	$name =<STDIN>;
	if($name eq "\n"){last; }
	print "こんにちは、$nameさん\n";
}