I am just starting to learn perl and I am somewhat mistifide about when I should do:
Expand|Select|Wrap|Line Numbers
- print("@input");
Expand|Select|Wrap|Line Numbers
- print(@input)
Expand|Select|Wrap|Line Numbers
- for(int i=0; i<array.length;i++){
- System.out.print(array[i]);
- System.out.println();
Expand|Select|Wrap|Line Numbers
- #! /usr/bin/perl
- use strict;
- use warnings;
- my @input=<>;
- for my $input (@input){
- # $input=reverse($input);
- }
- print("===\nIn Quotes:\n");
- print("@input");
- print("\n\n===\nNOT In Quotes\n");
- print(@input);
- print "End Program\n";
Expand|Select|Wrap|Line Numbers
- jake-summers-computer:~/All Work/School Work/NLP/Ass2/Q3 jsummers$ cat SampleInput
- Hello Everyone I am Jake.
- This is the second line to the intro.
- Fourth line (third line is empty)jake-summers-computer:~/All Work/School Work/NLP/Ass2/Q3 jsummers$
- jake-summers-computer:~/All Work/School Work/NLP/Ass2/Q3 jsummers$
- jake-summers-computer:~/All Work/School Work/NLP/Ass2/Q3 jsummers$
- jake-summers-computer:~/All Work/School Work/NLP/Ass2/Q3 jsummers$
- jake-summers-computer:~/All Work/School Work/NLP/Ass2/Q3 jsummers$ ./line-reverseV2.pl < SampleInput
- ===
- In Quotes:
- Hello Everyone I am Jake.
- This is the second line to the intro.
- Fourth line (third line is empty)
- ===
- NOT In Quotes
- Hello Everyone I am Jake.
- This is the second line to the intro.
- Fourth line (third line is empty)End Program
- jake-summers-computer:~/All Work/School Work/NLP/Ass2/Q3 jsummers$