Ftp code in Perl

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to ftp the files in perl.?

i want to upload two different files in to two different directories(path) on ftp server.but i am able to ftping only one at a time :(.. not both simultaneously. here i have connectd the ftp and use the binary mode to transfer the files $ftp = Net::FTP->new($ftphost, Debug => 0) or...

2. Shell Programming and Scripting

FTP from one directory to another using perl

Hi All I am stuck with a problem and i want your help, I have two directories dir1 and dir2 The files present in dir1 is a1,a2 a3 a4 What i want to is to FTP the files present in the dir1 to dir2 (with .txt extension at the end.) with the help of the Perl. The output expected is The...

3. HP-UX

[Solved] Unable to rename file in ftp server .Net:FTP perl

Hello All, I am trying to connect to ftp server and get the files. Also i need to rename the file in other ftp dir. rename method is not allowing me to rename the file in other dir. When i tried copy command by using net::FTP:FILE then perl says it is not installed. Can some body help me to...

4. Shell Programming and Scripting

ftp in perl

Hi, I have three files in this /home/mani/ location. I would like to ftp to another server. could you please give perl for that requirement. Thanks, Mani

5. Shell Programming and Scripting

Perl FTP navigation

Hi Experts, I have this requirement to list dirs and files of an FTP server on regular basis. I was able to do it by following script: $ftpobj = Net::FTP -> new ("$ftpsrv") || die "Cannot connect to FTP $ftpsrv"; $ftpobj -> login("user","passwd"); $ftpobj -> cwd ("/root_dir"); @rootdir...

6. Shell Programming and Scripting

script FTP in perl

this script should search directories read,,search for file for daily reports. you must provide the beginning day, ending day and month. this script will pull files for days and month specified and Ftp them to another server. Thanks for any help you provide

7. Shell Programming and Scripting

Net::Ftp in perl

I am trying to execute a script in another server, i used Net::Ftp module How to execute unix command in another server by using Net::Ftp module.. #!/usr/bin.perl ### Perl script to $ftp->login($user_name,'password') or die "Cannot login ", $ftp->message;...

8. Shell Programming and Scripting

How to automate ftp in perl

My situations is I cannot use NET::ftp. So I need to have a way to automate ftp. I know how to do it in ksh: #!/usr/bin/ksh ftp -i -v -n $host_name <<_FTP >> $log_file 2>&1 user $user_name lcd $local_dir cd $remote_dir put $file_name bye _FTP But how can I do it in perl? Note:...

9. Shell Programming and Scripting

using perl to ftp

Hi all, I am trying to download a build from an ftp server. My problem is that my build contains sub folders and files within the sub folders. I can ftp a single file at a time, but it will be difficult to specify all the paths and download individula files. My build structure is: ...

10. UNIX for Dummies Questions & Answers

Perl, Pipes, and FTP

I am attempting to automate an ftp session in PERL by emulating the user and sending commands to ftp, but I am getting unexpected and unwanted results. Here is a portion code that illustrates the method I am attempting (this was just a shot in the dark): system("( echo open server sleep 1...

LEARN ABOUT DEBIAN

math::random::tt800

TT800(3pm)						User Contributed Perl Documentation						TT800(3pm)

NAME

       Math::Random::TT800 - Matsumoto's TT800 Pseudorandom number generator

DESCRIPTION

       This perl extension module implements M. Matsumoto's twisted generalized shift register generator called TT800 as described in his article
       published in ACM Transactions on Modelling and Computer Simulation, Vol. 4, No. 3, 1994, pages 254-266.

SYNOPSIS

	       use Math::Random::TT800;

	       my $tt = new Math::Random::TT800;

	       $value = $tt->next();

	       $ivalue = $tt->next_int();

FUNCTIONS

       new
		   my $tt = new Math::Random::TT800;
		   my $tt = new Math::Random::TT800 @seeds;

	   Create a new TT800 object. Providing seeds is optional.  A TT800 takes 25 integers as seed which must not be all zero.  If less than 25
	   integers are supplied, the rest are taken from the default seed.

       next
		   $value = $tt->next();

	   next returns the next pseudorandom number from the TT800 object as a floating point value in the range [0,1).

       next_int
		   $ivalue = $tt->next_int();

	   next_int returns a integer value filled with 32 random bits.

COPYRIGHT

       This implementation is based on the C code by M. Matsumoto <matumoto@math.keio.ac.jp> available from
       ftp://random.mat.sbg.ac.at/pub/data/tt800.c.

       Converted to a perl extension module and enhancements to support multiple streams of pseudorandom numbers by Otmar Lendl
       <lendl@cosy.sbg.ac.at>.

       Copyright (c) 1997 by Otmar Lendl (Perl and XS code). All rights reserved. This program is free software; you can redistribute it and/or
       modify it under the same terms as Perl itself.

perl v5.14.2							    2002-10-23								TT800(3pm)

Shell Programming and Scripting