perl qw 빈 칸 을 구분자 로 하 는 문제 해결 방법

1194 단어 perlqw
perl 에서 배열 을 만 들 때 qw 에 사용 할 수 있 습 니 다.
그러나 한 가지 문제 가 있다.20 명의 이름 으로 구 성 된 배열 을 만 들 려 면 모든 사람의 이름 이 이런 형식의'Join smith','Harry Potter',즉 모든 이름 이 성도 포함 되 고 이름 도 포함 된다 는 것 이다.이때 qw 는 효과 가 없다.qw 는 빈 칸 을 구분자 로 하기 때 문 입 니 다.
다음은 여러분 이 참고 하도록 대체 적 인 해결 방안 을 제공 합 니 다.
프로젝트 1:
가장 원시 적 인 방안,즉 더 블 따옴표 로 배열 의 생 성 을 진행 합 니 다

@names=("Join smith","Harry Potter"); 
print @names[0];
결 과 는 다음 과 같다.F:\>perl\b.pl  Join smith  F:\>
프로젝트 2:
우 리 는 간단 한 변 화 를 진행 할 수 있 습 니 다.qw 는 빈 칸 만 구분자 로 할 수 있 습 니 다.그러면 우 리 는 사람의 이름 사이 의 빈 칸 을 다른 문자 로 대체 할 수 있 습 니 다.@names=qw/Join_smith Harry_Potter/;  #그리고 우리 가 출력 할 때 중간 에 있 는 연결 부 호 를 교체 합 니 다. 

@names[0]=~s/_/ /g; 
print @names[0];
결 과 는 다음 과 같다.F:\>perl\b.pl  Join smith  F:\>
프로젝트 3:
split 함 수 를 이용 하여 생 성 합 니 다.

#  
$names="Join smith,Harry potter", 

# split , split// ,  
my @names=split/,/,$names; 
rint @names[0];
결 과 는 다음 과 같다.F:\>perl\b.pl  Join smith  F:\>

좋은 웹페이지 즐겨찾기