[Perl] 간단한 소켓 클라이언트
파일에 커맨드(전송할 전문)를 넣고 그 파일을 읽어서 서버로 전문을 전송하는 perl 스크립트입니다. 간단한 배치형태로 운용이 가능합니다.
유용하게 쓰세요.
유용하게 쓰세요.
#!/usr/bin/perl -w
use IO::Socket;
my $file = './20080204.txt';
open(F, $file);
my @lines = <F>;
close(F);
my $hostname = "mimul.com";
my $port = "49999";
my $content = '';
open(FF, ">>batch.log");
foreach $content(@lines)
{
my $remote = IO::Socket::INET->new(PeerAddr => $hostname, PeerPort => $port,
Proto => 'tcp', Timeout => 10);
print FF "$content";
$remote->autoflush(1);
print $remote "$content\n";
while (<$remote>)
{
print FF;
}
close $remote;
}
close(FF);
Re: [Perl] 간단한 소켓 클라이언트
Perl 쓰시는 모습을 보니 반갑네요.
코드를 보니 오래된 Perl 스타일로 작성하시는 것 같으신데
doc.perl.kr/twiki/bin/view/Wiki/HowToStartPerl#%EC%83%88%EB%A1%9C%EC%9A%B4%20%EC%8A%A4%ED%83%80%EC%9D%BC%EC%9D%98%20Perl%EB%A1%9C%20%EF%BF%BD
를 참고하셔서 최신 스타일 perl로 사용하시면 더욱 좋을 것 같습니다.
코드를 보니 오래된 Perl 스타일로 작성하시는 것 같으신데
doc.perl.kr/twiki/bin/view/Wiki/HowToStartPerl#%EC%83%88%EB%A1%9C%EC%9A%B4%20%EC%8A%A4%ED%83%80%EC%9D%BC%EC%9D%98%20Perl%EB%A1%9C%20%EF%BF%BD
를 참고하셔서 최신 스타일 perl로 사용하시면 더욱 좋을 것 같습니다.