☰

Perl에서 프로그램 실행에 문제가 발생했습니다.

tag-icon • tag-icon linux scripting perl programming
Perl에서 프로그램 실행에 문제가 발생했습니다. 
#!/usr/bin/perl
#Script:name2.pl - Demonstrates use of chop
#
print("Enter your name:");
$name=<STDIN>;
$lname = chop($name);                      #Removes newline character from $name
if ($lname ne "") {
   print("$lname,have a nice day\n");
 } else {
 print("You have not entered your name\n");
}

$ ./name2.pl
Enter your name:stallman

,have a nice day
$

Perl 프로그램이 실행될 때 "chop" 기능을 실행하지 않습니다.

프로그래밍 회로에 오류가 있습니까?

답변1

바라보다마구 자르기

문자열의 마지막 문자를 트립하고 잘린 문자를 반환합니다.

즉, 문자열을 로컬로 수정합니다.

"잘린 문자열"을 반환한다고 가정합니다.

#!/usr/bin/perl -w

my $x = "Turing, Alana";

my $r = chop($x);

print "\$x is now '$x', and \$r is now '$r'\n";

그 다음에:

$x is now 'Turing, Alan', and $r is now 'a'

관련 정보