Last change
on this file since 32193 was 25141, checked in by papitha, 12 years ago |
NGRAMJ PERL MODULE ADDED /MAORI LANGUAGE GUESSING WORKING WELL!!
|
File size:
386 bytes
|
Line | |
---|
1 | $handle = openf(@ARGV[0]);
|
---|
2 |
|
---|
3 | @handles = @();
|
---|
4 | for ($x = 0; $x < 16; $x++)
|
---|
5 | {
|
---|
6 | push(@handles, openf(">files $+ $x $+ .sh"));
|
---|
7 | }
|
---|
8 |
|
---|
9 | $x = 0;
|
---|
10 | while $txt (readln($handle))
|
---|
11 | {
|
---|
12 | $out = strrep($txt, '.txt', '.xml');
|
---|
13 | println(@handles[$x % 16], "php ./wiki2xml/php/wiki2xml_command.php ../ $+ $txt ../ $+ $out");
|
---|
14 | $x++;
|
---|
15 | }
|
---|
16 |
|
---|
17 | foreach $handlez (@handles)
|
---|
18 | {
|
---|
19 | closef($handlez);
|
---|
20 | }
|
---|
21 |
|
---|
22 | closef($handle);
|
---|
Note:
See
TracBrowser
for help on using the repository browser.