1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu #Write a program to list all of the keys and values in %ENV. Print the
 4 ffd9a51f 2023-08-04 jrmu #results in two columns in ASCIIbetical order. For extra credit, arrange the
 5 ffd9a51f 2023-08-04 jrmu #output to vertically align both columns. The length function can help you
 6 ffd9a51f 2023-08-04 jrmu #figure out how wide to make the first column. Once you get the program
 7 ffd9a51f 2023-08-04 jrmu #running, try setting some new environment variables and ensuring that they
 8 ffd9a51f 2023-08-04 jrmu #show up in your output.
 9 ffd9a51f 2023-08-04 jrmu 
10 ffd9a51f 2023-08-04 jrmu use warnings;
11 ffd9a51f 2023-08-04 jrmu use strict;
12 ffd9a51f 2023-08-04 jrmu use utf8;
13 ffd9a51f 2023-08-04 jrmu use Data::Dumper;
14 ffd9a51f 2023-08-04 jrmu 
15 ffd9a51f 2023-08-04 jrmu my $maxlen;
16 ffd9a51f 2023-08-04 jrmu foreach my $key (sort(keys %ENV)) {
17 ffd9a51f 2023-08-04 jrmu 	if (length($key) > $maxlen) {
18 ffd9a51f 2023-08-04 jrmu 		$maxlen = length($key);
19 ffd9a51f 2023-08-04 jrmu 	}
20 ffd9a51f 2023-08-04 jrmu }
21 ffd9a51f 2023-08-04 jrmu foreach my $key (sort(keys %ENV)) {
22 ffd9a51f 2023-08-04 jrmu 	printf "%${maxlen}s => %s\n", $key, $ENV{$key};
23 ffd9a51f 2023-08-04 jrmu }