Can't call method getline on an undefined value at cpucsv.pl line 10.
Simon Oliver [EMAIL PROTECTED] 11/21/01 07:12AM
Mike Singleton wrote:
Anyone have a clue how to accomplish this?? I have a CSV file (from perfmon output)
and I need to create an array from that file to feed
Anyone have a clue how to accomplish this?? I have a CSV file (from perfmon output)
and I need to create an array from that file to feed into JPGraph for graph
generation I have looked all over and the answer I keep getting is fget for PHP.
Can Perl do this in a simpler manner? I could us
Someone once posted a perl script that checked for updates on the Cisco (with the
login and password commented out, of course!)
===
Mike Singleton CCNA, CNE, MCSE
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc
;
@line=QUOTEFILE;
close (QUOTEFILE);
srand;
$array = $line[int rand(@line)];
@quote = split (/\|/, $array);
Win32::MsgBox($quote[0], 1, $Title);
===
Mike Singleton CCNA, CNE, MCSE
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc
--compilation aborted at showusers.pl line 21.
===
Mike Singleton CCNA, CNE, MCSE
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http
= fac590
1.3.6.1.4.1.9.10.19.1.3.1.1.3.97475922.0 = fac172
1.3.6.1.4.1.9.10.19.1.3.1.1.3.97498052.0 = fac402
1.3.6.1.4.1.9.10.19.1.3.1.1.3.97904146.0 = fac625
1.3.6.1.4.1.9.10.19.1.3.1.1.3.98010825.0 = fac594
===
Mike Singleton CCNA, CNE, MCSE
Network Analyst
(253) 272-1916 x1259
(253
===
Mike Singleton CCNA, CNE, MCSE
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
failed. Also I would like a text file of errors/ missed files
with job name+date time for the file name attached is the raw log
file.
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
3CE31D6D.zip
Description: Zip compressed
This is a snippet I have a question about. Is this Unix specific...and
if it is, si there a Win32 equivalent?
use GetOpt::Std;
..( other code here)...
getopts('hn:p:o:s:') or die $HELP;
($Getopt::Std::opt_h) and die $HELP;
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253
. Directory structure
is:
-root
--backex
--bin
--logs
=Script==
#
==
#
# Perl Source File -- Created with SAPIEN Technologies
PrimalSCRIPT(TM)
#
# NAME: jobreport
#
# AUTHOR: Mike Singleton , Davita Inc
# DATE : 7/3/2002
#
==
#
# Perl Source File -- Created with SAPIEN Technologies
PrimalSCRIPT(TM)
#
# NAME: jobreport
#
# AUTHOR: Mike Singleton , Davita Inc
# DATE : 7/3/2002
#
# PURPOSE: SyncSort Reporting
finished processing at 07/17/2002 06:36:02 ---
end output
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http
~ ^
.
End Code
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com
-Original Message-
From: Mike Singleton [SMTP:[EMAIL PROTECTED]]
Sent: Friday, August 30, 2002 3:14 PM
To: [EMAIL PROTECTED]
Subject:eventlog script help
Error:Name main::Eventype used only once: possible typo at H:\perl
scripts\wmitimed.pl
1024365603 ***
=== End Text String ===
Sample code (which doesn't seem to work)
# ERROR - global symbol $str requires explicit package
use strict;
while() {
$str =~ s/\s/,/g;
($keep) = $str =~ /(\w{3} \w{3} .*)/;
print;
}
= end script
===
Mike Singleton
Network
OUTF $OUT_TEMP; # This line seems to make no difference
close OUTF;
open (OUTF,$OUT_TEMP) || die Cannot open file for read, $!;
while (OUTF) {
... code blah blah blah
write;
};
}
exit 0;
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita
script begins?
Phil Morley
|-+---
| | Mike Singleton|
| | [EMAIL PROTECTED]|
| | Sent by:|
| | [EMAIL
commas)
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
/perl
###
#
# Copyright (C) 1998 by Syncsort, Inc.
# All Rights Reserved.
# Revision 1.0 Original version RAM
# 1.1 Added volser and partition number RAM
# 1.2 Ported to NT by Mike Singleton
Using the following code, how would I write it's output to a single csv file??
=== Start===
use strict;
my @files = glob('3*.log');
while (@files) {
my @f = split /\s+/, $_, 9;
print join ',', @f;
}
__END__
End Code
DaVita Inc.
(@files) {
my @files = split /\s+/, $_, 9;
print join ',', @files;
}
}
End =
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin mailing list
What am I fumbling here??
Errror: Bareword 'OUTFILE' not allowed while strict subs in use.
== Start ==
#! perl -w
use strict;
my @files = glob('3D21*.log');
fopen(OUTFILE,myfile.csv);
while(@files){
my @f = split /s+/,$_,9;
print OUTFILE join(',',@f).\n;
}
=== End ==
===
Mike Singleton
Your right, 'open' works just fine. However, the output is just the list of files from
files... not the parsed output. I must be on the wrong track, sorry...
== start ===
#! perl -w
use strict;
my files = glob('3D21*.log');
open(OUTFILE,myfile.csv);
while(files){
my f = split /s+/,$_,9;
= @files;
while () {
print OUTF if /$JOBSTART/ ||
/$CONDSTART/ ||
/$JOBEND/||
/$CONDEND/ ||
/$JOBCANC/ ||
/$XFER/ ||
/$VOLUSED/;
}
close (OUTF);
===
Mike Singleton
Network
+/,$_,9;
print parsing $_\n;
if ( /$JOBSTART|$CONDSTART|$JOBEND|$CONDEND|$JOBCANC|$XFER|$VOLUSED/i
)
{
print OUT join (',', @f) . \n;
} else {
print skipped: '$_';
}
}
close IN;
close OUT;
}
===end===
===
Mike Singleton
Network Analyst
(253
output===
Fri,Jun 14,19:20:12,2002,414636.4,313,1324.7
Fri,Jun 14 19:20:13,2002,- Task 4 (node SEA-REGWEB2, disk WIN2KSYS:) of job
1024106405 starts -
Fri,Jun 14,19:24:03,2002, - Done task 4 of job 1024106405 -
==end==
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253
join (',', @f[2..$#f]) ;
--- What does this line (above) do? I know it removes the first two fields?
} else {
print skipped: '$_'\n;
}
}
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc
sending you the list you
wanted., file = 'myfile.csv'});
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http
Can anyone point me in the right direction as to how monitor new files
created in a directory? Thanks.
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin mailing list
How would I go about identifying and selecting the most recent file (based on creation
date?) in a directory??
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin
Any know of a way obtain this test or a perl equivalent?? Basically a way of testing
FTP servers and the max number of connections and throughput.
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc
the user access the web page to view the data.
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http
I know that Perl can programmatically manipulate Win32 service
(start,stop,resume,etc.) but is the a way to change the user/password
the service(s) run under? Thanks.
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc
Any ever written a project that will schedule x number of employees
rotating a 4 day (10 hour) work week, allowing that there is always one
person onsite from 5am - 6pm? :)
Just wondering... maybe Excel might be better?
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968
to use the email
portions of this, just comment out the lines that refer to the pager
stuff. I've indicated these lines by putting a # at the end of them.
=pod OSNAMES
MSWin32
=pod SCRIPT CATEGORIES
Win32
=cut
end script ===
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
{
return [[*Lock Workstation, sub{DoubleClick ()}],
#[],
#[ Exit, exit],
];
}
sub ToolTip { Click to Lock WorkStation}
=== end code===
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc
I have a question for you... how do you run your coverage during off hours? On-call
list or rotations perhaps, but I was just wondering how it actual pans out... are you
required to respond in X number of minutes?? Do the monitoring tools filter out minor
alarms?? thanks
DaVita Inc.
Any suggestions for performing the following?
1. Enumerate all domain members (NT not AD)
2. Read all values in HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon
3. Record all these values (CSV or text)
DaVita Inc.
___
Perl-Win32-Admin
freeware under
the web site www.sysinternals.com.
regards,
John
-Original Message-
From: Mike Singleton [mailto:[EMAIL PROTECTED]
Sent: Wednesday, November 19, 2003 10:49 AM
To: [EMAIL PROTECTED]
Subject: script to query all machine in domain using AutoadminLogon
Any suggestions
39 matches
Mail list logo