elsif Videos
 | Perl Tutorial 9 - Conditionals: if, elsif, else, unless http://www.ScriptSocket.com/ Part 9 of the Perl Tutorial shows basic conditional statements: if, elsif, else and unless. |
 | Perl Tutorials -Part 34- The 'elsif ladder' The 'elsif ladder' |
 | IntrspctrRdr #13 Introspector Reader The youtube introspector reader program elsif(/\#?TAGS\:(.+)$/) { die "$_" unless $DESC; $TAGS =$1; warn $_; } elsif (/\#?CAT\:([\d]+)/) { $CAT =$1; warn "CAT:$_"; } elsif(/\#?TITLE\:([\s\w\S\d]+)$/) { $TITLE=$1; } elsif (/VOICE\:(.+)/) |
 | IntrspctrRdr #12 Introspector Reader The youtube introspector reader program die unless $BEGINTAGS; $SHORT =$1; warn $_; } elsif (/\#?DESC\:(.+)$/) { die unless $SHORT; die unless $BEGINTAGS; $DESC =$1; warn $_; } elsif (/\#?FONT\:(.+)$/) { $FONT =$1; warn "read font:$_"; } |
 | p6apclps #40 Perl 6 Apocalypse http://www.perlfoundation.org/perl6 - - "continue" blocks don't share the same lexical scope even in Perl 5. But we'll solve this issue without "tunneling" in any case. (And we'll change the "continue" block into a "NEXT" block that goes inside, so we can refer to lexical variables from within it.) RFC: *Note that "try" is a keyword, not a function. This is so that a ";" is not needed at the end of the last block. This is because a "try"/"catch"/"finally" now looks more like an "if"/"els |
 | IntrspctrRdr #14 Introspector Reader The youtube introspector reader program { $VOICE =$1; warn "VOICE:$_"; } elsif (/\#?END\:TAGS/) { die unless $CAT; $ENDTAGS=1; warn $_; # close IN; } } else { $DESC =~ s/-\%3E/ :/g; |
 | p6apclps #34 Perl 6 Apocalypse http://www.perlfoundation.org/perl6 - - stream as a funny kind of string. So if the "given" of a switch statement is a token stream, the regular expressions matched against it may have special abilities relating to the current parse's data structure. All the regular expressions of such a switch statement will likely be implicitly anchored to the current parse location, for instance. There may be special tokens referring to terminals and non-terminals. Basically, think of something like a |
 | p6apclps #32 Perl 6 Apocalypse http://www.perlfoundation.org/perl6 - - are still "cases". But you don't have to put "switch" or "case" into constant-width font, because they're not keywords. Because curlies are so extremely overloaded in Perl 5, I was at first convinced that we would need a separator of some sort between the expression and the block, maybe a ":" or "=]" or some such. Otherwise it would be too ambigous to come upon a left curly when expecting an operator--it would be interpreted as a hash subscript inst |
 | IntrspctrRdr #11 Introspector Reader The youtube introspector reader program warn "opened $ofilename for writing"; my $left =""; while () #foreach my $line (@maptext) { warn "READING $_"; ## extract the tags- chomp $_; if (!$ENDTAGS) { if (/\#?BEGIN\:TAGS/) { $BEGINTAGS=1; } elsif (/\#?SHORT\:(\w+)/) { |
