-- Created with SAPIEN Technologies PrimalSCRIPT(TM)
#
# NAME: jobreport
#
# AUTHOR: Mike Singleton , Davita Inc
# DATE : 7/3/2002
#
# PURPOSE: SyncSort Reporting
> foo.pl 3*.log | more
>
> see if it gives what you want. if it does, simply add your other
> reg.(like SNBJH_3403,SNBJH_3211J) to the above next unless(..) line to
> capture more lines as you intend.
>
> of course, you will want to add the fancy format you have in your original
&
To keep this simple.
On the text string I would like to:
1. replace all spaces with commas
2. strip all information before the date
=== Text string
172.16.54.132 ssjobhnd Sun Jun 16 10:40:10 2002 SNBJH_3710J Task 1: KB
transferred 8124972.2 Task time 830 s. Throughput 9789.1 KB/s
=== End
Name "Getopt::Std::opt_h" used only once: possible typo.
=== Partial Script ==
use strict;
use English;
use Getopt::Std;
use Cwd;
my $RPTFILE="jobrpt.tmp";
getopts('hn:p:o:s:') or die ;
($Getopt::Std::opt_h) and die;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mai
topt that way do
> this:
> see inline
>
>
> > -Original Message-
> > From: Mike Singleton [mailto:[EMAIL PROTECTED]]
> > Sent: Friday, September 06, 2002 11:17 AM
> > To: [EMAIL PROTECTED]
> > Subject: stumped on error...
> >
> >
> > Name
How would I remove all the space and replace them with commas, but where
there is more than one space in a row, only replace those with one comma? In
other words make the follwing file comma delimited and strip out everything
preceding the date?
=== My crack at the script ===
use strict;
while(
.
# 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
#
###
# : syncrpt..pl
#
# :
#
my $HELP="
:
This script mu
=> -2
);
=== End===
"Steve Grazzini" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Janek Schleicher <[EMAIL PROTECTED]> wrote:
> > Mike Singleton wrote at Mon, 09 Sep 2002 19:19:22 +0200:
>
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 ==
--
To unsu
AIL => -1
JOBCANC => -2
);
=== End===
"Steve Grazzini" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Janek Schleicher <[EMAIL PROTECTED]> wrote:
> > Mike Singleton wrote at Mon, 09 Sep 2002 19:19:22 +0
I am doing something awry here, the first part of the script doesn't seem to
replace all the spaces with commas and strip everything before the date
my @files = glob('3D2*.log');
my @f = split /s+/,$_,9;
print OUTF join(',',@f)."\n";
close (OUTF);
open(OUTF,">myfile.csv");
local @ARGV =
The output file (myfile.csv) is blank... any ideas out there? Thanks!
=== Start===
use strict;
my $JOBSTART = 'JOBSTART';
my $CONDSTART = 'CONDSTART';
my $JOBEND = 'JOBEND';
my $CONDEND = 'CONDEND';
my $JOBCANC = 'JOBCANC';
my $XFER = 'XFER';
my $VOLUSED = 'VOLUSED';
opendir DIR, '.' or die "ope
Does this script only output on the condition that ALL the variables after
the 'if' are met??
== Start ===
use strict;
my $JOBSTART = 'SNBJH_3203J';
my $CONDSTART = 'CONDSTART';
my $JOBEND = 'SNBJH_3211J';
my $CONDEND = 'SNBJH_3045E';
my $JOBCANC = 'SNBJH_3258J';
my $XFER = 'SNBJH_3710J';
my $VOL
Is there a reference URL someone can point me to that would explain the rudiments of
simple file copy and compare using Perl under NT/2000 ??
===
Mike Singleton CCNA, CNE, MCSE
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
Where may I find some Perl snippets to calculate the response times on a MSSQL
server... not using ping, but actual simple SQL queries??
===
Mike Singleton CCNA, CNE, MCSE
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
What resources can I look at to start writing a password generator from a complete
newbie level of knowledge??
===
Mike Singleton CCNA, CNE, MCSE
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
peration and overwrites the content with the
# non-binary content then closes the file
open(OUTFILE, ">$outfile") || die "Can't open $outfile";
print OUTFILE (@message);
close OUTFILE;
# Emails the content of the file to the predefined recipients.
# Make a pretty subject line
** Reply Requested by 10/20/2001 (Saturday) **
I have mirrored CPAN on my local ftp server... how would I congifure the shell in CPAN
to look at this new repository. We are behind a firewall at work and only some
manchines can get out to the Internet, so I just mirrored it locally.
===
Mike
How to I point the Perl CPAN shell to a local respository to search and install
modules?
===
Mike Singleton CCNA, CNE, MCSE
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e
19 matches
Mail list logo