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.
In reply to Re: Array Problem
by hopes
in thread Array Problem
by dru145
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |