language: Perl (perl 5.12.1)
date: 111 days 18 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13

int $err;
open (TL,">test.txt");
print TL ("error");
close (TL);
$err = "grep 'error' test.txt |wc ";
printf ("VALUE %d ",$err);
if($err != 0){
print ("FAILED");
}
else
{
print ("PASSED");
}