Help for this page

Select Code to Download


  1. or download this
    chomp( my @cmds = `child` );
foreach my $cmd (@cmds) {
   next unless /^set\s+(\S.*?)=(.*)/i;
   $ENV{$1} = $2;
}
  2. or download this
    for /f "usebackq delims=" %%f in (`child`) do %%f
  3. or download this
    echo set VAR=5
  4. or download this
    print("set VAR=5\n");