Skip to content

Instantly share code, notes, and snippets.

@marcoonroad
Last active January 4, 2016 18:29
Show Gist options
  • Save marcoonroad/8661124 to your computer and use it in GitHub Desktop.
Save marcoonroad/8661124 to your computer and use it in GitHub Desktop.
Tenha todas as Variáveis de Environment.
# use strict;
use warnings;
use feature qw/ say /;
# my @array = %ENV;
# my $length = scalar (@array);
# my $i;
# for ($i = 0; $i < ($length/2); $i++) {
# my $first = shift(@array);
# my $second = shift(@array);
# print "Propiedade : $first \n" ;
# print "==> $second \n\n";
# }
say "Propiedade: $_\n==> $ENV{S_}" for keys %ENV;
# sleep 3;
@marcoonroad
Copy link
Author

Um simples Perl script que printa todas as Environment variáveis do sistema Linux.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment