Sponsored Content
Full Discussion: uncompress a file and ftp
Top Forums Shell Programming and Scripting uncompress a file and ftp Post 302338145 by namishtiwari on Monday 27th of July 2009 06:43:47 AM
Old 07-27-2009
uncompress a file and ftp

Hi Experts,

Here is my piece of code--

Code:
#!/usr/bin/perl
use Net::FTP;
#use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
use IO::File ;
    
print "Retrieving file from abc.com...\n";
$loginip='123.456.0.23';
$loginid='nt1234';
$loginpaswd='defgsljf';
($sec,$min,$hour,$mday,$mon,$year)=(localtime(time))[0,1,2,3,4,5];
$time_stamp= "_" . (1900+$year) . "_" . ($mon+1) . "_" . ($mday) . "_" . $hour . "_" . $min . "_". $sec;
printf "time stamp = $time_stamp\n";


unless(-d "temp")
{
mkdir("temp");
}
if( -d "temp")
{
chdir("temp");
}

$ftp = Net::FTP->new(($loginip), Debug => 0)
or die "Cannot connect to abc.com: $@ \n";

$ftp->login($loginid,$loginpaswd)
or die "Cannot login ", $ftp->message;

$source_dir="/abc/nali05/";

$ftp->cwd($source_dir)
or die "Cannot change working directory ", $ftp->message;


$ftp->binary || die "Unable to set mode to binary. ", $ftp->message;

@list=$ftp->ls();
printf "list = \n";
print @list;
foreach $file (@list)
{
#unzip "$file" => "$source_dir"' or die "unzip failed: $UnzipError\n";

#if($file =~ m/namish*/i)
#{
$ftp->get($file) or die "get failed ", $ftp->message;
#rename($file,"${file}_${time_stamp}");
$ftp->delete ($file) or die "rm -rf failed ", $ftp->message;
#}
}


$ftp->quit;

When i use my code without uncompress part it works fine. But i want to uncompress it first and choose files and ftp only those files.
When i run the script i get this error--

Code:
C:\Perl Script>perl ftp1.pl
Can't locate IO/Uncompress/Unzip.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/
site/lib .) at ftp1.pl line 3.
BEGIN failed--compilation aborted at ftp1.pl line 3.

I searched for the uncompress aprt and tried that but that seem to be working. Kindly give some suggestions as how to get rid of this....

Thanks
NT

Last edited by namishtiwari; 07-28-2009 at 04:52 AM.. Reason: commented the uncompress part
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

How to uncompress .zip file?

Hi all, Can anyone tell me what tools / command can use to uncompress those *.zip file in HP-UX, thx. Bgds, Gordon (7 Replies)
Discussion started by: fonggo
7 Replies

2. Shell Programming and Scripting

ftp/Uncompress error.

I am getting a 'corupt index' error when I uncompress a file that has been ftped to HP-UX server from a Solaris box. I am actually ftp about 5 files and am able to Uncompress 4 of the files however I get a 'Corrupt Index' error when one of the fifth file is being Uncompressed. Any help :confused: (2 Replies)
Discussion started by: oracle8
2 Replies

3. UNIX for Dummies Questions & Answers

How to get to a file and uncompress it

I did an ftp to copy a tar file from a main server area to the backup server area. I need to get that tar file to uncompress it in backup server. How do I go about it. Please any suggesstion will be greatly appreciated (1 Reply)
Discussion started by: nkem22
1 Replies

4. UNIX Desktop Questions & Answers

file zip,rar,tar,compress,uncompress,unzip,unrar

i want know how to compress and uncompress file using unix, compress uncompress,zip,unzip,rar,unrar,how its work and more about this.:confused: (1 Reply)
Discussion started by: ismael xavier
1 Replies

5. UNIX for Advanced & Expert Users

Using FTP to check whether file is completely FTP... plz find the description below

Hi, We have some clients who will place huge files in to one of the remote server. And the shell script written in our local server to retrieve client files (using FTP) placed on one of the remote server of ours by clients. My question Is there any FTP command/script to check from my local... (1 Reply)
Discussion started by: nmsrao
1 Replies

6. Shell Programming and Scripting

Compress in UNIX ftp the uncompress in windows server

Hi all, I need a shell script that will compress all the files in the UNIX box say /output/foldre/OUT/*.out. 1. I need to compress all the .out files present in this path. 2. The compressed files shuld be FTPed to Windows server say C:\Myfiles 3. Then the FTPed files should be... (3 Replies)
Discussion started by: Codesearcher
3 Replies

7. Programming

Uncompress a gzip and bzip file using java on unix solaris environment

Hi, I need to uncompress a gzip and bzip file using java on unix solaris environment. I also need to retreive the header information of the file inorder to differentiate between gzip and bzip file. Please help Pooja (0 Replies)
Discussion started by: wadhwa.pooja
0 Replies

8. 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... (2 Replies)
Discussion started by: krsnadasa
2 Replies

9. Shell Programming and Scripting

Uncompress and ftp a file

i have a compressed file, i need to ftp this file to remote server. while ftp i should uncompress and send, but the uncompressed file shouldn't write in the local server file system. is there any options how to do this using a named pipes in ftp?? greatly appreciate your suggestions? Thanmks (2 Replies)
Discussion started by: Fakru.y
2 Replies

10. UNIX for Dummies Questions & Answers

scp and uncompress on the file?

Hi, Is there any way to do scp and uncompress on the fly? At the moment, I am doing scp and then running uncompress of the .Z files in the background. I am wanting to be able to do scp and then have the uncompress the .Z file in the background. Any advice much appreciated. Thanks in... (3 Replies)
Discussion started by: newbie_01
3 Replies
Net::libnetFAQ(3pm)					 Perl Programmers Reference Guide				       Net::libnetFAQ(3pm)

NAME
libnetFAQ - libnet Frequently Asked Questions DESCRIPTION
Where to get this document This document is distributed with the libnet distribution, and is also available on the libnet web page at http://search.cpan.org/~gbarr/libnet/ How to contribute to this document You may mail corrections, additions, and suggestions to me gbarr@pobox.com. Author and Copyright Information Copyright (c) 1997-1998 Graham Barr. All rights reserved. This document is free; you can redistribute it and/or modify it under the terms of the Artistic License. Disclaimer This information is offered in good faith and in the hope that it may be of use, but is not guaranteed to be correct, up to date, or suitable for any particular purpose whatsoever. The authors accept no liability in respect of this information or its use. Obtaining and installing libnet What is libnet ? libnet is a collection of perl5 modules which all related to network programming. The majority of the modules available provided the client side of popular server-client protocols that are used in the internet community. Which version of perl do I need ? libnet has been know to work with versions of perl from 5.002 onwards. However if your release of perl is prior to perl5.004 then you will need to obtain and install the IO distribution from CPAN. If you have perl5.004 or later then you will have the IO modules in your installation already, but CPAN may contain updates. What other modules do I need ? The only modules you will need installed are the modules from the IO distribution. If you have perl5.004 or later you will already have these modules. What machines support libnet ? libnet itself is an entirely perl-code distribution so it should work on any machine that perl runs on. However IO may not work with some machines and earlier releases of perl. But this should not be the case with perl version 5.004 or later. Where can I get the latest libnet release The latest libnet release is always on CPAN, you will find it in http://www.cpan.org/modules/by-module/Net/ The latest release and information is also available on the libnet web page at http://search.cpan.org/~gbarr/libnet/ Using Net::FTP How do I download files from an FTP server ? An example taken from an article posted to comp.lang.perl.misc #!/your/path/to/perl # a module making life easier use Net::FTP; # for debugging: $ftp = Net::FTP->new('site','Debug',10); # open a connection and log in! $ftp = Net::FTP->new('target_site.somewhere.xxx'); $ftp->login('username','password'); # set transfer mode to binary $ftp->binary(); # change the directory on the ftp site $ftp->cwd('/some/path/to/somewhere/'); foreach $name ('file1', 'file2', 'file3') { # get's arguments are in the following order: # ftp server's filename # filename to save the transfer to on the local machine # can be simply used as get($name) if you want the same name $ftp->get($name,$name); } # ftp done! $ftp->quit; How do I transfer files in binary mode ? To transfer files without <LF><CR> translation Net::FTP provides the "binary" method $ftp->binary; How can I get the size of a file on a remote FTP server ? How can I get the modification time of a file on a remote FTP server ? How can I change the permissions of a file on a remote server ? The FTP protocol does not have a command for changing the permissions of a file on the remote server. But some ftp servers may allow a chmod command to be issued via a SITE command, eg $ftp->quot('site chmod 0777',$filename); But this is not guaranteed to work. Can I do a reget operation like the ftp command ? How do I get a directory listing from an FTP server ? Changing directory to "" does not fail ? Passing an argument of "" to ->cwd() has the same affect of calling ->cwd() without any arguments. Turn on Debug (See below) and you will see what is happening $ftp = Net::FTP->new($host, Debug => 1); $ftp->login; $ftp->cwd(""); gives Net::FTP=GLOB(0x82196d8)>>> CWD / Net::FTP=GLOB(0x82196d8)<<< 250 CWD command successful. I am behind a SOCKS firewall, but the Firewall option does not work ? The Firewall option is only for support of one type of firewall. The type supported is an ftp proxy. To use Net::FTP, or any other module in the libnet distribution, through a SOCKS firewall you must create a socks-ified perl executable by compiling perl with the socks library. I am behind an FTP proxy firewall, but cannot access machines outside ? Net::FTP implements the most popular ftp proxy firewall approach. The scheme implemented is that where you log in to the firewall with "user@hostname" I have heard of one other type of firewall which requires a login to the firewall with an account, then a second login with "user@hostname". You can still use Net::FTP to traverse these firewalls, but a more manual approach must be taken, eg $ftp = Net::FTP->new($firewall) or die $@; $ftp->login($firewall_user, $firewall_passwd) or die $ftp->message; $ftp->login($ext_user . '@' . $ext_host, $ext_passwd) or die $ftp->message. My ftp proxy firewall does not listen on port 21 FTP servers usually listen on the same port number, port 21, as any other FTP server. But there is no reason why this has to be the case. If you pass a port number to Net::FTP then it assumes this is the port number of the final destination. By default Net::FTP will always try to connect to the firewall on port 21. Net::FTP uses IO::Socket to open the connection and IO::Socket allows the port number to be specified as part of the hostname. So this problem can be resolved by either passing a Firewall option like "hostname:1234" or by setting the "ftp_firewall" option in Net::Config to be a string in in the same form. Is it possible to change the file permissions of a file on an FTP server ? The answer to this is "maybe". The FTP protocol does not specify a command to change file permissions on a remote host. However many servers do allow you to run the chmod command via the "SITE" command. This can be done with $ftp->site('chmod','0775',$file); I have seen scripts call a method message, but cannot find it documented ? Net::FTP, like several other packages in libnet, inherits from Net::Cmd, so all the methods described in Net::Cmd are also available on Net::FTP objects. Why does Net::FTP not implement mput and mget methods The quick answer is because they are easy to implement yourself. The long answer is that to write these in such a way that multiple platforms are supported correctly would just require too much code. Below are some examples how you can implement these yourself. sub mput { my($ftp,$pattern) = @_; foreach my $file (glob($pattern)) { $ftp->put($file) or warn $ftp->message; } } sub mget { my($ftp,$pattern) = @_; foreach my $file ($ftp->ls($pattern)) { $ftp->get($file) or warn $ftp->message; } } Using Net::SMTP Why can't the part of an Email address after the @ be used as the hostname ? The part of an Email address which follows the @ is not necessarily a hostname, it is a mail domain. To find the name of a host to connect for a mail domain you need to do a DNS MX lookup Why does Net::SMTP not do DNS MX lookups ? Net::SMTP implements the SMTP protocol. The DNS MX lookup is not part of this protocol. The verify method always returns true ? Well it may seem that way, but it does not. The verify method returns true if the command succeeded. If you pass verify an address which the server would normally have to forward to another machine, the command will succeed with something like 252 Couldn't verify <someone@there> but will attempt delivery anyway This command will fail only if you pass it an address in a domain the server directly delivers for, and that address does not exist. Debugging scripts How can I debug my scripts that use Net::* modules ? Most of the libnet client classes allow options to be passed to the constructor, in most cases one option is called "Debug". Passing this option with a non-zero value will turn on a protocol trace, which will be sent to STDERR. This trace can be useful to see what commands are being sent to the remote server and what responses are being received back. #!/your/path/to/perl use Net::FTP; my $ftp = new Net::FTP($host, Debug => 1); $ftp->login('gbarr','password'); $ftp->quit; this script would output something like Net::FTP: Net::FTP(2.22) Net::FTP: Exporter Net::FTP: Net::Cmd(2.0801) Net::FTP: IO::Socket::INET Net::FTP: IO::Socket(1.1603) Net::FTP: IO::Handle(1.1504) Net::FTP=GLOB(0x8152974)<<< 220 imagine FTP server (Version wu-2.4(5) Tue Jul 29 11:17:18 CDT 1997) ready. Net::FTP=GLOB(0x8152974)>>> user gbarr Net::FTP=GLOB(0x8152974)<<< 331 Password required for gbarr. Net::FTP=GLOB(0x8152974)>>> PASS .... Net::FTP=GLOB(0x8152974)<<< 230 User gbarr logged in. Access restrictions apply. Net::FTP=GLOB(0x8152974)>>> QUIT Net::FTP=GLOB(0x8152974)<<< 221 Goodbye. The first few lines tell you the modules that Net::FTP uses and their versions, this is useful data to me when a user reports a bug. The last seven lines show the communication with the server. Each line has three parts. The first part is the object itself, this is useful for separating the output if you are using multiple objects. The second part is either "<<<<" to show data coming from the server or "&gt&gt&gt&gt" to show data going to the server. The remainder of the line is the command being sent or response being received. AUTHOR AND COPYRIGHT
Copyright (c) 1997 Graham Barr. All rights reserved. perl v5.18.2 2014-01-06 Net::libnetFAQ(3pm)
All times are GMT -4. The time now is 04:13 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy