Yes, but 'packing' the Perl before the solution is incomplete means you may
have to 'unpack' it to make changes. This applies especially in this forum.
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'.
Cheers,
Rob
----- Original Message -----
From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]>
To: "Rob" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, October 15, 2002 5:55 PM
Subject: Re: creating a string on the fly
> On Oct 15, Rob said:
>
> > $n = 0;
> > foreach $column ( GetColumns ($table) )
> > {
> > print ", " if $n++;
> > print $column;
> > }
>
> That's spelled
>
> print join ",", GetColumns($table);
>
> in Perl. :)
>
> --
> 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]
