Hi gustav -
At 2005-10-13, 23:42:22 you wrote:
>Hi!
>
>Just a quick question. Can I set or unset an enviromentvariable through
>this Hash? I just need a yes ... :-)
>If No, please give explanation...
Not really.
If you do something like:
$ENV{SOMEVAR} = 'somevalue';
SOMEVAR will be available to you in your program and any programs you spawn
( with 'system' or backtics). But after your perl script ends, SOMEVAR is lost.
This is
because the system provides you with a new shell - with the envirnoment
inherited
from the caller - for the duration of the script; the evironment and its
modifications are
lost when the script ends.
On 'nix, you can play with the 'source' operator: '.', which instructs the
shell to run the
command following the '.' operator in the same shell (I'm talking bash - not
sure about
other shells).
>
>/G
>http://www.varupiraten.se/
>
>
>
>> Hi!
>>
>> Thanx a LOT!!!
>>
>> /G
>> http://www.varupiraten.se/
>>
>>
>>> Hi Gustav -
>>>
>>> At 2005-10-13, 23:13:33 you wrote:
>>>>Hi there!
>>>>
>>>>I'd like to get a list of enviromentvariables from the *NIX-system.
>>>>
>>>>I'd like it in the format...
>>>>ENV1=x1
>>>>ENv2=x2
>>>>ENV3=x3
>>>>
>>>>and so on...
>>>>
>>>>I think I have to use ENV-command. (http://perldoc.perl.org/Env.html)
>>>> Is
>>>>that right? I don't understand how I get this kind of listing. Please
>>>> put
>>>>me in right direction..
>>>>
>>>>
>>>>I tried to use print ENV% but I get this kind of output:
>>>>HOSTfriggAUDIODEV/tmp/SUNWut/dev/utaudio/8dtstart_sessionlogfile/dev/nullDTSCREENSAVERLISTStartDtscreenBlankXMBINDDIR/usr/dt/lib/bindingsUTAUDIODEV/tmp/SUNWut/dev/utaudio/8AB_CARDCATALOG/usr/dt/share/answerbooks/C/ab_cardcatalogLC_ALLCDTLOGINDISPLAYCLASSSunRayOSTY
>>>>
>>>>I envy you how can solve this... :-)
>>>>
>>>
>>> You're almost there. %ENV is a hash, do you can do something like this:
>>>
>>> print "$_=$ENV{$_}\n" for sort keys %ENV;
>>>
>>> Or, with more keystrokes:
>>>
>>> for my $var( sort keys %ENV ) {
>>> print "$var=$ENV{$var}\n";
>>> }
>>>
>>> Read up on hashes && good luck.
>>>>/G
>>>
>>> Aloha => Beau;
>>> [EMAIL PROTECTED]
>>> 2005-10-13
>>>
>>>
>>>
>>> --
>>> To unsubscribe, e-mail: [EMAIL PROTECTED]
>>> For additional commands, e-mail: [EMAIL PROTECTED]
>>> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>>>
>>>
>>>
>>
>>
>>
>
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
><http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
>
>--
>No virus found in this incoming message.
>Checked by AVG Anti-Virus.
>Version: 7.0.344 / Virus Database: 267.12.0/132 - Release Date: 10/13/2005
>
Aloha => Beau;
[EMAIL PROTECTED]
2005-10-13
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
