Hi All,
Is there any mechanism where I can take the log of entire Perl script. I
mean to say that I need the log of each and every step which I am doing
in Perl script. That step may include
1: input from user
2: internal Perl script commands
Ultimately whatever Perl script is doing , I
Hello, my logic is really bad, here is I want to do.
my @list = qw(a b a a d e e );
I want to compact the array by concatenating the adjacent vowels and consonant
together, like for the above it should become,
my @list2 = qw(ab aa d ee);
How do I get the @list2 ? Thanks.
Send instant mess
comma operator has a higher precedence than 'or' operator,
so when require fails, eval returns undef and perl will
continue to set the status then return 0,
so your rewritten code will work exactly the same as the original code.
On Wed, Apr 16, 2008 at 9:02 PM, Jennifer G. <[EMAIL PROTECTED]>
wro
what's this statement?
eval {
require MIME::Base64;
require Authen::SASL;
} or $self->set_status(500, ["Need MIME::Base64 and Authen::SASL
todo auth"]), return 0;
why ', return 0' can be used? I think maybe it should be ';' instead of ',' .
Can I rewrite it as below?
eval {
req
On Apr 16, 2008, at 13:33, Monty wrote:
Hope this is the right forum for this.
I recently downloaded Curses-1.23.tar from CPAN for installation on to
my Solaris 8 system. I installed the module in the same area as all
my other perl modules: /usr/local/lib/perl5/5.8.5, but I noticed
there's also
Monty wrote:
> Hope this is the right forum for this.
>
> I recently downloaded Curses-1.23.tar from CPAN for installation on to
> my Solaris 8 system. I installed the module in the same area as all
> my other perl modules: /usr/local/lib/perl5/5.8.5, but I noticed
> there's also a directory name
Monty wrote:
Hope this is the right forum for this.
I recently downloaded Curses-1.23.tar from CPAN for installation on to
my Solaris 8 system. I installed the module in the same area as all
my other perl modules: /usr/local/lib/perl5/5.8.5, but I noticed
there's also a directory named /usr/loc
Hope this is the right forum for this.
I recently downloaded Curses-1.23.tar from CPAN for installation on to
my Solaris 8 system. I installed the module in the same area as all
my other perl modules: /usr/local/lib/perl5/5.8.5, but I noticed
there's also a directory named /usr/local/lib/perl5/si
Sharan Basappa wrote:
> Rob,
>
> I replied to Chas' mail with steps I have followed to install the module.
> I have also tried omitting Algorithm to PREFIX, but that does not help.
>
> perl Makefile.PL PREFIX=/u/basappas/local/perl/iter2/Algorithm-Permute-0.11
> make install
> setenv PERL5LIB /u/
Manoj wrote:
Hello List,
Hello,
Scenario:
CSV file
Host=Nirus,TCPIP,inxcp011,connected,Serv=rxmcpp1
Host=Nirus,TCPIP,inxcp011,connected, Serv=rxmcpp2
Host=Rome,TCPIP,inxcp011,connected, Serv=rxmcpp1
Host=Nirus,TCPIP,inxcp011,connected, Serv=rxmcpp1
Host=Nirus,TCPIP,inxcp011,connected, Serv=rx
#!/usr/bin/perl -w
my (%hosts, %servs);
while () {
chomp;
my ($host, $server) = (split /,\s*/)[0,4];
$hosts{$host}++ if ($host);
$servs{$server}++ if ($server);
}
my @dup_hosts = map { substr $_,0,5,''; $_ }
grep { $hosts{$_} > 1 } keys %hosts;
my @dup_servs = map { substr $_,
> -Original Message-
> From: Manoj [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, April 16, 2008 12:00
> To: 'Perl Beginners'
> Subject: CSV duplicate
>
> Hello List,
>
>
>
> Scenario:
>
> CSV file
>
> Host=Nirus,TCPIP,inxcp011,connected,Serv=rxmcpp1
>
> Host=Nirus,TCPIP,inxcp011,co
Hello List,
Scenario:
CSV file
Host=Nirus,TCPIP,inxcp011,connected,Serv=rxmcpp1
Host=Nirus,TCPIP,inxcp011,connected, Serv=rxmcpp2
Host=Rome,TCPIP,inxcp011,connected, Serv=rxmcpp1
Host=Nirus,TCPIP,inxcp011,connected, Serv=rxmcpp1
Host=Nirus,TCPIP,inxcp011,connected, Serv=rxmcpp3
Host=Spri
Oops -- did reply and instead of reply-all :-(
-- Forwarded message --
From: Kenneth Wolcott <[EMAIL PROTECTED]>
Date: Wed, Apr 16, 2008 at 11:33 AM
Subject: Re: setting unix command through perl script
To: [EMAIL PROTECTED]
Agreed that the parent process in which perl was invoke
Rob,
I replied to Chas' mail with steps I have followed to install the module.
I have also tried omitting Algorithm to PREFIX, but that does not help.
perl Makefile.PL PREFIX=/u/basappas/local/perl/iter2/Algorithm-Permute-0.11
make install
setenv PERL5LIB /u/basappas/local/perl/iter2/Algorithm-Pe
On Tue, Apr 15, 2008 at 9:58 PM, Chas. Owens <[EMAIL PROTECTED]> wrote:
> Where/how did you install the module. If it was not installed in the normal
> directory (ie the one it will be installed in if you installed as root) you
> will need to either set the PERL5_LIB environmental variable or use
Ley, Chung wrote:
> Hi,
>
>
>
> I have a program that will take in a string that will resolve to a path
> where the output is going to store.
>
>
>
> The path can includes "variables" in this format "%%".
> The acceptable variableNames that the program will support are fixed to
> a list suc
sanket vaidya wrote:
Kindly go through the code below.
use CGI::Push qw(:standard);
do_push(-next_page=>\&refresh,
-last_page=>\&done);
When I run this code typing "http://localhost/push.cgi"; in the browser I get
internal server error.
I use Apache 2.2 on windows & perl
i think this is not possible.
if you start a new process (shell) it gets the environment of its parent
process. but if you manipulate the environment in a child the parent will
not notice this..
for example
$ bash
$ export FOO=BAR
$ echo $FOO
BAR
$ exit
$ echo $FOO
Regards Martin
On 14:20:18
I tried the line : $ENV{CCASE_NO_FILE_HEADER} = 'yes';
But still the value is not getting set.
Please help.
Regards,
Irfan
Project Lead
TSINDIA - Production Line
Individual Software Solutions - UMO
T-Systems India Private Limited, Pune
Telephone: +91-20-30245000/25605000 (Extn: 5271)
Mobile: +
On Wed, Apr 16, 2008 at 7:05 AM, <[EMAIL PROTECTED]> wrote:
> Hi All,
>
>
>
> I need to execute the "export CCASE_NO_FILE_HEADER=yes" command through
> Perl script.
>
>
>
> What I did is qx(export CCASE_NO_FILE_HEADER=yes); but still the value
> for CCASE_NO_FILE_HEADER is not getting set to "
Hi All,
I need to execute the "export CCASE_NO_FILE_HEADER=yes" command through
Perl script.
What I did is qx(export CCASE_NO_FILE_HEADER=yes); but still the value
for CCASE_NO_FILE_HEADER is not getting set to "yes"
Regards,
Irfan
On Wed, Apr 16, 2008 at 12:31:36AM +0100, Rob Dixon wrote:
> Paul Johnson wrote:
> > On Tue, Apr 15, 2008 at 08:38:30PM +0100, Rob Dixon wrote:
> >> Paul Johnson wrote:
> >>> On Wed, Apr 16, 2008 at 12:11:20AM +0530, [EMAIL PROTECTED] wrote:
> >>>
> I need help in regular expression. I have st
On Apr 15, 3:52 am, [EMAIL PROTECTED] (Chas. Owens) wrote:
> On Mon, Apr 14, 2008 at 7:11 PM, Jenda Krynicky <[EMAIL PROTECTED]> wrote:
>
> snip> > my $sql = q/SELECT Account,Last_Name,First_Name,Email_Address FROM
> > > prospects WHERE Email_Address='?'/;
>
> > Drop the singlequotes. This way
24 matches
Mail list logo
