Perl 펄] 사용자 문자열 입력 받기; 키보드 문장 입력; Input STDIN

#!/usr/bin/perl
use strict; use warnings;

  my $s;


  print "아무 문장이나 입력하고 Enter키를 누르세요\n";
  $s = <STDIN>; # 키보드에서 문자열 입력 받기
  chomp($s); # 입력된 문자열 끝에서 개행문자 제거


  if ($s) { # 뭔가가 입력되었으면
    print "[$s] 를 입력하셨군요\n";
  }
  else { # 아무것도 입력하지 않았으면
    print "그냥 엔터키만 누르셨군요\n";
  }