Search Results

Like this ?

perl -ne 'print if s/<name.*>(.*?)<\/name>/$1/g' file

OR

perl -F'<|>' -nale 'print $F[2] if $F[1] =~ /name/' file

Make a loop to read those files line by line, and check them with that statement. It will find the name.

Do not filter the files with extensions

#!/usr/bin/perl -w
use warnings;
my $source_dir="/home/EDISON/test";
opendir(DIR, $source_dir) or die;
my @allfiles = grep {$_ ne '.' and $_ ne '..'...

$
$ cat f87
subject= /C=US/ST=richardson/L=richmond/O=Corp/OU=ETG/CN=cps.corporg.com/emailAddress=matt.higgins@corporate
.com
subject= /C=US/O=GeoTrust Inc./OU=Domain Validated SSL/CN=GeoTrust DV...

This is a simple example of separating them out to separate files:
#!/usr/bin/perl -w
# Script: get_certs.pl

use strict;
use warnings;

my @a;
my $fh;
my $i;
my $p;
my $fn;

sub...

This looks like it'll work:

Crypt::X509 - search.cpan.org (http://search.cpan.org/~ajung/Crypt-X509-0.51/lib/Crypt/X509.pm)

open(my $myfile, '<', 'property.txt')
or die "Could not open property.txt: $!\n";

while(<$myfile>) {
chomp;
if(my ($var1, $var2) = /(.*?)=(.*)/) {
### do something with $var1 and $var2 ###...

($var1, $var2) = split(/=/, $_)

#!/usr/bin/perl
use strict;
use warnings;

open my ($in_fh), '<', 'infile.xml'
or die "Could not open input file: $!\n";

my %certs;

while(<$in_fh>) {
push ( @{$certs{$2}}, $1) if (my...

Please wrap your exsample in CODE tags!
Is the following what you want?
perl -ne 'print if s|^<certificate FullCert="(.*)"/>|$1|' file.xml