편집을 취소할 수 있습니다. 이 편집을 되돌리려면 아래의 바뀐 내용을 확인한 후 게시해주세요.
최신판 | 당신의 편집 | ||
38번째 줄: | 38번째 줄: | ||
==Perl== | ==Perl== | ||
[[category:Perl]] | [[category:Perl]] | ||
<syntaxhighlight lang='perl' | <syntaxhighlight lang='perl'> | ||
my @fruits = ('Banana', 'Orange', 'Apple', 'Orange', 'Orange'); | my @fruits = ('Banana', 'Orange', 'Apple', 'Orange', 'Orange'); | ||
print $k = grep { $_ eq 'Orange' } @fruits; | print $k = grep { $_ eq 'Orange' } @fruits; | ||
# 3 | |||
</syntaxhighlight> | </syntaxhighlight> | ||