[32270] in Perl-Users-Digest
Perl-Users Digest, Issue: 3537 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Nov 6 21:09:23 2011
Date: Sun, 6 Nov 2011 18:09:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 6 Nov 2011 Volume: 11 Number: 3537
Today's topics:
backreferences to two sets of slashes <eric@fruitcom.com>
Re: backreferences to two sets of slashes <hhr-m@web.de>
Re: backreferences to two sets of slashes <ben@morrow.me.uk>
Backreferencing through two sets of slashes <allomorphy@gmail.com>
CPAN dependencies [was: Module install problem DBD::Uni <ben@morrow.me.uk>
installation of Statistics::Test::WilcoxonRankSum <ela@yantai.org>
Re: installation of Statistics::Test::WilcoxonRankSum <ben@morrow.me.uk>
Latest graphing <allomorphy@gmail.com>
Re: Model Centric Perl Web Framework <ilias@lazaridis.com>
Re: Model Centric Perl Web Framework <antispam.gravitalsun@hotmail.com.nospam.me>
Re: Model Centric Perl Web Framework <ilias@lazaridis.com>
Re: Model Centric Perl Web Framework <ben@morrow.me.uk>
Re: Module install problem DBD::Unify <justin.1104@purestblue.com>
Re: Module install problem DBD::Unify <ben@morrow.me.uk>
Re: Module install problem DBD::Unify <ela@yantai.org>
Read Trailer record of file <rahulme81@gmail.com>
Re: Read Trailer record of file <jurgenex@hotmail.com>
Upgrade your perl <ela@yantai.org>
what happened with this error? <Uno@example.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 06 Nov 2011 19:45:46 GMT
From: Eric smith <eric@fruitcom.com>
Subject: backreferences to two sets of slashes
Message-Id: <slrnjbdovi.hls.eric@pepper.fruitcom.com>
if ( $foo =~ /(\d\d)-(\d\d)-\d\d\d\d/ and $bar =~ /(\d?\d):(\d\d):(\d\d)/ )
{
# How do I match here the the two fields of $foo ?
# Or is it not possible in a single construction?
# $bar of course gives its hours minutes and seconds in $1, $2 and $3
}
Thanks
--
Eric Smith
------------------------------
Date: Sun, 6 Nov 2011 21:27:19 +0100
From: Helmut Richter <hhr-m@web.de>
Subject: Re: backreferences to two sets of slashes
Message-Id: <alpine.LNX.2.00.1111062124360.14706@lxhri01.ws.lrz.de>
On Sun, 6 Nov 2011, Eric smith wrote:
> if ( $foo =~ /(\d\d)-(\d\d)-\d\d\d\d/ and $bar =~ /(\d?\d):(\d\d):(\d\d)/ )
> {
>
> # How do I match here the the two fields of $foo ?
> # Or is it not possible in a single construction?
What about
if ("$foo===$bar" =~
/(\d\d)-(\d\d)-\d\d\d\d/.*===.*(\d?\d):(\d\d):(\d\d)/)
--
Helmut Richter
------------------------------
Date: Sun, 06 Nov 2011 16:34:55 -0600
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: backreferences to two sets of slashes
Message-Id: <A9WdncvO9YoSlirTnZ2dnUVZ8nKdnZ2d@bt.com>
Quoth mailbox@fruitcom.com:
> if ( $foo =~ /(\d\d)-(\d\d)-\d\d\d\d/ and $bar =~ /(\d?\d):(\d\d):(\d\d)/ )
> {
>
> # How do I match here the the two fields of $foo ?
> # Or is it not possible in a single construction?
> # $bar of course gives its hours minutes and seconds in $1, $2 and $3
> }
if (
my ($day, $month) = $foo =~ /(\d\d)-(\d\d)-\d\d\d\d/ and
my ($hour, $min, $sec) =
$bar =~ /(\d?\d):(\d\d):(\d\d)/
) {
Or, better, use DateTime.
(I don't know if you realise this, but /\d/ matches a lot more than
/[0-9]/.)
Ben
------------------------------
Date: Sun, 6 Nov 2011 11:53:01 -0800 (PST)
From: Eric Smith <allomorphy@gmail.com>
Subject: Backreferencing through two sets of slashes
Message-Id: <9823f3b8-6b46-4f51-b54f-c219ed689dc1@g1g2000vbd.googlegroups.com>
Hi
if ( $foo =~ /(\d\d)-(\d\d)-\d\d\d\d/ and $bar =~ /(\d?\d):(\d\d):(\d
\d)/ )
{
# How do I match here the the two fields of $foo ?
# Or is it not possible in a single construction?
# $bar of course gives its ($hours, $minutes, $seconds) = $1, $2 and
$3
}
Thanks
Eric Smith
------------------------------
Date: Sat, 05 Nov 2011 11:25:06 -0500
From: Ben Morrow <ben@morrow.me.uk>
Subject: CPAN dependencies [was: Module install problem DBD::Unify]
Message-Id: <BaWdnfC_B7H__ijTnZ2dnUVZ8rWdnZ2d@bt.com>
Quoth "ela" <ela@yantai.org>:
>
> "Justin C" <justin.1104@purestblue.com> wrote in message
> news:84qco8-luo.ln1@zem.masonsmusic.co.uk...
> >
> > I'm trying to install the DBD::Unify module. My usual install method is
> > from within the cpan shell:
> >
> > cpan> install DBD::Unify
> >
> > This failed initially because I didn't have $DBPATH environment set.
> > Having fixed that I got a different failure, and the same failure if I,
> > in the build directory, run
>
> When I use my clean OS to install perl modules by cpan, I also encounter a
> similar problem as Justin did. I have read CPAN documentation and it says it
> is able to resolve dependencies itself. Well, it is rather frustrated to not
> know exactly what and the order of modules to install or what environment
> variables have to set to fix the problem. Is there any good reference book
> to read for Perl module/distribution installation?
If you mean a book that goes through all the modules on CPAN and tells
you, in detail, how to install them, then no, there isn't. Such a book
would be impossible, since new CPAN modules are uploaded all the time.
I entirely agree that it's extremely frustrating when some dist six
steps away from the one you're trying to install starts complaining
about something you've no idea how to fix. A lot of the time I would
consider this a bug in that dist's {Makefile,Build}.PL: IMHO, whenever
possible a dist should install completely automatically, without asking
any questions. Dists like libnet, which stop the build just to ask 'I've
found an old configuration: do you want to keep it?' are especially
irritating.
Sometimes, however, this isn't readily avoidable, particularly when
dealing with external libraries. I don't know anything about Unify in
particular, but if it doesn't provide a utility equivalent to pkg_config
to make automatic detection of the library paths possible then there's
nothing the author of DBD::Unify can do except insist the user provide
the information.
If you don't want to have to deal with situations like that, and that's
not an unreasonable position to take, you will need to get someone else
to answer the questions for you. In other words: use your OS's package
manager, and restrict yourself to only using the modules they've
packaged for you. Those packages should pull in external libraries
automatically, since they'll also be packaged up in the same way.
Ben
------------------------------
Date: Sat, 5 Nov 2011 23:42:23 +0800
From: "ela" <ela@yantai.org>
Subject: installation of Statistics::Test::WilcoxonRankSum
Message-Id: <j93lgu$2fn$1@ijustice.itsc.cuhk.edu.hk>
Installation (by cpan) of Statistics::Test::WilcoxonRankSum failed and then
I tried installing its dependent module Contextual::Return, then I
encountered the following errors:
Writing Makefile for Contextual::Return
Writing MYMETA.yml and MYMETA.json
cp lib/Contextual/Return.pm blib/lib/Contextual/Return.pm
cp lib/Contextual/Return/Failure.pm blib/lib/Contextual/Return/Failure.pm
Manifying blib/man3/Contextual::Return.3pm
Manifying blib/man3/Contextual::Return::Failure.3pm
DCONWAY/Contextual-Return-0.003001.tar.gz
/usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/00.load.t ................... 1/1 # Testing Contextual::Return
t/00.load.t ................... ok
t/args.t ...................... syntax error at t/args.t line 6, near "BOOL
"
syntax error at t/args.t line 8, near "NUM "
Execution of t/args.t aborted due to compilation errors.
t/args.t ...................... Dubious, test returned 255 (wstat 65280,
0xff00)
No subtests run
t/args_RESULT.t ............... Type of arg 1 to Contextual::Return::RESULT
must be block or sub {} (not single ref constructor) at t/args_RESULT.t line
5, near "};"
syntax error at t/args_RESULT.t line 5, near "; undef"
Type of arg 1 to Contextual::Return::RESULT must be block or sub {} (not
single ref constructor) at t/args_RESULT.t line 6, near "};"
Type of arg 1 to Contextual::Return::RESULT must be block or sub {} (not
single ref constructor) at t/args_RESULT.t line 7, near "};"
syntax error at t/args_RESULT.t line 7, near "; undef"
Execution of t/args_RESULT.t aborted due to compilation errors.
t/args_RESULT.t ............... Dubious, test returned 255 (wstat 65280,
0xff00)
No subtests run
t/caller.t .................... syntax error at t/caller.t line 6, near
"SCALAR "
syntax error at t/caller.t line 8, near "}"
Execution of t/caller.t aborted due to compilation errors.
t/caller.t .................... Dubious, test returned 255 (wstat 65280,
0xff00)
No subtests run
t/cleanup.t ................... syntax error at t/cleanup.t line 11, near
"NUM "
What's the problem? And what's the reference books for solving this kinda
problems?
------------------------------
Date: Sat, 05 Nov 2011 12:01:39 -0500
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: installation of Statistics::Test::WilcoxonRankSum
Message-Id: <juqdnWZDg6hu9ijTnZ2dnUVZ8nCdnZ2d@bt.com>
Quoth "ela" <ela@yantai.org>:
> Installation (by cpan) of Statistics::Test::WilcoxonRankSum failed and then
> I tried installing its dependent module Contextual::Return, then I
[Brrrrr. IMHO it's worth staying away from modules like that: they're
cute'n'all, but *so* fragile. I realise you didn't choose, in this
case.]
> encountered the following errors:
>
<snip>
> t/args.t ...................... syntax error at t/args.t line 6, near "BOOL
> "
> syntax error at t/args.t line 8, near "NUM "
> Execution of t/args.t aborted due to compilation errors.
> t/args.t ...................... Dubious, test returned 255 (wstat 65280,
> 0xff00)
> No subtests run
> t/args_RESULT.t ............... Type of arg 1 to Contextual::Return::RESULT
> must be block or sub {} (not single ref constructor) at t/args_RESULT.t line
> 5, near "};"
That looks to me like a prototype not being properly recognised at
compile time, but I can't see why that should happen. [ETA: looking
further, it looks like a bug in the version of perl you're using.]
> What's the problem? And what's the reference books for solving this kinda
> problems?
When you hit something like this the first step is to find the module on
search.cpan.org. From there you want to follow the link
CPAN Testers ... [Perl/Platform Version Matrix]
and see if other people with your OS and your version of perl have seen
similar problems. (You can click on the red and green bars to get a list
of detailed reports.) If other people in your position have reported
building the module successfully, the problem is probably on your
system; if they haven't, there may be a problem with the module, or with
that version of perl.
The next step is to go back to search.cpan.org and follow the
Links ... [View/Report Bugs]
link. Look through the list of reported bugs (if there are any) and see
if any look like what you're seeing. If they do, read the bug
transcript: someone may have found a fix or a workaround that hasn't
been included in the module yet. You may also want to check the resolved
bugs, in case this is a new example of an old problem that hasn't been
fixed properly.
If there are lots of important-looking bugs that haven't been touched in
several years, you may want to reconsider using the module. Code that's
'stable' is fine if it works, but if it doesn't and noone's fixing it
you want to stay away. (Unless, of course, you want to volunteer to take
on maintenance yourself :).)
In your particular case: are you, by any chance, using perl 5.8.0? If
so, *you need to upgrade*. 5.8.0, like most of the .0 releases, has some
rather important bugs. Even if you only upgrade to 5.8.9 (which is also
unsupported, and has been since 2008), that would be an improvement.
(Even if you only upgrade to 5.8.*1*, that would be an important
improvement.)
It also seems, looking at the reports, that C::R doesn't work at all on
5.8 versions of perl. If you really can't upgrade to 5.10-or-later, you
could try installing v0.2.1 of C::R, which appears to work on all the
5.8s *except* 5.8.0. You would need to either download and install it by
hand, or use
cpan> install DCONWAY/Contextual-Return-v0.2.1.tar.gz
I wouldn't recommend this as a permanent soultion, though.
Ben
------------------------------
Date: Sun, 6 Nov 2011 11:54:14 -0800 (PST)
From: Eric Smith <allomorphy@gmail.com>
Subject: Latest graphing
Message-Id: <b57d142a-8334-4534-ac55-c6a1a384dad8@m19g2000vbm.googlegroups.com>
What is the latest, greatest in graphing in perl?
Is the module to Gnuplot still the best option?
Eric
------------------------------
Date: Fri, 4 Nov 2011 10:24:01 -0700 (PDT)
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: Model Centric Perl Web Framework
Message-Id: <92e96258-165a-4afa-a311-98bb90ba1af9@9g2000yqv.googlegroups.com>
On 29 =CF=EA=F4, 16:17, Ilias Lazaridis <il...@lazaridis.com> wrote:
> I am looking for a perl web application framework, and found this
> overview here:
>
> https://www.socialtext.net/perl5/web_frameworks
>
> I have two basic requierements:
>
> a) "Model Centric".
>
> "Model Centric" means, that the Model (and thus the OO Classes) is the
> central point of development, and that the database is *not* a "point
> of development" (or only optional if wanted, e.g. when dealing with a
> given db-schema).
>
> If I specify my model, I can then create the underlying database using
> automations.
>
> The same is true for CRUD functionality, which should be created
> either dynamically at runtime, or via generators - using the classes
> and metadata specified in the model.
>
> An ideal implementation would allow me to continue incrementally,
> creating automaticly updates of db-schemas and CRUD's, whilst
> preserving data and my custom-changes made to the CRUD's.
>
> b) "Authentication Functionality" (Modules / Components)
>
> I would need modules for Open Auth Systems (Opent Auth, Open ID) and
> modules for popular sites like facebook, twitter, google etc.
>
> -
>
> Can anyone tell me which framework fullfills the requirement "a" and
> ideally requirement "b", too) ?
>
> Thank you in advance.
>
> .
Anything here?
I got some info on mojolicious
http://groups.google.com/group/mojolicious/browse_frm/thread/695af4c5ae661d=
90
.
--
http://lazaridis.com
------------------------------
Date: Sat, 05 Nov 2011 02:11:07 +0200
From: George Mpouras <antispam.gravitalsun@hotmail.com.nospam.me>
Subject: Re: Model Centric Perl Web Framework
Message-Id: <j91uur$1dg0$1@news.ntua.gr>
Your question is very generic. For me the simple CGI with some DBI
module is enough.
------------------------------
Date: Sun, 6 Nov 2011 16:43:30 -0800 (PST)
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: Model Centric Perl Web Framework
Message-Id: <355f879d-f74f-4856-beb6-fec73841c79a@ht6g2000vbb.googlegroups.com>
On 5 =CD=EF=DD, 02:11, George Mpouras
<antispam.gravital...@hotmail.com.nospam.me> wrote:
> Your question is very generic. For me the simple CGI with some DBI
> module is enough.
the question is quite concrete. I do not ask "what perl webframework
do you prefere" but "which perl webframework is model-centric".
It's sad, if I've really to go through every documentation.
--
http://lazaridis.com
------------------------------
Date: Sun, 06 Nov 2011 19:22:30 -0600
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Model Centric Perl Web Framework
Message-Id: <z-KdnVH8ZfdLryrTnZ2dnUVZ8gWdnZ2d@bt.com>
Quoth Ilias Lazaridis <ilias@lazaridis.com>:
> On 5 ÍïÝ, 02:11, George Mpouras
> <antispam.gravital...@hotmail.com.nospam.me> wrote:
> > Your question is very generic. For me the simple CGI with some DBI
> > module is enough.
>
> the question is quite concrete.
I agree. I only didn't respond because I don't think I've got a good
answer.
> I do not ask "what perl webframework do you prefere" but "which perl
> webframework is model-centric".
IIUC you aren't just looking for something which puts the business logic
in the model (which is simply good practice in an MVC system) but you
more specifically want a system which will generate and update a
database schema out of thin air given only a set of objects to store.
If you just want a good MVC system, I'd recommend Catalyst. Cat supports
lots of Model classes: the one usually used in the examples is based on
DBIx::Class. DBIC is, I think, exactly what you *aren't* looking for:
while it will generate DDL for you, and it gives you an OO interface to
the database, it will only do so after you've set up a 'schema' which
ends up mostly equivalent to an SQL schema.
Perhaps what you want is Catalyst::Model::KiokuDB? I've never used it,
with or without Catalyst[0], but Florian (who appears to be the current
maintainer) certainly knows what he's doing.
Ben
[0] and probably wouldn't want to. IMHO if you're using an RDBMS just to
serialise a handful of objects you're wasting it: the whole point of SQL
is it lets you ask questions you weren't expecting when you put the data
in the database. If all the important bits are stuffed into blobs you
might as well have been using BDB or something simple like that from the
start. (In fact, I see KiokuDB supports BDB as a backend...)
------------------------------
Date: Fri, 4 Nov 2011 13:47:12 +0000
From: Justin C <justin.1104@purestblue.com>
Subject: Re: Module install problem DBD::Unify
Message-Id: <007do8-kus.ln1@zem.masonsmusic.co.uk>
On 2011-11-04, Justin C <justin.1104@purestblue.com> wrote:
>
> I'm trying to install the DBD::Unify module. My usual install method is
[snip]
> I don't seem to see any errors until this one:
>
> if [ -x /usr/sbin/selinuxenabled ] && /usr/sbin/selinuxenabled; then chcon -t textrel_shlib_t blib/arch/auto/DBD/Unify/Unify.so; fi
> chcon: failed to change context of blib/arch/auto/DBD/Unify/Unify.so to root:object_r:textrel_shlib_t: Invalid argument
> make: *** [linkext] Error 1
>
> Until today I'd never even heard of chcon. Any suggestions on how I fix
> this?
I've Googled this a bit further and am happy that it's not a Perl
problem. I'm pursuing a solution in Linux groups.
If anyone here has any suggestions I'd still be happy to hear them.
Justin.
--
Justin C, by the sea.
------------------------------
Date: Fri, 04 Nov 2011 09:14:15 -0500
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Module install problem DBD::Unify
Message-Id: <3rednZJ2iMyqbi7TnZ2dnUVZ8nCdnZ2d@bt.com>
Quoth Justin C <justin.1104@purestblue.com>:
>
> I'm trying to install the DBD::Unify module. My usual install method is
> from within the cpan shell:
>
> cpan> install DBD::Unify
>
> This failed initially because I didn't have $DBPATH environment set.
> Having fixed that I got a different failure, and the same failure if I,
> in the build directory, run
>
> [justin@server]$ perl Makefile.PL
> [justin@server]$ make
>
> I don't seem to see any errors until this one:
>
> if [ -x /usr/sbin/selinuxenabled ] && /usr/sbin/selinuxenabled; then
> chcon -t textrel_shlib_t blib/arch/auto/DBD/Unify/Unify.so; fi
> chcon: failed to change context of blib/arch/auto/DBD/Unify/Unify.so to
> root:object_r:textrel_shlib_t: Invalid argument
> make: *** [linkext] Error 1
>
> Until today I'd never even heard of chcon. Any suggestions on how I fix
> this?
I would start by editing the Makefile.PL and commenting out the six
lines starting with
'linkext::',
in sub postamble. If that works then you should file a DBD::Unify bug
with full details of your Linux setup, including anything you've changed
wrt SELinux.
Otherwise, I'm afraid I don't know: you'll need to ask someone who knows
about SELinux. I have to say I don't really see why DBD::Unify needs
special SELinux setup when other modules don't.
Ben
------------------------------
Date: Sat, 5 Nov 2011 23:20:01 +0800
From: "ela" <ela@yantai.org>
Subject: Re: Module install problem DBD::Unify
Message-Id: <j93k81$21m$1@ijustice.itsc.cuhk.edu.hk>
"Justin C" <justin.1104@purestblue.com> wrote in message
news:84qco8-luo.ln1@zem.masonsmusic.co.uk...
>
> I'm trying to install the DBD::Unify module. My usual install method is
> from within the cpan shell:
>
> cpan> install DBD::Unify
>
> This failed initially because I didn't have $DBPATH environment set.
> Having fixed that I got a different failure, and the same failure if I,
> in the build directory, run
When I use my clean OS to install perl modules by cpan, I also encounter a
similar problem as Justin did. I have read CPAN documentation and it says it
is able to resolve dependencies itself. Well, it is rather frustrated to not
know exactly what and the order of modules to install or what environment
variables have to set to fix the problem. Is there any good reference book
to read for Perl module/distribution installation?
------------------------------
Date: Sun, 6 Nov 2011 07:34:14 -0800 (PST)
From: sanika <rahulme81@gmail.com>
Subject: Read Trailer record of file
Message-Id: <06b86592-b30d-4514-8001-388f748dbc00@s32g2000prj.googlegroups.com>
I have an req where i need to parse the trailer record of file
Which is in format like
TRL|No. of Records in file|Date
What i need to do is read TRL line of file and if "No. of records" &
"Date" fields on trailer line,i have to compare with the trailer
record of previous day file.
Please suggest on this
------------------------------
Date: Sun, 06 Nov 2011 07:46:29 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Read Trailer record of file
Message-Id: <fkadb7191aqjb7ejha5ormth1fmc5oabor@4ax.com>
sanika <rahulme81@gmail.com> wrote:
>I have an req where i need to parse the trailer record of file
>Which is in format like
>
>TRL|No. of Records in file|Date
>
>What i need to do is read TRL line of file and if "No. of records" &
>"Date" fields on trailer line,i have to compare with the trailer
>record of previous day file.
>
>Please suggest on this
What have you done so far? Where are you stuck? Which error messages
does your code generate? Or in how far does the output not meet your
expectations?
If you don't even know where to start here are some pointers for
starters:
- perldoc -f open
- perldoc -f grep
- perldoc -f split
- perldoc perlop (and pay special attention to the comparison operators)
But honestly, this task is so simple that using Perl almost seems to be
overkill.
jue
------------------------------
Date: Sun, 6 Nov 2011 15:07:26 +0800
From: "ela" <ela@yantai.org>
Subject: Upgrade your perl
Message-Id: <j95bnc$ikh$1@ijustice.itsc.cuhk.edu.hk>
Thanks to Ben Morrow's tips, I find that installation failure may be just
likely due to an outdated Perl. So please try using yum, or a way mentioned
in http://www.cuvou.com/doc/perl510.html (I used this method to upgrade to
5.15.2). Then you will find many of your unsolved problems suddenly all
solve. Hope this would help to those once frustrated like me.
------------------------------
Date: Sun, 06 Nov 2011 01:53:04 -0700
From: Uno <Uno@example.invalid>
Subject: what happened with this error?
Message-Id: <9hn07iFqd8U1@mid.individual.net>
[sorry can only paste as quotation]
> $ perl nov1.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(0x8c59978)<<< 220 FTP Server ready.
> Net::FTP=GLOB(0x8c59978)>>> USER u63263303
> Net::FTP=GLOB(0x8c59978)<<< 331 Password required for u63263303
> Net::FTP=GLOB(0x8c59978)>>> PASS ....
> Net::FTP=GLOB(0x8c59978)<<< 230 User u63263303 logged in
> Net::FTP=GLOB(0x8c59978)>>> TYPE I
> Net::FTP=GLOB(0x8c59978)<<< 200 Type set to I
> Net::FTP=GLOB(0x8c59978)>>> CWD /vids/
> Net::FTP=GLOB(0x8c59978)<<< 250 CWD command successful
> Net::FTP=GLOB(0x8c59978)>>> ALLO 43230955
> Net::FTP=GLOB(0x8c59978)<<< 202 No storage allocation necessary
> Net::FTP=GLOB(0x8c59978)>>> PASV
> Net::FTP=GLOB(0x8c59978)<<< 227 Entering Passive Mode (50,21,179,12,240,67).
> Net::FTP=GLOB(0x8c59978)>>> STOR munga1.flv
> Net::FTP=GLOB(0x8c59978)<<< 150 Opening BINARY mode data connection for munga1.flv
> Net::FTP=GLOB(0x8c59978): Timeout at /usr/share/perl/5.10/Net/FTP/dataconn.pm line 74
> Use of uninitialized value $@ in concatenation (.) or string at nov1.pl line 15.
> put failed
> $
> $ cat nov1.pl
> #!/usr/bin/perl -w
> use strict;
> use Net::FTP;
> my $domain = 'www.altgreendesigns.com';
> my $username = 'u63263303';
> my $password = '';
> my $file = 'munga1.flv';
> my $file2 = 'dl1.flv';
>
> my $ftp = Net::FTP->new($domain, Debug=>1, Passive=>1) or die "Can't connect: $@\n";
> $ftp->login($username, $password) or die "Couldn't login\n";
> $ftp->binary();
> # $ftp->mkdir('/vids/');
> $ftp->cwd('/vids/') or die "death $@\n";
> $ftp->put($file) or die "put failed $@\n";
> $ftp->get($file, $file2) or die "get failed $@\n";
> $
Maybe something with Passive?
--
Uno
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 3537
***************************************
