Hi
I have written a script chat message. when there is an error, currently it
sends information only one chat server. How to add two chat server names.
Say Message 1 -- Chat server 1
Say Message 2 -- Chat Server 2
Can some one advice me
Regards
Sreedhar
Visit our website at
Hi
Add on to my question
I have defined 2 variable. Still it is sending message to both channel
sub DoChat
{
@msg1 = @_;
@msg2 = @_;
GetIrcConnection($chatuser,$chatirc) or die unable to get irc
connection for user $chatuser on channel $chatirc$!;
SendIrc($chatchannel1,@msg1);
Hi
The reasoned I am using 2 message because
both message are different. Both can be printed same time.
can we use some thing like this
@msg1=$msg1;
@msg2=$msg2;
Regards
Sreedhar
-Original Message-
From: JupiterHost.Net [mailto:[EMAIL PROTECTED]
Sent: 17 November 2004 13:36
To:
open(MYNAME,a.txt);
-Original Message-
From: Rajesh Dorairajan [mailto:[EMAIL PROTECTED]
Sent: 29 October 2004 02:12
To: Perl-Beginners ([EMAIL PROTECTED])
Cc: Rajesh Dorairajan
Subject: Append on top
Does anyone know of a way to open a file in append mode and append on top of
the
Hi
I am printing the message using print statement. print the message is $msg;
How to add control G in that.
Regards
Sreedhar
Visit our website at http://www.ubs.com
This message contains confidential information and is intended only
for the individual named. If you are not the named
Hithanks. problem resolvedI have added variable
called $msg1.=$previousline;RegardsSreedhar-Original
Message-From: Zeus Odin [mailto:[EMAIL PROTECTED]]Sent:
23 October 2004 22:40To: Kalkunte-Venkatachala, Sreedhar;
[EMAIL PROTECTED]Subject: RE: How to store the out put in
Hi
I have written a program to add the strings. Now after every execution how to flush
out the out. how
$i = 0;
while(LOGFILE)
{
$i++;
if ($i 10)
{
thanks. problem resolved
-Original Message-
From: Flemming Greve Skovengaard [mailto:[EMAIL PROTECTED]
Sent: 24 October 2004 12:13
To: [EMAIL PROTECTED]
Cc: Kalkunte-Venkatachala, Sreedhar
Subject: Re: How to empty the buffer
[EMAIL PROTECTED] wrote:
Hi
I have written a program to
Hi
I found the logic
use File::Basename;
$FILENAME=/Developer/view_local/local_nt/FDAFDSAFDSASDFA/ASDFDAFSASDF/NewProcess_date_22-oct-2004.log;
my $name = basename($FILENAME,'.log');
print substr($name, 0, 7);
Thanks to Bob.
Regards
Sreedhar
-Original Message-
From: Bob Showalter
Hi
Say I have program like this
If I Say print It prints each line. How to store the both output in one string buffer
($previousLine and $var)
For example I have written this program
foreach $previousLine (@buffer)
{
Hi
Thanks for the solution. Problem resolved.
regards
Sreedhar
-Original Message-
From: Zeus Odin [mailto:[EMAIL PROTECTED]
Sent: 23 October 2004 13:20
To: Kalkunte-Venkatachala, Sreedhar; [EMAIL PROTECTED]
Subject: RE: how the print the first 7 letter of file name
Please reply to the
use
for my $i(1 .. 10) { code here }
3) What are you trying to do with LOGFILE?
It seems to me that you are printing each item in @buffer, then printing
the
next 10 lines of LOGFILE. Is this what you are trying to do? Are @buffer
and
LOGFILE related at all?
Thanks,
ZO
Sreedhar Kalkunte
hi
This program will be keep running in background like tail -f .
that moment y find error it will capture and last 10 lines and next 10 lines and
prints into the chat board. so while printing I want it as single variable. so, it
will fast(one connection)
regards
Sreedhar
-Original
?
Thanks,
ZO
Sreedhar Kalkunte-Venkatachala
[EMAIL PROTECTED]
wrote...
Hi
Say I have program like this
If I Say print It prints each line. How to store the both output in one
string buffer ($previousLine and $var)
For example I have written this program
in @buffer, then printing the
next 10 lines of LOGFILE. Is this what you are trying to do? Are @buffer and
LOGFILE related at all?
Thanks,
ZO
Sreedhar Kalkunte-Venkatachala
[EMAIL PROTECTED]
wrote...
Hi
Say I have program like this
If I Say print It prints each line. How to store the both output in one
Hi
I have a problem
I have
$FILENAME=C:\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewProcess_date_22-oct-2004.log
How to get 'NewProcess only word
kindly let me know
Regards
Sreedhar
Visit our website at http://www.ubs.com
This message contains confidential information and
Hi
7 letter will do.i.e. 'NewProc'
regards
Sreedhar
-Original Message-
From: Bakken, Luke [mailto:[EMAIL PROTECTED]
Sent: 22 October 2004 16:12
To: [EMAIL PROTECTED]
Subject: RE: how the print the first 7 letter of file name
Subject: how the print the first 7 letter of file name
Hi
I tried the way in which you have suggested
==
#!/perl -w
use File::Basename;
$FILENAME=\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewProcess_date_22-oct-2004.log;
my $name = basename($FILENAME, '.log');
print substr($name, 0, 7);
Hi
I have written a program to monitor logs. Here I am substituting the file name
dynamically
say :
/asffasddas/asdfadssdaf/logfiles/safdfsda/asdsdaf/fadsdsafasdffdsar_asdffdsa_asfdfsad_asfdfsda.log
would be: _fadsds
So, I am not getting logic to capture this name
Hope I am clear of my
hi
I have not tried any thing believe me. I am not getting the logic to find also.
Give me ideas. I will try and confirm you, if you don't believe me
Regards
Sridhar
-Original Message-
From: Chris Devers [mailto:[EMAIL PROTECTED]
Sent: 22 October 2004 16:52
To: Kalkunte-Venkatachala,
hi
this is what i tried
#!/sbcimp/run/pd/perl/5.8.2/bin/perl -w
my $name = basename($FILENAME,
\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewProcess_date_22-oct-2004.log);
$name =~ s/_*.*//s;
print $name;
does it make sence
Regards
Sreedhar
-Original Message-
From:
Hi
ok. I think I have ask a wrong question. Believe me , I am not asking some non-sense
question. I really stuck with problem. If you want to give solution give me. Otherwise
with the hint you have given (regular expression) I will find out. Thanks for hint
Regards
Sreedhar
-Original
Hi
I will make attempt. give me hints at least
regards
sreedhar
-Original Message-
From: Chris Devers [mailto:[EMAIL PROTECTED]
Sent: 22 October 2004 17:46
To: Kalkunte-Venkatachala, Sreedhar
Cc: Perl Beginners List
Subject: RE: how the print the first 7 letter of file name
On Fri, 22
Hi
I want to script to monitor the logs.
1. Log file keep getting written ever min.
2. Whenever an exception / WARNING comes it has to send that message to chat server (
I have the script for chat )server)
3. I has to read the word like exception and warning from flat file
4. Name of the
Hi
I want to script to monitor the logs.
1. Log file keep getting written ever min.
2. Whenever an exception / WARNING comes it has to send that message to chat server (
I have the script for chat )server)
3. I has to read the word like exception and warning from flat file
4. Name of the
25 matches
Mail list logo