Re^2: Does $> have a little extra magic?

Having since arrived at the office,

$root = eval "use Win32" || ! $@ ? Win32::IsAdminUser() ? 1 : 0 : $> =
+= 0 ? 1 : 0;
[download]

... has all appearances of working as expected. Win32::IsAdminUser() seems to report what I'm interested in. I guess I'm just puzzled by perl's adherance to unix-y properties (with regards to $>) when run on Windows.

--chargrill

$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
+plit//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
+C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
+$$C[$%++]}
[download]

Comment on Re^2: Does $> have a little extra magic? Select or Download Code

Replies are listed 'Best First'.
Re^3: Does $> have a little extra magic? by Tanktalus (Canon) on Mar 21, 2006 at 17:13 UTC
You have to admit - that's kinda ugly ;-) `# Try Windows first. my $root = eval { require Win32; Win32::IsAdminUser(); }; # If that didn't work, try Unix. $root = $> == 0 if $@;` [download] Also has the advantage of avoiding eval STR. String evals are nasty and to be avoided where possible.	[reply] [d/l]
Re^4: Does $> have a little extra magic? ($@) by tye (Sage) on Mar 21, 2006 at 20:06 UTC
Using $@ to decide whether eval failed is error prone, in my experience. Instead I end my 'eval' expression with "; 1" and check whether eval returns a true value or not: `my $root= eval { require Win32; 1 } ? Win32::IsAdminUser() : $> == 0;` [download] - tye	[reply] [d/l]