자유롭게 이야기를 적는 공간
글 수 15,188
펄이라는 녀석 이런녀석이다
아리포간단한 거
#!/home/bin/perl
$secretword = "안녕";
print "네 이름은 뭐니? ";
$name = <STDIN>;
chomp $name;
if ($name eq "아리포"){
print "안녕, 아리포형 만나서 존내 기버요 한번만 살려줘요!n";
}else{
print "안녕, $name!n";
print "너의 암호는 뭐니? ";
$guess = <STDIN>;
chomp ($guess);
while ($guess ne $secretword){
print "잘못됬어 다시 시도해봐. 너의 암호는 뭐니? ";
$guess = <STDIN>;
chomp ($guess);
}
}
아 그런데 책을 2권사서 읽으라네요 출력 할려면 젠장
#!/home/bin/perl
$secretword = "안녕";
print "네 이름은 뭐니? ";
$name = <STDIN>;
chomp $name;
if ($name eq "아리포"){
print "안녕, 아리포형 만나서 존내 기버요 한번만 살려줘요!n";
}else{
print "안녕, $name!n";
print "너의 암호는 뭐니? ";
$guess = <STDIN>;
chomp ($guess);
while ($guess ne $secretword){
print "잘못됬어 다시 시도해봐. 너의 암호는 뭐니? ";
$guess = <STDIN>;
chomp ($guess);
}
}
아 그런데 책을 2권사서 읽으라네요 출력 할려면 젠장