Mike Singleton wrote:
> 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 following file comma delimited and strip out everything preceding the date?
>
> === My crack at the script ===
> use strict;
> while(<>) {
> s/\s/,/g;
> s/^.*?(\w{3} \w{3}\s+\d+.*)$/$1/; # modified slightly
> print;
> }
> ===== end ====
>
> === Input Log file ====
> 172.16.54.132 ssjobhnd Tue Sep 03 07:00:03 2002 SNBJH_3075J Syncsort Backup Express
>version 2.1.5; Copyright Syncsort Incorporated, 1996-2002
> 172.16.54.132 ssjobhnd Tue Sep 03 07:00:03 2002 SNBJH_3072J Waiting for active jobs
>to finish ...
> 172.16.54.132 ssjobhnd Tue Sep 03 10:19:05 2002 SNBJH_3203J ===== New Job SAN99 (job
>ID 1031061600) (job type backup_catalog) starts =====
> 172.16.54.132 ssjobhnd Tue Sep 03 10:19:09 2002 SNBJH_3462J --- Building file list
>for node Mstrbkp disk D: of job 1031061600 ---
> 172.16.54.132 ssjobhnd Tue Sep 03 10:19:10 2002 SNBJH_3463J --- Finished building
>file list for node Mstrbkp disk D: of job 1031061600 ---
> 172.16.54.132 ssjobhnd Tue Sep 03 10:19:14 2002 SNBJH_3295J ----- Task 1 (node
>Mstrbkp, disk D: volume \\?\Volume{4fb04551-9392-11d6-b743-00508b6f0fed}\ ) of job
>1031061600 starts -----
> 172.16.54.132 sstptmm Tue Sep 03 10:19:14 2002 SNBTMM5462O Attempting mount for
>node(sea-mstrbkp) drive(Drive0_001) volser(SBA957)
> 172.16.54.132 sstptmm Tue Sep 03 10:21:35 2002 SNBTMM5461O Node(sea-mstrbkp)
>drive(Drive0_001) volser(SBA957) partition(1) mount rc=(0)
> 172.16.54.132 ssjobhnd Tue Sep 03 10:45:59 2002 SNBJH_3260J ----- Done task 1 of job
>1031061600 -----
> 172.16.54.132 ssjobhnd Tue Sep 03 10:45:59 2002 SNBJH_3710J Task 1: KB transferred
>14386590.0 Task time 1464 s. Throughput 9826.9 KB/s
> 172.16.54.132 ssjobhnd Tue Sep 03 10:46:02 2002 SNBJH_3468J --- Starting verify for
>device Drive0_001 in job 1031061600 ---
> 172.16.54.132 sstptmm Tue Sep 03 10:46:59 2002 SNBTMM5471I Node(sea-mstrbkp)
>drive(Drive0_001) volser(SBA957) partition(1) position rc=(0)
> 172.16.54.132 ssjobhnd Tue Sep 03 11:22:50 2002 SNBJH_3469J --- Finished verify for
>device Drive0_001 in job 1031061600 ---
> 172.16.54.132 ssdmtape Tue Sep 03 11:22:50 2002 SNBDBR0494I 1924: dm_get_keyword:
>Possible EOF on socket 5.
> 172.16.54.132 ssjobhnd Tue Sep 03 11:22:50 2002 SNBJH_3259J ===== Done tape [SBA957]
>of job 1031061600: 465233 blocks [15244754944 bytes] rc=0 (no error) =====
> 172.16.54.132 ssdmtape Tue Sep 03 11:22:50 2002 SNBDBR0494I 1924: dm_get_keyword:
>Possible EOF on socket 4.
> 172.16.54.132 ssjobhnd Tue Sep 03 11:22:50 2002 SNBJH_3269J --- Cataloging job
>1031061600 ---
> 172.16.54.132 ssjobhnd Tue Sep 03 11:22:51 2002 SNBJH_3527J --- Finished cataloging
>job 1031061600 ---
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3211J ===== Done Job
>1031061600 (run time 3825 sec) [total 14731868206 bytes] =====
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3300J
>----------------------------------------
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3301J Job Report for job SAN99
>(job ID 1031061600):
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3302J Tasks completed:
> 1
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3304J Files backed up:
> 690
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3311J Total data backed
>up: 14386590 KB
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3313J Total data on tape:
> 14887456 KB
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3308J Task 1 (node Mstrbkp
>disk D:) completed.
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3320J Volser SBA957
>Partition 1
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3304J Files backed up:
> 690
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3330J Volsers used:
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3332J SBA957
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3300J
>----------------------------------------
> 172.16.54.132 ssjobhnd Tue Sep 03 11:24:23 2002 SNBJH_3499I Job complete: job
>1031061600 status 0
> 172.16.54.132 sssched Tue Sep 03 11:24:23 2002 SNBRTM5654I Job status: Completed(0),
>job flags: (0), task flags: (0), sched_id: 1031061600
> ==== end input log file ===
>
> === begin my script result ===
>
>
>172.16.54.132,ssjobhnd,Tue,Sep,03,07:30:03,2002,SNBJH_3075J,Syncsort,Backup,Express,version,2.1.5;,Copyright,Syncsort,Incorporated,,1996-2002,172.16.54.132,ssjobhnd,Tue,Sep,03,07:30:03,2002,SNBJH_3072J,Waiting,for,active,jobs,to,finish,...,172.16.54.132,ssjobhnd,Tue,Sep,03,11:24:23,2002,SNBJH_3403J,=====,Start,Condense,Job,CONDENSE,(Job,ID,1031063400),=====,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:23,2002,SNBCON2405J,Condense,database,table,'ssadmin.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:23,2002,SNBCON2416J,Total,2,records,stay,,and,0,records,removed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2406J,Condense,database,table,'ssadmin.db',completed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2405J,Condense,database,table,'ssdev.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2416J,Total,56,records,stay,,and,0,records,removed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2406J,Condense,database,table,'ssdev.db',completed,17
2.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2405J,Condense,database,table,'ssdpool.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2416J,Total,1,records,stay,,and,0,records,removed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2406J,Condense,database,table,'ssdpool.db',completed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2405J,Condense,database,table,'ssjob.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2416J,Total,50,records,stay,,and,9,records,removed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2406J,Condense,database,table,'ssjob.db',completed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2405J,Condense,database,table,'ssjobdef.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2416J,Total,50,records,stay,,and,9,records,removed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2406J,Condense,database,table,'ssjobdef.db',completed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SN
BCON2405J,Condense,database,table,'sspref.db',start,172.16.54.132,ssdat
>
>records,stay,,and,0,records,removed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2406J,Condense,database,table,'sspref.db',completed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2405J,Condense,database,table,'ssres.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2416J,Total,0,records,stay,,and,0,records,removed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2406J,Condense,database,table,'ssres.db',completed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2405J,Condense,database,table,'ssseldir.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2416J,Total,160,records,stay,,and,30,records,removed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2406J,Condense,database,table,'ssseldir.db',completed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2405J,Condense,database,table,'sstpool.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:24,2002,SNBCON2416J,Total,2,records,stay,,and,0,records,removed,172.16.54
.132,ssdatmgr,Tue,Sep,03,11:24:25,2002,SNBCON2406J,Condense,database,table,'sstpool.db',completed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:25,2002,SNBCON2405J,Condense,database,table,'ssckpt.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:25,2002,SNBCON2416J,Total,237,records,stay,,and,165,records,removed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:25,2002,SNBCON2406J,Condense,database,table,'ssckpt.db',completed,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:25,2002,SNBCON2405J,Condense,database,table,'sscat.db',start,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:27,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=11,,rec=1104,,node=SEA-PO0001,,disk=VOL1:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:27,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=10,,rec=1105,,node=SEA-PO0001,,disk=SYS:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:27,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=9,,rec=1106,,node=SEA-PO0001,,disk=BINDERY/NDS:,,job
=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:34,2002,SNBCON2660J,Cata
>
>36,,taskid=5,,rec=2251,,node=FAC-PO0001,,disk=SYS:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:34,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=6,,rec=2252,,node=FAC-PO0001,,disk=VOL1:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:44,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=7,,rec=3105,,node=FAC-PO0002,,disk=SYS:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:45,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=8,,rec=3106,,node=FAC-PO0002,,disk=VOL1:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:50,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=13,,rec=3449,,node=SEA-PO0002,,disk=VOL1:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:50,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=12,,rec=3450,,node=SEA-PO0002,,disk=SYS:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:24:56,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=9,,rec=3922,,node=FAC-PO0003,
,disk=BINDERY/NDS:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:05,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=2,,rec=4445,,node=FAC-GS0001,,disk=SYS:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:05,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=1,,rec=4446,,node=FAC-GS0001,,disk=BINDERY/NDS:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:12,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=4,,rec=4767,,node=FAC-GS0002,,disk=SYS:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:12,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=3,,rec=4768,,node=FAC-GS0002,,disk=BINDERY/NDS:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:20,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=2,,rec=5093,,node=SEA-GS0001,,disk=SYS:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:20,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=1,,rec=5094,,node=SEA-GS0001,,disk=BINDERY/NDS:,,job=
SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:29,2002,SNBCON2660J,Catal
>
>SEA-GS0002,,disk=SYS:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:29,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=3,,rec=5418,,node=SEA-GS0002,,disk=BINDERY/NDS:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:43,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=6,,rec=6003,,node=SEA-GS0003,,disk=SYS:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:43,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=5,,rec=6004,,node=SEA-GS0003,,disk=BINDERY/NDS:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:53,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=8,,rec=6324,,node=SEA-GS0006,,disk=SYS:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:25:53,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=7,,rec=6325,,node=SEA-GS0006,,disk=BINDERY/NDS:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:28:19,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=14,,rec=10952,,node=FAC-PO0004,,disk=VO
L1:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:28:19,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=13,,rec=10953,,node=FAC-PO0004,,disk=SYS:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:28:19,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809536,,taskid=12,,rec=10954,,node=FAC-PO0004,,disk=BINDERY/NDS:,,job=SAN05,172.16.54.132,ssdatmgr,Tue,Sep,03,11:28:25,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=15,,rec=11078,,node=SEA-PO0003,,disk=VOL1:,,job=SAN02,172.16.54.132,ssdatmgr,Tue,Sep,03,11:28:25,2002,SNBCON2660J,Catalog,rec,expired:,jobid=1029809512,,taskid=14,,rec=11079,,node=SEA-PO0003,,disk=SYS:,,job=SAN02,
>
> === end my script result (notice multiple commas)====
Try this - it also keeps the last field intact:
use strict;
while (<>) {
my @f = split /\s+/, $_, 9;
print join ',', @f;
}
__END__
--
,-/- __ _ _ $Bill Luebkert ICQ=162126130
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl)
-/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
