C:UsersAdministrator>putx
assertion failed: open my_prog
assertion failed: MZ magic bytes
assertion failed: PE header
assertion failed: IMAGE_NT_OPTIONAL_HDR_MAGIC
D:perl>pp -o "putx.exe" putx.pl
Set up gcc environment - 3.4.5 (mingw-vista special r3)
Set up gcc environment - 3.4.5 (mingw-vista special r3)
Copyright (C) 2004 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#!/usr/bin/perl-w
#使用Net::FTP模块
use Net::FTP;
$ftp = Net::FTP->new(127.0.0.1,Passive=>1,Debug=>1,Timeout=>30) or die "Can not connect to ftp server $ftp_host : $@" ;
尝试 strawberry perl