NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
jdavidb (1361)
jdavidb
(email not shown publicly)
http://voiceofjohn.blogspot.com/
J. David Blackstone has a Bachelor of Science in Computer Science and Engineering and nine years of experience at a wireless telecommunications company, where he learned Perl and never looked back. J. David has an advantage in that he works really hard, he has a passion for writing good software, and he knows many of the world's best Perl programmers.
(email not shown publicly)
http://voiceofjohn.blogspot.com/
J. David Blackstone has a Bachelor of Science in Computer Science and Engineering and nine years of experience at a wireless telecommunications company, where he learned Perl and never looked back. J. David has an advantage in that he works really hard, he has a passion for writing good software, and he knows many of the world's best Perl programmers.
Wednesday September 17, 2003
02:10 PM
PL/SQL idiom
In Perl:
foreach my $word (qw(this that whatever))
{
dosomething($word);
}
In PL/SQL:
<<foreach>>
DECLARE
TYPE wordlist_t IS VARRAY(somenumber) OF
VARCHAR2(#);
wordlist wordlist_t
:= wordlist_t('this', 'that', 'whatever');
BEGIN
FOR i IN wordlist.FIRST.. wordlist.LAST
LOOP
dosomething(wordlist(i));
END LOOP;
END foreach;
PL/SQL idiom
More |
Login
| Reply
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
--Donald E. Knuth
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Or even... (Score:3, Funny)
--
xoa
Reply to This
Re:Or even... (Score:2)
Hmm, yeah, but usually I use the other form because I'm thinking of traversing the list. However, maybe that would read more naturally.
BTW, did I fail to get the joke? What's funny?
J. David works really hard, has a passion for writing good software, and knows many of the world's best Perl programmers
But if your array is zero... (Score:2)
This fails if your array has zero size.
J. David works really hard, has a passion for writing good software, and knows many of the world's best Perl programmers