Re^5: Football formation

Hey eminempark,

As GrandFather said in the first reply of this thread, you haven't shown any code or even a description of what you've tried. I made the quick change you're looking for, but am hoping to see you run the ball the rest of the way into the endzone from here:

use autodie;
my (%used, %player);
open $player{$_}, '<', "$_.txt" for qw( DR DL DC SW );
open my $formation, '<', 'formation.txt';
for my $position (<$formation>) {
        chomp $position;
        while (readline $player{$position}) {
                my ($name) = split;
                next if $used{$name};
                $used{$name} = 1;
                last;
        }
        print $position, ' ',  $_ // "No Player\n";
}
[download]

Comment on Re^5: Football formation Download Code

Replies are listed 'Best First'.
Re^6: Football formation by eminempark (Initiate) on Oct 28, 2014 at 08:12 UTC
Hi Loops, Sorry if I didn't explain clearly, what I want is the comparison of the second column before comma (,). I have tried the latest code. `use autodie; my (%used, %player); open $player{$_}, '<', "$_.txt" for qw( DR DL DC SW ); open my $formation, '<', 'formation.txt'; for my $position (<$formation>) { chomp $position; while (readline $player{$position}) { my ($name) = split; next if $used{$name}; $used{$name} = 1; last; } print $position, ' ', $_ // "NoPlayer\n"; }` [download] but the output is `SW Varane,114.75 DR Arbeloa,149 DC Ramos,169 DC Pepe,163 DL Marcelo,148.5 SW Pepe,65.2 DR Carvajal,146 DC Varane,153 DC Nacho,134 DL Coentrao,148` [download] Pepe is still repeating(although the value (163 and 65.2) is different). It supposed to be: `SW Varane,114.75 DR Arbeloa,149 DC Ramos,169 DC Pepe,163 DL Marcelo,148.5 SW Nacho,60.3 DR Carvajal,146 DC NoPlayer DC NoPlayer DL Coentrao,148` [download]	[reply] [d/l] [select]
Re^7: Football formation by eminempark (Initiate) on Oct 28, 2014 at 08:31 UTC
Hi Loops, sorry that seems like I make u feel frustrating. u are right. my output are `SW Varane 114.75 DR Arbeloa 149 DC Ramos 169 DC Pepe 163 DL Marcelo 148.5 SW Nacho 60.3 DR Carvajal 146 DC No Player DC No Player DL Coentrao 148` [download] My second last question, how to sum all the number in the third column? And my last question, how to save the output automatically to a single file based on formation name. Thank you so much, Loops	[reply] [d/l]


The stupid question is the question not asked
	PerlMonks