At 09:21 -0400 6/16/99, cetasix@pop.erols.com wrote: > I am trying to sort a simple text file: > Janssen||Willem > Hinders||Trintje > Beving||John > Beving||Henrietta > Beving||Ubbe > Beving||Henry > Beving||Henry > Beving||Etta > Beving||Minnie > Beving||Bertha > Willemssen||male > Willemssen||male > Willemssen||Wopka(e) > Brower||Coba > Brower||John > Brower||Bertha Is it more than just a simple sort you want? That is, do you want to _do something_ with the data? Or just sort it? Have I missed something? script: #!perl open(IN, "names.txt") or die "Oops"; @names = <IN>; # note this is an ASCII (case-sensitive) sort; you may want to # "improve" on that @sorted = sort @names; foreach (@sorted) { print; # note you could now split or substitute ", " for the || or... # What are you trying to accomplish? Beyond a simple sort? } results: Beving||Bertha Beving||Etta Beving||Henrietta Beving||Henry Beving||Henry Beving||John Beving||Minnie Beving||Ubbe Brower||Bertha Brower||Coba Brower||John Hinders||Trintje Janssen||Willem Willemssen||Wopka(e) Willemssen||male Willemssen||male -- -- |\ _,,,---,,_ Vicki Brown <vlb@cfcl.com> ZZZzz /,`.-'`' -. ;-;;,_ Journeyman Sourceror: Scripts & Philtres |,4- ) )-,_. ,\ ( `'-' P.O. Box 1269 San Bruno CA 94066 '---''(_/--' `-'\_) http://www.cfcl.com/~vlb http://www.macperl.org ===== Want to unsubscribe from this list? ===== Send mail with body "unsubscribe" to macperl-request@macperl.org