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;
$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, @lines;
@ -84,8 +84,6 @@ sub grades_new_bonus
shift @lines;
}
log TRACE, @lines;
for my $line (@lines)
{
if ($line =~ /^([a-z0-9_-]+)(?:\s*:\s*(\d+))?$/)