Tại sao bản đồ Perl của tôi không trả lại bất cứ điều gì?

Question

Khi tôi đang chạy tuyên bố sau:

@filtered = map {s/ //g} @outdata; 

nó được trả lại một danh sách trống thay vì danh sách lọc mà tôi mong đợi. Những gì tôi đang cố gắng làm là loại bỏ mọi sự xuất hiện của   từ một mảng chuỗi (là một tệp XML).

Rõ ràng, tôi không hiểu điều gì đó. Bất cứ ai có thể cho tôi biết cách chính xác để làm điều này có thể được, và tại sao điều này không làm việc cho tôi như là?

Answer 1

Hãy thử điều này:

@filtered = map {s/ //g; $_} @outdata; 

Vấn đề là các nhà điều hành trong s perl đổi $ _ nhưng thực sự trả về số thay đổi nó làm. Vì vậy, $ _ thêm vào cuối sẽ làm cho perl trả về chuỗi đã sửa đổi cho mỗi phần tử của @outdata.

Answer 2

Trái với những câu trả lời của Greg, bạn có thể lạm dụng grep:

@filtered = grep {s/ //g; 1} @outdata; 

Đừng làm điều này.

Answer 3

Lưu ý rằng bản đồ cũng sẽ sửa đổi mảng nguồn của bạn. Vì vậy, bạn có thể làm:

map {s/ //g} @outdata; 

và bỏ qua biến @filtered hoàn toàn, hoặc nếu bạn cần phải giữ lại bản gốc,

@filtered = @outdata; 
map {s/ //g} @filtered; 

Mặc dù, trong trường hợp đó, nó có thể là dễ đọc hơn để sử dụng foreach:

s/ //g foreach @filtered; 

Answer 4

Để theo dõi điểm Tithonium, điều này cũng sẽ làm các trick:

@filtered = map {local $_=$_; s/ //g; $_} @outdata; 

"địa phương" đảm bảo bạn đang làm việc trên một bản sao chứ không phải bản gốc.

Answer 5

Câu trả lời của Greg có vấn đề là nó sẽ sửa đổi mảng ban đầu khi $ _ được chuyển bí danh. Bạn cần:

@filtered = map { (my $new = $_) =~ s/ //g; $new} @outdata; 

Answer 6

use Algorithm::Loops "Filter"; 
@filtered = Filter { s/ //g } @outdata; 

Answer 7

Trong perl 5.14 bạn có thể sử dụng /r modifier regex để make non-destructive substitution.

@filtered = map {s/ //gr} @outdata;