- Original Message -
From: "Fungii" <[EMAIL PROTECTED]>
To: "Randy W. Sims" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, April 29, 2004 11:49 PM
Subject: Re: Perldoc on Win98
> It outputs 'About to try calling more<' right before it fails, so
now
> I suspect the problem
- Original Message -
From: "Randy W. Sims" <[EMAIL PROTECTED]>
To: "Fungii" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, April 29, 2004 9:00 PM
Subject: Re: Perldoc on Win98
> Let's keep this on the list, so if others run into the same problem,
> they can benefit. Also, i
Hi,
Still I have some problem.
runtest.pl
--
#!/opt/perl/bin/perl -w
use strict;
require "test_init.pl" or die("Can't require test_init.pl");
require "configure.pl" or die("Can't require configure.pl");
require "common_functions.pl" or die("Can't require common_functions.pl");
Here, co
Let's keep this on the list, so if others run into the same problem,
they can benefit. Also, it's a good exercise in debugging.
On 4/30/2004 12:21 AM, Fungii wrote:
- Original Message -
From: "Randy W. Sims" <[EMAIL PROTECTED]>
Cc: "Fungii" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: T
Durai <[EMAIL PROTECTED]> wrot:
:
:It works fine. Thanks.
: But I don't know about 1; action?
:
: Is it the return value?
Yes. Read perlfunc 'require':
"The file must return true as the last statement to
indicate successful execution of any initialization
code, so it's custo
Hi,
It works fine. Thanks.
But I don't know about 1; action?
Is it the return value?
Regs,
Durai.
- Original Message -
From: "Charles K. Clarkson" <[EMAIL PROTECTED]>
To: "'Durai'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Friday, April 30, 2004 9:00 AM
Subject: RE: To i
Durai <[EMAIL PROTECTED]> wrote:
:
: $ perl runtest.pl
: configure.pl did not return a true value at runtest.pl
: line 4.
At the bottom of each required file place a 1 like
this:
1;
It should be on the last line. Let us know if that
fixes your problem.
HTH,
Charles K. Clarkson
--
Hello All,
I have the following perl program.
#!/opt/perl/bin/perl -w
require "test_init.pl" or die("Can't require test_init.pl");
require "configure.pl" or die("Can't require configure.pl");
require "common_functions.pl" or die("Can't require common_functions.pl");
In this, configure.pl and co
> On Apr 29, 2004, at 9:36 AM, Cristi Ocolisan wrote:
>
> > I already used hidden fields, but because I couldn't figure out how to
> > write
> > a single script, I wrote dozens of different small scripts and sent
> > that
> > hidden field from one script to another.
> >
> > I'm tired of that. I
On 4/29/2004 8:50 PM, Randy W. Sims wrote:
On 4/29/2004 9:39 PM, Fungii wrote:
Hi everybody,
I had an earlier version of perl installed on my Win98
machine and I could never get Perldoc to work. I figured
something was misconfigured, so I didn't worry about it
until I installed a newer versi
On 4/29/2004 9:39 PM, Fungii wrote:
Hi everybody,
I had an earlier version of perl installed on my Win98
machine and I could never get Perldoc to work. I figured
something was misconfigured, so I didn't worry about it
until I installed a newer version of perl. And guess what,
Perldoc still do
Hi everybody,
I had an earlier version of perl installed on my Win98
machine and I could never get Perldoc to work. I figured
something was misconfigured, so I didn't worry about it
until I installed a newer version of perl. And guess what,
Perldoc still doesn't work, even after a completely c
John Doe wrote:
>
> Hello all,
Hello,
> i write script that open and read file but i have problem.
> First, here are a script:
>
> #!/usr/bin/perl
Change that to:
#!/usr/bin/perl -w
use strict;
> use DBI;
>
> my $dbuser = "xxx";
> my $dbpass = "xxx";
> my $db = "xxx";
>
> my $u_dbuser
--As of Thursday, April 29, 2004 10:43 AM +0200, Jan Eden is alleged to
have said:
I have a piece of HTML code containing two Perl variable names, which is
to be used in 6 scripts. So I tried to put it into a separate file to be
executed with "do page_head.pl", where page_head.pl contains somethi
From: deny <[EMAIL PROTECTED]>
Subject:file to join
"attach", not "join" :-)
> good evening
>
> i want to add a file in a mail i send to someone
> for example , i wwant to add the file "inscription.txt"
> to a mail
>
> here is the first line to send a mail
>
> open(MAIL, "|m
From: Mike Blezien <[EMAIL PROTECTED]>
> Was hoping some one may have some helpful suggestion as how to deal
> with the a potiental problem. We have a dedicated server we would like
> to update perl on, from v. 5.6.1 to 5.8.* and have found out the the
> existing .db files used by alot of our custo
good evening
i want to add a file in a mail i send to someone
for example , i wwant to add the file "inscription.txt"
to a mail
here is the first line to send a mail
open(MAIL, "|mail [EMAIL PROTECTED]");
print MAIL "Reply-To: $champs[1]\n";
print MAIL "sujet: Soumission du formulaire monaco tel
Before starting to write my script designed to make filename changing
easier I'd like to ask how to create an editable command line inside a
perl script?
ksh93 and earlier versions does this on user input by default. At
least a primitive amount of editing is possible.
The kind of situation this
Hi Charles,
Charles K. Clarkson wrote on 29.04.2004:
>Jan Eden <[EMAIL PROTECTED]> wrote:
>It may be an issue with your terminal software. Is
>your terminal the place you expect to display results
>of a script like this? Have you tried it under a
>different terminal emulation?
>
> I tried
John Doe wrote:
> ...
> When i run script i recive error:
> # ./check-size.pl
> > bad interpreter: No such file or directory
This can be caused by the file containing DOS-style line endings. If the
first line is:
#!/usr/bin/perl
the kernel will include the as part of the file name and try to
It was Thursday, April 29, 2004 when John Doe took the soap box, saying:
: Hello all,
: i write script that open and read file but i have problem.
: First, here are a script:
:
: if (-e $fulltree) { # check to see if file exist
: open(FILE, "$fulltree");
: my @f = ;
: close(FILE)
Hello all,
i write script that open and read file but i have problem.
First, here are a script:
#!/usr/bin/perl
use DBI;
my $dbuser = "xxx";
my $dbpass = "xxx";
my $db = "xxx";
my $u_dbuser = "xxx";
my $u_dbpass = "xxx";
my $u_db = "xxx";
my $sth = "";
my $dbh = "";
my $result = "";
my $sq
On Apr 29, 2004, at 9:36 AM, Cristi Ocolisan wrote:
I already used hidden fields, but because I couldn't figure out how to
write
a single script, I wrote dozens of different small scripts and sent
that
hidden field from one script to another.
I'm tired of that. I want to write a single script t
On Apr 29, 2004, at 9:21 AM, Cristi Ocolisan wrote:
Thanks,
I'll give it a try.
About DBI, I already have it. I did some Perl programming, but I'm
still a
beginner. I still have some problems understanding how a
"multiplescreen"
script can be made.
There's no one right answer, but I've seen it
Thanks,
I'll give it a try.
About DBI, I already have it. I did some Perl programming, but I'm still a
beginner. I still have some problems understanding how a "multiplescreen"
script can be made.
I'll start reading the perldoc CGI.
Regards,
Cristi
-Original Message-
From: James Edwar
On Apr 29, 2004, at 8:51 AM, Cristi Ocolisan wrote:
Hi,
I want to write a single CGI script that can return several different
pages
to the browser. For instance, I want a single CGI script for
administering a
database of products. The script will be called to display the form to
add a
product,
I must agree with James :-)
Most times I post, I usually tend to solve the main problem without
caring about the others, but I should really make an effort and act a
little more like him :-)
jac
On Thu, 2004-04-29 at 14:25, James Edward Gray II wrote:
> On Apr 29, 2004, at 5:53 AM, Durai wrote:
Jan Eden <[EMAIL PROTECTED]> wrote:
:
: I have the following script (just a test):
:
: ---
: #!/usr/bin/perl -w
:
: use strict;
: use HTML::Entities;
:
: my $string = 'Alfred Döblin: Berlin Alexanderplatz';
: my $string2 = 'Alfred Döblin: Berlin Alexanderplatz';
:
: $string = decode_entities(
On Apr 29, 2004, at 5:53 AM, Durai wrote:
Hi,
I have written many test cases using shell script. But now
I am
writting in perl. I have done like the following one:
open(FILE_LOG,">log_file");
Don't do this. When we ask the OS to do something for us, like open a
file, we need to make
On Apr 29, 2004, at 6:03 AM, Cristi Ocolisan wrote:
Hi all,
Can anyone tell me where can I find a good tutorial about creating
"multiple
pages" script?
I can't help because I don't understand the question. What's a
"multiple pages" script? What does it do?
Are we talking about web pages? If
On Apr 29, 2004, at 5:08 AM, Durai wrote:
Hello All,
In shell script file, I can call another program & checked the exit
status.
Like:
./prog2
if [ $? -ne 0 ]
then
echo "Error"
exit
fi
How to do in perl?
Looks like you got your answer, but I want to add one more point.
Remembe
Hello,
Was hoping some one may have some helpful suggestion as how to deal with the a
potiental problem. We have a dedicated server we would like to update perl on,
from v. 5.6.1 to 5.8.* and have found out the the existing .db files used by
alot of our customer with shopping carts that use DBM
Hi,
Thanks for help me.
Regs,
Durai.
- Original Message -
From: "Jose Alves de Castro" <[EMAIL PROTECTED]>
To: "Durai" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, April 29, 2004 4:15 PM
Subject: Re: Running another program in current program
> First: you'r
Hi All,
Can someone tell me where I can find information on how to do scatter
plotting of data stored in a file using Perl/Tk? Is there any freeware available for
doing the same? Any help in this regard is solicited.
Thanks
Regards
Guruguhan
--
To unsubscribe, e-mail: [EMAIL PROTECT
First: you're missing a ';' (in the line where you're printing to the
log file)
Secondly: you're comparing $? with 0... now if I'm not mistaken, $? is 0
if everything's ok, right? :-)
So you probably want something like:
#!/usr/bin/perl -w
use strict;
# ...
open( FILE_LOG, ">log_file" );
prin
Hi all,
Can anyone tell me where can I find a good tutorial about creating "multiple
pages" script?
Thank you.
Cristi
Hi,
I have written many test cases using shell script. But now I am
writting in perl. I have done like the following one:
open(FILE_LOG,">log_file");
print FILE_LOG `perl $PRODUCT_DIR/tests/$MAIN_PRODUCTS_TESTS_STR/run`
if( $? == 0)
{
print "Error";
exit 0;
}
I
Oops. Sorry, I forgot about that one O:-)
Yes, there is always another way. Try this, for instance:
do "prog.pl"
Basically, it executes the contents of "prog.pl" as a Perl script. More
info on:
perldoc -f do
HTH
jac
On Thu, 2004-04-29 at 11:33, Durai wrote:
> Hi,
>Thanks for the repl
Dani Pardo wrote:
>
> Hi, I've a question involving formats.
> I have a text file that has lines like this:
>
> __LINE1__
> __LINE2__
>
> I use s/__LINE(\d+)__/$line{$1}/ to change each of these lines by an
> scalar that is stored in a hash, i.e:
>
> line{1}="CUSTOMER_NAME | PHONE
Zikester wrote:
>
> I've racked my brain for an answer to this one. Probably real simple.
>
> I'd like to run a process reatedly until entering a character on the
> keyboard (other than ^C). When the character is entered the process would
> complete some final tasks and exit the program.
P
Hi Rob,
Rob Dixon wrote on 29.04.2004:
>Jan Eden wrote:
>>The obvious problem is, that the variables are not interpolated
>>according to their current value in the scripts, i.e. although
>>
>>$mother_id = 453; and $title = "Title";
>>
>>The $page_head variable will an contain empty title tag and
Hi,
Thanks for the reply. Sorry for asking this one. But how to run
another perl prog?
Should I have to use system() function? Or is there any other way?
Thanks,
Durai.
- Original Message -
From: "Jose Alves de Castro" <[EMAIL PROTECTED]>
To: "Durai" <[EMAIL PROTECTED]>
Cc: <[EMA
Owen wrote:
>
> I would like to replace all instances of
>
> @non_space_characters[non_space_characters] with
> $non_space_characters[non_space_characters]
>
> The program below gets the first one only. How do I get the others?
>
> ---
> #!/usr/
Hi, I've a question involving formats.
I have a text file that has lines like this:
__LINE1__
__LINE2__
I use s/__LINE(\d+)__/$line{$1}/ to change each of these lines by an
scalar that is stored in a hash, i.e:
line{1}="CUSTOMER_NAME | PHONE | EMAIL | COUNTRY";
But, as you may
Jan Eden wrote:
>
> I have a piece of HTML code containing two Perl variable names, which is to be
> used in 6 scripts. So I tried to put it into a separate file to be executed with
> "do page_head.pl", where page_head.pl contains something like (simplified):
>
> my $page_head = qq{ [snip HTML]
>
>
It's the same variable :-)
$? The status returned by the last pipe close, backtick (``) com-
mand, successful call to wait() or waitpid(), or from the sys-
tem() operator.
For more info, man perlvar
If you care to give it a test, here it goes:
perl -e '`ls`;print $?'
# prin
I've racked my brain for an answer to this one. Probably real simple.
I'd like to run a process reatedly until entering a character on the
keyboard (other than ^C). When the character is entered the process would
complete some final tasks and exit the program.
do {
# a process
$Keyboard
Hello All,
In shell script file, I can call another program & checked the exit status.
Like:
./prog2
if [ $? -ne 0 ]
then
echo "Error"
exit
fi
How to do in perl?
ANy help much appreciated.
Regs,
Durai.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus syste
Sumanth Sharma wrote:
>
> Hi,
Hello,
> Read with Patience.
>
> Backreferences( $1, $2 ...) are lexically scoped,
>
>which means
>
>in a match like m/()() etc /
>
>Suppose REGEX1 does not match, then $1 remains undefined, and if REGEX2,
> 3 ... do match then $2, $3 wil
Hi all,
I have the following script (just a test):
---
#!/usr/bin/perl -w
use strict;
use HTML::Entities;
my $string = 'Alfred Döblin: Berlin Alexanderplatz';
my $string2 = 'Alfred Döblin: Berlin Alexanderplatz';
$string = decode_entities($string);
print $string, "\n", $string2, "\n";
---
T
Artem Khodush wrote:
>
> To be more specific, I'd like to not use eval in the def_x,
> and keep "use strict 'vars'" in the code below:
>
> package z;
> use strict 'vars';
>
> sub use_x
> {
> eval( 'print "$x\n";' );
> }
>
you need to tell Perl that $x is in package z
#!/usr/bin/perl -w
pac
Hi Owen,
I think I would do things a little differently.
Owen wrote:
I would like to replace all instances of
@non_space_characters[non_space_characters] with
$non_space_characters[non_space_characters]
[...]
$line=~s/(@)(\S+\[\S+\])/\$$2/g;
__DATA__
@[EMAIL PROTECTED]@banana[4];
So this is my
The problem is that your regex is matching the whole line:
@ [EMAIL PROTECTED]@banana[4];
^ ^
$1 $2
Instead, use non greedy matches:
$line =~ s/(@)(\S+?\[\S+?\])/\$$2/g;
and you'll get what you want:
@ array[1] = @ array[2] +@ banana[4];
^ ^
Hi Sumanth,
I'm glad that helped. Be careful, though. (?:) may look like a
lookahead (?=), but all it does is group without capturing. It's useful
in cases like yours where all of the capture variables would be stored
in the array--in other cases, I usually don't bother. :)
You can read up on t
Hi all,
I have a piece of HTML code containing two Perl variable names, which is to be used in
6 scripts. So I tried to put it into a separate file to be executed with "do
page_head.pl", where page_head.pl contains something like (simplified):
my $page_head = qq{http://www.w3.org/TR/xhtml1/DTD/
I would like to replace all instances of
@non_space_characters[non_space_characters] with
$non_space_characters[non_space_characters]
The program below gets the first one only. How do I get the others?
TIA
Owen
---
#!/usr/bin/perl -w
use strict;
Hi Damon,
That's great. It works. I did not know that look ahead could be that
helpful.
Thanks a million,
Sumanth Sharma
"Damon Allen Davison" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Hi,
>
> I think I might be able to help you.
>
> Sumanth Sharma wrote:
> > that's b'coz
57 matches
Mail list logo
