12-13-2007
This looks like an error from the ftpd to me.
What happens if you manually try to ftp over and get that file?
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello All,
I have a problem that has me stumped. I am using perl to do some ftp'ing of files. I have the script in place on another environment that is functioning flawlessly. But after tweaking it to the new environment I can't get it to function. I have a search string that searches for... (6 Replies)
Discussion started by: scottzx7rr
6 Replies
2. Shell Programming and Scripting
There are files on a remote server with the file name ending in "mm-dd-yy.txt". The script I am running is:
mls "Daily_Service_Text_File_*" /my/local/dir/Filelisting.txt
nawk -F_ -f file.awk /my/local/dir/Filelisting.txt | sort -k1n | cut -f2- | tail -1
It worked up too "12-31-07.txt" but... (3 Replies)
Discussion started by: bbbngowc
3 Replies
3. UNIX for Dummies Questions & Answers
Hi people I am trying to learn this code and see how it relates to the old DOS days. I have a line of code that I am not sure what the first part does. Any help will be greatly appreciated.
It is from a Save command that is used to backup files to a directory.
It goes like this
if ;then... (10 Replies)
Discussion started by: coyote1967
10 Replies
4. Shell Programming and Scripting
Hello,
I've written a Perl script that copies a set of files from one server to another.
Prior to transferring a file the script gets the file size from the source system and compares this to the file size received in the target system.
Except that the file sizes are slightly different.
... (1 Reply)
Discussion started by: mbb
1 Replies
5. UNIX for Dummies Questions & Answers
I'm reading about command substitutions and came across this little function in my book:
function lsd
{
date=$1
ls -l |grep -i "^.\{42\}$date"|cut -c55-
}
it's a little example which is supposed to select files by modification date, given as an argument to the function.
I... (3 Replies)
Discussion started by: Straitsfan
3 Replies
6. 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
7. Programming
I am trying to simplify the coding in a script I was given, but it was written 7-10 years ago and is pretty complicated. below is a tidbit, if someone can break it down for me I would appreciate it.
sub ParseText
{
my ($line, $key, $value, $sub, $script);
foreach $line (@_)... (0 Replies)
Discussion started by: callyvan
0 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,
I am using below piece of code to get the size of the remote file.
$ftp->cwd($destination) or $error=$ftp->message;
if(!$error)
{
$ftp->put($file) or $error=$ftp->message;
print "FTP size = \n";
... (3 Replies)
Discussion started by: FarooqOnline
3 Replies
10. Shell Programming and Scripting
Need assistance
I have a script which i can download the files from ftp server using perl . But i want to download multiple files at a time
#!/usr/bin/perl -w
use Net::FTP;
$ftp = Net::FTP->new("ftp.ncdc.noaa.gov");
$ftp->login('username', 'password');
$ftp->cwd("<dir>");... (9 Replies)
Discussion started by: ajayram_arya
9 Replies
LEARN ABOUT DEBIAN
tap::parser::sourcehandler::perl
TAP::Parser::SourceHandler::Perl(3pm) User Contributed Perl Documentation TAP::Parser::SourceHandler::Perl(3pm)
NAME
TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable
VERSION
Version 3.25
SYNOPSIS
use TAP::Parser::Source;
use TAP::Parser::SourceHandler::Perl;
my $source = TAP::Parser::Source->new->raw( 'script.pl' );
$source->assemble_meta;
my $class = 'TAP::Parser::SourceHandler::Perl';
my $vote = $class->can_handle( $source );
my $iter = $class->make_iterator( $source );
DESCRIPTION
This is a Perl TAP::Parser::SourceHandler - it has 2 jobs:
1. Figure out if the TAP::Parser::Source it's given is actually a Perl script ("can_handle").
2. Creates an iterator for Perl sources ("make_iterator").
Unless you're writing a plugin or subclassing TAP::Parser, you probably won't need to use this module directly.
METHODS
Class Methods
"can_handle"
my $vote = $class->can_handle( $source );
Only votes if $source looks like a file. Casts the following votes:
0.9 if it has a shebang ala "#!...perl"
0.75 if it has any shebang
0.8 if it's a .t file
0.9 if it's a .pl file
0.75 if it's in a 't' directory
0.25 by default (backwards compat)
"make_iterator"
my $iterator = $class->make_iterator( $source );
Constructs & returns a new TAP::Parser::Iterator::Process for the source. Assumes "$source->raw" contains a reference to the perl script.
"croak"s if the file could not be found.
The command to run is built as follows:
$perl @switches $perl_script @test_args
The perl command to use is determined by "get_perl". The command generated is guaranteed to preserve:
PERL5LIB
PERL5OPT
Taint Mode, if set in the script's shebang
Note: the command generated will not respect any shebang line defined in your Perl script. This is only a problem if you have compiled a
custom version of Perl or if you want to use a specific version of Perl for one test and a different version for another, for example:
#!/path/to/a/custom_perl --some --args
#!/usr/local/perl-5.6/bin/perl -w
Currently you need to write a plugin to get around this.
"get_taint"
Decode any taint switches from a Perl shebang line.
# $taint will be 't'
my $taint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl -t' );
# $untaint will be undefined
my $untaint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl' );
"get_perl"
Gets the version of Perl currently running the test suite.
SUBCLASSING
Please see "SUBCLASSING" in TAP::Parser for a subclassing overview.
Example
package MyPerlSourceHandler;
use strict;
use vars '@ISA';
use TAP::Parser::SourceHandler::Perl;
@ISA = qw( TAP::Parser::SourceHandler::Perl );
# use the version of perl from the shebang line in the test file
sub get_perl {
my $self = shift;
if (my $shebang = $self->shebang( $self->{file} )) {
$shebang =~ /^#!(.*perl.*?)(?:(?:s)|(?:$))/;
return $1 if $1;
}
return $self->SUPER::get_perl(@_);
}
SEE ALSO
TAP::Object, TAP::Parser, TAP::Parser::IteratorFactory, TAP::Parser::SourceHandler, TAP::Parser::SourceHandler::Executable,
TAP::Parser::SourceHandler::File, TAP::Parser::SourceHandler::Handle, TAP::Parser::SourceHandler::RawTAP
perl v5.14.2 2012-06-05 TAP::Parser::SourceHandler::Perl(3pm)