[Perl/Tk] (ab)userinfo uit systeem halen

[Verwijderd]

Aloha!

Men logt in (X), krijgt een popupbox met: Welkom <jouwnaam>!
Nu is de vraag: hoe regel ik nou het <jouwnaam> gedeelte?
Heb al in de faq rondgeneusd...nix gevonden.Het is mijn bedoeling dit progje 1x voor alle users te fixen, dus niet iedere user een progje met daarin zijn/haar naam.
(oh ja, niet schrikken, ik=perl newB)

code:

#!/usr/bin/perl -w
use Tk;
$top = MainWindow->new();
$top->title("Welkom <usernaam>");

$label = $top->Label(text => '<jouwnaam>, dit is jouw persoonlijke ik-weet-niet-hoe-ik-linux scherm');
$label->pack();
MainLoop();

ahum...HELP!!!

[Grum]

op 1 line ?

code:

$username = (split(/,/,(split(/:/,`cat /etc/passwd | grep $username`)[4])[0];

100% untested

[Verwijderd]

Weet je wat ik doe?
ik probeer het gewoon

alvast bedrankt!

[Grum]

ik ga wel ff testen
zat indeed foutje in

code:

$username = (split(/,/,(split(/:/,`cat /etc/passwd | grep $loginname`))[4]))[0];

die werkt bij mij iig

[Verwijderd]

Ik heb het!

code:

#!/usr/bin/perl -w

use Tk;

$username = (`whoami`);

$top = MainWindow->new();
$top->title("Welkom bij liunuxhulp");

$label = $top->Label(text => "$usename, dit is jouw persoonlijke ik-weet-niet-hoe-ik-linux* scherm');
$label->pack();

MainLoop();

Ik kreeg die split regel van je niet aan de praat...
Na wat wijzigingen, kreeg ik geen foutmeldingen meer in m'n scherm, maar ook geen username...

Dus d8 ik: laat ik het es met whoami proberen...
simpel, maar zeker effectief!
1 probleem: in de titelbalk komt er yt (?) achter te staan.

* ik linux, jij linuxt, wij linuxen?

/me is moe, maar voldaan

[Verwijderd]

maarreh...hoe lijn je die tekst uit?
hoe stel je de lettertypes in?
ik kan het nergens vinden...
ga nog es ff zoeken op inet, tips zijn welkom

[Verwijderd]

Gooit 'm maar op slot, weg of whatever...
Als ik niet eens documentatie over perl kan vinden, kan ik net zo goed oprotten van tweakers, right?

[RvdH]

perldoc Tk
of
http://www.google.com/search?q=perl+tk+tutorial&hl=nl&lr=

Dit yt komt waarschijnlijk doordat whoami ook een newline meegeeft, die kan je uit de variable halen door "chop $username;" in je script te zetten.

[Verwijderd]

keej!
thnx!
ik ga het proberen

[Verwijderd]

code:

#!/usr/bin/perl -w
use Tk;

$username = (`whoami`);

$top = MainWindow->new();
$top->title("Welkom bij liunuxhulp");

$label = $top->Label(text => "chop $username, dit is jouw persoonlijke ik-weet-niet-hoe-ik-linux scherm');
$label->pack();

MainLoop();

zoiets?

[RvdH]

Haha, eh, nee niet echt

$username = (`whoami`);
chop $username;

en de rest.

Zie ook perldoc -f chop.

[Verwijderd]

Okeej!

Thnx Rikkie!
Worx just fine, ben alleen nog niet helemaal achter:

code:

$username = (split(/,/,(split(/:/,`cat /etc/passwd | grep $loginname`))[4]))[0];

krijg 'm niet aan het praten...