
Perl-Sensitive Sunglasses
	PerlMonks

Re: coloring patterns of an array

by Samy_rio (Vicar)

on Feb 05, 2007 at 00:51 UTC ( [id://598257]=note: print w/replies, xml )

Need Help??

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

in reply to coloring patterns of an array

Hi Tony1, try like this

use strict;
use warnings;

my $str = 'mASVKSSSSSSSSSFISLLLLILLVIVLQSQVIECQPQQSCTASLTGLNVCAPFLVPGS
+PTASTECCNAVQSINHDCMCNTMRIAAQIPAQCNLPPLSCSANSSS';
$str =~ s/(.{10})/$1 /g;
$str =~ s/(S{3,})/<font color=red>$1<\/font>/g;
$str =~ s/<\/font> <font color=red>/ /g;

print $str;
__END__
Output is:
----------
mASVK<font color=red>SSSSS SSSS</font>FISLLL LILLVIVLQS QVIECQPQQS CTA
+SLTGLNV CAPFLVPGSP TASTECCNAV QSINHDCMCN TMRIAAQIPA QCNLPPLSCS AN<fon
+t color=red>SSS</font>
[download]

Look into this How (Not) To Ask A Question

chargrill++

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Comment on Re: coloring patterns of an array Select or Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://598257]
help

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Notices^?

	• hippo	‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
	• erzuuli	‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.