hosting providers. Is
> tech support right?
It's descided by Godaddy. If they don't permit running CGI, you most
probably can't run the Perl scripts.Many web hosting providers have
Perl/CGI enabled, you can try another one.
But most providers disabled mod_perl, b/c it's so po
{CHLD} = 'DEFAULT';
sigprocmask(SIG_UNBLOCK,$signals); # statement 3
$listen_socket->close or die "[EMERG] can't close listen socket\n";
my $c = <$sock>;
handle_the_content($c);
$sock->close or die "[EMERG]
s impossible.
Trying to compile perl scripts is always a bad idea.
--
J. Peng - [EMAIL PROTECTED]
Professional Chinese Squid supports
http://SquidCN.spaces.live.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
On Sat, May 3, 2008 at 9:53 AM, Richard Lee <[EMAIL PROTECTED]> wrote:
>
> Can you tell me what extra benefit emacs will provide to perl programmar?
I have sawn that:
Emacs == Emacs Makes a Computer Slow
:-)
--
J. Peng - [EMAIL PROTECTED]
Professional Chinese Squid s
On Sat, May 3, 2008 at 1:26 AM, Levente Kovacs <[EMAIL PROTECTED]> wrote:
> The more language I learn, the more I
> think C(++) is the most flexible language.
>
This is most probably you know C(++) better than others.
For me I think Perl is flexible enough.
--
J. Peng - [
m/perl.htm, contain the for linux, but
> have to buy.
>
> Anybody knows a simple and good IDE Perl for Linux ?
I believe, many Perl guys (including me) use VI/VIM under unix for
their Perl editor.
--
J. Peng - [EMAIL PROTECTED]
Professional Chinese Squid supports
http://SquidCN.spa
;;
$key2[64]="0xeadf28cb82020921";
$key1[128]="0xaf503224b6cff0639cf0dc310a4b1277";
$key2[128]="0x3e1fcbd4e91ca24bb276914de3764cdf";
bless {key1=>[EMAIL PROTECTED],key2=>[EMAIL PROTECTED],$class;
}
1;
$ cat usedata3.pl
use mydata3;
my $d = mydat
755412040~01/19/1999
755612040~04/19/2000
755633040~04/26/1999
755763040~06/04/1998
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
] = @data\n";
> }
>
> # results ###
> printing @data = 2 3 4 5 6 7 8 9 10
> printing @data = 3 4 5 6 7 8 9 10
> printing @data = 4 5 6 7 8 9 10
> printing @data = 5 6 7 8 9 10
> printing @data = 6 7 8 9 10
--
J. Peng - QQMail Operation Team
eMai
n timelocal(0,0,0,$d,$m -1,$y);
}
__DATA__
155073040~06/04/1998
155073040~04/28/1998
155073040~04/29/1998
255256040~04/29/1998
255293040~05/27/1999
255322040~12/09/1999
55322040~12/08/1999
755379040~04/30/1998
755383040~04/30/1998
755412040~01/19/1999
755612040~04/19/2000
755633040~04/26/1999
755763040~
es.co.nz";
> $URL = get("http://www.ageofempires.co.nz";);
>
I'd suggest you take some time learning perl and re-write the script
by yourself.
At that time if you still have questions, welcome back to ask us here.
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
example usages of this module:
http://search.cpan.org/~petdance/WWW-Mechanize-1.34/lib/WWW/Mechanize/Examples.pod
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
ting.
if ( $$ == $pid ) { # $pid is parent's pid
unlink $pidfile or die $!;
}
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
ying w/ it along w/ perl.
> Any advice?
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
On Sun, Apr 27, 2008 at 9:50 AM, J. Peng <[EMAIL PROTECTED]> wrote:
>
> END {
> unlink "/path/program.pid" if $$ = $pid;
sorry, it's "==" not "=".
unlink "/path/program.pid" if $$ == $pid;
This avoid the child (if have) try
t; or die $!;
print $fd $pid;
close $pid or die $!;
at the begin of the script.
And at the END block of the script you should delete the pid file when
script was exiting:
END {
unlink "/path/program.pid" if $$ = $pid;
}
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTEC
On Sat, Apr 26, 2008 at 7:54 PM, Dr.Ruud <[EMAIL PROTECTED]> wrote:
> J. Peng schreef:
> > Dr.Ruud:
> >> Jenda Krynicky:
>
>
> >>>@signs = map quotemeta($_) @signs;
> >>
> >> @signs = map quotemeta($_), @signs;
> >
te as
>
> @signs = map quotemeta, @signs;
>
or:
@signs = map { quotemeta } @signs;
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
I got it from my gmail newsletter,
http://www.odinjobs.com/blogs/careers/entry/perl_php_python_and_ruby
It seems perl is still the most popular language on internet.:-)
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
t use that module?
On Fri, Apr 25, 2008 at 2:13 AM, Philluminati
<[EMAIL PROTECTED]> wrote:
> I am trying to follow this guide to make a perl based SOAP server:
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For ad
On Fri, Apr 25, 2008 at 12:47 AM, David Nicholas Kayal
<[EMAIL PROTECTED]> wrote:
>
> why is the first one true?
>
check 'perldoc perlre' :
The following standard quantifiers are recognized:
* Match 0 or more times
\d* means 0 or more numbe
1];
$hash{$id} = $f_name;
}
close $hd;
open $hd, 'log_ca.txt' or die $!;
while(<$hd>) {
next if /^$/;
chomp;
my ($id) = /(\d+)$/;
my $f_name = (split/->/,$_)[-1];
$hash2{$id} = $f_name;
}
close $hd;
for (sort keys %hash) {
print $hash{$_}, "=>"
Someone said Perl is a "wrote-only language", what does this mean?
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
On Wed, Apr 23, 2008 at 8:56 PM, <[EMAIL PROTECTED]> wrote:
> Hi All,
>
>
>
> I need to delete some lines in file using Perl. The requirement is that
> I have one file which contains following lines.
>
Please submit your question to "[EMAIL PROTECTED]".
ild libjpeg as a shared library, say
./configure --enable-shared
To get both shared and static libraries, say
./configure --enable-shared --enable-static
Generally you need the --enable-shared.
Good luck with it.
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM:
ariable
like below?
my $y=0;
my @x =(1,2,3) if $y;
print Dumper [EMAIL PROTECTED];
Thanks!
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
I'm not sure, but why this can work?
use strict;
use warnings;
use Data::Dumper;
my $y=0;
my @x =(1,2,3) if $y;
print Dumper [EMAIL PROTECTED];
Since $y is false, it seems @x shouldn't be declared.
But why the last print can work?
--
J. Peng - QQMail Operation Team
eMail: [EMAIL
#x27;t do anything.
>
>
>
> For example: if string is : OMS.FD.08.03.000.0 then regular expression
> should give OMS.FD.08.03.000
>
try:
$str =~ s/\.0$//;
--
J. Peng - QQMail Operation Team
eMail: [EMAIL PROTECTED] AIM: JeffHua
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
Learning Perl has exercises after each charpter.
On 4/10/08, hemanth <[EMAIL PROTECTED]> wrote:
> Hi,
>
> I am currently learning perl programming. Please help me by giving
> some practice exercises or direct me to the site where i can find
> them.
>
> Thanks in Advance!
>
> Hemanth
>
>
> --
> To
use File::Find can do that.
or use the unix 'find' command:
find /path -type f -mmin -240
On 4/10/08, nag <[EMAIL PROTECTED]> wrote:
> hi,
> please help me to get all the files present in a directory which are
> created/accessed in last 4 hours .
>
>
> thanks
> Nagesh
>
> --
> Thanks
> Nagesh
>
On Sat, Mar 22, 2008 at 12:28 AM, Kaushal Shriyan
<[EMAIL PROTECTED]> wrote:
>
> my @info = rsync -av /var/lib/mysql [EMAIL PROTECTED]:/var/lib/ ;
It should be:
my @info = `rsync -av /var/lib/mysql [EMAIL PROTECTED]:/var/lib/`;
--
Jeff (Joy) Peng
Tencent QQMail Dept.
--
To unsubscribe, e-ma
On Fri, Mar 21, 2008 at 6:43 PM, sanozuke <[EMAIL PROTECTED]> wrote:
> but what do i need to make
> Perl run in windows and in Visual studio C++ express edition?
>
Perl can run on windows well, but not under VC++ software.
Check the ActiveState Perl tools for you,
http://www.activestate.com/
--
r example, the routine I am writing might fit perfectly in math module.
>
>
> On Fri, Mar 21, 2008 at 3:31 PM, Sharan Basappa
>
>
> <[EMAIL PROTECTED]> wrote:
> > ok. That clarifies ...
> >
> >
> >
> > On Fri, Mar 21, 2008 at 3:29 PM
creating a multiple hash is the same as you create a common hash.
you can do,
my %value;
$value{'172.16.1.45'} = {'google' => 34};
$value{'172.15.2.34'} = {'yahoo' => 45};
etc.
to show the hash structure, use Data::Dumper:
use Data::Dumper;
print Dumper \%hash;
to print the hash, use a for loop
On Fri, Mar 21, 2008 at 5:55 PM, Sharan Basappa
<[EMAIL PROTECTED]> wrote:
> Thanks, I will take a look. But going by the webpage, it seems to me
> that the changes will
> to the language itself and chnages to compiler. But what I want to
> contribute is a subroutine?
> Is this the right way to
On Fri, Mar 21, 2008 at 5:01 PM, jeevs <[EMAIL PROTECTED]> wrote:
> My question is.. Is there already a perl module which will be able to
> parse the directory structure and give me the required output.
sure.like Filesys::Tree module on cpan.
For example, the code below,
use Filesys::Tree qw/
sic. Lets say someone
> (just for theory)
> wanted to contribute a subroutine similar to split function. How would he do
> it?
>
>
>
> On Fri, Mar 21, 2008 at 2:38 PM, J. Peng <[EMAIL PROTECTED]> wrote:
> > You can contribute it to CPAN as a single perl script.
>
You can contribute it to CPAN as a single perl script.
See this guide:
http://www.cpan.org/misc/cpan-faq.html#How_contribute_scripts
On Fri, Mar 21, 2008 at 2:23 PM, Sharan Basappa
<[EMAIL PROTECTED]> wrote:
> Hi,
>
> I was thinking of contributing a utility function to perl. Want to
> know what
when running rsync with -v argument and when it get failed on
executing, it will report the errors by itself.
you could say my @info = `rsync -av ` in your perl scripts and
check the executed results in the @info.
On Fri, Mar 21, 2008 at 3:07 PM, Kaushal Shriyan
<[EMAIL PROTECTED]> wrote:
> Hi
On Mon, Mar 10, 2008 at 1:37 PM, igotux igotux <[EMAIL PROTECTED]> wrote:
>I tried
> split(/\s+/,$var)[1] which is not working as i expected.
You may be moving from python,:)
In perl you should say,
(split /\s+/,$var)[1];
because split /\s+/$var returns a list, use () to enclose the list's sco
On Thu, Feb 21, 2008 at 4:11 PM, J. Peng <[EMAIL PROTECTED]> wrote:
> On Thu, Feb 21, 2008 at 4:03 PM, John W. Krahn <[EMAIL PROTECTED]> wrote:
> >
> > So 0x would indicate a network with no hosts on it and thus it
> > is not a valid netmask.
>
On Thu, Feb 21, 2008 at 4:03 PM, John W. Krahn <[EMAIL PROTECTED]> wrote:
>
> So 0x would indicate a network with no hosts on it and thus it
> is not a valid netmask.
>
yup, but sometime we need a 255.255.255.255 netmask to forbit the host
don't reply to any ARP requests.
for example, yo
On Thu, Feb 21, 2008 at 3:29 PM, John W. Krahn <[EMAIL PROTECTED]> wrote:
> J. Peng wrote:
> > how to translate this mask to clear text form with perl?
> > netmask 0x
>
> If you mean an IP address netmask then 0x is an invalid netmask
> because all
how to translate this mask to clear text form with perl?
netmask 0x
thanks.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
On Feb 16, 2008 1:57 PM, <[EMAIL PROTECTED]> wrote:
> @data = (
> { crc => $crcerrs[$i], overrun => $overrunerrs[$i], inputerrs =>
> $inputerrs[$i] } );
> };
This overide the array each time.
You need a 'push' at each loop:
push @data, { };
good luck.
--
To unsubscribe, e-mail: [E
I found this module on cpan:
http://search.cpan.org/~sprout/WWW-Mechanize-Plugin-JavaScript-0.002/lib/WWW/Mechanize/Plugin/JavaScript.pm#PREREQUISITES
But it says,
To load the plugin, just use WWW::Mechanize's use_plugin method (note
that the current stable release of that module doesn't support
Hello,
I wrote a script using WWW::Mechanize, when I run it I got bad
results, it said my browser has no javascript supported.
Do you know how to fake the header declaring my useranget has enabled
javascript?
Thanks!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [
you may consider to use a pod section for commenting out a code block.
I have used these ways, maybe not good, but they can be used.:)
1) put the code block in a subroutine,and never call that routine.
sub no_use {
code block
}
2) assign the code block to a variable, and never use that variab
On Dec 29, 2007 8:32 PM, <[EMAIL PROTECTED]> wrote:
> Hello,
>
> Could someone tell me if this is possible and if it is how I do it. I
> have the following two file;
>
> file1.pl
> ---
> print "$testvar\n";
> ---
>
> file2.pl
> ---
> my $testvar = 37;
> use "file1.pl";
> ---
>
> If I run file2.pl
49 matches
Mail list logo
