RE: DBI Count Distict
Title: RE: DBI Count Distict
I would use the SQL server to make the counts for me... or you could take the query then make a hash using the first three digits as the key and make the value increment... then you just hash through the hash (hehehe) and get your final count...
-Original Message-
From: steve silvers [mailto:[EMAIL PROTECTED]]
Sent: Friday, June 27, 2003 8:52 AM
To: [EMAIL PROTECTED]
Subject: DBI Count Distict
Quick question I'm calling out a column called data which looks like so:
001A
001B
002A
002D
003D
003E
004A
005
I need to get the count of all 001 and 002 and 003... so on where 001 = 2
and 002 = and 004 = 1...
I have
$sql = SELECT Data FROM table;
while (($Data) = $sth-fetchrow_array) {
print $Data \n;
}
Any help greatly appreciated.
Thanks in advance
Steve
_
Tired of spam? Get advanced junk mail protection with MSN 8.
http://join.msn.com/?page=features/junkmail
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: DBI Count Distict
Try:
select left(Data,3) as start, count(*) as occurances from table group by
start;
Hope this helps
Tobias
PS: Tried this on mysql ...
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of steve silvers
Sent: Friday, June 27, 2003 7:52 AM
To: [EMAIL PROTECTED]
Subject: DBI Count Distict
Quick question I'm calling out a column called data which
looks like so:
001A
001B
002A
002D
003D
003E
004A
005
I need to get the count of all 001 and 002 and 003... so on
where 001 = 2
and 002 = and 004 = 1...
I have
$sql = SELECT Data FROM table;
while (($Data) = $sth-fetchrow_array) {
print $Data \n;
}
Any help greatly appreciated.
Thanks in advance
Steve
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Build Html Help
Hi. I´m trying to rebuild the HTML documentation. I used to do it with perl -MHtmlHelp -e HtmlHelp::MakePerlHtml() but the module HtmlHelp seems to be gone! I'm using v5.8.0 build 805 on WinXP Professional. Regards, Borkur Gudjonsson ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Perl Formats
On Fri, 27 Jun 2003, Christopher Moss wrote:
Can anyone help me with this problem? I am trying to produce a report
using the format function that is in the following format (trivial
example):
Family Name Role Name
flintstones lead fred
pal barney
jetsons his boy elroy
lead george
wife jane
simpsons kid bart
lead homer
wife marge
In other words there are repeating groups!
The code I am using, in this case partly taken from the Perldsc as my
actual data also makes use of a hash of hashes. So far I have been able
to produce the following:
Family Name Role Name
flintstones lead fred
flintstones pal barney
jetsons his boy elroy
jetsons lead george
jetsons wife jane
simpsons kid bart
simpsons lead homer
simpsons wife marge
which is not quite right! I have read the docs but I can't see a way to
define two formats side by side and switch between them. I know the
other option is to use print/printf but I find the format function very
useful. Any suggestions would be appreciated.
My code follows:
...code...
#!perl -w
my %HoH = (
flintstones = {
lead = fred,
pal = barney,
},
jetsons = {
lead = george,
wife = jane,
his boy = elroy,
},
simpsons= {
lead = homer,
wife = marge,
kid = bart,
},
);
open (FORM, report2.txt);
my ($rfamily, $rrole, $rname);
foreach $family ( sort keys %HoH ) {
for $role ( sort keys %{ $HoH{$family} } ) {
$rfamily = $family;
$rrole = $role;
$rname =$HoH{$family}{$role};
write FORM;
}
}
format FORM_TOP =
Family Name Role Name
.
format FORM =
@ ^^
$rfamily, $rrole, $rname
.
end code
I suggest that, in your loop right after you assign $rfamily that you
put the following line:
$rfamily=' ' if $seen{$rfamily}++;
[EMAIL PROTECTED] Carl Jolley
All opinions are my own and not necessarily those of my employer
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Build Html Help
-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Borkur Gudjonsson Sent: Friday, June 27, 2003 9:36 AM To: [EMAIL PROTECTED] Subject: Build Html Help Hi. I´m trying to rebuild the HTML documentation. I used to do it with perl -MHtmlHelp -e HtmlHelp::MakePerlHtml() but the module HtmlHelp seems to be gone! I'm using v5.8.0 build 805 on WinXP Professional. Regards, Borkur Gudjonsson Try perl -MActivePerl::DocTools -e UpdateHTML(1) Brad ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Mail-Sender Port for AS Perl 5.8 (Win)
FYI Our build engineer has gotten Mail-Sender to compile properly for ActivePerl 5.8 - it is now available in ppm. yay Tj! JeffG -Original Message- From: Michael Cohen [mailto:[EMAIL PROTECTED] Sent: Thursday, June 26, 2003 3:45 PM To: [EMAIL PROTECTED] Subject: Mail-Sender Port for AS Perl 5.8 (Win) Apparently, the Mail-Sender module has not been compiled for ActiveState Perl 5.8 for Windows, according to PPM or the AS web site. When will this module be properly compiled? I have been using it flawlessly with AS Perl 5.6, and am trying to migrate to AS Perl 5.8. Is ActiveState trying to determine why they cannot compile it? Are there any other options/modules available to me to send a file as an attachment to an Email? Mail-Sendmail apparently is not an option, as I see no way of attaching a file; it looks like basic text email. Any help would greatly be appreciated. Regards, Michael C. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
PERLAPP.EXE Compile error
Hello I have encountered an error I think a module may be missing but not sure. Any suggestions are welcomed. The text of the compile output follows error Encode\ConfigLocal.pm: error: Can't locate Encode\ConfigLocal.pm refby: c:\Perl\lib\Encode.pm whole output. M:\CV\Corporate Services\TA Technical Analysts\Rip Workshop\RIP\Sourceperlapp -s rip_production_20030627.pl -e rip_win2k.exe -f -v -c PerlApp 5.0.3 build 503 Copyright (C) 1998-2002 ActiveState Corp. All rights reserved. Commercial license for Accounts Payable [EMAIL PROTECTED] +++ c:\Perl\lib\AutoLoader.pm +++ c:\Perl\lib\Carp.pm +++ c:\Perl\lib\Carp\Heavy.pm +++ c:\Perl\lib\Config.pm +++ c:\Perl\lib\Cwd.pm +++ DynaLoader.pm (internal) +++ c:\Perl\lib\Encode.pm +++ c:\Perl\lib\Encode\Alias.pm +++ c:\Perl\lib\Encode\Config.pm Encode\ConfigLocal.pm: error: Can't locate Encode\ConfigLocal.pm refby: c:\Perl\lib\Encode.pm +++ c:\Perl\lib\Encode\Encoding.pm +++ c:\Perl\lib\Errno.pm +++ c:\Perl\lib\Exporter.pm +++ c:\Perl\lib\Exporter\Heavy.pm +++ c:\Perl\lib\Fcntl.pm +++ c:\Perl\lib\File\Basename.pm +++ c:\Perl\lib\File\Copy.pm +++ c:\Perl\lib\File\DosGlob.pm +++ c:\Perl\lib\File\Glob.pm +++ c:\Perl\lib\File\Spec.pm +++ c:\Perl\lib\File\Spec\Unix.pm +++ c:\Perl\lib\File\Spec\Win32.pm +++ c:\Perl\lib\FileHandle.pm +++ c:\Perl\lib\IO.pm +++ c:\Perl\lib\IO\File.pm +++ c:\Perl\lib\IO\Handle.pm +++ c:\Perl\lib\IO\Seekable.pm +++ c:\Perl\lib\List\Util.pm +++ c:\Perl\lib\MIME\Base64.pm +++ c:\Perl\lib\MIME\QuotedPrint.pm Mac\FileSpec\Unixish.pm: warn: Can't locate Mac\FileSpec\Unixish.pm refby: c:\Perl\lib\DynaLoader.pm Mac\MoreFiles.pm: warn: Can't locate Mac\MoreFiles.pm refby: c:\Perl\lib\File\Copy.pm MacPerl.pm: error: Can't locate MacPerl.pm refby: c:\Perl\lib\File\DosGlob.pm +++ c:\Perl\site\lib\Mail\Sender.pm +++ c:\Perl\lib\PerlIO\encoding.pm +++ c:\Perl\lib\Scalar\Util.pm +++ c:\Perl\lib\SelectSaver.pm +++ c:\Perl\lib\Socket.pm +++ c:\Perl\lib\Symbol.pm +++ c:\Perl\lib\Term\Cap.pm +++ c:\Perl\lib\Text\ParseWords.pm +++ c:\Perl\site\lib\Win32\ODBC.pm +++ XSLoader.pm (internal) +++ c:\Perl\lib\auto\Cwd\Cwd.dll +++ c:\Perl\lib\auto\DynaLoader\autosplit.ix +++ c:\Perl\lib\auto\DynaLoader\dl_expandspec.al +++ c:\Perl\lib\auto\DynaLoader\dl_find_symbol_anywhere.al +++ c:\Perl\lib\auto\DynaLoader\dl_findfile.al +++ c:\Perl\lib\auto\Encode\Encode.dll +++ c:\Perl\lib\auto\Fcntl\Fcntl.dll +++ c:\Perl\lib\auto\File\Glob\Glob.dll +++ c:\Perl\lib\auto\IO\IO.dll +++ c:\Perl\lib\auto\List\Util\Util.dll +++ c:\Perl\lib\auto\MIME\Base64\Base64.dll +++ c:\Perl\lib\auto\PerlIO\encoding\encoding.dll +++ c:\Perl\lib\auto\Socket\Socket.dll +++ c:\Perl\site\lib\auto\Win32\ODBC\ODBC.dll +++ c:\Perl\lib\auto\re\re.dll +++ c:\Perl\lib\base.pm +++ c:\Perl\lib\fields.pm +++ c:\Perl\lib\integer.pm +++ c:\Perl\lib\re.pm +++ c:\Perl\lib\strict.pm +++ c:\Perl\lib\vars.pm +++ c:\Perl\lib\warnings.pm +++ c:\Perl\lib\warnings\register.pm +++ perl58.dll (C:\Perl\bin\perl58.dll) Please run `perlapp --help DIAGNOSTICS` for more information about the generated error and warning messages. Created 'rip_win2k.exe' ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
OT:Unix
Friends,
I think its hightime for me to subscribe to a Unix group. If you guys know
any, please let me know.
...
I have several scripts running in the back ground and I used nohup command
Every 90 days, I am needing to kill those commands and restart the process
again (ie. nohup command ). This is for some clean up.
How can kill those processes from a script program because I have so many
commands(each run a script file). Once I kill those commands, I want to
restart the nohup command to run the processes in the background. How can I
do this in the form of a script program or perl program(if any)?
Like a script program for nohup would be like...
#! /usr/bin/sh
nohup command1
nohup command2
nohup command3
.
.
.
.
.
and to kill the processes would be like
#! /usr/bin/sh
kill command1
kill command2
kill command3
.
.
.
.
can you guys please help me with this?
I will keep my thinking open meanwhile. The only idea I got so far is this..
ps -ef | awk '{print $1}' which prints all the users running the processes.
So if I could capture my ID, then I should be able to kill my ID. But I
don't know if I can kill based on UID ratherthan PID once I figure out how
to get my ID.
Any kind of input/ideas is highly appreciated.
Thanks guys.
Regards,
Hari.
CONFIDENTIALITY NOTICE:
This e-mail message, including all attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. You may NOT use, disclose, copy or disseminate this
information. If you are not the intended recipient, please contact the
sender by reply e-mail immediately. Please destroy all copies of the
original message and all attachments. Your cooperation is greatly
appreciated.
Columbus Regional Hospital
2400 East 17th Street
Columbus, Indiana 47201
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: PERLAPP.EXE Compile error
These errors are pretty normal. The error means that the module Encode::ConfigLocal is used by the module Encode which you have explicitly used but the first module, Encode::ConfigLocal, it not present. Many times the subsequent module is not really required. IE when you build an exe that uses LWP::UserAgent it pulls in many subsequent modules that you may not need and can actually omit from your executable using the perlapp -trim switch to reduce the size of your exe. If you run your perlapp command with the -explain switch it will tell you why each module which was included. The same reasoning goes for the Mac modules which are there for portability to Macintosh systems but not required for your Win32 exe to function. Do you get any errors when you run the EXE? Trevor Joerges SendMIME Software www.sendmime.com - Original Message - From: Matthew_Johnson/MO/[EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, June 27, 2003 2:05 PM Subject: PERLAPP.EXE Compile error Hello I have encountered an error I think a module may be missing but not sure. Any suggestions are welcomed. The text of the compile output follows error Encode\ConfigLocal.pm: error: Can't locate Encode\ConfigLocal.pm refby: c:\Perl\lib\Encode.pm whole output. M:\CV\Corporate Services\TA Technical Analysts\Rip Workshop\RIP\Sourceperlapp -s rip_production_20030627.pl -e rip_win2k.exe -f -v -c PerlApp 5.0.3 build 503 Copyright (C) 1998-2002 ActiveState Corp. All rights reserved. Commercial license for Accounts Payable [EMAIL PROTECTED] +++ c:\Perl\lib\AutoLoader.pm +++ c:\Perl\lib\Carp.pm +++ c:\Perl\lib\Carp\Heavy.pm +++ c:\Perl\lib\Config.pm +++ c:\Perl\lib\Cwd.pm +++ DynaLoader.pm (internal) +++ c:\Perl\lib\Encode.pm +++ c:\Perl\lib\Encode\Alias.pm +++ c:\Perl\lib\Encode\Config.pm Encode\ConfigLocal.pm: error: Can't locate Encode\ConfigLocal.pm refby: c:\Perl\lib\Encode.pm +++ c:\Perl\lib\Encode\Encoding.pm +++ c:\Perl\lib\Errno.pm +++ c:\Perl\lib\Exporter.pm +++ c:\Perl\lib\Exporter\Heavy.pm +++ c:\Perl\lib\Fcntl.pm +++ c:\Perl\lib\File\Basename.pm +++ c:\Perl\lib\File\Copy.pm +++ c:\Perl\lib\File\DosGlob.pm +++ c:\Perl\lib\File\Glob.pm +++ c:\Perl\lib\File\Spec.pm +++ c:\Perl\lib\File\Spec\Unix.pm +++ c:\Perl\lib\File\Spec\Win32.pm +++ c:\Perl\lib\FileHandle.pm +++ c:\Perl\lib\IO.pm +++ c:\Perl\lib\IO\File.pm +++ c:\Perl\lib\IO\Handle.pm +++ c:\Perl\lib\IO\Seekable.pm +++ c:\Perl\lib\List\Util.pm +++ c:\Perl\lib\MIME\Base64.pm +++ c:\Perl\lib\MIME\QuotedPrint.pm Mac\FileSpec\Unixish.pm: warn: Can't locate Mac\FileSpec\Unixish.pm refby: c:\Perl\lib\DynaLoader.pm Mac\MoreFiles.pm: warn: Can't locate Mac\MoreFiles.pm refby: c:\Perl\lib\File\Copy.pm MacPerl.pm: error: Can't locate MacPerl.pm refby: c:\Perl\lib\File\DosGlob.pm +++ c:\Perl\site\lib\Mail\Sender.pm +++ c:\Perl\lib\PerlIO\encoding.pm +++ c:\Perl\lib\Scalar\Util.pm +++ c:\Perl\lib\SelectSaver.pm +++ c:\Perl\lib\Socket.pm +++ c:\Perl\lib\Symbol.pm +++ c:\Perl\lib\Term\Cap.pm +++ c:\Perl\lib\Text\ParseWords.pm +++ c:\Perl\site\lib\Win32\ODBC.pm +++ XSLoader.pm (internal) +++ c:\Perl\lib\auto\Cwd\Cwd.dll +++ c:\Perl\lib\auto\DynaLoader\autosplit.ix +++ c:\Perl\lib\auto\DynaLoader\dl_expandspec.al +++ c:\Perl\lib\auto\DynaLoader\dl_find_symbol_anywhere.al +++ c:\Perl\lib\auto\DynaLoader\dl_findfile.al +++ c:\Perl\lib\auto\Encode\Encode.dll +++ c:\Perl\lib\auto\Fcntl\Fcntl.dll +++ c:\Perl\lib\auto\File\Glob\Glob.dll +++ c:\Perl\lib\auto\IO\IO.dll +++ c:\Perl\lib\auto\List\Util\Util.dll +++ c:\Perl\lib\auto\MIME\Base64\Base64.dll +++ c:\Perl\lib\auto\PerlIO\encoding\encoding.dll +++ c:\Perl\lib\auto\Socket\Socket.dll +++ c:\Perl\site\lib\auto\Win32\ODBC\ODBC.dll +++ c:\Perl\lib\auto\re\re.dll +++ c:\Perl\lib\base.pm +++ c:\Perl\lib\fields.pm +++ c:\Perl\lib\integer.pm +++ c:\Perl\lib\re.pm +++ c:\Perl\lib\strict.pm +++ c:\Perl\lib\vars.pm +++ c:\Perl\lib\warnings.pm +++ c:\Perl\lib\warnings\register.pm +++ perl58.dll (C:\Perl\bin\perl58.dll) Please run `perlapp --help DIAGNOSTICS` for more information about the generated error and warning messages. Created 'rip_win2k.exe' ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Unsure How To Automate
Hi Discussion Group, I'd like the program that I'm working on to be able to pick up files with a certain extension and process them when they are placed in a given directory, without me having to call the program every time. Does anyone know how to make a program listen for such events?? Any insight would be so helpful, and thanks, Nancy Wingfield ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Unsure How To Automate
Title: RE: Unsure How To Automate You can either: 1) Have a script sit and watch a directory (or list of directories) on a regular basis (every 30 seconds, every 5 minutes, ...) and process files as they come in, or 2) Have a script wait for Filesystem change events using Win32::ChangeNotify. Is this what you are looking for? -Original Message- From: Wingfield, Nancy [mailto:[EMAIL PROTECTED]] Sent: Friday, June 27, 2003 9:31 AM To: '[EMAIL PROTECTED]' Subject: Unsure How To Automate Hi Discussion Group, I'd like the program that I'm working on to be able to pick up files with a certain extension and process them when they are placed in a given directory, without me having to call the program every time. Does anyone know how to make a program listen for such events?? Any insight would be so helpful, and thanks, Nancy Wingfield ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Unsure How To Automate
3) Use Win32::AdvNotify if you can find it Peter Guzis Web Administrator, Sr. ENCAD, Inc. - A Kodak Company email: [EMAIL PROTECTED] www.encad.com -Original Message- From: Messenger, Mark [mailto:[EMAIL PROTECTED] Sent: Friday, June 27, 2003 3:22 PM To: 'Wingfield, Nancy'; '[EMAIL PROTECTED]' Subject: RE: Unsure How To Automate You can either: 1) Have a script sit and watch a directory (or list of directories) on a regular basis (every 30 seconds, every 5 minutes, ...) and process files as they come in, or 2) Have a script wait for Filesystem change events using Win32::ChangeNotify. Is this what you are looking for? -Original Message- From: Wingfield, Nancy [mailto:[EMAIL PROTECTED] Sent: Friday, June 27, 2003 9:31 AM To: '[EMAIL PROTECTED]' Subject: Unsure How To Automate Hi Discussion Group, I'd like the program that I'm working on to be able to pick up files with a certain extension and process them when they are placed in a given directory, without me having to call the program every time. Does anyone know how to make a program listen for such events?? Any insight would be so helpful, and thanks, Nancy Wingfield ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Unsure How To Automate
Peter Guzis wrote: 3) Use Win32::AdvNotify if you can find it Peter Guzis Web Administrator, Sr. ENCAD, Inc. Be careful on this path, since the author is not around any more ( disappeared or at least I have never heard what happened to him). I use it but it is a very static environment and if you have problems there is no source available unless someone has it and then I would love to get a hold of it. So be warned of this path. Wags ;) ** This message contains information that is confidential and proprietary to FedEx Freight or its affiliates. It is intended only for the recipient named and for the express purpose(s) described therein. Any other use is prohibited. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Unsure How To Automate
I would love to have the source as well. Win32::ChangeNotify is quite limited by comparison. *sigh* Peter Guzis Web Administrator, Sr. ENCAD, Inc. - A Kodak Company email: [EMAIL PROTECTED] www.encad.com -Original Message- From: Wagner, David --- Senior Programmer Analyst --- WGO [mailto:[EMAIL PROTECTED] Sent: Friday, June 27, 2003 3:40 PM To: Peter Guzis; [EMAIL PROTECTED] Subject: RE: Unsure How To Automate Peter Guzis wrote: 3) Use Win32::AdvNotify if you can find it Peter Guzis Web Administrator, Sr. ENCAD, Inc. Be careful on this path, since the author is not around any more ( disappeared or at least I have never heard what happened to him). I use it but it is a very static environment and if you have problems there is no source available unless someone has it and then I would love to get a hold of it. So be warned of this path. Wags ;) ** This message contains information that is confidential and proprietary to FedEx Freight or its affiliates. It is intended only for the recipient named and for the express purpose(s) described therein. Any other use is prohibited. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Unix
Many way to do this...depends on how much time you want to spend on it. Here is a
quick and dirty example that works:
ps -ef | awk '{print $1 $2} | grep your_UID | awk '{print $2}' | xargs -i -l kill
Cheers,
Dominic
-Original Message-
From: Krishna, Hari [mailto:[EMAIL PROTECTED]
Sent: Friday, June 27, 2003 12:07 PM
To: [EMAIL PROTECTED]
Subject: OT:Unix
Friends,
I think its hightime for me to subscribe to a Unix group. If
you guys know
any, please let me know.
...
I have several scripts running in the back ground and I used
nohup command
Every 90 days, I am needing to kill those commands and
restart the process
again (ie. nohup command ). This is for some clean up.
How can kill those processes from a script program because I
have so many
commands(each run a script file). Once I kill those commands,
I want to
restart the nohup command to run the processes in the
background. How can I
do this in the form of a script program or perl program(if any)?
Like a script program for nohup would be like...
#! /usr/bin/sh
nohup command1
nohup command2
nohup command3
.
.
.
.
.
and to kill the processes would be like
#! /usr/bin/sh
kill command1
kill command2
kill command3
.
.
.
.
can you guys please help me with this?
I will keep my thinking open meanwhile. The only idea I got
so far is this..
ps -ef | awk '{print $1}' which prints all the users running
the processes.
So if I could capture my ID, then I should be able to kill my
ID. But I
don't know if I can kill based on UID ratherthan PID once I
figure out how
to get my ID.
Any kind of input/ideas is highly appreciated.
Thanks guys.
Regards,
Hari.
CONFIDENTIALITY NOTICE:
This e-mail message, including all attachments, is for the
sole use of the
intended recipient(s) and may contain confidential and privileged
information. You may NOT use, disclose, copy or disseminate this
information. If you are not the intended recipient, please
contact the
sender by reply e-mail immediately. Please destroy all copies of the
original message and all attachments. Your cooperation is greatly
appreciated.
Columbus Regional Hospital
2400 East 17th Street
Columbus, Indiana 47201
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
