09-11-2008
Hi Era,
Thanks alot!!
Think i know where i have gone wrong.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
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... (2 Replies)
Discussion started by: murdaugh
2 Replies
2. Shell Programming and Scripting
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:
... (2 Replies)
Discussion started by: gurukottur
2 Replies
3. Shell Programming and Scripting
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:... (6 Replies)
Discussion started by: egyfan
6 Replies
4. Shell Programming and Scripting
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;... (2 Replies)
Discussion started by: pritish.sas
2 Replies
5. Shell Programming and Scripting
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 (2 Replies)
Discussion started by: lemseffert
2 Replies
6. Shell Programming and Scripting
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... (1 Reply)
Discussion started by: mtomar
1 Replies
7. Shell Programming and Scripting
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 (10 Replies)
Discussion started by: Mani_apr08
10 Replies
8. HP-UX
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
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... (12 Replies)
Discussion started by: parthmittal2007
12 Replies
10. Shell Programming and Scripting
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 Replies)
Discussion started by: aarts
2 Replies
LEARN ABOUT OSX
universal::require
UNIVERSAL::require(3) User Contributed Perl Documentation UNIVERSAL::require(3)
NAME
UNIVERSAL::require - require() modules from a variable
SYNOPSIS
# This only needs to be said once in your program.
require UNIVERSAL::require;
# Same as "require Some::Module"
my $module = 'Some::Module';
$module->require or die $@;
# Same as "use Some::Module"
BEGIN { $module->use or die $@ }
DESCRIPTION
If you've ever had to do this...
eval "require $module";
to get around the bareword caveats on require(), this module is for you. It creates a universal require() class method that will work with
every Perl module and its secure. So instead of doing some arcane eval() work, you can do this:
$module->require;
It doesn't save you much typing, but it'll make alot more sense to someone who's not a ninth level Perl acolyte.
Methods
require
my $return_val = $module->require or die $@;
my $return_val = $module->require($version) or die $@;
This works exactly like Perl's require, except without the bareword restriction, and it doesn't die. Since require() is placed in the
UNIVERSAL namespace, it will work on any module. You just have to use UNIVERSAL::require somewhere in your code.
Should the module require fail, or not be a high enough $version, it will simply return false and not die. The error will be in $@ as well
as $UNIVERSAL::require::ERROR.
$module->require or die $@;
use
my $require_return = $module->use or die $@;
my $require_return = $module->use(@imports) or die $@;
Like "UNIVERSAL::require", this allows you to "use" a $module without having to eval to work around the bareword requirement. It returns
the same as require.
Should either the require or the import fail it will return false. The error will be in $@.
If possible, call this inside a BEGIN block to emulate a normal "use" as closely as possible.
BEGIN { $module->use }
SECURITY NOTES
UNIVERSAL::require makes use of "eval STRING". In previous versions of UNIVERSAL::require it was discovered that one could craft a class
name which would result in code being executed. This hole has been closed. The only variables now exposed to "eval STRING" are the
caller's package, filename and line which are not tainted.
UNIVERSAL::require is taint clean.
COPYRIGHT
Copyright 2001, 2005 by Michael G Schwern <schwern@pobox.com>.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
AUTHOR
Michael G Schwern <schwern@pobox.com>
SEE ALSO
Module::Load, "require" in perlfunc, <http://dev.perl.org/rfc/253.pod>
perl v5.16.2 2009-03-30 UNIVERSAL::require(3)