|
Hi! I am not sure how to start to use regex in the following.
2418 23rd, 3/1/cp Storage, $675/mo+Bills, $500/dep, 1500sf,
Great Deal! 806-632-4037 How to pull: 2418 23rd and 3/1/cp and
675 and 806-632-4037? LOWER PRICE Spacious 3/2/2 5742 36th 1700sf, Nice
Neighborhood FP, Appls, $850/mo $400dep 828-1770 How to pull: 3/2/2 and 5742 36th and
850 and 828-1770? Remodeled Kitchen, 3/2/1, Rush Area 4812 12 How to pull: 3/2/1 and 4812 12 St and 850 and 763-7677
786-4862? …………… 4511 52nd, Lg. 3/2/2 Brick, C-H&A, Fresh Paint, 1600+ sf
Great Loc. $850/mo Call 252-6928 2507 41st Cute 2/1/1 Big & spacious $650. First Mark
793-8759 / 789-0477 3709 24th Close to Hospitals & Tech 3-2 CH&A, Fridge,
W/D Included $750 - First Mark 793-8759 FREE RENT - New 3/3/2, 1300sf, Appls. Very Nice. Covered
Patio. 308 N. Roomy 3/2/2, large closets, 2 living areas, skylights, new
carpet, nice kitchen, CHA, 1920sf. 4314 49th $975 793-1712 3/1.5/1 House, 2303 84th, Convenient, Dishwasher, Large 3007 30th for Rent in Tech Terrace 3/2, $1200/mo Available
6/1/06 214-402-4414 I have started with the following: #!/perl use strict; local( *FI, *FO ); my
$DEBUG = 00; my
$DEBUG1 = 01; open( FI, "RH.lst" ) || die "RH.lst
$!\n"; while(<FI>) { chomp; print $_; my $money =~ /\$(\d+)\/mo/; print "\nmoney $1\n"; my $phone =~ /(\d{3})-(\d+)-(\d+)-/; print "\nphone $1 * $2 * $3
*\n"; exit; } close FI; Thanks, Jerry |
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
