Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    
    print Dumper(\%groups);
    
  2. or download this
    #!/usr/bin/perl
    
    ...
    
    $dbh->disconnect();
    exit;
    
  3. or download this
    system("true") == 0
        and print "true succeeded\n"
    ...
    system("false") == 0
        and print "false succeeded\n"
        or warn "false didn't succeed\n";
    
  4. or download this
    use warnings;
    use strict;
    ...
            }
    });