Homework on Perl

소개글

Homework on Perl에 대한 보고서 자료입니다.

본문내용

$t =~ s/<//;
$t =~ s/>//;
}
Step 7) hash의 사용
1. - 400개의 스니펫에서 \"xx학과\" 라는 표현을 모두 모은다.
- 각 xx학과 별로 몇번 등장하였는지를 hash를 하나 만들어 기록한다.
- \"많이 등장한 학과\" 순으로 print해주는 코드를 작성한다.
#!/usr/bin/perl
use strict;
use LWP::Simple;
use encoding \"utf8\";
my $URL =\"http://kr.search.yahoo.com/search/news?p=경북대&fr=kr-search_top&b=\";
my $snip_num = 1;
my %hash;
my $max;
for ($snip_num = 1; $snip_num < 401; $snip_num += 20) {
my $raw_html = LWP::Simple::get($URL . $snip_num);
my @snippets = ($raw_html =~ /<\\/span>[ \\t\\n]+<\\/p>(.+?)<\\/div>[ \\t\\n]+<\\/div>/gs);
#학과들어간것 뽑아냄
foreach my $one_snippet (@snippets) {
my @course = ($one_snippet =~ /\\s(\\S+)학과/);
foreach my $course_name (@course) {
$hash{$course_name}++;
}
}
}
#가장 큰 값 뽑아내서
foreach my $value (values %hash) {
if ($max < $value) {
$max = $value;
}
}
#큰 값부터 출력
while ($max > 0) {
foreach my $key (keys %hash) {
if ($hash{$key} == $max) {
print \"$key\".\"학과\".\"$max\\n\";
}
}
$max--;
}
2. 위와 같이 진행할 경우, 학과가 아닌데 학과처럼 취급되는 예외 부분은
어떤 것이 있나? 그에 대한 예외처리는 어떻게 해 주면 좋을까?
학과가 아닌데 학과처럼 취급된 경우
- 경북대병원응급의학과
- 장윤득(지질학과
- 상담관련학과
. . .
Hash에 기존에 존재하는 학과를 입력해두고, 스니펫에서 학과라고 검색되어 나온 데이터가 Hash에 매칭되는 값이 있으면 1 증가하고, 없으면 증가하지 않는다면 학과가 아닌데 학과처럼 취급되는 상황은 발생하지 않을것이라고 생각합니다.

키워드

Perl 보고서,   Perl,   Homework on Perl,   함수,   hash