save.pl
上传用户:wzkunzhan
上传日期:2022-04-23
资源大小:2618k
文件大小:1k
源码类别:

模拟服务器

开发平台:

Visual C++

  1. # File: save.pl
  2. #
  3. # Modified OpenPhone based Voice Evaluation Tool (MOBVET) Version 0.1
  4. # --------------------------------------------------------------------
  5. # Voice Over IP Laboratory (http://www.voip.nce.ufrj.br)
  6. # Federal University of Rio de Janeiro
  7. # Copyright (c) 2002-2004 UFRJ (Federal University of Rio de Janeiro).
  8. # The contents of this file are subject to the Mozilla Public License
  9. # Version 1.0 (the "License"); you may not use this file except in
  10. # compliance with the License. You may obtain a copy of the License at
  11. # http://www.mozilla.org/MPL/
  12. sub save_chart
  13. {
  14. my $chart = shift or die "Need a chart!";
  15. my $name = shift or die "Need a name!";
  16. local(*OUT);
  17. my $ext = $chart->export_format;
  18. open(OUT, ">$name.$ext") or 
  19. die "Cannot open $name.$ext for write: $!";
  20. binmode OUT;
  21. print OUT $chart->gd->$ext();
  22. close OUT;
  23. }
  24. 1;