Reverses the word order of the input file. : Reverse « String « Perl

1. Perl
2. String
3. Reverse

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); 

   
    
    
  

Related examples in the same category