🚀 go-pugleaf

primoh <primoh_wytnij_@gazeta.pl> wrote:
: Witam

: Mam dwie tablice:
: @tab1 = ("Ragf", "Rasdf", "Fdefdg", "ASDCF");
: @tab2 = ("R","F");

: Chcialbym otrzymac tablice @tab3, ktora bedzie zawierala elementy @tab1
: pasujace do @tab2, czyli;

: @tab3 = grep(/R/,@tab1);
: @tab3 = grep(/F/,@tab1);

: ale w jednym wywolaniu grepa, cos na ksztalt:
: @tab3 = grep(/@tab2/,@tab1);

: Jak to zrobic?

Najpierw skonstruować regexp pasujący do wszystkich elementów @tab2, a potem
przyłożyć ten regexp grepem do @tab1:

$regexp = join("|", map { "\Q$_\E" } @tab2);
@tab3 = grep(/$regexp/, @tab1);

Dodatkowo, nie wiem, czy to kwestia przypadku, czy faktycznie te napisy z
@tab2 zawsze są *początkami* napisów z @tab1 - jeśli tak, to mocno poprawisz
wydajność grepa pisząc /^$regexp/ zamiast /$regexp/. I, jeżeli zawartość
@tab2 nie zmienia się pomiędzy kolejnymi wykonaniami (np. w pętli) tego
grepa, to daj opcję wymuszającą jednorazową kompilację regexpa: /$regexp/o

-- 
Szymon Sokół (SS316-RIPE) -- Network Manager                                B
Computer Center, AGH - University of Science and Technology, Cracow, Poland O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982 F 
Free speech includes the right not to listen, if not interested -- Heinlein H