use Perl

• Far too complicated (Score:1)

  by Aristotle (5147)

  #!/usr/bin/perl -w
  use strict;
  
  die "Usage: $0 questions.txt [morequestions.txt ...] > answers.txt"
      if not @ARGV;
  
  while( <> ) {
      print STDERR $_;
      print $_;
      print scalar <STDIN>;
  }

  The key is that the question files must be given as commandline arguments, not passed in via redirection. The <> diamond operator will read from the files listed in @ARGV and you can read STDIN separately from it at the same time.
  • Re:Far too complicated (Score:2)

    by jonasbn (1153) <reversethis-{gro.napc} {ta} {nbsanoj}> on 2007.02.10 12:01 (#53186) Homepage Journal

    Ah, much more in line with what I would probably do, however not as short and artistic.
    
    Thanks for the solution it is very nice.

    Reply to This

    Parent