On Oct 15, Rob said: >Suppose we needed to throw out all 'system' column names (such as the >internal table ID or the creation date) which, say, started with an >underscore. We would want to put > > next if $column =~ /^_/; > >at the start of the loop - a loop which wouldn't exist if we'd used 'join'.
Well, then I'd advocate the use of grep(): print join ", " => grep !/^_/, @things; Then you start to learn Perl idioms. Then you start to "speak" Perl more proficiently and fluently. -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. [ I'm looking for programming work. If you like my work, let me know. ] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
