[Chicago-talk] Please allow me to introduce myself
Andy_Bach at wiwb.uscourts.gov
Andy_Bach at wiwb.uscourts.gov
Thu Mar 18 15:56:14 CST 2004
How about:
my ($name, $birthDate, $birthPlace, $bust,
$waist, $hips, $height, $weight)
= split(/ /, " Unknown " x 8);
$name = $1 if
$con =~ /.*?<span class="name">(.*?)<\/span>.*?/is;
$birthDate = $1 if
$con =~ /.*?<p><b>BIRTHDATE:<\/b>(.*?)<\/p>.*?/is;
$birthPlace = $1 if
$con =~ /.*?<p><b>BIRTHPLACE:<\/b>(.*?)<\/p>.*?/is;
$bust = $1 if
$con =~ /.*?<p><b>BUST:<\/b>(.*?)<\/p>.*?/is;
$waist = $1 if
$con =~ /.*?<p><b>WAIST:<\/b>(.*?)<\/p>.*?/is;
$hips = $1 if
$con =~ /.*?<p><b>HIPS:<\/b>(.*?)<\/p>.*?/is;
$height = $1 if
$con =~ /.*?<p><b>HEIGHT:<\/b>(.*?)<\/p>.*?/is;
$weight = $1 if
$con =~ /.*?<p><b>WEIGHT:<\/b>(.*?)<\/p>.*?/is;
$weight = " " . $weight;
a
Andy Bach, Sys. Mangler
Internet: andy_bach at wiwb.uscourts.gov
VOICE: (608) 261-5738 FAX 264-5030
"Civilization advances by extending the number of important operations
&which we can perform without thinking." Alfred North Whitehead
More information about the Chicago-talk
mailing list