epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Separate lines

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-20 18:13:10 +02:00
parent 6191376362
commit a5f6916df4
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
process/files/intradata_get.pl
View file

@ -71,7 +71,7 @@ sub grades_new_bonus
my $kbonus = $kfile; my $kbonus = $kfile;
$kbonus =~ s/[^a-zA-Z0-9_-]/_/g; $kbonus =~ s/[^a-zA-Z0-9_-]/_/g;
my @lines = ($args->{files}{$kfile} =~ tr/\n//); my @lines = split(/\n/, $args->{files}{$kfile});
log TRACE, $args->{files}{$kfile}; log TRACE, $args->{files}{$kfile};
log TRACE, @lines; log TRACE, @lines;
@ -84,8 +84,6 @@ sub grades_new_bonus
shift @lines; shift @lines;
} }
log TRACE, @lines;
for my $line (@lines) for my $line (@lines)
{ {
if ($line =~ /^([a-z0-9_-]+)(?:\s*:\s*(\d+))?$/) if ($line =~ /^([a-z0-9_-]+)(?:\s*:\s*(\d+))?$/)