Hello,
would like to know if there is a utility to build up a function dependancy
database, while handling large Perl applications just like cscope does for
C programs .
Thanks
Vinay
Office :91-80-5318090 Xtn :6066
Cell :91-98451-91236
e-page : [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EM
Gufranul Haque wrote:
>
> Hello all,
Hello,
> I have a series of numbers 20.45,-2.00,45.450,-30.390
>
> 20.45 - length is 5
> -2.00 - length is 4
Why aren't you including the leading minus sign as part of the length?
> I need to calculate the length of each number for formatting purposes.
>
"SHAKARIAN,SERGE (HP-NewJersey,ex1)" wrote:
> Hello,
>
> I think I understand the <=> operator, it returns -1 if left operand is less
> then right, 0 if equal and +1 if left is greater then right. What I dont
> understand is why this works:
>
> @list = sort { $a<=>$b } ( @list ); # lowest to highe
Matthew Stapleton wrote:
> Hello,
>
> I am learning Perl and having some fun with it. In a script I am
> writing I am wanting to read a line of a file and then extract a
> digit from the beginning of the line. A typical line looks something
> like this:
>
> 100. text text text
>
> So I am usi
Thomas Williams wrote:
> Thank you all for your help, but it's my fault for forgetting a major piece
> of information.
>
> Not only do I need to send a email with an attachment, through perl, but it
> needs to be through a smtp server that required the username and password
> sent, before it will
Thomas Williams wrote:
> Thank you all for your help, but it's my fault for forgetting a major piece
> of information.
>
> Not only do I need to send a email with an attachment, through perl, but it
> needs to be through a smtp server that required the username and password
> sent, before it will
Hello,
I am learning Perl and having some fun with it. In a script I am writing
I am wanting to read a line of a file and then extract a digit from the
beginning of the line. A typical line looks something like this:
100. text text text
So I am using a file handle to open the file and read the
Serge Shakarian wrote:
>
> is there a way for the compare operator to return the higher or lower
> operand?
Just in case you were looking for a max() operator, you can do this:
my $max = ($a > $b ? $a : $b);
much like in C.
Cheers,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Jeff Westman wrote:
> print "Executing 'date'\n";
> @result = $t->cmd("date");
> foreach (@result) {
>print;
> }
> $t->close && print "Connection closed\n";
> <>
> So.. what's with the '(' in $result[1] ??? I know I can filter this
> out ... b
Hi.
I think you have two separate problems here, right?
Gufranul Haque wrote:
> Hello all,
>
> I have a series of numbers 20.45,-2.00,45.450,-30.390
>
> 20.45 - length is 5
> -2.00 - length is 4
>
> I need to calculate the length of each number for formatting purposes.
FIrst you need to decide h
thank you, that clears it up for me. Serge
-Original Message-
From: Hanson, Rob [mailto:[EMAIL PROTECTED]
Sent: Friday, March 21, 2003 6:49 PM
To: 'SHAKARIAN,SERGE (HP-NewJersey,ex1)'; [EMAIL PROTECTED]
Subject: RE: spaceship operator <=> question
> is there a way for the compare operato
> is there a way for the compare operator to
> return the higher or lower operand?
No, that is not what it does.
> @list = sort { $a<=>$b } ( @list );
> I dont understand is why this works:
I'm not sure how much you know, so forgive me if I give you info on what you
already understand.
A sort a
Hello,
I think I understand the <=> operator, it returns -1 if left operand is less
then right, 0 if equal and +1 if left is greater then right. What I dont
understand is why this works:
@list = sort { $a<=>$b } ( @list ); # lowest to highest if $a and $b are
reversed highest to lowest
is the
> The issue here is that say I have a number -20.00 (length
> 6). Now I have to split this number into two numbers using a split ratio
> say 0.1.
>
> So now I have two numbers to print -2.00 and -20.00. Now both
> these numbers should be printed in six charcters i.e s-2.00 and
> -20.00 (s de
- Original Message -
From: "Gufranul Haque" <[EMAIL PROTECTED]>
To: "David Olbersen" <[EMAIL PROTECTED]>
Sent: Friday, March 21, 2003 3:12 PM
Subject: Re: calculating length of a number
> >
> > Hello all,
> >
> > I have a series of numbers 20.45,-2.00,45.450,-30.390
> >
> > 20.45 - length
you can also write your own telnet client that can establish FTP sessions on
the fly. In perl it would be simple, I wrote a pritty nice FTP server in
about a day or so.
Mark
- Original Message -
From: "Jeff Westman" <[EMAIL PROTECTED]>
To: "beginners" <[EMAIL PROTECTED]>
Sent: Friday, Mar
Gufranul,
Why not just use sprintf()? That should be much easier than doing it yourself.
perldoc -f sprintf
--
David Olbersen
iGuard Engineer
11415 West Bernardo Court
San Diego, CA 92127
1-858-676-2277 x2152
> -Original Message-
> From: Gufranul Haque [mailt
Hello all,
I have a series of numbers 20.45,-2.00,45.450,-30.390
20.45 - length is 5
-2.00 - length is 4
I need to calculate the length of each number for formatting purposes.
I am trying to split the each number into an array of charcters and then calculating
the length of the array
my @digi
Kevin Old wrote:
>
> Hello everyone,
Hello,
> I'm trying to create an array of months that will be a continuous
> "Moving View of Months". I will have an page served to users that has a
> table of the past 12 months. For instance, if I were to pull up the
> page today, it would display Apr 02
> Dan Muey wrote:
> > Hello list,
> >
> > I am looking into being able to encrypt, symetrically, a
> file, text,
> > images, hopefully basically any type of file binary or
> ascii and save
> > it to disc.
> >
> > then I need to be able to unencypt it to view it.
> > I've looked into the Dige
Dan Muey wrote:
> Hello list,
>
> I am looking into being able to encrypt, symetrically, a file, text,
> images, hopefully basically any type of file binary or ascii and save
> it to disc.
>
> then I need to be able to unencypt it to view it.
> I've looked into the Digest::MD5 and Crypt::Blowfis
Kevin Old wrote:
> Hello everyone,
>
> I'm trying to create an array of months that will be a continuous
> "Moving View of Months". I will have an page served to users that has a
> table of the past 12 months. For instance, if I were to pull up the
> page today, it would display Apr 02 - Mar 03
Wagner, David --- Senior Programmer Analyst --- WGO wrote:
> Kevin Old wrote:
>> Hello everyone,
>>
>> I'm trying to create an array of months that will be a continuous
>> "Moving View of Months". I will have an page served to users that
>> has a table of the past 12 months. For instance, if I w
Seems such a shame to have to call perl from the command line or (last
resort), run FTP using the shell.
Your explanation makes sense. What a pain!
--- [EMAIL PROTECTED] wrote:
>
>
> On Fri, 21 Mar 2003 12:29:06 -0800 (PST), Jeff Westman <[EMAIL
Sudarshan Raghavan wrote:
>
> On Fri, 21 Mar 2003, NYIMI Jose (BMB) wrote:
>
> > > From: Palmer Greg [mailto:[EMAIL PROTECTED]
> > >
> > > $filename = `ls -ltr|tail -1 $DIRECTORY`;
> > > print $filename;
> >
> > Sorry, i didn't mentioned that i wanted a pure perl solution, thanks anyway.
> >
> >
On Fri, 21 Mar 2003 12:29:06 -0800 (PST), Jeff Westman <[EMAIL PROTECTED]> wrote:
> I need help!
>
> I am connecting to a remote server using Net::Telnet. I am then running some
> programs, which works fine. Now I need to send the results back t
I need help!
I am connecting to a remote server using Net::Telnet. I am then running some
programs, which works fine. Now I need to send the results back to the local
server that established the connection.
#- start
$t = new Net::Telnet (Input_Log => "__debug_log" );
...
print "Attempting
Thanks. This worked perfectly.
William
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Friday, March 21, 2003 11:58
To: [EMAIL PROTECTED]
Subject: Re: Help w/ script to insert text
David --- Senior Programmer Analyst --- Wgo Wagner wrote:
> > scanner. So, the text I
David --- Senior Programmer Analyst --- Wgo Wagner wrote:
> > scanner. So, the text I need inserted is:
> >
> > > /usr/local/bin/odeiavir -r [EMAIL PROTECTED]
> >
> Try adding \ as [EMAIL PROTECTED] This escapes those characters
> otherwise it tries to expand $EXT and possibly @$HOST. With the
>
Andy Anderson <[EMAIL PROTECTED]> wrote:
> I would say that this is because the "operand" && is "ANDING"
> the numbers. Therefore the response the the line print 1 &&
> 1 && 0; would be a 0. Since the line is a "mathematical string"
> it is performed left to right (1 && 1 = 1, 1 && 0 = 0).
I'm
I have used Mime::Lite as well. I would suggest this too.
Thank you,
Steve Maroney
On Fri, 21 Mar 2003, Jenda Krynicky wrote:
> From: "Thomas Williams" <[EMAIL PROTECTED]>
> > Right now I am using sendmail in the following way:
> >
> > open (MAIL, "|/usr/sbin/sendmail -t") || return 0;
> >
> >
Thank you all for your help, but it's my fault for forgetting a major piece
of information.
Not only do I need to send a email with an attachment, through perl, but it
needs to be through a smtp server that required the username and password
sent, before it will allow me to send anything.
It w
Hello,
I'm trying to use exit codes form a perl script in a .qmail file. Here's what I have ::
man qmail-control
...
command's exit codes are interpreted as follows: 0 means
that the delivery was successful; 99 means that the deliv-
ery was successful, but that qmail-local should
> Right now I am using sendmail in the following way:
>
> open (MAIL, "|/usr/sbin/sendmail -t") || return 0;
>
> But, I would like to send attachments, what is the best way
> of doing this?
I had to do this just yesterday. Here's what I found:
http://perl.about.com/library/weekly/aa042302a.htm
William Voyek wrote:
> Hi all,
>
> First of all I'm not a programmer and am completely new perl so please
> be gentle with me. My problem is that I'm trying to use the script
> below to insert some text into multiple files. The files are control
> files for qmail, the MTA we use. The text that I
Thanks for the input I'll use that a lot and let you know
how it goes if it ever gets to go at all!!
Thanks,
Dan
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Friday, March 21, 2003 12:26 PM
> To: Dan Muey; [EMAIL PROTECTED]
> Subject: RE: encdypt/dec
Hi all,
First of all I'm not a programmer and am completely new perl so please
be gentle with me. My problem is that I'm trying to use the script
below to insert some text into multiple files. The files are control
files for qmail, the MTA we use. The text that I want to insert will
call a virus
On Fri, 21 Mar 2003 17:41:40 +, "Thomas Williams" <[EMAIL PROTECTED]> wrote:
> Right now I am using sendmail in the following way:
>
> open (MAIL, "|/usr/sbin/sendmail -t") || return 0;
>
> But, I would like to send attachments, what is the b
On Fri, 21 Mar 2003 10:54:12 -0600, "Dan Muey" <[EMAIL PROTECTED]> wrote:
> Hello list,
>
> I am looking into being able to encrypt, symetrically, a file, text, images,
> hopefully
> basically any type of file binary or ascii and save it to disc
On 20 Mar 2003 at 16:45, Steve Grazzini wrote:
> [EMAIL PROTECTED] wrote:
> >
> > My problem is that I would like to have only
> > one script (to simplify maintanence and deployment)
> > for all OSs. So, for example, for Win32 machines
> > I may need Win32::API and Win32::DriveInfo; if I
> > use
JB,
You could definitely do this with Perl, but I suggest a shell script instead.
If you use bash, and you probably do, the following would work provided you have each
domain on it's own line in a file named domains.txt:
for dom in `cat domains.txt` ; do
/var/qmail/vpopmail/bin/vdeldomain $
Kevin Old wrote:
> Hello everyone,
>
> I'm trying to create an array of months that will be a continuous
> "Moving View of Months". I will have an page served to users that
> has a table of the past 12 months. For instance, if I were to pull
> up the page today, it would display Apr 02 - Mar 03.
Hello All,
Any help on this topic would be greatly appreciated.
Here's the situation. I have a mailserver that I'm
cleaning up running qmail/vpopmail. What I'm doing is
deleting all dead domains on that mailserver. The
system command for this would be:
/var/qmail/vpopmail/bin/vdeldomain hostn
From: "Thomas Williams" <[EMAIL PROTECTED]>
> Right now I am using sendmail in the following way:
>
> open (MAIL, "|/usr/sbin/sendmail -t") || return 0;
>
> But, I would like to send attachments, what is the best way of doing
> this?
The best way is to use some module :-)
Try MIME::Lite and Mai
Look at the Mail::Sendmail module. This will do more than you could ever
want...well...maybe.
Anyway, Tom, it'll send attachments.
--
David Olbersen
iGuard Engineer
11415 West Bernardo Court
San Diego, CA 92127
1-858-676-2277 x2152
> -Original Message-
> From
Right now I am using sendmail in the following way:
open (MAIL, "|/usr/sbin/sendmail -t") || return 0;
But, I would like to send attachments, what is the best way of doing this?
Tom
_
MSN 8 helps eliminate e-mail viruses. Get 2 mon
Hello everyone,
I'm trying to create an array of months that will be a continuous
"Moving View of Months". I will have an page served to users that has a
table of the past 12 months. For instance, if I were to pull up the
page today, it would display Apr 02 - Mar 03. Next month it will be May
0
Hello list,
I am looking into being able to encrypt, symetrically, a file, text, images, hopefully
basically any type of file binary or ascii and save it to disc.
then I need to be able to unencypt it to view it.
I've looked into the Digest::MD5 and Crypt::Blowfish modules a bit.
Ok so here's m
Seems whenever I issue a command to Net::Telnet, I get a left-paren '(' in
the result set. Consider the following from a debug session:
<>
...
print "Executing 'date'\n";
@result = $t->cmd("date");
foreach (@result) {
print;
}
$t->close && print "Connect
Dave wrote:
> Hai ,
>
> I have a problem uploading images with perl. I have HTML code within perl. When i
> just link the image useing the link tag
>
Servers do not use images. They store them as files, and serve them as such. The
proper means for uploading a file to your perl script, within
Andy Anderson wrote:
> I would say that this is because the "operand" && is "ANDING" the numbers.
> Therefore the response the the line print 1 && 1 && 0; would be a 0. Since the
> line is a "mathematical string" it is performed left to right (1 && 1 = 1, 1 &&
> 0 = 0).
>
> Hope this helps.
>
> Ha
use strict;
use warnings;
> > sub GetDirList {
> >
> > opendir (D_LIST, $_[0]) or die "Could not open directory $_[0]";
> > while ( defined ($vf = readdir D_LIST) ) {
> >next if $gf =~ /^\.\.?$/; # skip . and ..
> >if (-d "$_[0]/$vf") {
> > $file_list .= "$_[0]";
> > $z="$_[0]/
> > sub GetDirList {
> >
> > opendir (D_LIST, $_[0]) or die "Could not open directory $_[0]";
> > while ( defined ($vf = readdir D_LIST) ) {
> >next if $gf =~ /^\.\.?$/; # skip . and ..
> >if (-d "$_[0]/$vf") {
> > $file_list .= "$_[0]";
> > $z="$_[0]/$vf";
> > GetDirList($z
David, et al --
...and then david said...
%
% Ohad Ohad wrote:
%
...
% > This means also if I have a linked list of links I want to get the real
% > file at the end.
Ohad, do you want to know where the link (chain) points or do you want to
get the data that's in the target file?
...
%
% for(
Christopher M Burger wrote:
> Hello,
>
> I was wondering if anyone had any ideas on how I can get a list of
> directories and subdirectories.
>
> I'm currently trying something like this:
>
> sub GetDirList {
>
> opendir (D_LIST, $_[0]) or die "Could not open directory $_[0]";
> while ( define
> Hai ,
>
> I have a problem uploading images with perl. I have HTML code
> within perl. When i just link the image useing the link tag
>
>
That's just an html problem with a broken link.
If you give the list what you're using perl to do and what you've tried
Then we may be able to help bette
Jeff Westman wrote:
> Basic question on using '&&' vs 'and'. I see that '&&' has higher
> precedence than 'and', but why does
>
> print 1 && 1 && 0;
> print "\n";
> print 1 and 1 and 0;
> print "\n";
>
> return
> 0
> 1
>
> I would have expected both statements to return 0.
Hi Jeff.
'
> I am trying to find a module that will make it easier to
> embed scalar data in HTML for reporting purposes. So far I
> have looked at HTML::Template but that seems more for CGI
> related operations.
>
> I just want to be able to generate a report and then email it
> to a distribution list.
"Ankit Gupta" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Hi,
>
> I want to print some linux environment variables that have already been
set.
> Could some one let me know which command I can use to get value of
> environment variables.
>
heres a 1-liner that works:
perl -e 'pri
On Thu, 20 Mar 2003, Christopher M Burger wrote:
> Hello,
>
> I was wondering if anyone had any ideas on how I can get a list of
> directories and subdirectories.
Take a look at File::Find, comes with the standard distribution
perldoc File::Find
>
> I'm currently trying something like this:
>
my ($K, $V);
while (($K,$V) = each %ENV) {
print "Key - $K\nVAL - $V\n\n";
}
-Original Message-
From: Ankit Gupta [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 20, 2003 3:23 PM
To: [EMAIL PROTECTED]
Subject: Linux Environment Variable
Hi,
I want to print some linux environment
On Thu, 20 Mar 2003, Ankit Gupta wrote:
> Hi,
>
> I want to print some linux environment variables that have already been set.
> Could some one let me know which command I can use to get value of
> environment variables.
Environment variables are available through the %ENV hash. For e.g. to get
Hi Wiggins,
Thankyou very much for your suggestion and guideline.
I would inform you on my progress.
With best of my regards
Soumyadeep
--- Wiggins d'Anconia <[EMAIL PROTECTED]> wrote:
> Soumyadeep nandi wrote:
> > Hi All,
>
> > So, I have two plans to work out the situation,
> these
> > are a
Hi,
I want to print some linux environment variables that have already been set.
Could some one let me know which command I can use to get value of
environment variables.
Regards,
Ankit
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hello,
I was wondering if anyone had any ideas on how I can get a list of
directories and subdirectories.
I'm currently trying something like this:
sub GetDirList {
opendir (D_LIST, $_[0]) or die "Could not open directory $_[0]";
while ( defined ($vf = readdir D_LIST) ) {
next if $gf =~
I am trying to find a module that will make it easier to embed scalar
data in HTML for reporting purposes. So far I have looked at
HTML::Template but that seems more for CGI related operations.
I just want to be able to generate a report and then email it to a
distribution list. I want the report
[EMAIL PROTECTED] wrote:
>
> My problem is that I would like to have only
> one script (to simplify maintanence and deployment)
> for all OSs. So, for example, for Win32 machines
> I may need Win32::API and Win32::DriveInfo; if I
> use this contstruct:
>
> ...
> if ($^O eq 'MSWin32') {
>
Hi,
I want to print some linux environment variables that have already been set.
Could some one let me know which command I can use to get value of
environment variables.
Regards,
Ankit
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Ohad Ohad <[EMAIL PROTECTED]> wrote:
> Thought it was obvious, but I guess not . . .
>
> What I want is :
> I have a symbolic link (to file - Unix), and I want to get the
> real file it is pointing to.
>
Cwd::abs_path will resolve symlinks.
--
Steve
perldoc -qa.j | perl -lpe '($_)=m("(.*)")
I would say that this is because the "operand" && is "ANDING" the numbers.
Therefore the response the the line print 1 && 1 && 0; would be a 0. Since the
line is a "mathematical string" it is performed left to right (1 && 1 = 1, 1 &&
0 = 0).
Hope this helps.
Have a great day;
Andy
Mark Anderson
On Fri, 21 Mar 2003, NYIMI Jose (BMB) wrote:
> > -Original Message-
> > From: Palmer Greg [mailto:[EMAIL PROTECTED]
> > Sent: Thursday, March 20, 2003 4:50 PM
> > To: NYIMI Jose (BMB)
> > Subject: RE: Unix ls -lrt | tail -1 in Perl
> >
> >
> > $filename = `ls -ltr|tail -1 $DIRECTORY`;
>
> -Original Message-
> From: Palmer Greg [mailto:[EMAIL PROTECTED]
> Sent: Thursday, March 20, 2003 4:50 PM
> To: NYIMI Jose (BMB)
> Subject: RE: Unix ls -lrt | tail -1 in Perl
>
>
> $filename = `ls -ltr|tail -1 $DIRECTORY`;
> print $filename;
Sorry, i didn't mentioned that i wanted a p
72 matches
Mail list logo
