hi,
Because of network problem,my script can't create Mysql dbh sometime
when running,then it died.I have written code like this:
my
$mysql_dbh=DBI-connect(dbi:mysql:$mysql_db:$mysql_host,$mysql_user,$mysql_passwd,
{PrintError = 1,RaiseError = 0});
I want to
Hi Martha,
Although I do not understand exactly what it is that
you want, the following could help ...
#1# $msg =~ s/\/'/igx;
#2# if (($msg=~ /gu1/i) ($msg !~ /gu1[0123456789]+/i))
First remove line #1#.
I guess you did an attempt to remove quotes here, that weren't even there
(you can see if
HI,
I want to know what's the difference when I call a subroutine with ''
or without ''.
such as:
subroutine();
sub subroutine{
..
}
or
subroutine();
sub subroutine{
..
}
Can anyone tell me?thanks a lot.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
hi,
Is there a best way to find some lines which exists in both two files?
Someone has show me a method but it seems a little low efficiency.
The code is as below:
open (T1,1.txt) or die $!;
open (T2,2.txt) or die $!;
while(my $line=T2){
chomp $line;
print $line,\n unless diff($line);
}
Your code logic says that you want to find lines in '2.txt' that are NOT in
'1.txt'.
thanks for all answerers.
yeah,I have put less attention on that code,and have made a fatal logic error.
but the way mentioned by John, putting file's all contents to a hash,
maybe somewhat less efficiency when
hi,
maybe u should redefined the __DIE__ handle for the reason of safety.
such as:
$SIG{__DIE__}=\log_die;
sub log_die
{
open (HDW,,$err_log);
select HDW;$|=1;select STDOUT;
print HDW @_;
close HDW;
die @_;
}
2005/10/8, Timothy Johnson [EMAIL PROTECTED]:
It partly depends
hi,everyone,
I want to move my web applications which written by traditional CGI to
mod_perl.Is there any risk or difficulty here?
The applications are something about webmail.Which module under mod_perl
is suited for me?
Any advise or reference to me should be appreciated.TKS.
--
Jeff Pan
;
}
close HD;
`cat /dev/null $log`;
disable(\%total);
}
}
--
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - Choose from over 50 domains or use your own
--
To unsubscribe, e-mail: [EMAIL
Brent Clark
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - Same, same, but different�
--
To unsubscribe, e-mail
.
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - A no graphics, no pop-ups email service
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
)/;
}
}
close(PWFILE);
...do something with $c[0] $c[1] $c[2] $c[3]...
#EndCode
Really appreciate some pointers.
Regards, Greg
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - Or how I learned to stop worrying and
love email again
Sorry,it should be:
$_=~/\((\w+)\,\s*(\d+)\)\s+\((\w+)\,\s*(\d+)\)/;
Didn't consider the blank space before.
On Mon, 12 Sep 2005 14:54:56 +0800, Jeff Pan [EMAIL PROTECTED]
said:
Is this feasible?
while()
{
next unless /$host/;
$_=~/\((\w+)\,(\d+)\)\s+\((\w+)\,(\d+)\)/;
my
+)\,\s*(\d+)\)/;
#my @array=($1,$2,$3,$4);
my @array=qw/$1 $2 $3 $4/;
print join (:,@array),\n;
}
executing the script:
$ perl t10.pl tt2.txt
$1:$2:$3:$4
why this happen?
On Mon, 12 Sep 2005 02:38:25 -0500, Charles K. Clarkson
[EMAIL PROTECTED] said:
Jeff Pan mailto:[EMAIL
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - Access all of your messages and folders
wherever you are
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first
://learn.perl.org/ http://learn.perl.org/first-response
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - mmm... Fastmail...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
this task
Thanks
José Pinto
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - mmm... Fastmail...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
and I'm looking for suggestions.
Thanks for your time.
Greg Keenan
Lucent Technologies *
Level 1, 68 Waterloo Road
North Ryde NSW 2113
Australia
* +61 2 9491 6898
* [EMAIL PROTECTED]
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - The way an email service
/first-response
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - Or how I learned to stop worrying and
love email again
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http
);
sub_test(\%hash,[EMAIL PROTECTED]);
sub sub_test{
my ($hash_ref,$array_ref)[EMAIL PROTECTED];
my %hash=%$hash_ref;
my @[EMAIL PROTECTED];
do something...
}
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - IMAP accessible web-mail
--
To unsubscribe, e-mail: [EMAIL PROTECTED
and it only makes unnecessary overhead as
keys/values are copied, so you immediately lost benefit by passing by
reference.
It's better to access them directly like,
$hash_ref-{key}
$array_ref-[0]
do something...
}
This point is great,thank u.
--
Jeff Pan
[EMAIL PROTECTED]
--
http
commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - Faster than the air-speed velocity of an
unladen european swallow
--
To unsubscribe, e-mail: [EMAIL
, please notify us by reply
e-mail or telephone and immediately and permanently delete the message
and any attachments. Thank you
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - I mean, what is it about a decent email service?
--
To unsubscribe, e-mail: [EMAIL PROTECTED
)
{
$listen_socket-close;
writelog($connection);
exit 0;
}
$connection-close;
}
thanks.
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - A fast, anti-spam email service.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Jeff Pan
[EMAIL PROTECTED]
--
http://www.fastmail.fm - Faster than the air-speed velocity of an
unladen european swallow
hi,
I want to write a perl script that interactive with other program or script.
when I run
the jacl script which askes me to input some parameters interactively,
just like this,
when I issue wsadmin -f trade.jacl, then I have to answer some questions
like below,
Global security is (or will be)
Dear all,
I would like to construct a hash, whose value holds a reference to an
array of arrays,
however all the keys in my hash have the exact same value, which turns
out to be the value of the last element I put it!!
I felt that something is wrong in the data structure, that I should not
-Original Message-
From: Jennifer Pan
Sent: Tuesday, August 21, 2001 6:08 PM
To: '[EMAIL PROTECTED]'
Subject: hash, key value
Dear all:
I would like to construct a hash, the value of each key is a bunch of
refs to lists
$value1 -- @list1
I have two perl programs
x1.pl and x2.pl
In x1.pl, I really want to call x2.pl as a function to finish the task,
is there a way to pack them so they can use one another?
thank you!
-Jennifer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I have a file :
#myfile.txt
a b c d
a c s g
g o y g
_END_
I wrote a perl script to put each line into a list;
#/usr/bin/perl -w
open (FH, myfile.txt) ;
while ($LINE = FH) {
chomp $LINE;
push @list, $LINE;
}
close FH;
print
I have a hash and the 'value' associated with each key is an array of
strings.
(I do not care the strings are in order, so I suppose an embedded hash
would do too);
I want to print out the keys and each element of the array that
associated with each key
I did:
foreach $key (keys %hash) {
Apologize for the naivety, but
there are so many modules related with LWP at cpan ( I searched for
LWP), which one do I download?
And how do I know if we already have LWP module at our local machine?
thank you very much!!
-Jennifer Pan
-Original Message-
From: Jos I. Boumans [mailto
I have two list,
@list1 and @list2, each element @list1 is unique (could be a hash I
suppose)
I want to find out all the elements @list2 that is an element in list1
and have appeared two or more times
I want to use GREP but I don't know how to grep certain element only
when it happens 2 times,
thanks all! This works, and I am reading Perl cookbook.
-Original Message-
From: Jeff 'japhy/Marillion' Pinyan [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 10, 2001 10:44 AM
To: Jennifer Pan
Cc: [EMAIL PROTECTED]
Subject: Re: grep repetitive elements?
On Aug 10, Jeff 'japhy
I want to test if AF1 is in my list @mylist;
I did:
foreach $LIST (@mylist) {
if ($LIST = AF1)
$boolean = 1;
else
$boolean = 0;
}
is there a more elegant way to do it?
many thanks
jennifer
--
To unsubscribe, e-mail: [EMAIL
many thanks, jos and maxim, your suggestions were very helpful.
jennifer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I download the matrix module from CPAN ,
http://search.cpan.org/doc/ULPFR/Math-Matrix-0.3/README,
$a = new Math::Matrix ([rand,rand,rand],
[rand,rand,rand],
[rand,rand,rand]);
, but I am still at lost as to how to construct a matrix
so if I want
Hello all, I came across this problem opening up files that are fed in
from command line using ls. I do not know why this script did not
work. Appreciated any input.
#!/usr/local/bin/perl
# I am trying to feed all the files in this directory to do text
processing and save the processed txt
Hello all,
I stdin a file name: xxx.txt
and I would like to have a output file name called x.txt.yyy
This is how I do it
$FILENAME = STDIN;
$output = $FILENAME.y;
print $output;
And the result is only
.yyy
How do I concatenate $FILENAME and .yyy?
Thank you
38 matches
Mail list logo