[TeamTalk 97]: [634] TeamTalk/Resources/Grammar/mk_nets2.pl: 1) New cmp. pl supersedes mk_nets2.pl
tk@edam.speech.cs.cmu.edu
tk at edam.speech.cs.cmu.edu
Mon Jun 11 12:53:41 EDT 2007
An HTML attachment was scrubbed...
URL: http://mailman.srv.cs.cmu.edu/pipermail/teamtalk-developers/attachments/20070611/cf34f386/attachment.html
-------------- next part --------------
Deleted: TeamTalk/Resources/Grammar/mk_nets2.pl
===================================================================
--- TeamTalk/Resources/Grammar/mk_nets2.pl 2007-06-11 16:47:47 UTC (rev 633)
+++ TeamTalk/Resources/Grammar/mk_nets2.pl 2007-06-11 16:53:41 UTC (rev 634)
@@ -1,18 +0,0 @@
-#!c:/perl/bin/perl -w
-
-if ( $#ARGV != 0 ) { die("usage: mk_nets <.gra file>\n"); }
-open(GRA, "$ARGV[0]") or die("Couldn't open input file!\n");
-open(NET, ">nets") or die("Couldn't open nets\n");
-
-while(<GRA>) {
- if ( !/^\[/ ) {next;}
- chop;
- s/\[//g;
- s/\]//g;
- print NET "$_\n";
- $cnt++;
-}
-
-print STDERR "$cnt nets found.\n";
-
-#
More information about the TeamTalk-developers
mailing list