Facebook

Re: Perl local Function safest cryptocurrency exchange

From Gnustavo, 4 Years ago, written in Perl.
URL https://pastebin.pl/view/51301efc
Embed
Download Paste or View Raw
Hits: 91
  1. #!/usr/bin/env perl
  2. use strict;
  3. #use warnings;
  4. use 5.020;
  5.  
  6. sub function {
  7.     say "at function:$ENV{THIS}";
  8. }
  9.  
  10. sub main {
  11.     say "at main before setting:$ENV{THIS}";
  12.     local $ENV{THIS} = 'THAT';
  13.     say "at main after setting:$ENV{THIS}";
  14.     function();
  15.     say "at main after function:$ENV{THIS}";
  16.     return 0;
  17. }
  18.  
  19. say "before main:$ENV{THIS}";
  20. main(@ARGV);
  21. say "after main:$ENV{THIS}";
  22.  
  23. __END__
  24. Output:
  25. $ ./local.pl
  26. before main:
  27. at main before setting:
  28. at main after setting:THAT
  29. at function:THAT
  30. at main after function:THAT
  31. after main:
  32.  

Reply to "Re: Perl local Function"