Solved

ST logic

Posted on 2001-06-10
2
192 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
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

Optimizing Cloud Backup for Low Bandwidth

With cloud storage prices going down a growing number of SMBs start to use it for backup storage. Unfortunately, business data volume rarely fits the average Internet speed. This article provides an overview of main Internet speed challenges and reveals backup best practices.

Question has a verified solution.

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

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…
On Microsoft Windows, if  when you click or type the name of a .pl file, you get an error "is not recognized as an internal or external command, operable program or batch file", then this means you do not have the .pl file extension associated with …
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…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

810 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