Subversion Repositories wimsdev

Rev

Rev 11930 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11930 Rev 11931
Line 1... Line 1...
1
#!/usr/local/bin/perl
1
#!/usr/bin/perl
2
 
2
 
3
open(IN, "commands") ;
3
open(IN, "commands") ;
4
 
4
 
5
my $L='' ; my $t=0 ;
5
my $L='' ; my $t=0 ;
6
while (<IN>) {my $l=$_ ;
6
while (<IN>) {my $l=$_ ;