in reply to Array Problem
Hopes#!/usr/bin/perl use strict; my (@certs,@lines); @lines=<DATA>; @certs = grep{/'([-.\w]+)'\s+added/,$_=$1}@lines; #just to check map{print"[$_]\n"}@certs; __DATA__ Sep 12 17:30:02 nt-ca-na CA(Domain-CA): Certificate name 'jsmith.2048' + added to database. Sep 12 20:09:37 nt-ca-na CA(Domain-CA): Certificate name 'ksmith.2048' + not added to database. Sep 12 21:25:30 nt-ca-na CA(Domain-CA): Certificate name 'ssmith.2048' + added to database.
|
|---|