Mega Code Archive

 

Categories / Perl / String

 

Reverses the word order of the input file

#!/usr/local/bin/perl  @input = <STDIN>;  chop (@input);  # first, reverse the order of the words in each line  $currline = 1;  while ($currline <= @input) {      @words = split(/ /, $input[$currline-1]);      @words = reverse(@words);      $input[$currline-1] = join(" ", @words, "\n");      $currline++;  }    # now, reverse the order of the input lines and print them  @input = reverse(@input);  print (@input);