[32154] in Perl-Users-Digest
Perl-Users Digest, Issue: 3419 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 18 11:09:24 2011
Date: Sat, 18 Jun 2011 08:09:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 18 Jun 2011 Volume: 11 Number: 3419
Today's topics:
Re: [RegEx] Optional parameter <uri@StemSystems.com>
Re: [RegEx] Optional parameter <tadmc@seesig.invalid>
Re: [RegEx] Optional parameter <tadmc@seesig.invalid>
Re: [RegEx] Optional parameter <hjp-usenet2@hjp.at>
Re: Catastrophic regexp performance with grouping. <nospam-abuse@ilyaz.org>
Re: FAQ 2.6 What modules and extensions are available f <brian.d.foy@gmail.com>
Re: FAQ 2.6 What modules and extensions are available f <nospam-abuse@ilyaz.org>
Feeding STDIN <ela@yantai.org>
Re: Feeding STDIN <tadmc@seesig.invalid>
Re: Feeding STDIN <sherm.pendley@gmail.com>
Re: Feeding STDIN <ela@yantai.org>
Re: Feeding STDIN <anfi@onet.eu>
Re: Feeding STDIN <anfi@onet.eu>
Re: Feeding STDIN <tadmc@seesig.invalid>
Re: Feeding STDIN <ela@yantai.org>
Re: Regex Matching <jurgenex@hotmail.com>
Re: Regex Matching <tadmc@seesig.invalid>
send file as post to cgi that writes file on remote web <gavcomedy@gmail.com>
Re: send file as post to cgi that writes file on remote <gavcomedy@gmail.com>
Re: send file as post to cgi that writes file on remote <gavcomedy@gmail.com>
upload file rom solaris to debian using perl base insta <gavcomedy@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 17 Jun 2011 21:49:10 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: [RegEx] Optional parameter
Message-Id: <874o3nkiy1.fsf@quad.sysarch.com>
>>>>> "RLS" == Randal L Schwartz <merlyn@stonehenge.com> writes:
>>>>> "Uri" == Uri Guttman <uri@StemSystems.com> writes:
RLS> Warnings are for beginners. Only. And anyone who religiously says
RLS> "warnings are mandatory" needs to be distrusted slightly, I think.
Uri> not mandatory. just understood for what they are.
RLS> Yes. For beginners, before they learn "use Test::More".
RLS> I can validate my code far better with a ".t" file than a warning will
RLS> *ever* do, and I can do it without working around the warnings that get
RLS> in my way. And I'm never going to accidentally fill up
RLS> /var/log/apache2/error.log with meaningless messages.
do your .t files do full coverage? i have used the coverage module and
it can be very interesting to test every single statement and possible
value range. users can push data boundaries very hard.
as for filling log files, someone else mentioned they should have been
monitored better than they were.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Fri, 17 Jun 2011 22:20:44 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: [RegEx] Optional parameter
Message-Id: <slrnivo5vr.bds.tadmc@tadbox.sbcglobal.net>
Uri Guttman <uri@StemSystems.com> wrote:
>>>>>> "RM" == Pinocchio <ralph@happydays.com> writes:
>
> RM> Just what do you hire for? Putting tins of chocolate into boxes?
> RM> Also, the idea that you more than dabble in placements is
> RM> laughable. Anyone that has ever met you knows you are completely
> RM> unprofessional and the last person on earth with the sorts of
> RM> relationships or soft skills needed to place people in positions.
>
> you are so correct as always. and i wouldn't hire you to pack chocolates
Not even if you ran the production line so fast that he couldn't
keep up with it?
That would be a hoot.
Somebody should do that and then put it on TV or something...
... I Love Ralph
tadmc
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Fri, 17 Jun 2011 22:52:11 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: [RegEx] Optional parameter
Message-Id: <slrnivo7qr.bds.tadmc@tadbox.sbcglobal.net>
Randal L. Schwartz <merlyn@stonehenge.com> wrote:
>>>>>> "David" == David Harmon <source@netcom.com> writes:
>
>David> On Sun, 12 Jun 2011 17:11:10 -0700 in comp.lang.perl.misc,
>David> merlyn@stonehenge.com (Randal L. Schwartz) wrote,
>>> I'm actually of the camp that "use warnings" does
>>> more harm than good for the expert programmer.
>
>David> Would you care to say why that is? It seems to me that if I put
>David> "use warnings" and no warnings appear, then it isn't doing any harm.
>
> Because the workarounds an expert has to do to get warnings not to
> appear in perfectly good code make it uglier.
>
> For example, suppose *you* know that it's perfectly fine to treat an
> undef as a 0 in a particular situation.
I would want the *next guy* to know that I knew that it was OK.
I want to say "It is OK if undefs are treated as zeros here, I checked".
So I would write:
$a = 0 unless defined;
$b = 0 unless defined;
> So you write:
>
> my $c = $a + $b;
>
> even if $a or $b might be undef.
_I_ would pause here to wonder about the values of $a and $b, and
would go find out where their values came from, and what $c was
supposed to be if they happened to be undef.
But you, as the original author, already did all of that checking.
But I wouldn't know that it you didn't mention it...
Repeating effort already expended is something to be avoided.
> Works fine, as long as warnings aren't turned on. If they are, you
> end up writing:
>
> my $c = ($a || 0) + ($b || 0);
>
> which looks downright ugly. And yes, I've seen a *ton* of code coded
> like this to get around the warnings.
I agree 100% that that is a horrid way to say "undefs as zero are OK".
> Far far far too much wasted
> effort.
Far too much misdirected effort.
It is not wasted if it avoids leading me "off into the woods"
when I could have "stayed on the trail".
:-)
> Warnings are for beginners. Only. And anyone who religiously says
> "warnings are mandatory" needs to be distrusted slightly, I think.
That's OK. Lots of people distrust me already anyway.
:-)
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Sat, 18 Jun 2011 12:15:34 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: [RegEx] Optional parameter
Message-Id: <slrnivoum6.d2c.hjp-usenet2@hrunkner.hjp.at>
On 2011-06-17 21:10, Randal L. Schwartz <merlyn@stonehenge.com> wrote:
> Warnings are for beginners. Only.
Maybe I've never progressed beyond the beginner stage in 25+ years of
programming, but I still find warnings useful. In fact, thinking back,
it was quite the opposite: When I was a beginner, I liked assembler and
K&R C, because it would just do what I told it. But with more experience
I found that quite a lot of my errors can be found automatically and the
list of warnings I enabled in GCC[1] grew quite long. Sure, sometimes it
warned about stuff which was perfectly ok, and you had to shut it up
with a superfluous cast or extra set of parentheses or something, but
overall, that saved me a lot of time.
> And anyone who religiously says "warnings are mandatory" needs to be
> distrusted slightly, I think.
Anyone who says anything religiously needs to be distrusted slightly, I
think.
But I was involved when we revamped a systems programming course for 3rd
semester students back in the 90s. Among other things we required that
the programs need to compile without warnings at a specified warning
level. Some of the students showed a lot of creativity in shutting up
the compiler without actually fixing the problem, but overall the code
quality of the solutions increased markedly in that year. Yes, those
were beginners. But I've seen enough code by experienced programmers to
be sure that almost every programmer can use a little help from the
compiler. Maybe you are one of the rare exceptions. I certainly ain't.
hp
[1] One reason I preferred GCC to other C compilers at the time was that
it didn't have warning levels (-w3 always missed some stuff and -w4
buried me in a lot of irrelevant warnings), but had options to
enable and disable individual warnings. So I could actually enable
those warnings which were useful to me.
------------------------------
Date: Sat, 18 Jun 2011 08:54:59 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Catastrophic regexp performance with grouping.
Message-Id: <slrnivopv2.5jf.nospam-abuse@chorin.math.berkeley.edu>
On 2011-06-15, Uri Guttman <uri@StemSystems.com> wrote:
> the issue isn't anchoring, it is repeated nesting of a null match. how
> can perl decide where and when to stop the match?
Might it be that Perl would use its ruls for repeated zero-length
matching? ;-)
Do not remember how it is stated in the docs; something like "never
match 0-length second time at the same location".
Ilya
------------------------------
Date: Sat, 18 Jun 2011 00:31:17 +0200
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 2.6 What modules and extensions are available for Perl? What is CPAN? What does CPAN/src/... mean?
Message-Id: <180620110031173144%brian.d.foy@gmail.com>
In article <6e6d4$4dfb6edf$ce534406$12125@news.eurofeeds.com>, Ralph
Malph <ralph@happydays.com> wrote:
> > It's always dated. There's no way for it to have information that isn't
> > from the past. :)
>
> *sigh*. I'll try one more time.
I wasn't disagreeing with you. I agree with everything you said.
However, I'm no longer the perlfaq maintainer, so somebody else will
have to submit a patch to perl5-porters if they want to change it.
------------------------------
Date: Sat, 18 Jun 2011 08:59:45 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: FAQ 2.6 What modules and extensions are available for Perl? What is CPAN? What does CPAN/src/... mean?
Message-Id: <slrnivoq81.5jf.nospam-abuse@chorin.math.berkeley.edu>
On 2011-06-17, brian d foy <brian.d.foy@gmail.com> wrote:
> In article <6e6d4$4dfb6edf$ce534406$12125@news.eurofeeds.com>, Ralph
> Malph <ralph@happydays.com> wrote:
>
>> > It's always dated. There's no way for it to have information that isn't
>> > from the past. :)
>>
>> *sigh*. I'll try one more time.
>
> I wasn't disagreeing with you. I agree with everything you said.
Myself, I have no problem with 5-years-old trivia in the FAQ. But
maybe there is a page with "automatically updated current stats of
CPAN"? Then one could add a link to this page near this 5-years-old entry...
Ilya
------------------------------
Date: Sat, 18 Jun 2011 12:58:10 -0700
From: "ela" <ela@yantai.org>
Subject: Feeding STDIN
Message-Id: <ith7jh$aaq$1@ijustice.itsc.cuhk.edu.hk>
a perl program will prompt user input for a number and my choice is always
29.
I ran the following command but 29 was treated as a file...
perl myprog.pl < 29
what should I do to automate the process? I don't wanna hard code the
variable in myprog.pl.......
------------------------------
Date: Fri, 17 Jun 2011 23:31:31 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Feeding STDIN
Message-Id: <slrnivoa4j.bla.tadmc@tadbox.sbcglobal.net>
ela <ela@yantai.org> wrote:
> a perl program will prompt user input for a number and my choice is always
> 29.
>
> I ran the following command but 29 was treated as a file...
>
> perl myprog.pl < 29
Treating 29 as a filename is what is *supposed* to happen there.
> what should I do to automate the process? I don't wanna hard code the
> variable in myprog.pl.......
You do not have a Perl question.
You have a shell question.
echo 29 | myprog.pl
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Sat, 18 Jun 2011 01:57:09 -0400
From: Sherm Pendley <sherm.pendley@gmail.com>
Subject: Re: Feeding STDIN
Message-Id: <m2vcw3znpm.fsf@sherm.shermpendley.com>
"ela" <ela@yantai.org> writes:
> I ran the following command but 29 was treated as a file...
>
> perl myprog.pl < 29
Yep. Just like it would have been if you'd run a Ruby program with:
ruby myprog.rb < 29
Or a python program with:
python myprog.py < 29
You've told your command shell that you want it to pipe the program's
stdin from the file '29'. That has nothing to do with the program you
happen to be running, and everything to do with the command with which
you are running it.
> what should I do to automate the process?
Learn how to do redirects properly in the shell of your choice. If you
are using a *nix system, check its man page, 'man bash' for example,
if you're using the bash shell.
sherm--
------------------------------
Date: Sat, 18 Jun 2011 23:29:13 -0700
From: "ela" <ela@yantai.org>
Subject: Re: Feeding STDIN
Message-Id: <iticih$ne8$1@ijustice.itsc.cuhk.edu.hk>
Sorry to post again here but "info echo" doesn't give much help...
For the follow codes
<<<<<<
print "Please enter the number for Filtering category:$nl";
$y_idx=<STDIN>;
#print "Please enter the Superkingdom for Filtering category:$nl";
$y_idx=<STDIN>;
print "Please enter the number for X:$nl";
$x_idx=<STDIN>;
print "Y:$y_idx X:$x_idx\n";
>>>>>>
I tried:
echo 13 22 | perl test.pl
but then $y_idx just gets all the numbers and leaves $x_idx for nothing. As
aforementioned, I don't wanna change the perl code because it's now designed
for good interactive purpose. I'd highly appreciate more cues about how perl
handles arguments passed in this way.
------------------------------
Date: Sat, 18 Jun 2011 16:38:57 +0200
From: Andrzej Adam Filip <anfi@onet.eu>
Subject: Re: Feeding STDIN
Message-Id: <afzp8gx4bj+B6I@ruben.huge.strangled.net>
"ela" <ela@yantai.org> wrote:
> a perl program will prompt user input for a number and my choice is always
> 29.
>
> I ran the following command but 29 was treated as a file...
>
> perl myprog.pl < 29
>
> what should I do to automate the process? I don't wanna hard code the
> variable in myprog.pl.......
echo 29 | perl myprog.pl
--
[pl>en Andrew] Andrzej A. Filip : anfi@onet.eu : Andrzej.Filip@gmail.com
What is a magician but a practising theorist?
-- Obi-Wan Kenobi
------------------------------
Date: Sat, 18 Jun 2011 16:44:20 +0200
From: Andrzej Adam Filip <anfi@onet.eu>
Subject: Re: Feeding STDIN
Message-Id: <v6b0f0kjqy+B6I@ruben.huge.strangled.net>
"ela" <ela@yantai.org> wrote:
> Sorry to post again here but "info echo" doesn't give much help...
>
> For the follow codes
>
> <<<<<<
> print "Please enter the number for Filtering category:$nl";
> $y_idx=<STDIN>;
> #print "Please enter the Superkingdom for Filtering category:$nl";
> $y_idx=<STDIN>;
> print "Please enter the number for X:$nl";
> $x_idx=<STDIN>;
>
> print "Y:$y_idx X:$x_idx\n";
>>>>>>>
>
> I tried:
>
> echo 13 22 | perl test.pl
>
> but then $y_idx just gets all the numbers and leaves $x_idx for nothing. As
> aforementioned, I don't wanna change the perl code because it's now designed
> for good interactive purpose. I'd highly appreciate more cues about how perl
> handles arguments passed in this way.
Which shell (program processing terminal input do you use?
My shell (bash) would accept something like below:
(echo 13; echo 22) | perl test.pl
It should print each number in separate line.
--
[pl>en Andrew] Andrzej A. Filip : anfi@onet.eu : Andrzej.Filip@gmail.com
In America, any boy may become president and I suppose that's just one
of the risks he takes.
-- Adlai Stevenson
------------------------------
Date: Sat, 18 Jun 2011 09:45:17 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Feeding STDIN
Message-Id: <slrnivpe3c.d94.tadmc@tadbox.sbcglobal.net>
ela <ela@yantai.org> wrote:
> Sorry to post again here
If you post shell questions to a newsgroup about the shell,
then there will be no need to apologize!
> but "info echo" doesn't give much help...
Yes it does:
-e enable interpretation of backslash escapes
> For the follow codes
>
><<<<<<
> print "Please enter the number for Filtering category:$nl";
> $y_idx=<STDIN>;
> #print "Please enter the Superkingdom for Filtering category:$nl";
> $y_idx=<STDIN>;
> print "Please enter the number for X:$nl";
> $x_idx=<STDIN>;
>
> print "Y:$y_idx X:$x_idx\n";
Why does your code read from STDIN 3 times?
Does it really read 2 times or 3 times?
If you post nonsense, you can expect a nonsense answer.
(so don't do that!)
You neglect to chomp() the inputs...
>>>>>>>
>
> I tried:
>
> echo 13 22 | perl test.pl
>
> but then $y_idx just gets all the numbers and leaves $x_idx for nothing.
Once again, you *do not have a Perl question*.
You have a shell question.
You should post shell questions to a newsgroup about shells!
> I'd highly appreciate more cues about how perl
> handles arguments passed in this way.
There *are no* arguments to your Perl program.
Your Perl program takes *input*, not *arguments*.
It wants 2 lines of input, so you must figure out how to get your
shell to pass it 2 lines of input:
echo -e "13\n22" | perl test.pl
If your program was written in C or Python or any other language,
you would *still* need to figure out how to get your shell
to pass it 2 lines of input.
There is no Perl content in your question.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Sun, 19 Jun 2011 00:00:08 -0700
From: "ela" <ela@yantai.org>
Subject: Re: Feeding STDIN
Message-Id: <itiecg$o2p$1@ijustice.itsc.cuhk.edu.hk>
"Tad McClellan" <tadmc@seesig.invalid> wrote in message
news:slrnivpe3c.d94.tadmc@tadbox.sbcglobal.net...
> There *are no* arguments to your Perl program.
>
> Your Perl program takes *input*, not *arguments*.
>
> It wants 2 lines of input, so you must figure out how to get your
> shell to pass it 2 lines of input:
>
> echo -e "13\n22" | perl test.pl
This is the most important part that I understand now. STDIN is expecting *a
line* (I know it's naive...) so I have to pass in a newline character to it.
since I'm using tcsh so the solution is
echo "13\n22\n" | perl test.pl
Thanks for your patience, Tad McClellan. I'm still clumsy, but with your
teaching, I'm making some progress now!
p.s. thanks Andrzej Adam Filip also for your reply!
------------------------------
Date: Fri, 17 Jun 2011 18:12:12 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Regex Matching
Message-Id: <nounv6tq3a9kpqkv7drdgqdlbghkhir24t@4ax.com>
DanielC <dnlchen@gmail.com> wrote:
>On Jun 13, 5:22 pm, Tad McClellan <ta...@seesig.invalid> wrote:
>> DanielC <dnlc...@gmail.com> wrote:
>> > On Jun 12, 3:39 pm, s...@netherlands.com wrote:
>> >> my $field_sep = '(?:\b.*\b)';
>> > Is ?: a ternary operator?
>>
>> Yes.
>>
>> But that is not ?:
>>
>> That is (?: ... )
>>
>> Which, as with all regex constructs, is documented in perlre.pod
>>
>> =item C<(?:pattern)>
>>
>> This is for clustering, not capturing; it groups subexpressions like
>> "()", but doesn't make backreferences as "()" does.
>>
>> > How come <print @found. " lines:\n"> gives the number of elements in
>> > an array?
>>
>> Because the name of an array gives the number of elements
>> when used in a scalar context like that.
>>
>> http://stackoverflow.com/questions/4802541/scalar-and-list-context-in...
>>
>> --
>> Tad McClellan
>> email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
>> The above message is a Usenet post.
>> I don't recall having given anyone permission to use it on a Web site.
>
>Is this being used often by Perl devs?
You mean Tad's signature? No, as far as I am aware it is used
exclusively by Tad.
>I asked some my colleagues who
>are Perl devs and they don't know this and even they don't use
>reference very much.
Reference? What reference? Where do you see a reference?
jue
------------------------------
Date: Fri, 17 Jun 2011 22:10:42 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Regex Matching
Message-Id: <slrnivo5d1.bds.tadmc@tadbox.sbcglobal.net>
Jürgen Exner <jurgenex@hotmail.com> wrote:
> DanielC <dnlchen@gmail.com> wrote:
>>On Jun 13, 5:22Â pm, Tad McClellan <ta...@seesig.invalid> wrote:
>>> --
>>> Tad McClellan
>>> email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
>>> The above message is a Usenet post.
>>> I don't recall having given anyone permission to use it on a Web site.
>>
>>Is this being used often by Perl devs?
>
> You mean Tad's signature? No, as far as I am aware it is used
> exclusively by Tad.
I cribbed it from somewhere in rec.bicycles.*
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Sat, 18 Jun 2011 00:49:02 -0700 (PDT)
From: gavino <gavcomedy@gmail.com>
Subject: send file as post to cgi that writes file on remote webserver command line
Message-Id: <2d5ae5da-399e-4a71-b657-a49509fb6f63@v11g2000prk.googlegroups.com>
how?
------------------------------
Date: Sat, 18 Jun 2011 05:18:35 -0700 (PDT)
From: gavino <gavcomedy@gmail.com>
Subject: Re: send file as post to cgi that writes file on remote webserver command line
Message-Id: <1e4398b1-5895-4642-86ce-326114f74d55@l14g2000pro.googlegroups.com>
On Jun 18, 12:49=A0am, gavino <gavcom...@gmail.com> wrote:
> how?
I summon the demoigods fo perl!!
(1:33:25 AM) preflex left the room (quit: Ping timeout: 360 seconds).
(1:35:54 AM) preflex [~preflex@188-194-172-174-dynip.superkabel.de]
entered the room.
(1:43:00 AM) armed_elf: how can I from command line with perl 5.10
(1:43:06 AM) armed_elf: upload from box 1
(1:43:09 AM) armed_elf: solaris
(1:43:21 AM) armed_elf: to box 2 debian running a webserver
(1:43:24 AM) armed_elf: over http
(1:43:43 AM) armed_elf: I somehow see I have emit a psot with the
file, then read the psot with cgi on box2 and wirte file
(1:43:46 AM) armed_elf: but damned if i know how
(1:43:55 AM) armed_elf: other exmaples about of a web page to file
upload
(1:43:58 AM) armed_elf: but nothing from commadn line
(1:45:32 AM) preflex left the room (quit: Ping timeout: 360 seconds).
------------------------------
Date: Sat, 18 Jun 2011 05:18:17 -0700 (PDT)
From: gavino <gavcomedy@gmail.com>
Subject: Re: send file as post to cgi that writes file on remote webserver command line
Message-Id: <6586fa36-a289-4af1-b224-1b4db396f58f@18g2000prd.googlegroups.com>
On Jun 18, 12:49=A0am, gavino <gavcom...@gmail.com> wrote:
> how?
I summon the demoigods fo perl!!
(1:33:25 AM) preflex left the room (quit: Ping timeout: 360 seconds).
(1:35:54 AM) preflex [~preflex@188-194-172-174-dynip.superkabel.de]
entered the room.
(1:43:00 AM) armed_elf: how can I from command line with perl 5.10
(1:43:06 AM) armed_elf: upload from box 1
(1:43:09 AM) armed_elf: solaris
(1:43:21 AM) armed_elf: to box 2 debian running a webserver
(1:43:24 AM) armed_elf: over http
(1:43:43 AM) armed_elf: I somehow see I have emit a psot with the
file, then read the psot with cgi on box2 and wirte file
(1:43:46 AM) armed_elf: but damned if i know how
(1:43:55 AM) armed_elf: other exmaples about of a web page to file
upload
(1:43:58 AM) armed_elf: but nothing from commadn line
(1:45:32 AM) preflex left the room (quit: Ping timeout: 360 seconds).
------------------------------
Date: Fri, 17 Jun 2011 20:57:58 -0700 (PDT)
From: gavino <gavcomedy@gmail.com>
Subject: upload file rom solaris to debian using perl base install
Message-Id: <e5a775ea-22e7-4b2f-9792-0218fc2961b4@r35g2000prj.googlegroups.com>
how?
I tried fo rhours to piece this one together.
Whew
it seems u need a cgi on box 2 to accept some kinda wget uplaod from
box1
by the way I am not allowed anything but base perl 5.10 with cgi.pm
and wget
no curl
on soalris 10 box1
have to upload files to webserver on debian box2
how?
read about 30 pages mostly with upload forms
I want to command line script this and put in cron on box1
lighttps on debian is also annoying as docs are light for cgi
------------------------------
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 3419
***************************************
