develooper Front page | perl.beginners | Postings from January 2002

Re:What's wrong with this?

Thread Previous | Thread Next
From:
Jorge Goncalvez
Date:
January 28, 2002 06:41
Subject:
Re:What's wrong with this?
Message ID:
200201281441.PAA02236@cabs40.col.bsf.alcatel.fr
hi, I have this code:
use IO::Socket;
$port=21;


$sock = IO::Socket::INET->new(PeerAddr  =>'localhost',
                                        PeerPort => $port,
                                        Proto => 'tcp') ;
die &inetdconf unless ($sock);


my $cmd4=" net stop inetd && net start inetd";
system($cmd4);

sub inetdconf()
{
	my $cmd=" c:\\oxe\\cygwin\\bin\\sed.exe 's/^\#ftp/ftp/' 
c:\\cygwin\\usr\\local\\etc\\inetd.conf > c:\\cygwin\\usr\\local\\etc\\inetd.new 
";# Comment out ftp entry in /etc/inetd.conf
	system($cmd);
	my $cmd2=" c:\\oxe\\cygwin\\bin\\mv.exe 
c:\\cygwin\\usr\\local\\etc\\inetd.new c:\\cygwin\\usr\\local\\etc\\inetd.conf"; 
# Move new file into place
	system($cmd2);

}

But it always returns 0.Why?


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About