[jira] [Created] (PIG-4361) Fix perl script problem in TestStreaming.java

["liyunzhang_intel (JIRA)" <ji...@apache.org>]

liyunzhang_intel created PIG-4361:
-------------------------------------

             Summary: Fix perl script problem in TestStreaming.java
                 Key: PIG-4361
                 URL: https://issues.apache.org/jira/browse/PIG-4361
             Project: Pig
          Issue Type: Bug
            Reporter: liyunzhang_intel
            Assignee: liyunzhang_intel


TestStreaming.java  line 495
{code}
  // Perl script
	    String[] script =
	        new String[] {
	                      "#!/usr/bin/perl",
                          "open(OUTFILE, \">\", $ARGV[0]) or die \"Can't open \".$ARGV[1].\"!: $!\";",
                          "open(OUTFILE2, \">\", $ARGV[1]) or die \"Can't open \".$ARGV[2].\"!: $!\";",
                          "while (<STDIN>) {",
                          "  print OUTFILE \"$_\n\";",
                          "  print STDERR \"STDERR: $_\n\";",
                          "  print OUTFILE2 \"A,10\n\";",
                          "}",
	                     };
{code}
this script has some problem when dealing with the input arguments. made some modifications:
{code}
  // Perl script
	    String[] script =
	        new String[] {
	                      "#!/usr/bin/perl",
                          "open(OUTFILE, \">\", $ARGV[0]) or die \"Can't open \".$ARGV[0].\"!: $!\";",
                          "open(OUTFILE2, \">\", $ARGV[1]) or die \"Can't open \".$ARGV[1].\"!: $!\";",
                          "while (<STDIN>) {",
                          "  print OUTFILE \"$_\n\";",
                          "  print STDERR \"STDERR: $_\n\";",
                          "  print OUTFILE2 \"A,10\n\";",
                          "}",
	                     };
{code}
The same problem happens in line 554.



--
This message was sent by Atlassian JIRA
(v6.3.4#6332)