Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Perl: How to perfectly match specific data between two files and do comparison?

by jwkrahn (Monsignor)
on Jul 24, 2013 at 02:16 UTC ( #1045983=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        use warning;
    
  2. or download this
        use warnings;
    
  3. or download this
        $ncc = 0;
        $pc = 0;
        $fc = 0;
    
  4. or download this
        my $ncc = 0;
        my $pc = 0;
        my $fc = 0;
    
  5. or download this
        sub fileA_ext() {
    
  6. or download this
        sub fileA_ext {
    
  7. or download this
        while (@array = <FileA>)    {
    
  8. or download this
        my @array = <FileA>;
    
  9. or download this
        foreach $line(@array) {
    
  10. or download this
        foreach my $line ( @array ) {
    
  11. or download this
                         $name1 = "$1";
                    $score1 = "$12";
    
  12. or download this
                         $name1 = $1;
                    $score1 = $12;
    
  13. or download this
                    foreach $line (@tmp1) {
    
  14. or download this
                    foreach my $line ( @tmp1 ) {
    
  15. or download this
                            my $name2 = "$1";
                            substr($name2, -13) = '';
                            my $score2 = "$12";
    
  16. or download this
                            my $name2 = $1;
                            substr($name2, -13) = '';
                            my $score2 = $12;
    
  17. or download this
        sub FileB_ext() {
    
  18. or download this
        sub FileB_ext {
    
  19. or download this
        while (@array = <FileB>)  {
    
  20. or download this
        my @array = <FileB>;
    
  21. or download this
        foreach $line(@array) {
    
  22. or download this
        foreach my $line ( @array ) {
    
  23. or download this
                            my $name3 = "$1";
                    my $score3 = "$12";
    
  24. or download this
                            my $name3 = $1;
                    my $score3 = $12;
    
  25. or download this
                    foreach $line (@tmp2) {
    
  26. or download this
                    foreach my $line ( @tmp2 ) {
    
  27. or download this
                            my $name4 = "$1";
                            substr($name4, -13) = '';
                            my $score4 = "$12";
    
  28. or download this
                            my $name4 = $1;
                            substr($name4, -13) = '';
                            my $score4 = $12;
    
  29. or download this
        sub check() {
    
  30. or download this
        sub check {
    
  31. or download this
        foreach $data1 (@arr1) {
    
  32. or download this
        foreach my $data1 ( @arr1 ) {
    
  33. or download this
                    my $ep1 = "$1";
                    my $s1 = "$2";
    
  34. or download this
                    my $ep1 = $1;
                    my $s1 = $2;
    
  35. or download this
                foreach $data2 (@arr2) {
    
  36. or download this
                foreach my $data2 ( @arr2 ) {
    
  37. or download this
                            my $ep2 = "$1";
                            my $s2 = "$2";
    
  38. or download this
                            my $ep2 = $1;
                            my $s2 = $2;
    
  39. or download this
                        if ( $ep1 eq $ep2 && $s1 =~ m/-/g) {
    
  40. or download this
                        if ( $ep1 eq $ep2 && $s1 =~ m/-/) {
    
  41. or download this
                        if ( $ep1 eq $ep2 && $s1 !~ m/-/g && $s1 > 50 && $
    +s2 > 40) {
    
  42. or download this
                        if ( $ep1 eq $ep2 && $s1 !~ m/-/ && $s1 > 50 && $s
    +2 > 40) {
    
  43. or download this
                        if ( $ep1 eq $ep2 && $s1 !~ m/-/g && $s1 < 50 && $
    +s2 < 40) {
    
  44. or download this
                        if ( $ep1 eq $ep2 && $s1 !~ m/-/ && $s1 < 50 && $s
    +2 < 40) {
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1045983]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2015-07-28 05:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (252 votes), past polls