Shell Programming and Scripting

That is one line code to perform your work.If you want to add some code add it here

Code:

test.pl
####################################
perl -lane 'if (/ddd/) { print $F[2] }; #your code ' file
####################################

Run the code just by typing the script name.

i named my script as testing.pl. But i am still seeing errors, pls advise.

Code:

perl -lane 'if (/ddd/) { print $F[2] }' textfile

Ran the code by typing testing.pl. Error encountered below
$ testing.pl
bash: testing.pl: command not found


Ran the code by typing perl testing.pl. Error encountered below.
$ perl testing.pl
String found where operator expected at testing.pl line 2, near "lane 'if (/ddd/
) { print $F[2] }'"
(Do you need to predeclare lane?)
Bareword found where operator expected at testing.pl line 2, near "'if (/ddd/) {
print $F[2] }' textfile"
(Missing operator before textfile?)
syntax error at testing.pl line 2, near "lane 'if (/ddd/) { print $F[2] }'"
Execution of testing.pl aborted due to compilation errors.

Try to run like this

Code:

./testing.pl

Make sure testing.pl is in your $PATH

Ran the code by typing perl testing.pl. Error encountered below.
$ perl testing.pl
String found where operator expected at testing.pl line 2, near "lane 'if (/ddd/
) { print $F[2] }'"
(Do you need to predeclare lane?)
Bareword found where operator expected at testing.pl line 2, near "'if (/ddd/) {
print $F[2] }' textfile"
(Missing operator before textfile?)
syntax error at testing.pl line 2, near "lane 'if (/ddd/) { print $F[2] }'"
Execution of testing.pl aborted due to compilation errors.

This should run perfectly
else

run a compilation check first

Code:

perl -c testing.pl

Hi Anbu,

Yours works by typing ./testing.pl but when i incorporate my code inside,it doesn;t seem to work. Why is this so ?

Code:

#!/usr/bin/perl

use strict;

$_ = 'NAME IS NOY. HOUSE IN CONE.MY HOUSE IS FILLED WITH JOY';
print "Enter some text to find: ";
my $pattern = <STDIN>;
chomp($pattern); 
print "\n\n";

open(FILE,'<','xxx_sorts') or die $!;
my $lineno;
while(<FILE>) {
print $lineno++;
print ": $_";
}
close FILE;

./testing.pl

On top to that, how can i introduce a global variable to store the value of the output of testing.pl

As i told you earlier, it is one liner. As i indicated earlier , you can add code to that to perform your additional task.
test.pl

Code:

perl -lane 'if (/'$1'/) { print $..":".$F[2] } ' file

$. contains current line number for the last filehandle accessed

Run like this

Code:

test.pl pattern

Hi Anbu,

Thanks for your explanation and your help.


Hi Matrixmadhan,

I think your code would be more suitable for me. But this statement@split_arr = split(/ /, $_);, can you modify such that it will not care about the number of spaces in between the fields,and as long as there's a space between 2 terms,it wil split.
EG:

Input_file:
aaa bbb ccc
ddd eee fff #notice the number of spaces before "fff" increases
hhhh pppp kkk jjjj
vvvv mm sss zzz
Output:
fff