Schrift
[thread]4289[/thread]

socket



<< >> 7 Einträge, 1 Seite
sri
 2004-07-14 15:17
#37262 #37262
User since
2004-01-29
828 Artikel
BenutzerIn
[Homepage] [default_avatar]
[quote=FraggeR,14.07.2004, 12:11]Hallihallo, habe hier ein PHP Skript und brauche ein Skript in Perl, dass genau das gleiche bewirkt[/quote]
Hmm, ich denke dann solltest du eins schreiben! :)

perldoc IO::Socket
perldoc Socket\n\n

<!--EDIT|sri|1089803964-->
renee
 2004-07-14 15:35
#37263 #37263
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
perldocs kann man auch online lesen: http://perldoc.com
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/
renee
 2004-07-14 15:39
#37264 #37264
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Tabs werden auch ignoriert!
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/
Crian
 2004-07-14 15:27
#37265 #37265
User since
2003-08-04
5870 Artikel
ModeratorIn
[Homepage]
user image
Hi FraggeR,

erstmal willkommen in der Perl-Community.
Du solltest Dir Einrückungen angewöhnen, das erleichtert das Lesen von Quellcodes ungemein. Und wenn Du da noch vorurteilsfrei bist lies perldoc perlstyle und halt Dich an das was da erzählt wird, damit liegst Du auf jeden Fall nicht falsch :)

Das löst natürlich Dein Problem nicht. Dazu siehe Post von sri :D\n\n

<!--EDIT|Crian|1089804513-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
FraggeR
 2004-07-14 14:11
#37266 #37266
User since
2004-07-14
1 Artikel
BenutzerIn
[default_avatar]
Hallihallo, habe hier ein PHP Skript und brauche ein Skript in Perl, dass genau das gleiche bewirkt:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function contactGameserver ($Host, $GameID, $SaltString = "", $Debug = false)
{
$Port = 9003;
$DecryptedPass = "xxx";
$ErrNo = "";
$ErrStr = "";
$TCP = fsockopen ($Host, $Port, &$ErrNo, &$ErrStr, 10); // <-- 30 sek Timeout
if (!$TCP) {
if ($Debug) {
echo "$ErrStr ($ErrNo)<br />\n";
}
return false;
} else {
if ($SaltString != "") {
$EncryptedPass = crypt($DecryptedPass, $SaltString);
} else {
$EncryptedPass = crypt($DecryptedPass);
}
fwrite ($TCP, "$EncryptedPass:$GameID");
$Return = fread($TCP, 34);
list($retval, $dummy) = split(":", $Return, 2);
fclose($TCP);
return $retval;
}
}


hoffe mir kann jemand helfen ....\n\n

<!--EDIT|renee|1089804832-->
pq
 2004-07-14 15:36
#37267 #37267
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
wg. einrückungen: leider wird ein leerzeichen
ignoriert, erst zwei leerzeichen führen zur einrückung.
eine
 zwei
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
 2004-07-14 15:45
#37268 #37268
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
In diesen Threads wurden schon Socket-Programmierung besprochen:
http://board.perl-community.de/cgi-bin....0;t=381
http://board.perl-community.de/cgi-bin....0;t=365
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/
<< >> 7 Einträge, 1 Seite



View all threads created 2004-07-14 15:17.