🚀 go-pugleaf

Hubert Kowalski <hubik@pagi.pl> wrote:
: Czesc!

: Mam klopot z funkcja "split" na NT. Nie chce dzialac, jesli elementem
: rozdzielajacym jest znak "|", czyli:

: @elementy = split("|", $ciag_elementow)

: gdzie

: $ciag_elementow = "111|222|333|444"

: @elementy zawieraja wtedy po kolei pojedyncze znaki z $ciag_elementow. Na
: UNIX-ie dzialalo bez zarzutu. Jesli przyjme inny znak rozdzielajacy, np. ":"
: badz ";", wszystko jest OK. Czy ktos wie, co jest tego przyczyna? Dzieki za
: odpowiedz.

Mówisz że na unixie działa? To dziwne, bo u mnie nie :-)

Wydaje mi się że wynika to z tego, że pierwszym argumentem split nie 
jest string, tylko wyrażenie reguralne, w którym | ma znaczenie specjalne.
Jak się napisze tak:

split( /\|/, $ciag_elementow )

to już działa:

kompas@ibm$ perl -le 'print join "-", split /\|/, "111|222|333|444"'
111-222-333-444

(Inna sprawa że to /\|/ wygląda koszmarnie :-) ).

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND