Home - Verzeichnisse: Namenskonventionen? - #11703 (Windows)

J-jayz-Z

2005-08-21 14:36

User since
2005-04-13
625 Artikel
BenutzerIn

Das

Code: (dl )

sub get_home_dir {
   if ($^O eq 'MSWin32') {
        $ENV{USERPROFILE};
   } else {
        $ENV{HOME}; # wobei es sicherer ist, getpwuid zu verwenden!
   }
}

geht IMHO auch kürzer:

Code: (dl )

$^O eq 'MSWin32' ? $ENV{USERPROFILE} : $ENV{HOME};

EDIT:

btw.: pktm fragte, ob es auch bei MAC`s geht, allerdings ist MAC OS X ein Unix, aber die anderen IMHO nicht...\n\n

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de