|
>사이버 강의로 인터넷 과목을 듣고있는데 시험문제가 perl 관련해서 나와서 좀 곤란하군요.
>c는 어찌 해보겠는데 perl 쪽은 도통 감을 못잡겠더라구요.
>아시는 분의 도움을 요청합니다.
>
>아래는 문제입니다. 답을 아시는 분은 좀 알려주세요.
>제출이 오늘 저녁까지라서 좀 시간이 없네요.
>귀찮게 해드려서 죄송하구요 그럼....
>
>=====================================================
>
>7. 변수 vari에 다음과 같이 값을 저장하였다.
>%vari=("Sun","Mon",Tue","Wed","Thu","Fri");
>화면에 4번째에 표시된 Wed를 화면에 출력하려고 한다. print를 이용해서 출력하여 보아라.
>
>8. 다음은 배열의 원소 중 최대 값을 구하는 프로그램을 perl로 작성한 것이다. 결과 값인 87을 출력하기 위해 ①을 채워라
>
>#!/usr/bin/perl
>
>@tt = ( 10, 40, 33, 51, 87, 9, 15, 22, 25 );
>$t = &max( @tt );
>print $t;
>
>sub max {
>
>
> ①
>
>}
안녕하세요. 해피CGI 웹마스터 윤영웅입니다.
숙제군요. -_-;;;
그래서 천천히 답변 드린건 아닙니다. ^^
7번 답
#!/usr/bin/perl
print "content-type:text/html\n\n";
%vari=("Sun","Mon","Tue","Wed","Thu","Fri");
print "$vari{Tue}";
8번 답
#!/usr/bin/perl
print "content-type:text/html\n\n";
@tt = ( 10, 40, 33, 51, 87, 9, 15, 22, 25 );
$t = &max( @tt );
print $t;
sub max {
@test = @_;
@test = reverse sort {$a <=> $b} @test;
$t = $test[0];
}
물어보시기 전에 책을 찾아보시면 모두 나와있습니다.
7번은 해쉬에 관해서 보시구요. (key 와 value) 8번은 문자,숫자 소팅에
관한 문제인것 같네요.
도움이 되었으면 좋겠네요.
|
31
512
2001-05-03 17:43:56
닉네임
