RE: How to get name of script

2004-11-03 Thread Rajesh Dorairajan
$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

RE: Append on top

2004-10-29 Thread Rajesh Dorairajan
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

Append on top

2004-10-29 Thread Rajesh Dorairajan
Does anyone know of a way to open a file in append mode and append on top of the file? Thanks in Advance, --Rajesh

Split and extract a sub-string

2004-08-24 Thread Rajesh Dorairajan
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,

Looking for a thread safe logging module

2004-05-28 Thread Rajesh Dorairajan
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

RE: Finding the current IP of my laptop

2004-04-22 Thread Rajesh Dorairajan
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&#

RE: Finding the current IP of my laptop

2004-04-22 Thread Rajesh Dorairajan
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

RE: Search for a file pattern in a directory tree recursively

2004-03-29 Thread Rajesh Dorairajan
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

Search for a file pattern in a directory tree recursively

2004-03-23 Thread Rajesh Dorairajan
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]

RE: ActiveState Win32 MCPAN install problem

2004-03-16 Thread Rajesh Dorairajan
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

RE: :Mechanize through a proxy?

2004-03-11 Thread Rajesh Dorairajan
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

Modifying text in a shell script from Perl

2004-03-08 Thread Rajesh Dorairajan
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

RE: Problem with LWP::UserAgent

2004-02-23 Thread Rajesh Dorairajan
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

RE: Problem with LWP::UserAgent

2004-02-18 Thread Rajesh Dorairajan
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 > >

Problem with LWP::UserAgent

2004-02-18 Thread Rajesh Dorairajan
; 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

RE: How to extract the full URL from a relative link using WWW: : Mecha nize

2003-12-29 Thread 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

How to extract the full URL from a relative link using WWW:: Mecha nize

2003-12-24 Thread Rajesh Dorairajan
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

RE: simple module

2003-11-25 Thread 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

RE: dereferencing a list from a class

2003-11-24 Thread Rajesh Dorairajan
--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

FW: dereferencing a list from a class

2003-11-22 Thread Rajesh Dorairajan
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

dereferencing a list from a class

2003-11-22 Thread Rajesh Dorairajan
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

RE: how to send mail using Perl

2003-11-21 Thread Rajesh Dorairajan
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

RE: Need to extract an Installshield archive

2003-11-21 Thread Rajesh Dorairajan
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

Need to extract an Installshield archive

2003-11-21 Thread Rajesh Dorairajan
'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

RE: An Alternative to Test::Harness was Re: external sub routine

2003-11-17 Thread Rajesh Dorairajan
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

RE: external sub routine

2003-11-15 Thread Rajesh Dorairajan
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

RE: Peculiar problem using LWP::UserAgent

2003-11-12 Thread Rajesh Dorairajan
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

RE: Peculiar problem using LWP::UserAgent

2003-11-11 Thread Rajesh Dorairajan
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

Peculiar problem using LWP::UserAgent

2003-11-10 Thread Rajesh Dorairajan
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

RE: How to pass a variable to .t file

2003-11-04 Thread 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

How to pass a variable to .t file

2003-11-04 Thread Rajesh Dorairajan
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

How to pass parameters to a module

2003-09-26 Thread 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

RE: Looking for a good OpenSSL/Perl library

2003-09-22 Thread Rajesh Dorairajan
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

Looking for a good OpenSSL/Perl library

2003-09-17 Thread Rajesh Dorairajan
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

Launching shell scripts using PERL and passing arguments

2003-09-04 Thread Rajesh Dorairajan
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

RE: module install

2003-08-29 Thread Rajesh Dorairajan
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

RE: IDE for Perl Development

2003-07-26 Thread Rajesh Dorairajan
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