File: quick-learn.pl

package info (click to toggle)
megahal 9.1.1a-9
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 504 kB
  • ctags: 566
  • sloc: ansic: 4,248; perl: 205; makefile: 108; tcl: 88; pascal: 35; python: 18; sh: 14
file content (13 lines) | stat: -rw-r--r-- 179 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl

use warnings;
use strict;
use Megahal;

Megahal::megahal_initialize();

while (<STDIN>) {
	Megahal::megahal_learn_no_reply($_, 1);
}

Megahal::megahal_cleanup();