Solved

ST logic

Posted on 2001-06-10
2
194 Views
Last Modified: 2010-03-05
sub ST(&@)
 {
  my $metric=shift; map{$_->[0]} sort{$b->[1]<=>$a->[1]} map{[$_,&{$metric}]} @_;
 };

print NEWFILE ST{return (split/\|/)[1]}<OLDFILE>;

# What corresponds to the above code in one line?
# (How do I remove the subroutine?)
0
Comment
Question by:superquestions
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 84

Accepted Solution

by:
ozo earned 25 total points
ID: 6173888
#assumng (split/\|/)[1] are integers
print NEWFILE map{/\|(.*)/s}sort map{join'|',5e14-(/\|([^|]*)/)[0],$_}<OLDFILE>;
0
 
LVL 1

Author Comment

by:superquestions
ID: 6174861
# The complete code is like this:

@list=("joined.txt","posted.txt");

sub ST(&@)
 {
  my $metric=shift; map{$_->[0]} sort{$b->[1]<=>$a->[1]} map{[$_,&{$metric}]} @_;
 };

foreach $file(@list)
 {
  open(OLDFILE, "<$file.txt");
   flock OLDFILE, 1;

   open(NEWFILE, ">$file.tmp");
    flock NEWFILE, 2;

    print NEWFILE ST{return (split/\|/)[1]}<OLDFILE>;

   close(NEWFILE);
  close(OLDFILE);
 };

# Is it an intenger?
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads),  installed and started the daemon, and had a console window open. After an hour or two of playing at the command …
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

730 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