NAME
beginners-faq - FAQ for the beginners-cgi mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to [EMAIL PROTECTED]
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email
I am using GD::Graph::Bars to make four bar graphs for each month. I
cannot figure out how to separate the sets of bars from each other. As it
is, I have 48 vertical bars (4 x 12) all in a row. I want to show some
separation between each set of four bars (4 bars for each month). I do not
see any
Thanks David for your response.
I got it down to the php include not drawing the data.
was using SetHeader()
I just found something in my perl book to help me do this in perl.
Thanks for the help and understanding
cat
deny [EMAIL PROTECTED] wrote:
: i ve found a perl script to calculate the sum of the
: permissions my principal files
:
: the line which is writing in my file is
:
: foreach $name ( sort @files) {
:($uid,$gid) = (stat $nane)[4,5];
:ici la ligne $stat = sprintf
I was not trying to come up with an altenative regex to do what he might
have wanted (first 7 characters or filename up to the underscore)
I was trying to understand what [^/]* did in your regex. I know that you
said that it was to make sure that there was not any / after the 7
characters.
That isn't only perl code, it's incomplete, and it
doesn't use 'printf'. Show us more code and explain
your problem fully.
thanks for your help
here is the complete code
#!/usr/bin/perl
use MD5;
require 'find.pl';
$md5 = new MD5;
@dirs = @ARGV;
foreach $dir ( @dirs ) { find($dir); }
Hey!
I want to get information out of this page.
My problem is,how can i give ($eingabe)into the url?
Because that varies the output of the xmlsource!
exampe: $url=.term=gtpase...
gives me the result of all gtpases...how can i use a funktion or
variable to make it possible ti give it into
Hi All,
I am using LWP::Simple;
I want use of proxy to be enabled from the environment.
In LWP::UserAgent there is a method env_proxy by which I can do this.
How can I do a similar thing for LWP::Simple;
Thanks
Ram
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
I am not sure what category should this question fall under but this
is what I plan to do.
$cond1 = 1;
$cont2 = 0;
$oper1=; # for AND
$oper2=||; # for OR
if ($cond1 $oper1 $cond2) {
print one \n;
} else {
print two \n;
}
The statement above would generates errors. Can somebody tell me how
On Mon, 2004-10-25 at 11:39, Khairul Azmi wrote:
I am not sure what category should this question fall under but this
is what I plan to do.
$cond1 = 1;
$cont2 = 0;
$oper1=; # for AND
$oper2=||; # for OR
if ($cond1 $oper1 $cond2) {
print one \n;
} else {
print two \n;
}
The
Actually I am looking for an alternative to replace the conventional
symbol with other variable eg $AND_operator so that the following
statement is valid
if ($cond1 $AND_operator $cond2)
Thanks
On Mon, 25 Oct 2004 10:44:19 +0100, Marcos Rebelo
[EMAIL PROTECTED] wrote:
Maybe this can help
if (eval($cond1 $AND_operator $cond2))
is this correct?
-Original Message-
From: Khairul Azmi [mailto:[EMAIL PROTECTED]
Sent: segunda-feira, 25 de Outubro de 2004 11:00
To: [EMAIL PROTECTED]
Subject: Re: assign operator as variable
Actually I am looking for an alternative to replace
Yes. Silly me. I put the eval operator right before variable
$AND_operator. Thanks a lot guys.
On Mon, 25 Oct 2004 11:03:24 +0100, Marcos Rebelo
[EMAIL PROTECTED] wrote:
if (eval($cond1 $AND_operator $cond2))
is this correct?
-Original Message-
From: Khairul Azmi [mailto:[EMAIL
I have this interactice client:
#!/usr/bin/perl -w
use strict;
use IO::Socket;
my ($host, $port, $kidpid, $handle, $line);
unless (@ARGV == 2) { die usage: $0 host port }
($host, $port) = @ARGV;
# create a tcp connection to the specified host and port
$handle = IO::Socket::INET-new(Proto = tcp,
The books say that you can add items to an array until you run out of
memory... Is there any way for a script to see how much memory is in use so
far, versus how much there is left?
- B
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
If thats so, here's something to keep you entertained.
Yet another script that doesn't work as received... To make it work I had to
remove line 1, and then it still threw a bunch of errors at runtime.
Still, it's pretty cool. =)
- B
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Thx for the answer.
I just was following the install-instructions It's all pure Perl, so just
put the .pm files in their appropriate local Perl subdirectories and I had
only under /usr/lib/perl5/5.8.0/ *.pm-files. That is why I copied
RecDescent.pm there.
Later I did the
Stefan Hans wrote:
Gunnar Hjalmarsson wrote:
Why didn't you install also Parse::RecDescent using Makefile.PL
etc.?
I just was following the install-instructions It's all pure Perl,
so just put the .pm files in their appropriate local Perl
subdirectories
Hmm.. That works, of course, if you know
On Mon, 25 Oct 2004 05:17 pm, deny wrote:
foreach $name ( sort @files) {
($uid,$gid) = (stat $nane)[4,5];
stat $nane or $name?
Owen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
deny wrote:
That isn't only perl code, it's incomplete, and it
doesn't use 'printf'. Show us more code and explain
your problem fully.
thanks for your help
here is the complete code
#!/usr/bin/perl
use MD5;
require 'find.pl';
$md5 = new MD5;
@dirs = @ARGV;
foreach $dir ( @dirs ) {
On Mon, 25 Oct 2004, E.Horn wrote:
I want to get information out of this page.
My problem is, how can i give ($eingabe) into the url?
Because that varies the output of the xmlsource!
example:
$url=.term=gtpase...
gives me the result of all gtpases...
How can I use a
thanks a lot!
I will look at this!
I have done it my way and i think now it works...
I think it is not the best way,but i am happy with it!
I learn perl for a week now...i am proud that is gives any result!
#!/xprog/bin/perl -w
use LWP::Simple;
sub daten_einlesen
{
printf geben Sie ein
From: deny [EMAIL PROTECTED]
here is the complete code
#!/usr/bin/perl
use MD5;
require 'find.pl';
$md5 = new MD5;
@dirs = @ARGV;
foreach $dir ( @dirs ) { find($dir); }
sub wanted { push @files, $name; }
foreach $name ( sort @files) {
($uid,$gid) = (stat $nane)[4,5];
Khairul Azmi wrote:
Can somebody help me how to remove the trailing zero from an ip address
$ip_add = 010.200.020.000;
The output should be 10.200.20.0;
I''ve been trying many regex techniques but still unsuccessful.
$ perl -le'$_ = 010.200.020.000; print; s/\b0+(?=\d)//g; print'
010.200.020.000
Newbie here,
I need to dump a plain text file that has the format of:
key = value (ie. question equal sign answer)
into a hash. I'm writing a simple learning tool to help me learn some
basic korean terminology.
Would someone be kind enough to point me in the right direction.
-Jeff Borders
On Oct 25, Jeff Borders said:
I need to dump a plain text file that has the format of:
key = value (ie. question equal sign answer)
into a hash. I'm writing a simple learning tool to help me learn some
basic korean terminology.
Would someone be kind enough to point me in the right direction.
Jeff Borders wrote:
I need to dump a plain text file that has the format of:
key = value (ie. question equal sign answer)
into a hash. I'm writing a simple learning tool to help me learn some
basic korean terminology.
Would someone be kind enough to point me in the right direction.
-Jeff Borders
Hi,
Mine is not as elegant as J.Krahn's or Jeff's.
But it's an alternative.
I am just glad to contribute at least something
to the forum I have owed so much...
--
Regards,
Edward WIJAYA
SINGAPORE
---
use strict;
use warnings;
use Data::Dumper;
my %hash = ();
while (DATA) {
deny wrote:
That isn't only perl code, it's incomplete, and it
doesn't use 'printf'. Show us more code and explain
your problem fully.
thanks for your help
here is the complete code
#!/usr/bin/perl
use warnings;
use strict;
use MD5;
use Digest::MD5;
require 'find.pl';
use File::Find;
$md5 =
Edward WIJAYA wrote:
Mine is not as elegant as J.Krahn's or Jeff's.
But it's an alternative.
I am just glad to contribute at least something
to the forum I have owed so much...
---
use strict;
use warnings;
use Data::Dumper;
my %hash = ();
while (DATA) {
s/\s//g;
You
Gunnar Hjalmarsson wrote:
Mike Blezien wrote:
What does this type of error indicate, I never encountered this type
of error before.
-
Modification of a read-only value attempted at
/home/www/cgi/somescript.cgi line 151.
Hey!
How can i pars this xmlfile?
i just want to have the MenueNamegeo/MenueName and the count out of
this...
ResultItem
DbNamegeo/DbName
MenuNameGEO Profiles/MenuName
Count69408/Count
StatusOk/Status
On Monday 25 October 2004 16:27, E.Horn wrote:
Hey!
How can i pars this xmlfile?
i just want to have the MenueNamegeo/MenueName and the count out of
this...
[..]
Hi,
I can highly recommend XML::Simple - just use it like this:
#!/usr/bin/perl -w
use strict;
use XML::Simple;
use
Mike Blezien wrote:
Gunnar Hjalmarsson wrote:
Mike Blezien wrote:
foreach $sparam (param()) { ${$sparam} = param($sparam); } # line 151
-
Maybe it's that; hard to tell since you don't give more context. But
what you are trying to do, i.e. using symbolic
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to [EMAIL PROTECTED]
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email address):
From: Traeder, Philipp [EMAIL PROTECTED]
print $ref-{'ResultItem'}-[0]{'MenuName'};
I think it's better to either skip all the - between subscriptions
or include them all:
print $ref-{'ResultItem'}[0]{'MenuName'};
or
print $ref-{'ResultItem'}-[0]-{'MenuName'};
It doesn't
Given the following lines:
$MESSAGE .= PApplication Fee: B . $price . Dollars U.S./B;
$MESSAGE .= PApplication Fee: B$price Dollars U.S./B;
Is there a performance issue (or any other issue) for using either of
the above lines? Does it make any difference which is used?
Suppose it changed to
Given the following lines:
$MESSAGE .= PApplication Fee: B . $price . Dollars U.S./B;
$MESSAGE .= PApplication Fee: B$price Dollars U.S./B;
Is there a performance issue (or any other issue) for using either of
the above lines? Does it make any difference which is used?
Suppose it
And the clouds parted, and Adamiec, Larry said...
Given the following lines:
$MESSAGE .= PApplication Fee: B . $price . Dollars U.S./B;
$MESSAGE .= PApplication Fee: B$price Dollars U.S./B;
Is there a performance issue (or any other issue) for using either of
the above lines? Does
Steve Bertrand wrote:
Given the following lines:
$MESSAGE .= PApplication Fee: B . $price . Dollars U.S./B;
$MESSAGE .= PApplication Fee: B$price Dollars U.S./B;
In that case it seems a bit pointless to do the first way as there are
now 3 things instead of 1 to deal with. the Benchmark module
On Monday 25 October 2004 16:49, Jenda Krynicky wrote:
From: Traeder, Philipp [EMAIL PROTECTED]
print $ref-{'ResultItem'}-[0]{'MenuName'};
I think it's better to either skip all the - between subscriptions
or include them all:
print $ref-{'ResultItem'}[0]{'MenuName'};
or
I've been thinking about this and not sure how to approach this problem.
Say I want to create an array of 4 array references, thats easy since I
know that there will be 4 array references, how would I do this
dynamically? Say if one I only needed 2 references and another I need 10
array
Scott Pham wrote:
I've been thinking about this and not sure how to approach this
problem. Say I want to create an array of 4 array references, thats
easy since I know that there will be 4 array references, how would I
do this dynamically? Say if one I only needed 2 references and
another I
one can uninstall the perl module.. by
cd to path of perl-module
make distclean
or
just remove the path of perl module...
or remove the path from env. table.
On Sat, 23 Oct 2004 21:17:05 -0400 (EDT), Chris Devers
[EMAIL PROTECTED] wrote:
On Sat, 23 Oct 2004, Bob Showalter wrote:
I forgot
this is actual part of my code.. all work but it seems that something is
wrong in foreach part.. in reality script calculate $dodatne_opcije only!
$vrsta_paketa is not added in calculation..
my $vrsta_paketa = {
'20MB' = 205,
'50MB' = 270,
'100MB' = 350,
Dear all.
I have a tab delimited file as follow:
V namep
1.0 AAA 0.001
0.9 BBB 0.003
0.8 CCC 0.004
.
I need to convert the file into following format:
{ labels =
(
{v=1.0; name = AAA; p = 0.001; },
{v=0.9; name =
hi,
Could someone please help me with the following perl questions.
#1 - Is there a way to add days to a date? I want
end_date=start_date+90days; where start_date is in the format 10/25/04; the
output end_date should be in the same format as well. I was not successful
loading the Date::Calc
push @array, [] while @array 10;
also works.
Ed Christian [EMAIL PROTECTED] wrote...
push (@array,[]) for (1..$num_child_arrays);
For more info:
perldoc -f push
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
M. Ilyas Hassan wrote:
#1 - Is there a way to add days to a date? I want
end_date=start_date+90days; where start_date is in the format
10/25/04; the output end_date should be in the same format as well. I
was not successful loading the Date::Calc module from CSPAN on
ActivePerl 5 (Revision 5,
hi,
Hello,
Could someone please help me with the following perl questions.
#1 - Is there a way to add days to a date? I want
end_date=start_date+90days; where start_date is in the format 10/25/04;
the output end_date should be in the same format as well. I was not
successful loading the
On Mon, 25 Oct 2004, M. Ilyas Hassan wrote:
#1 - Is there a way to add days to a date?
The modules that the other two respondants pointed you to are the right
way to do this, but it's good to know that the way to do this by hand --
which you won't want to do, but it's good to see why not --
The following is the script:
---snip
#!/usr/bin/perl -w
use strict;
use File::Basename;
my @lines = dirname `dir /b/s`; print @lines\n;
---snip
The following is the input:
Ron Smith wrote:
snip
I would like the output to be the following:
C:\Perl\scripts\shots\sp2\shot_1 --current directory
C:\Perl\scripts\shots\sp2\shot_1\sub_directory --sub directory
Ron,
Recently you posted a related problem, but didn't even acknowledge that
you got several
The sulution that you and others gave to the previous
problem worked out fine. I thought I sent mail
regarding that. I didn't think that this was related
to that problem; but, it is very similar. My
appologies if I'm mistaken.
TIA -- for any input you can give me.
Ron
--- Gunnar Hjalmarsson
Try to add this lines somewhere the top of the file:
use strict;
use warnings;
and report the errors, if any.
Global symbol $md5 requires explicit package name at ./checksum.pl
line 11.
Global symbol @dirs requires explicit package name at ./checksum.pl
line 12.
Global symbol $dir requires
Hi all..
I have a script that read some text file in the directory...All the data inside the
text file then would be extracted into my sql, and i used foreach loop to read the
text file, the doing some loop while data are sorted..Here is my code.
56 matches
Mail list logo
