13 lines
349 B
Perl
13 lines
349 B
Perl
|
#Getopt::Long::GetOptions('print_header!' => \$print_header);
|
||
|
|
|
||
|
|
#This option sets up --print_header or --noprint_header to turn off the option.
|
||
|
|
|
||
|
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use Getopt::Long;
|
||
|
|
|
||
|
|
Getopt::Long::GetOptions('print_header!' => \$print_header);
|
||
|
|
|
||
|
|
if ( defined( $print_header ) ) {
|
||
|
|
print "print_header flag set to $print_header\n";
|
||
|
|
}
|