Hi All,
I have written one cgi script and when try to run through my internet explorer
It is opening that script rather than executing that script. Please help me to solve
this problem.
Thanks & regards,
Amit Sharma.
_
Get You
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, June 28, 2003 7:18 PM
Subject: Re: make CPAN::Shell->i; print to a filehandle
> Mark G <[EMAIL PROTECTED]> writes:
>
>
> >> $target = "somefile";
> >> if($opt_r){
> >> open(FH,">$ta
Harry Putnam wrote:
>
> "John W. Krahn" <[EMAIL PROTECTED]> writes:
> >
> > And then get the sorted list like this:
> >
> > @sorted = sort { $name{ $a } cmp $name{ $b } } keys %name;
>
> I've seen that in books and stuff but was never able to fathom out
> how it does what it does. So never actua
"Vasudev.K." wrote:
> Hi,
> I have this rather critical problem, I am trying to download quite huge
> files from a remote server through ftp. (The file being in a zipped
> format). I have an array which stores the names of the files to be
> downloaded. I am opening each of them up at my end and ex
LI NGOK LAM wrote:
> >
> > You will probably want to open the file with a mode of "+<".
> >
>
> Yes and thank you! That does what I want now. Thank you very much !!
>
> But I found new problem now. I did what I want if I try on a bitmap file,
> but for text file, my new contents will overwrite the
"John W. Krahn" <[EMAIL PROTECTED]> writes:
>> But it doesn't really give the results I was after either. I wanted
>> the sort on short *.pod name. Other wise I have things like:
>>/usr/lib/perl5/5.6.1/Win32.pod
>> coming first.
>>
>> So my formulation may be better in that regard.
>
> Popu
Harry Putnam wrote:
>
> "John W. Krahn" <[EMAIL PROTECTED]> writes:
>
> > Harry Putnam wrote:
> >>
> >> @sorted = sort @unsorted;
> >
> > You probably should use the keys of %name which are unique.
>
> How cool, I hadn't realized this expression:
>if ($name{$File::Find::name}++ == 0){
> Actu
Harry Putnam <[EMAIL PROTECTED]> writes:
> Whew, for a minute there I thougt I'd screwed that up too. But why
> are there dups to begin with?
Gets us right back to SPENCERS who had it right from the start.
I wish I knew better what this code is doing:
if (-d && /^[a-z]/) { $File::Find::pr
"John W. Krahn" <[EMAIL PROTECTED]> writes:
> Harry Putnam wrote:
>>
>> "Charles K. Clarkson" <[EMAIL PROTECTED]> writes:
>>
>> > Harry Putnam said:
>> > :
>> > : Here is the problem:
>> > :
>> > : Summary run home made tools against only the
>> > : uniq paths that might contain perl *.pm files.
"John W. Krahn" <[EMAIL PROTECTED]> writes:
> "John W. Krahn" wrote:
>>
>> The initial value in $name{$File::Find::name} will be undef not zero so
>> comparing it to zero will not work.
>>
>> if ( $name{ $File::Find::name }++ ) {
>
> Sorry, my mistake, it does work.
Whew, for a minute t
"John W. Krahn" wrote:
>
> The initial value in $name{$File::Find::name} will be undef not zero so
> comparing it to zero will not work.
>
> if ( $name{ $File::Find::name }++ ) {
Sorry, my mistake, it does work.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL
Harry Putnam wrote:
>
> "Charles K. Clarkson" <[EMAIL PROTECTED]> writes:
>
> > Harry Putnam said:
> > :
> > : Here is the problem:
> > :
> > : Summary run home made tools against only the
> > : uniq paths that might contain perl *.pm files.
> >
> > Harry, that doesn't' make a bit of sense.
>
Mark G <[EMAIL PROTECTED]> writes:
>> $target = "somefile";
>> if($opt_r){
>> open(FH,">$target") or die "Cannot open $target: $!";
>> print FH CPAN::Shell->i;
> you can try IPC::Open2.
That looks like the stuff. Apparently the pod author felt it was
criminal to supply even a very bas
"Charles K. Clarkson" <[EMAIL PROTECTED]> writes:
> Harry Putnam said:
> :
> : Here is the problem:
> :
> : Summary run home made tools against only the
> : uniq paths that might contain perl *.pm files.
>
> Harry, that doesn't' make a bit of sense.
> Could you rephrase the question?
You can
"SPENCERS" <[EMAIL PROTECTED]> writes:
> Hello, Harry.
>
>Is this what you are looking for?
Well it gives the right results. I think I'm making a mountain where
there was only a molehill. Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECT
Harry Putnam <[EMAIL PROTECTED]> writes:
> I've stumbled around with this before and someone posted something
> that came close but still doesn't quite do what I want.
>
> Maybe it isn't important enough to get this involved with it.
>
> Here is the problem:
>
> Summary run home made tools against
Harry Putnam said:
:
: Here is the problem:
:
: Summary run home made tools against only the
: uniq paths that might contain perl *.pm files.
Harry, that doesn't' make a bit of sense.
Could you rephrase the question?
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mo
- Original Message -
From: "Harry Putnam" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, June 28, 2003 2:20 AM
Subject: make CPAN::Shell->i; print to a filehandle
> How do I go about making the output from
> CPAN::Shell->i; go into a file handle
> Instead of STDOUT like it
Rob Dixon wrote:
>
> Wesley Phillips wrote:
> > Hi all,
> > I have been working on a problem and worked out a solution, but am
> > wondering if there is an easier(more elegant?) way of doing it. I am
> > automatically generating configuration files for a Quality Of Service(QOS)
> > device, and e
-Original Message-
From: SPENCERS [mailto:[EMAIL PROTECTED]
Sent: Saturday, June 28, 2003 12:37 PM
To: Harry Putnam
Subject: RE: find uniq paths in @INC
Hello, Harry.
Is this what you are looking for?
#!/usr/bin/perl -w
# list all of the perl modules installed
use strict;
use Fi
Harry Putnam wrote:
> I've stumbled around with this before and someone posted something
> that came close but still doesn't quite do what I want.
>
> Maybe it isn't important enough to get this involved with it.
>
> Here is the problem:
>
> Summary run home made tools against only the uniq paths t
[EMAIL PROTECTED] wrote:
>
> Hi -
Hello,
> I am grinding through =Programming Perl= and came to the section on Here
> Documents in Chapter 2 (forgive me, I can't think of the term "Here documents"
> without thinking that there must be a dog somewhere named Documents).
>
> Anyhoo, I tried typing
[EMAIL PROTECTED] wrote:
> Hi -
>
> I am grinding through =Programming Perl= and came to the section on Here
> Documents in Chapter 2 (forgive me, I can't think of the term "Here documents"
> without thinking that there must be a dog somewhere named Documents).
>
> Anyhoo, I tried typing some of th
> Here documents always need a termination. Maybe you'd see it better
> if you use a more visible one:
thanks to those who responded to my question :)
here, document!
glenn
+-+
There are no motionless targets
+-+
--
To unsubscribe, e-
"John W. Krahn" wrote:
>
> Fuzzy wrote:
> >
> > in php i would use
> > $outout = sprintf("%s,%s,%s,\"%s\"", $date, $time, $file, $title);
>
> It is exactly the same in perl. Or you could write it like this:
>
> $outout = sprintf '%s,%s,%s,"%s"', $date, $time, $file, $title;
>
> Or like this:
>
Wesley Phillips wrote:
> Hi all,
> I have been working on a problem and worked out a solution, but am
> wondering if there is an easier(more elegant?) way of doing it. I am
> automatically generating configuration files for a Quality Of Service(QOS)
> device, and each pipe in the QOS has a policy
Fuzzy wrote:
>
> i need to know how do file i/o.
perldoc perlopentut
perldoc perlsyn
> i know c, c++, php, 5 different vb, so i'm not new to programming, just
> to perl.
>
> i'm going to be send stuff to this script using a html form via ACTION=,
> so i need to know how to pull them in, smush
[EMAIL PROTECTED] writes:
> print << x 10;
> The camels are coming!
Here documents always need a termination. Maybe you'd see it better
if you use a more visible one:
$ perl -e 'print < EOM'
Note (sort of starndard) terminator used here is EOM.
Thats how here docs work. They puke out everythi
I've stumbled around with this before and someone posted something
that came close but still doesn't quite do what I want.
Maybe it isn't important enough to get this involved with it.
Here is the problem:
Summary run home made tools against only the uniq paths that might contain
perl *.pm files
Derek Byrne wrote:
> Last question on this, but, is there anything I should be aware of if I code
> the Fred prog like this :
Yes
> #!perl -w
use strict; # always
use warnings; # unless you fully understand why you are turning them off.
The strict and warnings commands will
Hi,
In article
<[EMAIL PROTECTED]>,
[EMAIL PROTECTED] wrote:
>
> Hi -
>
> I am grinding through =Programming Perl= and came to the section on Here
> Documents in Chapter 2 (forgive me, I can't think of the term "Here
> documents" without thinking that there must be a dog somewhere named
> Doc
Hi -
I am grinding through =Programming Perl= and came to the section on Here
Documents in Chapter 2 (forgive me, I can't think of the term "Here documents"
without thinking that there must be a dog somewhere named Documents).
Anyhoo, I tried typing some of the examples at the keyboard. They s
Hi all,
I have been working on a problem and worked out a solution, but am
wondering if there is an easier(more elegant?) way of doing it. I am
automatically generating configuration files for a Quality Of Service(QOS)
device, and each pipe in the QOS has a policy number attached to it. The
polic
Ashish Srivastava wrote:
> How can i restrict scanning by find function to a specified depth.
> eg. only 4 level or 3 level.
Whenever your 'wanted' callback routine is called with
a directory name in $_, if you set
$File::Find::prune = 1
then 'find' won't look at any files in that directory or
On Sat, Jun 28, 2003 at 03:51:49PM +0200, Kevin Pfeiffer wrote:
> In article <[EMAIL PROTECTED]>, John W. Krahn wrote:
> [...]
> > Perhaps this article may help you understand.
> >
> > http://perl.plover.com/FAQs/Namespaces.html
>
> I've read this before (but it pays to reread it) and this time I
On Sat, 28 Jun 2003 08:47:33 +1200, [EMAIL PROTECTED] (Voodoo Raja)
wrote:
>Hi all..
>
>Just a quick one..
>
>Is it possible to force my TK application to on top of all the windows that
>are present on the screen.. or rather set the window to be always visible
use $mw ->overrideredirect(1);
#
In article <[EMAIL PROTECTED]>, John W. Krahn wrote:
[...]
> Perhaps this article may help you understand.
>
> http://perl.plover.com/FAQs/Namespaces.html
I've read this before (but it pays to reread it) and this time I also read the "Seven
Useful Uses of local". One thing MJD demonstrates is a
On Sat, Jun 28, 2003 at 06:38:34AM -0400, Steve Grazzini wrote:
> On Sat, Jun 28, 2003 at 11:04:33AM +0100, Rob Dixon wrote:
> > John W. Krahn wrote:
> > >
> > > @s = split ' ', $s;
> >
> > @s = split for $s
Erm, never mind my last post. :-)
*_ = *s; split;
--
Steve
--
To unsubscribe
Hi,
I'm really struggling with my scripts for the moment.
What I have is a config file, for the moment a config.pl
which i'm trying to change to config.ini using Config::IniFiles module.
But here is the header of my programs
#!/usr/bin/perl
use CGI qw(:standard);
use DBI;
require "/home/sites/pro
On Sat, Jun 28, 2003 at 11:04:33AM +0100, Rob Dixon wrote:
> John W. Krahn wrote:
> >
> > @s = split ' ', $s;
>
> @s = split for $s
(*s,*_) = \($_,@s);
split;
--
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
How can i restrict scanning by find function to a specified depth.
eg. only 4 level or 3 level.
Thanks in advance
Ashish Srivastava
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
John W. Krahn wrote:
> "Ling F. Zhang" wrote:
> >
> > say I have a string scalar $s
> > I would like to convert it @s in such a way that qw
> > would do it...
> > i.e.
> > if $s = "rabbit hole\t goes\tall the way\n"
> > then
> > @s = ("rabbit","hole","goes","all","the","way\n")
>
> @s = split ' ',
Ling F. Zhang wrote:
> I have the following problem:
>
> I just read in a file ...
> in ONE of line of the file, there is a word I need to
> substitute...
> but I realize that:
> $a = would assign $a the first line of the file
> @a = world assign each line of the file as an
> element of @a...
> n
[EMAIL PROTECTED] wrote:
> the program works fine for a small directory, but as soon as the
> directory is bigger, it takes a long time to start. do you have any
> idea how to make this faster?
>
> ---
>
> #!/usr/bin/perl
> use diagnostics;
> use strict;
> use Tk;
> use Tk::HList;
> use Tk::Tree;
On Sat, 28 Jun 2003, fuzzy wrote:
> i need to know how do file i/o.
>
> i know c, c++, php, 5 different vb, so i'm not new to programming, just
> to perl.
>
> i'm going to be send stuff to this script using a html form via ACTION=,
> so i need to know how to pull them in, smush them into a string
On Sat, 28 Jun 2003, Ling F. Zhang wrote:
> say I have a string scalar $s
> I would like to convert it @s in such a way that qw
> would do it...
> i.e.
> if $s = "rabbit hole\t goes\tall the way\n"
> then
> @s = ("rabbit","hole","goes","all","the","way\n")
>
@s = (split /\t/, $s);
Hope it helps.
i need to know how do file i/o.
i know c, c++, php, 5 different vb, so i'm not new to programming, just
to perl.
i'm going to be send stuff to this script using a html form via ACTION=,
so i need to know how to pull them in, smush them into a string in a
format and write it (in append mode) to
At 09:01 28/06/2003, you wrote:
>I have the following problem:
>
>I just read in a file ...
>in ONE of line of the file, there is a word I need to
>substitute...
>but I realize that:
>$a = would assign $a the first line of the file
>@a = world assign each line of the file as an
>element of @a...
I have the following problem:
I just read in a file ...
in ONE of line of the file, there is a word I need to
substitute...
but I realize that:
$a = would assign $a the first line of the file
@a = world assign each line of the file as an
element of @a...
now...s/search/replace/ only works for st
"Ling F. Zhang" wrote:
>
> say I have a string scalar $s
> I would like to convert it @s in such a way that qw
> would do it...
> i.e.
> if $s = "rabbit hole\t goes\tall the way\n"
> then
> @s = ("rabbit","hole","goes","all","the","way\n")
@s = split ' ', $s;
> notice that I preserved the "\n"
say I have a string scalar $s
I would like to convert it @s in such a way that qw
would do it...
i.e.
if $s = "rabbit hole\t goes\tall the way\n"
then
@s = ("rabbit","hole","goes","all","the","way\n")
notice that I preserved the "\n" at the end, but I
would settle for a solution that doesn't prese
51 matches
Mail list logo
