Zwięzłe wyrażenie foreach w jednej linii

Question

W Perl, można często uniknąć stosując bloki sterujące, tak:

print "$_\n" foreach(@files); 

zamiast:

foreach(@files){ 
    print "$_\n"; 
} 

Jak to działa składni Poniżej więcej złożony przypadek:

die("Not a file: $_") unless -f $_ foreach(@files); 

Daje mi błąd składniowy. Nie próbuję pisać zaciemnionego kodu, jest to po prostu nieistotna część programu, dlatego chcę go wyrazić tak zwięźle, jak to tylko możliwe.

zestawione ODPOWIEDZI:

mogę przyjąć tylko jedną odpowiedź jako zaakceptowany odpowiedź, ale lubię następujące te z Chris i Jon najlepiej.

Ten wykorzystuje foreach jak zamierzałem, ale bez syntax error:

-f or die "Not a file: $_" foreach @files; 

A po nich jest co najmniej tak samo dobre. Lubię to die jest na początku instrukcji, ponieważ to właśnie uwagę czytelnika powinno być skierowane:

die("Not a file: $_") for grep {!-f} @files; 

Answer 1

Wystarczy być Perlish (TMTOWTDI) można użyć logiki zwarcia:

-f or die "Not a file: $_" foreach @files; 

testowany na OS X i dzieł.

Na marginesie, -f or die wygląda dużo wspólnych open() or die konstruktów widzę w Perlu i nadal ( myślę) pokazuje intencję linii (do die pod pewnymi warunkami).

Answer 2

dobrze, nie może być zamierzając napisać kod zaciemniony, ale chcę powiedzieć, że 'z pewnością próbuje do.

Czy dwie linie (a nawet blok w jednym wierszu, jak sugeruje Brent.Longborough) zamiast jednego będzie tak zły? Szczerze mówiąc, to jest powód, dla którego generalnie nienawidzę próbować debugować/edytować kod perlowy innych ludzi, duża liczba osób, które piszą w perlu wydają się mieć obsesję na punkcie robienia wszystkiego w najbardziej "sprytny" sposób, zamiast robić to w sposób łatwy do zrozumienia dla kogoś, kto czyta.

Answer 3

Jeśli nie próbujesz pisać zaciemnionego kodu, nie powinieneś próbować pisać tego w ten sposób. Bierzesz coś, co powinno być proste i trudne do zrozumienia.

Answer 4

Można użyć @ odpowiedź Brent.Longborough, albo jeśli naprawdę chcesz Postfix, wykonaj następujące czynności:

do { die("Not a file: $_") unless -f $_ } foreach(@files); 

Jednak zgadzam się z innymi, tylko dlatego, że to jest „nieistotna część” nie znaczy, że zwięzłość jest lepsza. Czytelność się liczy.

Answer 5

Jeśli test błędu jest podstawowym punktem tego kodu, może być sensowne, aby jego położenie początkowe znajdowało się na początku wiersza. Nieznaczna poprawa byłoby użyć grep:

die("Not a file: $_") for grep {!-f} @files; 

Ale jeśli plan zapętlenie poprzez pliki z jakiegoś innego powodu, w tej części kodu, byłoby lepiej, aby dodać go do ciała pętli.

Answer 6

Cholera, Jon pokonał mnie po prostu grep.

Ale mam większe pytanie: jak to nie ma znaczenia, jeśli faktycznie zamierzasz wyskoczyć, jeśli znajdziesz jakieś pliki w twojej tablicy? (W przeciwieństwie do, powiedzmy, usuwania tych elementów, ostrzegania użytkownika, a następnie przetwarzania reszty listy.) Myślę, że zabicie całego shebangu jest rozsądnie ważną częścią programu.

W każdym razie nie możesz zrobić dokładnie tego, czego chcesz, z modyfikatorami Postfix, ponieważ możesz mieć tylko jedną rzecz po obu jej stronach. Więc nie możesz mieć zarówno unless, jak i foreach. Ze szczytu odpowiedniego bitu perldoc perlsyn:

Wszelkie proste stwierdzenie może ewentualnie być następnie SINGLE modyfikatora, tuż przed średnik kończący (lub blok kończąc).

Answer 7

Jesteś tak martwy.

Your maintenance programmer http://www.codinghorror.com/blog/images/carny.jpg

Mam nadzieję, że nigdy cię znajdzie. Ale powinieneś think about him whenever you code.

Answer 8

Myślisz zbyt mocno. Oto ona w jednej linii bez akrobacji:

foreach (@files) { die("Not a file!") unless -f } 

Możecie bawić z rzeczy wewnątrz bloku do golfa go w dół, ale usuwanie nawiasów i szelki nie pomaga w ogóle, i prawdopodobnie będzie pomylić kolejnego programistę, który musi na to spojrzeć.

Prawdopodobnie masz coś bardziej skomplikowanego, a to tylko przykład. W prawdziwym świecie staje się jeszcze łatwiejsze:

not_a_file_die_die_die(\@files); 

Następnie przenosisz wszystkie skomplikowane elementy do podprogramu. Prawdziwy trik polega na tym, aby cel był zwięzły, a nie kod implementujący ideę. W wielu przypadkach mechanika naprawdę nie ma znaczenia; zależy ci bardziej na wyniku. W takich przypadkach nie poci mechaniki.