for ($i=0;$i<=$SIZE;$i++) {
$_=$LINES[$i];
if (...........
need to know how to ask if a line contains <!--addsearch--> AND more than two " speech quotes
Hope you can help
Marko
markoPerl
0
Newbie Poster
Recommended Answers
Jump to PostHere you go...
use strict; use warnings; my @array=<DATA>; my $x; for (@array){ chomp; $x++; if(/\<\!\-\-addsearch\-\-\>/){ my @hold; my $count=(@hold)=$_=~/\"/g; if($count>=2){ print "yep line # $x: $_\n"; } } } __DATA__ <html> <body> a line <br> another" with one quote <!--addsearch--> yet one more "and another" <!--addsearch--> …
All 2 Replies
mitchems
12
Posting Whiz in Training
Here you go...
use strict;
use warnings;
my @array=<DATA>;
my $x;
for (@array){
chomp;
$x++;
if(/\<\!\-\-addsearch\-\-\>/){
my @hold;
my $count=(@hold)=$_=~/\"/g;
if($count>=2){
print "yep line # $x: $_\n";
}
}
}
__DATA__
<html>
<body>
a line <br>
another" with one quote <!--addsearch-->
yet one more
"and another" <!--addsearch-->
not this one
<!--addsearch--> "hi"
</body>
</html>
mitchems
12
Posting Whiz in Training
just noticed that lines 9 & 10 can be replaced with:
my $count=()=$_=~/\"/g;and not use the hold array. Gotta love perl
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.