1000のperl - 自分用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";
}