Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re: elsif statement not being evaluated

by eyepopslikeamosquito (Chancellor)
on Nov 18, 2012 at 11:09 UTC ( #1004391=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    use strict;
    use warnings;
    foreach my $line (reverse @lines) {
        print "\t$line\n";
  2. or download this
    print "do you want to print the program's\n", "1. default strings in r
    +everse order\n", "2. or enter your own to be reversed ?\n";
  3. or download this
    print <<'JONAG';
    Do you want to print the program's
      2. or enter your own to be reversed ?
    Choose option 1 or 2 or q to quit
  4. or download this
    chomp $choice;
    if ($choice eq 'q') {
        print "quitting\n";
  5. or download this
    my @lines = qw( wrda vzc rregr zfgr bzfgzffg rergrge d fgsrg rwer ds v
    +sgsrg );
  6. or download this
    foreach $line (@proglines) {
        $line = "\t$line";
        $line .= "\n";
    print "@proglines";
  7. or download this
    foreach my $line (@proglines) {
        print "\t$line\n";
  8. or download this
    print map { "\t$_\n" } @proglines;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1004391]
[karlgoethebier]: Corion: Auch in hessisch? Mer wasses net.
[Corion]: Hmm - I'm not sure, I haven't read the mundart/slang translations ;)
[Eily]: $F[1] =~ s/^0//r could be written as (0+$F[1]). It's less explicit though
[Discipulus]: ah! seems wise choroba, you play safe
[shmem]: Eily: also -+-$F[1]
[shmem]: hmm... there should be a glyph for "bembel" in unicode "miscellaneous symbols"
[karlgoethebier]: shmem: ++1000. Also for Schöppsche
[Eily]: shmem Indeed :)
[choroba]: How is Bembel different from Krug?
[hippo]: karlgoethebier, Ich habe kein Deutsch.

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (12)
As of 2017-05-24 08:44 GMT
Find Nodes?
    Voting Booth?