Linux/Unix Homeverzeichnis (Allgemeines zu Perl)

J-jayz-Z

2005-08-18 06:59

User since
2005-04-13
625 Artikel
BenutzerIn

Hi, kann ich irgendwie die Tilde(~) in Perl unter Linux/Unix in den Namen des Homeverzeichnises umwandeln ? ? ?

EDIT: Verzeichnis wird mit einem s geschrieben ^^\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

pq

2005-08-18 11:55

User since
2003-08-04
12208 Artikel
Admin1

$ENV{HOME} oder perldoc -f getpwuid

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

renee

2005-08-18 11:57

User since
2003-08-04
14371 Artikel
ModeratorIn

Warum nimmst Du nich $ENV{HOME}??

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

pq

2005-08-18 15:20

User since
2003-08-04
12208 Artikel
Admin1

[quote=J-jayz-Z,18.08.2005, 04:59]Hi, kann ich irgendwie die Tilde(~) in Perl unter Linux/Unix in den Namen des Homeverzeichnises umwandeln ? ? ?

EDIT: Verzeichnis wird mit einem s geschrieben ^^[/quote]
beim genitiv dann aber wieder mit 2.
"des Homeverzeichnisses"

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

ptk

2005-08-18 16:12

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Nicht ernst gemeint:

Code: (dl )

perl -e '$dir = `echo ~user`; warn $dir'

J-jayz-Z

2005-08-18 18:20

User since
2005-04-13
625 Artikel
BenutzerIn

na ja, deutsche Sprache, schwere Sprache...
Danke für eure Hilfe !

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