Or a shorter version :-)
###
#!/usr/bin/perl -w
use strict;
use Text::Balanced qw(extract_quotelike extract_multiple);
use Data::Dumper;
my @array = ();
my @strings;
push @strings,extract_multiple(
$_,[sub { extract_quo
One idea
##
#!/usr/bin/perl -w
use strict;
use Text::Balanced qw(extract_quotelike extract_multiple);
use Data::Dumper;
my @array = ();
my @strings;
foreach my $line (@array) {
push @strings,
extract_multiple($
al Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, November 11, 2004 10:07 AM
To: [EMAIL PROTECTED]
Subject: Reg..Regular expression
Hi Frnds,
I need to extract a string from every line of a file which are present
in a array.
The string to be extracted is present
Hi Frnds,
I need to extract a string from every line of a file which are present
in a array.
The string to be extracted is present in between double quotes. I am
using below code and it is not working.
==
foreach $line2 (@objects)
{
chomp($line2); <--- To
