Perl scirpt for automatic file transfer


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl scirpt for automatic file transfer
# 1  
Old 04-13-2005
Power Perl scirpt for automatic file transfer

Hi ,
can any one help me with a perl script for automating file transfer ?
At each step i need to check for the success or failure .
I am trying to connect to the target system for a specified number of times.if it doesnt connect even after 3 retries then the script should exit.
and i have to take the list of files on the source directory and should FTP each one to the target directory.
And i have to record the number of files that could be sent successfully and the number of failures and also save the names of the files for reporting.
Please help.
Thanks in advance
# 2  
Old 04-13-2005
You need to use the Net::FTP module to perform the actual FTP'ing. Reading the source directory on disk can be with primitive functions such as opendir() and readdir(). Or there are modules on CPAN that will do this with a more OO syntax such as DirHandle or IO::Dir.

The other requirements are trivial, as Net::FTP functions give return values that allow you to check whether each operation is successful. Maybe you can try with these lines of thought first.
# 3  
Old 04-14-2005
Computer

Thank you.
but i already wrote the basic code for file transfer using perl.
all i want is a more detailed one with the conditions that i mentioned.
regards
srini
# 4  
Old 04-14-2005
Power Automate FTP using Perl

Hi friends, i have written a basic script for automating ftp of files from source directory to a destination directory on a different host. But how can i get the list of files in the source directory so that i can keep track of the files which went successfully and unsuccessful files ? thanks in advance srini
# 5  
Old 04-14-2005
The primitive way (without considering recursive dir listing) is very easy and can be along the lines of

Code:
$MY_DIR="/my/dir";
opendir(DIR, $MY_DIR);
my @files = readdir(DIR);
my @plain_files = sort map {
    (-f "$MY_DIR/$_")?($_):()
} @files;
foreach (@plain_files) {
    # FTP of $_ here (e.g. /my/dir/myfile)
}

# 6  
Old 04-14-2005
Computer perl ftp

Hi cbkihong,
Thank you so much for the code.
it works well.
actually i had some other problem which is solved with your code.
excellant job cbkihong.
bye
srini
# 7  
Old 04-14-2005
Power perl ftp

Hi cbkihong,
I am doing an iteration on each file in the local directory and then if the ftp fails then i am doing a retry for a fixed number of times.
if ftp fails the first time then i am saying continue to the next trial
or else to break.
for this i wrote the code as
===============
for($try=1;$try<=$retry_file_ftp;$try++)
{
print "filename is ::$i\n";
$ftp->put("$local_directory/$i") or $newerr=1;

if ($newerr ==1)
continue;
else
break;
}
}
==================
but its giving some syntax error at continue.
i am not able to figure it out .
can u please help ?
thanks in advance
bye
srini
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Shell scirpt error

I am not getting 1 for the failure scenario for my below code. any help would be greatly appreciated. If the input is invalid i should get exit. But in the below scenario i am not getting the message exit o. ksh -x client_check.ksh sun + + hostname hn=us + ] + client_check.ksh: test:... (6 Replies)
Discussion started by: arun888
6 Replies

2. Shell Programming and Scripting

Scirpt to fetch the variable from sqlplus

Hi Gurus, I am stuck with the step where i need to fetch the location & sales from the below procedure by taking it from table field using the for loop. any idea how this can be done in unix. From one column both the location and sales are taken out. create or replace procedure newyork... (2 Replies)
Discussion started by: arun888
2 Replies

3. Shell Programming and Scripting

Csv format output file using scirpt

Hi All, I get the test result file daily after running the main test script. from the resultfile, need to fetch only server info and status and put them in tabular format in a file and as well in CSV format output file. I tried using awk command but am not able to put them in tabluar... (6 Replies)
Discussion started by: Optimus81
6 Replies

4. Shell Programming and Scripting

How to transfer file from one PC to another using PERL?

Hi All I have two PC connected with each other via LAN cable. In one of the PC the Perl is installed. What I want to do is transfer the data from one PC to another via Perl. Is it possible to do this. ---------- Post updated at 11:31 PM ---------- Previous update was at 07:01 AM ----------... (10 Replies)
Discussion started by: parthmittal2007
10 Replies

5. UNIX for Advanced & Expert Users

perl script to transfer newly generated files by scp

Hi all, I have root directory on server 1 say A and having sub directory B now my application generates output files and put in sub directory B. now i need to transfer these files from server1 to server2 by scp which is having same directory structure A and sub directory B I have tried... (2 Replies)
Discussion started by: tushar_spatil
2 Replies

6. Shell Programming and Scripting

Perl automated file transfer

Hi, Firstly, I have no experience (at all) with shell scripting. So please, go easy on me :) I did a search for what I was looking for although there were a few things available here and on the net I couldn't find anything tailored to what I am looking for. Simply put, I have two servers.... (2 Replies)
Discussion started by: lastrider
2 Replies

7. HP-UX

HPUX model scirpt issue

hi, I am using HPUX 11.31(Itanium) and HP 5100 printer. I am using PCL5.nloo model script present in HPUX by default to print to printer. I am finding issues in printing paper sizes and few other options. Description of the problem: When i give a print with option "half" and "Legal"... (4 Replies)
Discussion started by: meeraramanathan
4 Replies

8. Shell Programming and Scripting

Using Public key in Shell scirpt

Hi, Can anyone help me out how to login on server using public key autorization.I want to use this on system. Thanks in advance. (1 Reply)
Discussion started by: LochanM
1 Replies

9. Shell Programming and Scripting

Data transfer from DB2 to Sybase using Perl?

Hi, Good Morning everybody. I need to write a perl script which will get some data from DB2 table and then put it into Sybase table. I have the experience in Oracle and Unix but new to these perl, DB2 and Sybase technologies. Appreciate if any one can suggest with a sample code. Thanks... (1 Reply)
Discussion started by: rajus19
1 Replies

10. UNIX for Advanced & Expert Users

unix automatic file transfer

Hello, I am a beginner with korn shell scripting. I have got a text file that gets produced every night and I need to transfer it to a windows shared area. Is there any command line script (e.g FTP) that I could use to transfer the file automatically without manual intervention everyday? Any... (4 Replies)
Discussion started by: tagem
4 Replies
Login or Register to Ask a Question