Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

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]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2018-06-23 11:07 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.