[Ilugc] Perl Net::FTp

  • From: imthiazrafiq@xxxxxxx (Imthiaz Rafiq)
  • Date: Sat, 10 Aug 2002 09:21:49 +0530

This is a multi-part message in MIME format.

------=_NextPart_000_0008_01C2404F.5AFFC1E0
Content-Type: text/plain;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

I am doing a ftp downloading script in perl. The script runs properly. =
But the downloaded file des.zip was curupted. Do you have any idea what =
is that. Please tell me

  #!/usr/bin/perl

  use Net::FTP;

  my $ftp =3D Net::FTP->new("ftp.asksathia.com",Debug =3D> 0);=20
  $ftp->login("asksathia","allowme");=20
  $ftp->cwd("/htdocs");=20
  $ftp->get("des.zip");=20
  my $stat =3D $ftp->status;=20
  my $full_stat =3D $ftp->code;=20
  # $stat contains the first digit; usually all=20
  # that you need to do is test if it is equal=20
  # to 2. $full_stat contains the full 3-digit=20
  # value but is seldom needed=20
  printf("Status: %d Full Status: %d\n",$stat,$full_stat);=20
  # Sample Test=20
  if ($stat =3D=3D 2)=20
  {=20
      print "Get was OK\n";=20
  }=20
  else=20
  {=20
      print "Get was BAD\n";=20
  }=20
  $ftp->quit;
Thanks=20
Imthiaz

------=_NextPart_000_0008_01C2404F.5AFFC1E0
Content-Type: text/html;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2600.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I am doing a ftp downloading script in =
perl. The=20
script runs properly. But the downloaded file des.zip&nbsp;was curupted. =
Do you=20
have any idea what is that. Please tell me</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px">
  <DIV><FONT face=3DArial size=3D2>#!/usr/bin/perl</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>use Net::FTP;</FONT></DIV>
  <DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>my $ftp =3D Net::FTP-&gt;new("<A=20
  href=3D'ftp://ftp.asksathia.com",Debug'>ftp.asksathia.com",Debug</A> =
=3D&gt; 0);=20
  <BR>$ftp-&gt;login("asksathia","allowme"); =
<BR>$ftp-&gt;cwd("/htdocs");=20
  <BR>$ftp-&gt;get("des.zip"); <BR>my $stat =3D $ftp-&gt;status; <BR>my =
$full_stat=20
  =3D $ftp-&gt;code; <BR># $stat contains the first digit; usually all =
<BR># that=20
  you need to do is test if it is equal <BR># to 2. $full_stat contains =
the full=20
  3-digit <BR># value but is seldom needed <BR>printf("Status: %d Full =
Status:=20
  %d\n",$stat,$full_stat); <BR># Sample Test <BR>if ($stat =3D=3D 2) =
<BR>{=20
  <BR>&nbsp;&nbsp;&nbsp; print "Get was OK\n"; <BR>} <BR>else <BR>{=20
  <BR>&nbsp;&nbsp;&nbsp; print "Get was BAD\n"; <BR>}=20
  <BR>$ftp-&gt;quit;</FONT></DIV></BLOCKQUOTE>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>Thanks </FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial =
size=3D2>Imthiaz</FONT></DIV></BODY></HTML>

------=_NextPart_000_0008_01C2404F.5AFFC1E0--


Other related posts: