Solved

Convert field values from currency to numbers

Posted on 2009-04-14
9
167 Views
Last Modified: 2013-11-05
I have a text file that is being read by a perl file. There is a field in the text file for Price. It is currently stated as currency (nothing past the decimal point). I want to remove the $ from those field values. Below is the code where it begins to read the file and then remove the field names so that they don't show up in search results.
I'm assuming it should happen before shift but I'm rather ignorant with perl....
my($ref, @listings);
$ref=&readlistings(); 
@listings=@$ref;
 
shift @listings; # get rid of header
foreach my $field (@FIELDS){
  $field=~s/[\-\:]//sg;
  $field=~s/^\s*//sg;
  $field=~s/\s*$//sg;
}
undef($ref);

Open in new window

0
Comment
Question by:taagangel
  • 5
  • 4
9 Comments
 
LVL 84

Expert Comment

by:ozo
ID: 24142356
What is in @FIELDS before, and what do you want in @FIELDS after?

And what about @listings?
0
 

Author Comment

by:taagangel
ID: 24142452
ozo... I'm not sure what you mean...
I'll attach the entire cgi file(saved at .txt for uploading here). Basically the fields in the tab-delim text file are defined in the script and are also the first record in the text file. I believe shift was used in order to remove the field names from the array once the text file is read.
res2.txt
0
 
LVL 84

Expert Comment

by:ozo
ID: 24142654
Where are the field values from which you want to remove the $

are you looking for something like
   s/\t\$/\t/g for @listings;
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 

Author Comment

by:taagangel
ID: 24142728
The field in particular is $listings{'Price'}
The values for that field used to be simply:
40,000
now it's
$40,000
as example - so now the portion of the script that performs a search based on a price range returns 0 results because the $ symbol is in the field value
0
 
LVL 84

Expert Comment

by:ozo
ID: 24142934
Is this what you are trying to do?
 s/(\$[^\t]*)/join'',split'[$,]',$1/e for @listings;
0
 

Author Comment

by:taagangel
ID: 24149511
Yes, I think so - though my problem is I don't know where in the code to put that.... :-(
0
 
LVL 84

Accepted Solution

by:
ozo earned 500 total points
ID: 24151017
woe about as soon as you assign @listings?
 s/(\$[^\t]*)/join'',split'[$,]',$1/e for @listings = @{&readlistings()};
(this assumes that COMPANY CODE does not contain a $, and that either Price always contains $ or that nothing else contains $)
0
 

Author Comment

by:taagangel
ID: 24208424
Hiya - here's the snippet that I ended up using! Thanks so much for your help!
  s/(\$[^\t]*)/join'',split'[$,]',$1/e for @lines;
sub readlistings{
  open(FILE, $file) || &error("Could not open $file: $!");
  my @lines = <FILE>;
  @lines = reverse(@lines); 
  s/(\$[^\t]*)/join'',split'[$,]',$1/e for @lines; 
  close(FILE);
  return \@lines;
}

Open in new window

0
 

Author Closing Comment

by:taagangel
ID: 31570136
Thanks again!
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Specific format 21 207
Perl Frameworks 1 98
regx  exclude  pattern 6 48
regex code: words must be 6 to 8 characters long ? 2 21
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Do you hate spam? I do, and I am willing to bet you do as well. I often wonder, though, "if people hate spam so much, why do they still post their email addresses on the web?" I'm not talking about a plain-text posting here. I am referring to the fa…
Learn how to match and substitute tagged data using PHP regular expressions. Demonstrated on Windows 7, but also applies to other operating systems. Demonstrated technique applies to PHP (all versions) and Firefox, but very similar techniques will w…

856 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question