Perl6 :: 모임 Perl6 :: Colate는 Perl 5에서 Perl 6 '수집 / 촬영'제어 구조를 구현하는 Perl 모듈입니다.
지금 다운로드

Perl6 :: 모임 순위 및 요약

Perl6 :: 모임 태그

제어 모으다 Perl 구조 통제권을 모으다 통제하십시오

Perl6 :: 모임 설명

Perl6 :: Gather는 Perl 6 'Perl 5에서 Perl 6'수집 / 복용 '제어 구조를 구현하는 Perl 모듈입니다. Perl6 :: Gather는 Perl 6 'Perl 6'Control 구조체를 구현하는 Perl 모듈 5.Snopsis Perl6 :: Gather; @List = 수집 {홀수 숫자와 홀수 이름을 추출하려고합니다 ... (@Data) {if (/ (/ (/ (1 | 3 | 9) $ /) {QQ { '$ _'}; } ELSIF (/ ^ D + $ / $ _ % 2) {취소; }} #하지만 둘 중 하나가 없으면 기본 설정을 사용합니다 ... 수집하지 않는 한 @Defaults를 찍습니다. } BackgroundPerl 6은 임시 변수가 필요하지 않고 목록을 절차 적으로 생성 할 수있는 새 제어 구조체를 제공합니다. 수집으로 제어되는 블록 / 클로저 내에서 호출을 암시 적으로 생성 된 배열로 끌어 올리는 것을 푸시합니다. 가져가는 요소의 수를 반환합니다. 블록의 실행의 끝에서, 수집은 배열에 저장된 값 목록 (목록 컨텍스트에서) 또는 배열에 대한 참조 (스칼라 컨텍스트에서)를 반환합니다. 예를 들어, 글쓰기 대신 : # Perl 6 코드 ... 인쇄 do {my @wanted; for -> $ LINE {PUSH @ WANTED, $ LINE IF $ LINE ~~ / D /; push @wanted, - $ line some_other_condition ($ line); } 푸시 @wanted 'eof'; @ 웨인트; }; Perl 6에서 우리는 쓸 수 있습니다 : # Perl 6 코드 ... 인쇄 수집 {$ line {$ line ~ ~ / d /; Take - $ LINE IF SOUNT_OTHER_CONDITION ($ line); } 'eof'를 가져 가라. } 및 대신 $ text = do {my $ string; {다음 if / ^ # | ^ s * $ /; 마지막 if / ^ __ __ n $ /; $ string. = $ _; } $ string; }; 우리는 글을 쓸 수 있습니다 : $ text = ~ ~ {{다음 if / ^ # | ^ s * $ /; 마지막 if / ^ __ __ n $ /; 가져 가다; } 위의 예제에서는 인수없이 찍은 경우, 현재 주제가 필요합니다. 또한 수집중인 암시 적 배열에 대한 참조를 반환하는 세 번째 함수입니다. 이것은 기본값을 처리하는 데 유용합니다. @ODDS = GOODE {@DATA {$ _ % 2에 대한 경우, To_num ($ _) if / $ /; } 수집하지 않는 한 1,3,5,7,9를 취하십시오. } 간단한 순차 푸시보다 더 복잡한 일부 프로세스에 의해 암시 적 배열을 만드는 데있어 편리합니다. 예를 들어, 숫자가 아닌 항목 수를 앞 붙일 필요가있는 경우 : @ODDS = GOODE {@DATA {$ _ % 2에 대한 경우, To_num ($ _) if / $ /; } unshift 수집 된 + grep (/ / i, @data); } 개념적으로 수집 / 촬영은지도와 Grep가 두지도하는 일반화 된 양식입니다. 즉, 하위지도 ($ transform은 코드, * @ 목록) {return congel {$ transform ($ _)}}}을 구현할 수 있습니다. } Sub Grep ($ 선택한 코드 | * @리스트) {return confity {@List {$ 선택한 경우 {Take}}} 수집은 목록의 구축을 단락시키는 매우 편리한 방법이기도합니다. 예를 들어, 두 개의 정렬 된 파일에서 단일 정렬 된 행 목록을 생성하려고하지만 일반적으로 첫 번째 줄에만 사용할 수 있습니다. 우리는 다음과 같은 선을 수집 할 수 있습니다 : my @merged_diff = 수집 {my $ a = <$ fh_a>; 내 $ b = <$ fh_b>; 루프 {모든 $ a, $ b {$ a eq $ b {last} # 중복은 목록의 끝을 의미합니다. ELSIF $ A LT $ B {$ a를받습니다. $ a = <$ fh_a>; } else {$ b를 가져 가라. $ b = <$ fh_b>; }} ELSIF 정의 $ a {$ a를 가져 가라. $ a = <$ fh_a>; } ELSIF 정의 $ B {$ b를 가져 가라. $ b = <$ fh_b>; } else {last}}} 요구 사항 : · Perl 요구 사항 : · Perl.

Perl6 :: 모임 관련 소프트웨어