컴퓨터 엑셀 워드 포토숍 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Previous Post Perl 펄] 영문 배열 고유 요소만 구하기, 대소문자 구분 없이; Unique Eleme...Perl 펄] 배열에서 중복된 요소 제거, 동일 데이터 지우기; Unique Element...Python 파이썬] 패스에서 확장자 제거, 파일명만 구하기; Remove ExtPython 파이썬] 패스명에서 디렉토리/파일명/확장자 구하기; Split PathPython 파이썬] 파일 크기 사이즈 구하기 함수, 바이트 단위로; File Size i...Python 파이썬] 파일 존재 여부 판단, 디렉토리 있는지? 함수; Is File Dir...Python 파이썬] 파일인지 디렉토리인지 여부 판단 함수; is File or DirLG홈쇼핑, GS홈쇼핑으로 상호와 주소 변경수식 입력기 설치 방법: 엑셀(Excel) 워드(Word) 수학 공식 입력; Microso...피드버너 포스트 링크 주소를 고유 주소로 변경 방법; FeedBurner Post Link...

Perl 펄] 배열의 중복된 숫자 제거, 동일 값 지우기; Array Unique Number

Thursday, April 05, 2007

숫자로 이루어진 배열이나 숫자가 포함된 배열에서, 중복된 숫자를 지우고 고유한 숫자만 남기는 방법입니다.

펄에서는 숫자와 문자열의 구분이 거의 없기 때문에, 문자열 배열의 중복된 요소를 지우는 것과 같은 방법을 사용하면 됩니다.

숫자 배열의, 같은 숫자 지우기 예제


스크립트 파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;


  my @num = qw/ 10 10 10 20 30 -0.5 3.14 -0.5 3.14 10 20 30 /;


  # 중복된 요소 모두 삭제하고 출력
  @num = uniqueElements(@num);
  print "$_ " foreach (@num);
  # 출력 결과: 10 20 30 -0.5 3.14
  # 중복된 숫자들이 이제 하나씩만 나옵니다.



# 주어진 배열에서, 중복되는 요소들을 모두 삭제하고 리턴하는 함수
sub uniqueElements {
  my ($item, %seen, @result);

  foreach $item (@_) {
    push(@result, $item) unless $seen{$item}++;
  }

  return @result;
}



참고: ▶▶ Perl 펄] 배열에서 중복된 요소 제거, 동일 데이터 지우기; Unique Elements

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Categories
Previous Posts
Monthly Archives
Top