$0
-Original Message-
From: Zielfelder, Robert [mailto:[EMAIL PROTECTED]
Sent: Wednesday, November 03, 2004 12:18 PM
To: Perl Beginners List (E-mail)
Subject: How to get name of script
How do I get the name of the current PERL script I am running? The answer
to this question may be ver
Title: RE: Append on top
I looked at the archives and found a mail by NYMI Jose where the code was pretty neat. It was actually for inserting in the middle of the file. However, I could not get it to append on top. I am enclosing the mail containing his code as attachment if someone likes to c
Does anyone know of a way to open a file in append mode and append on top of
the file?
Thanks in Advance,
--Rajesh
Hello All,
I've to extract a CN (Common Name) from an LDAP DN. The LDAP DN is as shown
below:
isuer=CN=Name,OU=People,OU=com
I just need to extract the Name from the above string. Right now I've
my @tmpList = split ( /=CN=/, $_ );
$issuer = $tmpList[1];
But this returns the whole string "Name,
Hello All,
I am looking for a thread-safe Perl logging module to log output from a
Multi-threaded Perl Application. When I tried to write to a log file using
simple redirection, the threads contest for the log file. Creating a log
file for each thread creates a bunch of log files in my machine. Is
Sorry. Missed out getting hostname.
use IO::Socket;
use Sys::Hostname;
$HOSTNAME = hostname();
$ip = inet_ntoa((gethostbyname($HOSTNAME))[4]);
Rajesh
> -Original Message-
> From: Rajesh Dorairajan
> Sent: Thursday, April 22, 2004 2:18 PM
> To: 'Emmanuel Lesouef
use IO::Socket;
$ip = inet_ntoa((gethostbyname($HOSTNAME))[4]);
Rajesh
> -Original Message-
> From: Emmanuel Lesouef [mailto:[EMAIL PROTECTED]
> Sent: Thursday, April 22, 2004 1:02 PM
> To: [EMAIL PROTECTED]
> Subject: Finding the current IP of my laptop
>
>
> Hello all,
>
> I am tryi
rahn [mailto:[EMAIL PROTECTED]
> Sent: Friday, March 26, 2004 1:24 AM
> To: [EMAIL PROTECTED]
> Subject: Re: Search for a file pattern in a directory tree recursively
>
>
> Rajesh Dorairajan wrote:
> >
> > Hello All,
>
> Hello,
>
> > I went through al
bove example, I need only need filename from dir1 and dir2 that was
last modified. Is there a way to do this filtration in the find( sub {} )
above?
Any help will be deeply appreciated.
Thanks,
Rajesh Dorairajan
[EMAIL PROTECTED]
Try perl -MCPAN -e "force install Mail::Sender"
Rajesh
> -Original Message-
> From: Michael Weber [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, March 16, 2004 9:28 AM
> To: [EMAIL PROTECTED]
> Subject: ActiveState Win32 MCPAN install problem
>
>
> Good morning!
>
> I am running ActiveSta
Hi James,
There should be no problem going by your code and assuming you've the
environment variables setup as indicated. What are the contents of
$a->content()? Are you getting a error code such as 501, 404? Also, you
might want to verify the version of WWW::Mechanize that is installed in your
sy
t;ls" from the shell, the install.sh
file has disappeared
Can someone shed light on where I am goofing up? FYI, the directory where
the scripts (installer and perl script) are being run is mounted on a NFS
volume under /usr/local. I am logged in as root on my local machine.
Thanks i
Hello David,
First of all, thank you very much for taking the effort to help me solve the
problem. Sorry for the delay in my reply.
> please do not top post. when you reply to any message, post
> your respond
> below the relevant text.
>
Sorry about this. Will make sure I do this future.
> l
Sorry the syntax error was by mistake. It's not in the actual code.
Rajesh
> -Original Message-
> From: david [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, February 18, 2004 4:01 PM
> To: [EMAIL PROTECTED]
> Subject: Re: Problem with LWP::UserAgent
>
>
; 0,
keep_alive => 0,
timeout=> 30);
my $r = $ua->request(HTTP::Request->new(GET => $url));
print $r->content if($r->is_success);
print $r->code,': ',$r->status_line unless($r->is_success);
print "\n";
}
Rajesh Dorairajan
ob Dixon [mailto:[EMAIL PROTECTED]
> Sent: Thursday, December 25, 2003 4:59 AM
> To: [EMAIL PROTECTED]
> Subject: Re: How to extract the full URL from a relative link
> using WWW:
> : Mecha nize
>
>
> Rajesh Dorairajan wrote:
> >
> > I am using WWW::Mechanize
TION=".$urls[2]->url."\n\n"; #This is where I need the
fully qualified URL instead of the relative URL that I get currently
$count++;
}
I looked up a lot on the web before sending this mail. I am not able to find
any documentation that points to this. Any help will be deeply appreciated.
Rajesh Dorairajan
perldoc perlboot
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, November 25, 2003 10:31 AM
To: [EMAIL PROTECTED]
Subject: simple module
Hi all,
i am new to OO programming in Perl. Can someone suggest a simple Object
Oriented Perl module thru which i
--Original Message-
From: James Edward Gray II [mailto:[EMAIL PROTECTED]
Sent: Saturday, November 22, 2003 8:18 AM
To: Rajesh Dorairajan
Cc: '[EMAIL PROTECTED]'
Subject: Re: dereferencing a list from a class
On Nov 21, 2003, at 3:19 PM, Rajesh Dorairajan wrote:
> I've
message bounced. retrying
-Original Message-
From: Rajesh Dorairajan
Sent: Friday, November 21, 2003 1:19 PM
To: '[EMAIL PROTECTED]'
Subject: dereferencing a list from a class
I've a class (blessed, of course :)) that has variables like:
$self->a = "1";
$se
ver:
foreach my $foo ( $self->c ) {
print $foo;
}
gets me the whole list (1, 2, 3, 4) in $foo instead of one-by-one. What I am
doing wrong? I am sure I am missing something very basic here. I would
appreaciate your responses.
Thanks
Rajesh Dorairajan
Valicert/Tumbleweed Communications.
[EMAIL PROTECTED]
650-216-2018
http://www.tumbleweed.com
Sendmail is a nice Perl module that lets you do this.
http://www.tneoh.zoneit.com/perl/SendMail/
Rajesh
-Original Message-
From: Paul Kraus [mailto:[EMAIL PROTECTED]
Sent: Friday, November 21, 2003 8:36 AM
To: 'liuxu'; [EMAIL PROTECTED]
Subject: RE: how to send mail using Perl
Check ou
Rajesh
-Original Message-
From: Andrew Gaffney [mailto:[EMAIL PROTECTED]
Sent: Friday, November 21, 2003 7:09 AM
To: '[EMAIL PROTECTED]'
Subject: Re: Need to extract an Installshield archive
Rajesh Dorairajan wrote:
> Hello,
>
> I've an archive (.exe) generated by I
'IO::File=GLOB(0x3cc4b1c)'"
I am not sure if Archive::Zip module recognizes the archive created by
Installshield. Does anybody have a suggestion on how this can be done?
Perhaps there is another Module that extract the contents? My search on CPAN
did not yield any results. Any help will
am going through the test scripts
of LWP too.
Best Regds
Rajesh Dorairajan
-Original Message-
From: drieux [mailto:[EMAIL PROTECTED]
Sent: Friday, November 14, 2003 3:54 PM
To: begin begin
Subject: An Alternative to Test::Harness was Re: external sub routine
On Friday, Nov 14, 2003, at 13
I've a similar need. However, I do not want to create a module, since the
function I need to call is already inside a module. All I want to do is:
#Create a logger object and log a message using log4perl
#call the function and check the $retval
#if $retval == 1 $logger->info("Test succeded")
#else
e-
From: david [mailto:[EMAIL PROTECTED]
Sent: Monday, November 10, 2003 3:19 PM
To: [EMAIL PROTECTED]
Subject: Re: Peculiar problem using LWP::UserAgent
Rajesh Dorairajan wrote:
> I ran into peculiar problem using LWP::UserAgent. I receive a 501 - Not
> yet implemented error when I conne
Sorry. Forgot to mention. $Host already contains http://servername
Thanks
Rajesh
-Original Message-
From: Sethi, Pradeep [mailto:[EMAIL PROTECTED]
Sent: Monday, November 10, 2003 1:23 PM
To: Rajesh Dorairajan
Subject: RE: Peculiar problem using LWP::UserAgent
What's the val
re LWP::UserAgent;
my $ua = LWP::UserAgent->new(env_proxy => 0,
keep_alive => 0,
timeout => 30,
);
$response = $ua->get( $url );
Thanks in Advance,
Rajesh Dorairajan
Original Message-
From: Wiggins d Anconia [mailto:[EMAIL PROTECTED]
Sent: Tuesday, November 04, 2003 6:11 AM
To: Rajesh Dorairajan; '[EMAIL PROTECTED]'
Subject: Re: How to pass a variable to .t file
>
> Can someone help me understand how does one pass variable to a Perl t
t;not ok 2\n";
---
Please let me know if you have any suggestions on how to go about
implementing such a program.
Thanks in Advance
Rajesh Dorairajan
Can someone explain how does one pass a parameter to a Perl Module? To
illustrate suppose I've My::Module
package My::Module;
BEGIN
{
$scalar = $input;
}
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = ($scalar);
In the above script is there anyway to pass the $input variable to the
pack
hoice.
Thank you very much for your suggestion though.
Rajesh
-Original Message-
From: Wiggins d'Anconia [mailto:[EMAIL PROTECTED]
Sent: Saturday, September 20, 2003 10:05 AM
To: Rajesh Dorairajan
Cc: '[EMAIL PROTECTED]'
Subject: Re: Looking for a good OpenSSL/Perl library
Does anyone know where I can find a good implementation of OpenSSL library
on Perl. I tried Massimmilio Pala's OpenCA::OpenSSL and ran into some issues
there. Specifically, I am not able to generate a request. Whatever DN string
I pass does not seem to be acceptable to the underlying OpenSSL librar
Hello All,
I have a very basic question. I need to launch a Bourne shell script using
PERL and automate the responses required by the script. I have shown the
sample shell script below:
#!/bin/sh
echo "Welcome to my script"
echo "Do you want to continue"
read ans
if [ $ans = "n" ] then
exit
I don't know if someone already replied to this. I ran into this issue on
Windows. I overcame it by editing the Makefile.PL and removing the entry
PREREQ_PM from the hash and doing
perl Makefile.PL
(n)make
(n)make install
Try it out
Rajesh
-Original Message-
From: Sylvain Masnada [mailt
Open PERL IDE is a very good PERL dvelopment environment. But it only runs
on Windows. For linux vim or EMACS might be good.
http://open-perl-ide.sourceforge.net/
RD
-Original Message-
From: Trevor Morrison [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 24, 2003 7:54 PM
To: [EMAIL PROTEC
37 matches
Mail list logo