Help for this page

Select Code to Download


  1. or download this
    SKMDSK06::T:\>perl -V | findstr uname
    uname='Win32 strawberry-perl 5.32.0.1 #1 Sun Aug  2 19:46:04 2020 
+x64'
  2. or download this
    SKMDSK06::T:\>set user
USERDOMAIN=SKMDSK06
USERDOMAIN_ROAMINGPROFILE=SKMDSK06
USERNAME=Steve
USERPROFILE=C:\Users\Steve
  3. or download this
    SKMDSK06::T:\>type test01.pl
use strict;

...
my $path = path("/a/b/c/$ENV{USER}")->absolute;

print "$path\n";
  4. or download this
    SKMDSK06::T:\>perl test01.pl
T:/a/b/c

SKMDSK06::T:\>