hey !!!
do you celebrate only perl even in the christmas vacation !!!
Take a break !! Have a kit kat christmas cake.
Merry Christmas to this perl group
Rajeev
-Original Message-
From: John McKown [mailto:[EMAIL PROTECTED]
Sent: Friday, December 26, 2003 11:08 PM
To: Perl Beginners
he right column.
More info please.
-Tom Kinzer
-Original Message-----
From: Pandey Rajeev-A19514 [mailto:[EMAIL PROTECTED]
Sent: Tuesday, December 09, 2003 8:16 PM
To: '[EMAIL PROTECTED]'
Subject: Help needed on perl wrappers
Hi,
I have a text that I read from a file. I want t
Hi,
I have a text that I read from a file. I want to display the text on the screen in a
column in a newspaper style.
I do it like this
$initial_tab = "\t\t";
$subsequent_tab = "\t\t";
print wrap($initial_tab, $subsequent_tab, @text1);
print fill($initial_tab, $subsequent_tab, @text1);
It w
Hi,
I don't know anything about perl graphics. I would explain excatly what I want.
I want to develope a interactive graphical interface which can display all the nodes
in a network in a tree representation.
I should be able to draw that tree upon reading a data base (or real time data).
I sho
Hi ,
I have a question regarding matching strings that have embeded perl special characters.
$abc = 'MC10.G(12)3c';
$efg = 'MC10.G(12)3c';
Now I want to check whether they are same or not by doing
if ($abc =~ /$efg/) { do something;}
For this I need to insert a '\' before every special char.
s/CAT/ =>
SERVER_NAME => sunomcr
sunomcr =>
TEST_CASE_OUTPUT_PATH => ../testlogs/
../testlogs/ =>
It seems it takes all the elements in the list as the key.
Regards
Rajeev
-Original Message-----
From: Bob Showalter [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 23, 2003 8:56 PM
Hi,
I have a list like
@list = ( "key1: Vlan1 :0989\n"
"key2: Vlan2 :0989\n"
"key3: Vlan3 :0989\n"
"key4: Vlan4 :0989\n");
I wanted to make a hash with keys as key1, key2 , key3, key4.
I want to write something like this :
**
Hi,
I need an urgent help and direction regarding capture of scrolling text using the
Telnet.pm module.
Apart from the False Telnet servers(unusual ascii characters) described in the module,
ther is one more scenario where the output on a telnet session shell does not get
captured.
Does Tel
any regex for $/
currently I am making record by running in a loop. Do you feel that I am missing
something silly.
Regards
Rajeev
-Original Message-
From: Paul Johnson [mailto:[EMAIL PROTECTED]
Sent: Sunday, September 21, 2003 5:42 PM
To: Pandey Rajeev-A19514
Cc: [EMAIL PROTECTED]
S
Hi ,
I am stuck with input record separator
I have a file .. say "abc"
***
**
Hi ,
I have to start with input as date string which I need to process.
$date1 = "Wed Sep 10 15:51:50 CST 2003";
$date2 = "15:52:00.885 cst Wed Sep 10 2003";
I have to find the difference in between the two dates. Which is the best module to do
that and probably a sample code would do more help.
Hi ,
How do I search replace text in a file from a perl script. i.e. by opening the file in
write mode and then do a search replace.
I don't want to do a command line search replace.
Regards
Rajeev
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi ,
I need some help me to extract a pattern. The delimiters is a pair of "abcd" and
"efgh". Can some one help me with an efficient use of Greedy and non greedy matches,
look ahead and lookbehind features.
I want the smallest match involving the two delimiters. I want all the matches. i.e.
f
Hi,
I want to create a module, say ABC.pm.
I dont want to build and install the module.
I want to use a function xyz() of the module ABC in some other script.
AND, I want to call the function as
xyz();
instead of
ABC::xyz();
Can anyone tell me how to do that without installing the module ?
Is i
Hi,
The dimension of the data increases by each pass by reference.
In this subroutine, @FORMATTED_OUTPUT was filled up as a 2 dimensional array
$FORMATTED_OUTPUT[$i][$j].
sub ABC {
.. SOME CODE
return (\$rows, \$cols, [EMAIL PROTECTED]);
}
In subroutine DEF, ABC is called, and the dimension
Hi,
I want to create differnent Socket Handles in a function and the function creates the
created Socket Handle..
my $sock = gensym();
I am getting the same instance of Handle "S".
Please some one tell me how to create different instances of sockets in perl.
Regards
Rajeev
--
To unsubscribe
Hi,
I am sorry to inform you so late.
Actually, my subroutine "returned" before printing. Else everything was correct.
Thanks for your help.
Regards
Rajeev
-Original Message-
From: Kipp, James [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 17, 2003 12:33 AM
To: Pandey Raj
Hi ,
I have done a silly mistake which am not able to detect.
Below is a subroutine, that takes the Socket_Handle and the Message as arguments.
First i send the message and then I start reading the Socket in a while loop until
DONE is detected.
I am pushing each line in a @buffer.
When I print
Hi ,
I got the answer Thanks
Please ignore the previous mail from me
rgds
rajeev
-Original Message-
From: Pandey Rajeev-A19514
Sent: Tuesday, July 15, 2003 3:20 PM
To: [EMAIL PROTECTED]
Subject: Socket Problem
Hi,
I have a problem with sockets that goes like this..
I want to create
Hi,
I have a problem with sockets that goes like this..
I want to create a socket and then want to use it at a later time to send messages..
How do I save sockets .? It seems that I can not save "S". S is a constant ... I dont
know what wrong am I doing..
Can some one help me ? I need to cre
Hi Rob,
Thanks ! That was helpful.
Do we have a lex and Yacc equivalent in Perl ?
I am writing an automation tool based on Client and server for Cisco devices.
I am doing the testcase parsing in Lex and Yacc (flex and bison) to create the parser
tree and then I user the server written in Perl t
what you describe couldn't you just process each buffer element one by
one?
foreach my $buffer_entry (@buff) {
if($buffer_entry =~ /(FastEthernet|down)/i) {
print $buffer_entry;
}
}
Let us know if your trying to do something more complicated that I've not
understood.
HTH,
Hi,
In short, I have a defined set of pattern that can occur across any number of
lines(scalars) in a buffer (array of scalars) and I need to print only those
lines(Scalars) that contain the full or partial pattern. For eg. For the buffer @buff
(as shown below), I have to find out the occurance
HI,
I am using Telnet.pm module to telnet to a SUN machine.
1. When I run simple unix commands, the command times out.
2. We have another CLI (Command line Interface ) for some utility which also allows me
to run unix commands by setting the path as PATH=$UPATH.
So first I have to give the CLI
Hello,
Do we have a perl function equivalent with the same functionality as the function
"scandir" in c language ?
Regards
Rajeev
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
FastEthernet3/9
lifEntry.20.13 = administratively down
*
Thanks
Rajeev
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Saturday, July 05, 2003 8:21 PM
To: [EMAIL PROTECTED]
Subject: Re: Regular expression problem.
Pandey Rajeev-A19514 wrote:
Hi,
Can anyone give me a regular expression(perhaps a one liner) ?
Matching an expression in a single line is easy. But if I have to find it out in a
array of scalars, it becomes tricky for me.
An excerpt of my output buffer looks like this.
*
Hi,
I am new to perl and need some help.
How do we pass array of scalars to a subroutine.
I need something like this
***
sub ABC {
my(@buffer) shift;
print @buffer;
}
I want to call this subroutine from some other code like.
ABC( @this_buffer );
**
28 matches
Mail list logo