Opened by [E|B] at 2004-08-11 20:59
User since
2004-03-14
27 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-03-14
27 Artikel
BenutzerIn
So habs mal wieder selber versucht nur noch eins:
Nun erhalte ich das so als Script-Ausgabe:
wie kann ich nun den Wert von der p_id verarbeiten
das in diesem befehl automatisch der wert steht.
print $sock qq(kick 1*\n); <-- diese zahl soll von der p_id abgelesen werden.
*1 ist der Wert der p_id
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
#
use IO::Socket;
my $sock = IO::Socket::INET->new(qq(127.0.0.1:1234));
{
print $sock qq(sel 9000\n);
print $sock qq(slogin superadmin 1234 \n);
print $sock qq(fp Gast\n);
$sock->recv($text,128);
print "\nReceived message '", $text,"'\n";
Nun erhalte ich das so als Script-Ausgabe:
Code: (dl
)
1
2
3
4
5
6
7
Received message '[TS]
OK
OK
p_id p_dbid c_id nickname loginname ip
1 0 1 "Gast" "" "*.*.*.*"
OK
'
wie kann ich nun den Wert von der p_id verarbeiten
das in diesem befehl automatisch der wert steht.
print $sock qq(kick 1*\n); <-- diese zahl soll von der p_id abgelesen werden.
*1 ist der Wert der p_id