?
Solved

ST logic

Posted on 2001-06-10
2
Medium Priority
?
197 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 100 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

In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
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…
Six Sigma Control Plans
Suggested Courses

765 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