Perl calling Profile

2004-06-07 Thread Anthony J Segelhorst
/.kshrc Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-495-1876 Email: [EMAIL PROTECTED] This email has been scanned for all viruses by the MessageLabs SkyScan service

Re: hour -1 routine

2004-05-28 Thread Anthony J Segelhorst
"Wiggins d Anconia" <[EMAIL PROTECTED]> wrote on 05/28/2004 12:37:56 PM: > > > > I am trying to set up a script that will do the do a current time -1 > > routine. > > > > Examples: > > > > Current Time: > > mmddyy:hhss > > 052804:1030 > > > > Output: > > 052804:0930 > > > > > > Current Tim

hour -1 routine

2004-05-28 Thread Anthony J Segelhorst
. Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-495-1876 Email: [EMAIL PROTECTED] This email has been scanned for all viruses by the MessageLabs SkyScan service

Pause/Hold in Perl

2004-03-30 Thread Anthony J Segelhorst
Is there a way in Perl to have a script wait 30 seconds before it continues processing? Like or a pause or hold? Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-495-1876 Email: [EMAIL PROTECTED] This

Port Status Command in Perl

2004-03-22 Thread Anthony J Segelhorst
Is there a perl call to tell if a port is open or closed built into Perl? I am basically trying to build a perl script to monitor ports on Windows Servers and I am trying to stay away from system commands. Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-495-1876 Email

Re: array push

2004-01-26 Thread Anthony J Segelhorst
>For Quality purposes, Anthony J Segelhorst 's mail on Monday 26 January 2004 >17:17 may have been monitored or recorded as: > How come when I push a variable to an array it puts one whitespace before > the variables on all the lines except the first one?  I would except all &

array push

2004-01-26 Thread Anthony J Segelhorst
){ $last = "$tmrname,$gateway_hash{$gateway},$version,$interp,$type\n"; #print "$last"; push(@temparray, $last); } @temparray = sort @temparray; print "@temparray"; Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-49

Re: counters for lines

2004-01-20 Thread Anthony J Segelhorst
James Edward Gray II <[EMAIL PROTECTED]> 01/20/2004 02:11 PM To: "Anthony J Segelhorst" <[EMAIL PROTECTED]> cc: [EMAIL PROTECTED] Subject:Re: counters for lines On Jan 20, 2004, at 12:39 PM, Anthony J Segelhorst wrote: > I

counters for lines

2004-01-20 Thread Anthony J Segelhorst
counter to count the lines until a different line shows up. I already have the list sorted, so I just need to compare the new string to old string and if they are the same increase the counter, and if they are different start a new counter. Anthony J Segelhorst Enterprise Systems Management Team

Re: Wrapping Unix Command into Perl

2003-12-12 Thread Anthony J Segelhorst
Anthony J Segelhorst <[EMAIL PROTECTED]> wrote: > I am trying to wrap the following Unix command into perl and having a few > issues: > > find /var/spool/Tivoli/backups -name "DB_*" -mtime +10 -print -exec ls {} \; > > > I have tried (and nothing to se

Wrapping Unix Command into Perl

2003-12-12 Thread Anthony J Segelhorst
+10 -print -exec ls {} \;`; system `find /var/spool/Tivoli/backups -name "DB_*" -mtime +10 -print -exec ls {} \;` !system `find /var/spool/Tivoli/backups -name "DB_*" -mtime +10 -print -exec ls {} \;`; Anthony J Segelhorst Enterprise Systems Management Team Pho

Re: Opening a new shell

2003-10-28 Thread Anthony J Segelhorst
Anthony, Mark. Please bottom-post so that people can understand the conversation. Thanks. Anthony J Segelhorst wrote: > > Mark wrote: > > > > Anthony J Segelhorst wrote: > > > > > I am strapped for time on the run time on a perl script I > > > have been

RE: Opening a new shell

2003-10-28 Thread Anthony J Segelhorst
fork though. Does anyone have any examples? Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-495-1876 Email: [EMAIL PROTECTED] <[EMAIL PROTECTED]> 10/28/2003 03:44 AM To: <[EMAIL PROTECTED]> cc: <[EMAIL PROTECTED]>,

Opening a new shell

2003-10-27 Thread Anthony J Segelhorst
is done running. Is there a way to run script B within another shell or process? `c:\temp\scripta.pl`; Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-495-1876 Email: [EMAIL PROTECTED] This email has

Adding Double Quotes to variable

2003-10-25 Thread Anthony J Segelhorst
I currently have a variable called $servicename. Example: SNMP Service = $servicename How can add double qoutes around "SNMP Service" to the variable $servicename? I have tried $doubleqoutes_servicename = "$servicename"; This does not work though. Any ideas?

standard out returns "nothing", how do I print?

2003-10-08 Thread Anthony J Segelhorst
get the following logic to work? I basically need to do a print if nothing is returned, this is where I am lost. if ($name == ""){ print LOGFILE "The process named $process is not running\n"; print "WinProcess-$severity-$proc

Regular Expression Problems

2003-09-15 Thread Anthony J Segelhorst
the word error as long as there are no characters before or after the word error? Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-495-1876 Email: [EMAIL PROTECTED] This email has been scanned for all

Perl script checks for a file

2003-09-05 Thread Anthony J Segelhorst
Does anyone already have a perl script that checks to see if a file exists or not a Windows Platform? Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-495-1876 Email: [EMAIL PROTECTED] This email has

Killing a windows process using Perl

2003-09-02 Thread Anthony J Segelhorst
ve a script that does something very similar to what I am wanting to do. Anthony J Segelhorst Enterprise Systems Management Team Phone: 937-495-1876 Email: [EMAIL PROTECTED] This email has been scanned for

filling an array

2003-08-26 Thread Anthony J Segelhorst
L to start build my array. Anthony J Segelhorst Enterprise Systems Management Team Email: [EMAIL PROTECTED] This email has been scanned for all viruses by the MessageLabs SkyScan service.___