[Perl Socket] Brauche Hilfe

[Homeless1]

Hi
Ich hab ein Problem das ich da nicht weiterkomme
Hierbei handelt es sich um ein Teamspeak-Script


1. Telnetähnliche verbindung aufbauen

Code: Alles auswählen

#!\C:\Perl\bin\perl.exe
#
#
use IO::socket;

my $sock = IO::Socket::INET->new(qq(127.0.0.1:4000));

2 Die Login-daten senden

Code: Alles auswählen

print $sock qq(sel 8767\n);
print $sock qq(slogin superadmin *****\n);

Hilfe: sel | slogin

3. Nun möchte ich einen player aus der playerliste finden und ihm einen nachricht schicken

[ Hier brauch ich den code-teil ]

Als erstes brauch ich seine p_id
In Telnet sieht das so aus
ich tippe pl ein:

p_id c_id ps bs pr br pl ping logintime idletime cprivs pprivs pflags ip nick loginname
54 44 37313 1112114 38186 4454903 20 212 38369 1228 0 0 0 "0.0.0.0" "JACK" "seinloginname"

Hilfe: pl

4. Nun sende ich mit dem Befehl "msgu"
Hilfe : msgu
eine nachricht an die p_id

5. In dem besispiel oben finden sie den user per befehl "fp"
Hilfe: fp

Gibt es da einen möglichkeit den user dann noch per loginname du identifizieren ?
sprich "fp unky"

>p_id p_dbid c_id nickname loginname ip
>9114 0 1979 "FunkyFreak" "loginname_als_sicherheit" "80.184.142.72"
>9432 0 1848 "fresh&funky" "" "217.82.132.218"

Also nur wer den namen und den loginnamen hat bekommt er eine nachricht.

War das soweit verständlich ?
kann mir da jemand ein script schreiben was das automatisch macht. wäre echt super. danke

[Homeless1]

gibt es hier leute die sich gut mit perl auskennen ?
ich hab das script mal weitergeschrieben hab aber noch eine frage.

[Burns]

Hi,

Mmm...regular expressions...ich denke, dass ich da behilflich sein kann, allerdings ist mir nicht ganz klar, was genau Du rausfiltern willst? Geht es um die Ausgabe von fp oder von pl?