perl - 如何使用这个 Perl 脚本？

Question

我在网上找到了这个 perl 脚本，但我不知道如何使用它。当我运行它时，它会打开一个空终端。我不知道要在终端中输入什么才能使其正常工作。

该脚本可以在这里找到：http ://www.ve3syb.ca/software/gimp/script-update.pl

非常感谢你的帮助。

Answer 1

好吧，脚本中的帮助文本是这样说的：

    print "Usage: $0 [-h|--help|-from xx|-to yy]\n";
    print "       -from xx  Script was written for version xx of GIMP\n";
    print "       -to yy    Output script for use with version yy of GIMP\n";
    print "\n";
    print "GIMP version number should be one:\n";
    print "     10, 12, 20, 22, 24, or 26\n";
    print "\n";
    print "       The script to be updated is read from stdin.\n";
    print "       The updated script is written to stdout.\n";
    print "\n";

像这样称呼它：

./script.pl -from XX -to YY < input > output

Answer 2

使用说明在脚本中，它们告诉您如何使用它。请特别注意有关从标准输入读取要更新的脚本的内容-因此您可能需要将脚本重定向或通过管道传输到其中。

   if ($arg eq "-h" || $arg eq "--help")
    {
        print "Usage: $0 [-h|--help|-from xx|-to yy]\n";
        print "       -from xx  Script was written for version xx of GIMP\n";
        print "       -to yy    Output script for use with version yy of GIMP\n";
        print "\n";
        print "GIMP version number should be one:\n";
        print "     10, 12, 20, 22, 24, or 26\n";
        print "\n";
        print "       The script to be updated is read from stdin.\n";
        print "       The updated script is written to stdout.\n";
        print "\n";
        exit;
    }