<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal>I just wrote the code below and was wondering how I could
make a inner loop A LOT simpler.<o:p></o:p></p>
<p class=MsoNormal>I would appreciate any suggestions.<o:p></o:p></p>
<p class=MsoNormal>Basically the code works like this:<o:p></o:p></p>
<p class=MsoNormal>Given an arbitrary string, that string contains a single
identifier (in this case “bcd=”) followed by a numeric value.<o:p></o:p></p>
<p class=MsoNormal>I would like to pull out the identifier and the value so the
resulting display is (for example):<o:p></o:p></p>
<p class=MsoNormal>bcd=7<o:p></o:p></p>
<p class=MsoNormal>bcd=88<o:p></o:p></p>
<p class=MsoNormal>bcd=999<o:p></o:p></p>
<p class=MsoNormal>bcd=1000<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Neil Heller<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>#! usr/bin/perl<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>use warnings;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>use strict;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>my $counter = 0;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>my $theline =
"vvvbcd=7wwwbcd=88xxxbcd=999yyybcd=1000zzz";<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>my $TARGETSTR =
"bcd=";<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>my $spot = 0;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>my $done = 0;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>my $fragment;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>my ($inner_done,
$inner_char, $inner_count);<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>my $NUMERIC =
"0123456789";<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>while (!$done) {<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$spot = index $theline, $TARGETSTR;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
if ($spot == -1) {<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$done = 1;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'> }
else {<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$fragment = substr $theline, $spot;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
print $TARGETSTR;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$inner_done = 0;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$inner_count = 4;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
while (!$inner_done) {<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$inner_char = substr $fragment, $inner_count, 1;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
if ((index $NUMERIC, $inner_char) > -1) {<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
print $inner_char;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$inner_count++;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
} else {<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$inner_done = 1;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
}<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
}<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
print "\n";<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$fragment = substr $fragment, 5;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>
$theline = $fragment;<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'> }<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-family:"Courier New"'>}<o:p></o:p></span></p>
</div>
</body>
</html>