Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.unix.shell > #819

Re: variable-length strings

Cross-posted to 4 groups.

Show all headers | View raw

On 06/01/2011 08:13 AM, ccc31807 wrote:
> On Jun 1, 5:36 am, Uno<U...@example.invalid>  wrote:
>> q1)  Why did I die?
>
> The simplest place to start is with your command line ftp program. If
> you can connect and transfer files with your command line ftp, then IN
> THEORY you should be able to put the same series of commands in a
> batch file (i.e., a Perl script) and run them. If you can do that,
> then you have all the functionality you neet./

I needed a fresh day and fresh eyes, and t set Debug=> 2 to see that the 
wsb "web site builder" number was wrong.  That's a separate directory 
that my host uses for when they build the website.  I want to adios this 
thing, so I called them, and they have you change an administrative 
setting so that a browser will be directed to the index.html in the root 
menu as opposed to in the wsb folder.

So now this /wsb.../ thing is a relic for me to play with and destroy. 
Why didn't this work:

[sorry can only paste as quotation:]

> $ perl marni5.pl
> Net::FTP>>> Net::FTP(2.77)
> Net::FTP>>>   Exporter(5.63)
> Net::FTP>>>   Net::Cmd(2.29)
> Net::FTP>>>   IO::Socket::INET(1.31)
> Net::FTP>>>     IO::Socket(1.31)
> Net::FTP>>>       IO::Handle(1.28)
> Net::FTP=GLOB(0xa07a7d8)<<< 220 FTP Server ready.
> Net::FTP=GLOB(0xa07a7d8)>>> USER u61210220
> Net::FTP=GLOB(0xa07a7d8)<<< 331 Password required for u61210220
> Net::FTP=GLOB(0xa07a7d8)>>> PASS ....
> Net::FTP=GLOB(0xa07a7d8)<<< 230 User u61210220 logged in
> Net::FTP=GLOB(0xa07a7d8)>>> RMD /wsb6121022001/
> Net::FTP=GLOB(0xa07a7d8)<<< 550 /wsb6121022001/: Directory not empty
> Net::FTP=GLOB(0xa07a7d8)>>> PORT 192,168,0,64,142,193
> Net::FTP=GLOB(0xa07a7d8)<<< 200 PORT command successful
> Net::FTP=GLOB(0xa07a7d8)>>> NLST /wsb6121022001/
> Net::FTP=GLOB(0xa07a7d8)<<< 150 Opening ASCII mode data connection for file list
> Net::FTP=GLOB(0xa07a7d8)<<< 226 Transfer complete
> Net::FTP=GLOB(0xa07a7d8)>>> DELE /wsb6121022001/.
> Net::FTP=GLOB(0xa07a7d8)<<< 550 /wsb6121022001/.: Is a directory
> Net::FTP=GLOB(0xa07a7d8)>>> RMD /wsb6121022001/.
> Net::FTP=GLOB(0xa07a7d8)<<< 550 /wsb6121022001/.: Directory not empty
> Net::FTP=GLOB(0xa07a7d8)>>> PORT 192,168,0,64,186,213
> Net::FTP=GLOB(0xa07a7d8)<<< 200 PORT command successful
> Net::FTP=GLOB(0xa07a7d8)>>> NLST /wsb6121022001/.
> Net::FTP=GLOB(0xa07a7d8)<<< 150 Opening ASCII mode data connection for file list
> Net::FTP=GLOB(0xa07a7d8)<<< 226 Transfer complete

...

it just keeps on telling me Directory not empty
> ^C
> $ cat marni5.pl
> #!/usr/bin/perl -w
> use Net::FTP;
> my $domain = 'www.merrillpjensen.com';
> my $username = 'u61210220';
> my $password = '';
>
> $ftp = Net::FTP->new($domain, Debug => 2)    or die "Can't connect: $@\n";
> $ftp->login($username, $password)       or die "Couldn't login\n";
>
> my $recurse = 1;
> $ftp->rmdir('/wsb6121022001/', $recurse);
> #$ftp->cwd('/wsb6121022001/') or die "death $@\n";
>
> my @file = $ftp->ls();
>
> foreach $file (@file){
> print "$file\n";
> }
> $

Cpan says that RECURSE has to be true, and I thought a good guess for 
"true" in a syntax that is a child of C would be one.

>
>> q2) [I imagine that I have a distinct question for each listed ng]  In
>> There's no way I can look at these files with a hex editor and my eyes.
>>    Doesn't unix have a built-in way to compare them?
>
> On Unix/Linux, use diff. If you are comfortable with vi/vim, it also
> has a diff capability.

Thx, ccc, I'll do that.  Here's what's vexing me right now.

http://www.merrillpjensen.com/images/jac1.bmp

The only difference between these files, is that the smaller one went on 
a round on the internet.  It was sent up like this:

> #!/usr/bin/perl -w
> use strict;
> use Net::FTP;
> my $domain = 'www.merrillpjensen.com';
> my $username = 'u61210220';
> my $password = '';
> my $file = 'jac1.bmp';
> my $dir = '/images/';
>
> my $ftp = Net::FTP->new($domain, Debug =>2)    or die "Can't connect: $@\n";
> $ftp->login($username, $password)       or die "Couldn't login\n";
> $ftp->mkdir($dir) or die "death: $@\n";
> $ftp->cwd($dir) or die "death: $@\n";
> $ftp->put($file) or die "put failed ", $ftp->message;

And downloaded using google chrome.  Is this typical, because if my 
experience is, then I don't really see how any large file gets 
transferred faithfully.

Gotta go pull down some legal tender.  Adios.
-- 
Uno

Back to comp.unix.shell | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

variable-length strings Uno <Uno@example.invalid> - 2011-06-01 03:36 -0600
  Re: variable-length strings ccc31807 <cartercc@gmail.com> - 2011-06-01 07:13 -0700
    Re: variable-length strings Uno <Uno@example.invalid> - 2011-06-02 10:54 -0600
  Re: variable-length strings "George Mpouras" <nospam.gravitalsun@hotmail.com.nospam> - 2011-06-01 17:01 +0300
  Re: variable-length strings "Peter J. Holzer" <hjp-usenet2@hjp.at> - 2011-06-02 15:33 +0200
  Re: variable-length strings "Peter J. Holzer" <hjp-usenet2@hjp.at> - 2011-06-02 15:44 +0200
    Re: variable-length strings Willem <willem@toad.stack.nl> - 2011-06-02 14:19 +0000
      cmp (was: variable-length strings) "Peter J. Holzer" <hjp-usenet2@hjp.at> - 2011-06-02 18:15 +0200
      Re: variable-length strings Uno <Uno@example.invalid> - 2011-06-03 23:21 -0600
        Re: variable-length strings "David W. Hodgins" <dwhodgins@nomail.afraid.org> - 2011-06-04 02:43 -0400
    Re: variable-length strings bonomi@host122.r-bonomi.com (Robert Bonomi) - 2011-06-03 11:08 -0500
      Re: variable-length strings Uno <Uno@example.invalid> - 2011-06-04 00:03 -0600
        Re: variable-length strings pacman@kosh.dhis.org (Alan Curry) - 2011-06-04 20:18 +0000
          Re: variable-length strings Uno <Uno@example.invalid> - 2011-06-07 23:00 -0600
      cmp (was: variable-length strings) "Peter J. Holzer" <hjp-usenet2@hjp.at> - 2011-06-04 10:29 +0200
        Re: cmp Uno <Uno@example.invalid> - 2011-06-07 22:38 -0600
          Re: cmp pacman@kosh.dhis.org (Alan Curry) - 2011-06-08 05:22 +0000
            Re: cmp Uno <Uno@example.invalid> - 2011-06-09 16:10 -0600
    Re: variable-length strings Uno <Uno@example.invalid> - 2011-06-03 22:58 -0600
      bdiff (was: variable-length strings) "Peter J. Holzer" <hjp-usenet2@hjp.at> - 2011-06-04 10:52 +0200
        Re: bdiff Uno <Uno@example.invalid> - 2011-06-08 21:59 -0600
          Re: bdiff Ian Collins <ian-news@hotmail.com> - 2011-06-09 16:08 +1200
            Re: bdiff Uno <Uno@example.invalid> - 2011-06-08 22:20 -0600
              Re: bdiff Uno <Uno@example.invalid> - 2011-06-09 02:57 -0600
                Re: bdiff Janis Papanagnou <janis_papanagnou@hotmail.com> - 2011-06-09 11:10 +0200
                Re: bdiff bonomi@host122.r-bonomi.com (Robert Bonomi) - 2011-06-19 06:10 -0500
          Re: bdiff Eric Sosman <esosman@ieee-dot-org.invalid> - 2011-06-09 07:13 -0400
            Re: bdiff Uno <Uno@example.invalid> - 2011-06-09 13:30 -0600
    Re: variable-length strings Uno <Uno@example.invalid> - 2011-06-03 23:11 -0600
      Re: variable-length strings "Peter J. Holzer" <hjp-usenet2@hjp.at> - 2011-06-04 10:55 +0200

csiph-web