Conditional debug : Command Line « Language Basics « Perl

  1. Perl
  2. Language Basics
  3. Command Line




Conditional debug

     

#!/usr/bin/perl
use strict;
use warnings;
use subs qw(debug);

unless (defined &debug) {
    if ($ENV{DEBUG_ENABLED}) {
        *debug = sub { print STDERR "@_\n" };
    } else {
        *debug = sub { }; #stub
    }
}

debug "In debug mode";










Related examples in the same category

1.Using shift to process the command-line arguments.
2.A program that sorts input lines in reverse order.
3.Assigning Input to an Array
4.<> is the same as
5.A case-conversion program.
6.A simple Perl program that reads and writes a line of input.
7.Reading from STDIN
8.Redirect STDIN to error.log
9.Using diamond operator with while statement
10.Using diamond sign to read from keyboard
11.You can omit the STDIN altogether
12.do .. while with diamond operator
13.Standard input
14.Read three lines of text from standard input
15.Read user input
16.Getting Input in Perl Scripts
17.Read input from keyboard
18.Read name from console
19.Read user input and use if statement to check it
20.Read a line of input from the keyboard
21.Read a single character from the keyboard
22.The ARGV Array: command line parameters