@perlwchallenge 주를 건너뛰고 #perl로 #유도 인코딩을 합니다.

이번 주에 나는 75주 동안 연습을 해 보았지만 성공하지 못했다.
유도를 연구하는 사람들을 위해 Perl 코드를 만들었다는 얘기다.나는 그들이 나에게 연락한 것이 나의 http://rwjl.net 사이트 때문이라고 생각한다.그 페이지에서 나는 연구 프로젝트를 운영했고 국제 장기에서 사용하는 ELO 시스템을 사용하여 올림픽 유도를 위해 대체 순위 시스템을 설계했다.
따라서 전자메일을 통한 요청은 큰 기쁨이다.그것은 내가 깊이 존경하는 사람에게서 왔다.그래서 돕는 것은 일종의 즐거움이다.
Perl은 항상 작업을 자동화하는 도구입니다.그것은 많은 임무의 강력한 고무다.그래서 이번 주에 나는 그것을 사용하여 일부 경기 결과를 자동으로 적합한 형식으로 정리했다.
특히... 무서운 CSV 형식.
하지만 Perl로서는 쉬워요!두 줄만 있으면 완성된다.
CSV 위치로 이동합니다. 해시 그룹이 있습니다.모든 시합에 참가한 작품은 국제 유도 경기의 결과이다.이 데이터를 기록합니다.perl의 CSV 파일은 다음과 같습니다.

use Text::CSV_XS 'csv';

...

my $err = csv( in => \@data, out => "summary_data.csv" );

기본적으로 이렇다.모듈의 POD 문서에서 직접 복사합니다Text::CSV_XS.
이것은 167000여 줄의 데이터를 가져와 거의 혼란이 없는 CSV를 만들었다.펄 바위!