|
#!/usr/local/bin/perl -w
use 'Getopt::Std'
getopt('abcd:ef:');
print "Switch a is on\n" if $opt_a;
print "Switch b is on \n" if $opt_b;
print "Switch c is on \n" if $opt_c;
print "Debug switch set to $opt_d\n" if $opt_d > 5;
print "Switch e is on\n" if $opt_e;
if ($opt_f) {
print "Cannot locate file $opt_f\n" unless -e $opt_f;
}
for $I (1..5) {
print "Value of I is $I\n" if $opt_d;
}
print "No (more) switches specified\n";
|