n - indicates you are sorting on the field [ that comes after ] 'n' th "," -- sorry
for typo.
-----Original Message-----
From: Jayakumar Rajagopal
Sent: Thursday, April 08, 2004 2:31 PM
To: William Martell; [EMAIL PROTECTED]
Subject: RE: Help with Variable Scope, Regular Expressions
Willam,
You use in your code :
my @alllines;
while ( <FILE> )
{
my $line;
.... all your while loop code..
push @allines, $line;
}
@alllines = sort @alllines;
Within while loop, replace every ' print "..";' with '$line .= sprintf ".. ";'
if you want to sort on fields like date,price etc, you have to use array of hashes or
some other suitable structure.
for the time being You use this in unix prompt:
> your program | sort -t"," +n
n - indicates you are sorrting on the field 'n' th "," .
thanks,
Jay
-----Original Message-----
From: William Martell [mailto:[EMAIL PROTECTED]
Sent: Thursday, April 08, 2004 1:15 PM
To: [EMAIL PROTECTED]
Subject: Help with Variable Scope, Regular Expressions
Hello All.
Thank you for reading my email :)
I am trying to get this code to write the variables in a specific order,
even if they are undefined or blank. I would like each row seperated by
newline. I am running into a problem with the scope of the variable being
limited to the block of code it is in.
Can anyone help.
Here is the code
[code]
#!/perl -w
use strict;
my $directory = "C:/documents and settings/administrator/my documents/";
my $file = "rentals April 6 2004 mesquite";
my $ext = ".txt";
my $outfile = "$file.parse";
open(FILE, "<$directory$file$ext") or die "Can't open $file \n\n$!";
#open(OUT, ">$directory$outfile") or die "Can't open $outfile \n\n$!";
while(<FILE>){
if(m/(\$+\d+)/g) {
my $price = $1;
$price =~ s/^\s+//; #remove leading spaces
$price =~ s/\s+$//; #remove trailing spaces
$price =~ s/(\d)\W(\d\d\d)/$1$2/;
print "\"\nprice: $price\",";
}
if(m/BD:*\s+(\d+)/g) {
my $bd = $1;
$bd =~ s/^\s+//; #remove leading spaces
$bd =~ s/\s+$//; #remove trailing spaces
print "\"beds: $bd\",";
}
if(m/BA:*\s+(\d+)/g) {
my $ba = $1;
$ba =~ s/^\s+//; #remove leading spaces
$ba =~ s/\s+$//; #remove trailing spaces
print "\"baths: $ba\",";
}
if(m/LA:*\s+(\d+)/g) {
my $la = $1;
$la =~ s/^\s+//; #remove leading spaces
$la =~ s/\s+$//; #remove trailing spaces
print "\"la: $la\",";
}
if(m/(\d\d\d-\d\d\d-\d\d\d\d)/g){
my $phone = $1;
print "\"phone: $phone\",";
}
if(m/(\d\w+\W\d\w+\W\d\s+)/g){
my $arrangement = $1;
print "\"arrangement: $arrangement\",";
# print ("\n");
}
if(m/(\w+[\W\s]?\w+[\W\s]?)\s+\W\s+(\w+\s\w+\s\w+\s\w+)\s+\W\s+(\d+\W\d+\W\d
+)/g){
my $location = $1;
my $paper = $2;
my $date = $3;
print "\"location: $location\",";
print "\"paper: $paper\",";
print "\"date: $date\",";
}
if(m/(\d\d\d+\s\w+[\W\s]?\w+)/g){
my $address = $1;
print "\"address: $address\",";
# print "\n";
}
}#end while
[/code]
Here is the result
price: $725","beds: 3","baths: 1","
price: $725","phone: 972-289-2098","location: Mesquite ","paper: The Dallas
Morning News","date: 04/08/2004","
price: $950","beds: 3","baths: 1","
price: $950","phone: 469-525-0204","address: 1620 Summitt","location:
Mesquite ","paper: The Dallas Morning News","date: 04/08/2004","
price: $1100","beds: 4","baths: 2","la: 2","
price: $1100","phone: 214-566-6106","location: Mesquite ","paper: The Dallas
Morning News","date: 04/08/2004","
price: $995","beds: 3","baths: 2","address: 995 mo","
price: $995","arrangement: 11/2ba/1 ","address: 995 mo","location: Mesquite
","paper: The Dallas Morning News","date: 04/08/2004","
price: $850","beds: 3","baths: 1","
price: $850","phone: 972-216-0999","address: 3621 Edgebrook-3bd","location:
Mesquite ","paper: The Dallas Morning News","date: 04/08/2004","
price: $995","beds: 4","baths: 1","
price: $995","phone: 972-303-5134","address: 3528 Statler","location:
Mesquite ","paper: The Dallas Morning News","date: 04/08/2004","beds:
4","baths: 2","phone: 214-356-2120","location: Mesquite ","paper: The Dallas
Morning News","date: 04/08/2004","beds: 3","baths: 1","phone:
214-417-6453","address: 2428 Vickie 214","location: Mesquite ","paper: The
Dallas Morning News","date: 04/08/2004","
price: $1050","beds: 3","baths: 2","arrangement: 3bd/2ba/2 ","
price: $1050","phone: 972-754-0214","location: Mesquite ","paper: The Dallas
Morning News","date: 04/05/2004","
price: $1250","beds: 3","baths: 2","
price: $1250","address: 1617 Colborne","phone: 214-236-8717","location:
Mesquite ","paper: The Dallas Morning News","date: 04/05/2004","beds:
3","baths: 2","phone: 214-478-9139","location: Mesquite ","paper: The Dallas
Morning News","date: 04/05/2004","
price: $895","beds: 3","baths: 2","
price: $895","phone: 972-240-7503","address: 7503 972-226","location:
Mesquite ","paper: The Dallas Morning News","date: 04/04/2004","
price: $750","beds: 3","baths: 1","arrangement: 3bd/1ba/1 ","
price: $750","location: Mesquite ","paper: The Dallas Morning News","date:
04/04/2004","
price: $795","beds: 3","baths: 2","
price: $795","phone: 972-216-4988","location: Mesquite ","paper: The Dallas
Morning News","date: 04/04/2004","
price: $1025","beds: 3","baths: 2","
price: $1025","address: 224 Overland Trail","location: Mesquite ","paper:
The Dallas Morning News","date: 04/04/2004","
price: $995","beds: 3","baths: 2","
price: $995","phone: 972-681-4502","address: 800 dep","location: Mesquite
","paper: The Dallas Morning News","date: 04/04/2004","
price: $975","beds: 3","baths: 2","la: 2","
price: $975","phone: 214-343-4618","address: 1509 Liberty Ln","location:
Mesquite ","paper: The Dallas Morning News","date: 04/04/2004","
price: $925","beds: 3","baths: 2","
price: $925","phone: 972-288-1495","address: 2309 Ithaca","location:
Mesquite ","paper: The Dallas Morning News","date: 04/04/2004","
price: $1150","beds: 3","baths: 2","
price: $1150","phone: 214-827-7777","address: 4109 Aralia","location:
Mesquite ","paper: The Dallas Morning News","date: 04/04/2004","
price: $1150","beds: 3","baths: 1","
price: $1150","phone: 214-755-3922","address: 800 dep sect","location:
Mesquite ","paper: The Dallas Morning News","date: 04/04/2004","
price: $1025","beds: 3","baths: 2","
price: $1025","address: 224 Overland Trail","location: Mesquite ","paper:
The Dallas Morning News","date: 04/02/2004",
Here is the data file I am working on
Click here to go back to Residential Real Estate for Rent.
Your search for Mesquite returned the following ads:
*If your search did not return as many ads as you'd like, simply go back and
search
again using fewer search criteria.
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $725 BD: 3 BA: 1 LA:
Home 3bd-1ba-1,ch/a new carpet & paint fence stove $725+dep. 972-289-2098
Mesquite - The Dallas Morning News - 04/08/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $950 BD: 3 BA: 1.5 LA:
Home 3bd/1.5ba/2 1620 Summitt $950+dep Sec 8ok 469-525-0204; 214-957-8176
Mesquite - The Dallas Morning News - 04/08/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $1100/mo BD: 4 BA: 2 LA: 2
Home 4bd/2ba/2/2la close to schl/mall avail now $1100/mo+$1000/dep Sec. 8 ok
welcome 214-566-6106
Mesquite - The Dallas Morning News - 04/08/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $995 mo BD: 3 BA: 2 LA:
Home-$995 mo/$600 dep. Beautiful 3br/11/2ba/1 gar near schl (214) 755-2861
Mesquite - The Dallas Morning News - 04/08/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $850mo BD: 3 BA: 1.5 LA:
Home-3621 Edgebrook-3bd-1.5ba-1gar-$850mo-$850dp-no pets-tel.972-216-0999
Mesquite - The Dallas Morning News - 04/08/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $995 BD: 4 BA: 1.5 LA:
Home-4bd/1.5ba/den: 3528 Statler, $995+$1000dep I-30/Eastfield area.
972-303-5134
Mesquite - The Dallas Morning News - 04/08/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: BD: 4 BA: 2.5 LA:
Home-4bd/2.5ba/2cp, remodeled, strg bldg, rent to own. 2100sf. 214-356-2120
Mesquite - The Dallas Morning News - 04/08/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: BD: 3 BA: 1 LA:
Home-Sec 8. 3bd/1ba remodeled. Open Sat & Sun, 2-4. 2428 Vickie 214-417-6453
Mesquite - The Dallas Morning News - 04/08/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $1050/mo BD: 3 BA: 2 LA:
Home 3bd/2ba/2 brick
ch/a fp $1050/mo $900/dep
972-754-0214
Mesquite - The Dallas Morning News - 04/05/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $1250/mo BD: 3 BA: 2 LA:
Home Rent To Own
3bd/2ba/2gar 1617 Colborne $1250/mo. Bad Credit OK
214-236-8717
HappyHouseSellers.com
Mesquite - The Dallas Morning News - 04/05/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: BD: 3 BA: 2 LA:
Home-gorgeous 4-3bd/2ba/gar, all new, must see. Sec 8 ok. Avail 214-478-9139
Mesquite - The Dallas Morning News - 04/05/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $895/mo BD: 3 BA: 2 LA:
Dup. 3bd/2ba, $895/mo. Owner/Agent. Section 8! 972-240-7503 972-226-4446
Mesquite - The Dallas Morning News - 04/04/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $750/mo BD: 3 BA: 1 LA:
Home 3bd/1ba/1 ch/a
$750/mo + $600/dep
(972) 285-2090
Mesquite - The Dallas Morning News - 04/04/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $795/mo BD: 3 BA: 2 LA:
Home 3bd/2ba/den, brick, CH/A, new crpt, appls, $795/mo+dep. 972-216-4988
Mesquite - The Dallas Morning News - 04/04/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $1025/mo BD: 3 BA: 2 LA:
Home-224 Overland Trail 3bd/2ba/2gar $1025/mo, Sec 8 ok. (972) 554-8833
Mesquite - The Dallas Morning News - 04/04/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $995/mo BD: 3 BA: 2 LA:
Home-3bd/2ba/2, fp, $995/mo, $800 dep, 2426 Beverly Hills Lane, exc cond,
credit check. 972-681-4502
Mesquite - The Dallas Morning News - 04/04/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $975. BD: 3 BA: 2 LA: 2
Home-3bd/2ba/2cp/2la, sec & sprnklr, no pets, no Sec 8. 1509 Liberty Ln. Hwy
80/Beltline. $975. 214-343-4618
Mesquite - The Dallas Morning News - 04/04/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $925/mo BD: 3 BA: 2 LA:
Home-3bd/2ba/2ga, $925/mo + dep, very clean, 2309 Ithaca, 972-288-1495
Mesquite - The Dallas Morning News - 04/04/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $1150/mo BD: 3 BA: 2 LA:
Home-Poteet Schools! 3bd/2ba/2ga, 1900sf, WBFP, very nice, 4109 Aralia, no
pets. $1150/mo. 214-827-7777
Mesquite - The Dallas Morning News - 04/04/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $1150/mo BD: 3 BA: 1.5 LA:
Home: 3bd/1.5ba near school $1150/mo + $800 dep sect. 8 ok 214-755-3922.
Mesquite - The Dallas Morning News - 04/04/2004
----------------------------------------------------------------------------
----
Ads basket. Check to add. Uncheck to remove.
Price: $1025/mo BD: 3 BA: 2 LA:
Home-224 Overland Trail 3bd/2ba/2gar $1025/mo, Sec 8 ok. (972) 554-8833
Mesquite - The Dallas Morning News - 04/02/2004
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
