Opened by dmo at 2003-10-23 13:40
User since
2003-09-26
147 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-26
147 Artikel
BenutzerIn
Meinst du sowas?
Ist zwar Linux sollte abe auch unter Windows Funktionieren.
Code: (dl
)
1
2
3
4
5
6
7
8
#!/usr/bin/perl
my $result;
open(WHOAMI," whoami |") or die "Error 1";
while (<WHOAMI>) {
$result = $_;
}
print "The result is $result\n";
Ist zwar Linux sollte abe auch unter Windows Funktionieren.