Project

General

Profile

Bug #6565 ยป env_changer.pl

Simon K, 2016-01-19 09:35 AM

 
1
#!/usr/bin/perl -w
2

    
3
my $max_vars = 100;
4

    
5
while(1) {
6
        for (my $i = 0; $i <= $max_vars; $i++) {
7
                $ENV{"TESTVAR_".$i} = "ABC";
8
        }
9
        for (my $i = 0; $i <= $max_vars; $i++) {
10
                delete $ENV{"TESTVAR_".$i};
11
        }
12
}
    (1-1/1)