Perl scriptin help

[Rajesh SB]

Hi Scritping Gurus,

I am beginner in Perl Scripting. Looking for help.

I want search for the ERROR message in a log file based on Keyword and detected line message text needs to be truncated to 90 characters.

Thanks in advance.

Regards,
Rajesh

[RAC_1]

My perl skills are same as yours. Just plain grep and cut here.

grep -i "ERROR" your_file | cut -c1-90

[Ralph Grothe]

TIMTOWTDI,

e.g. one possible way


perl -ne 'printf"%s\n", substr($_,0,30) if /error/i' /var/adm/syslog/syslog.log

[Ralph Grothe]

Oops, forgot it was the leading 90 chars you are after.
So substitute 30 by 90 in the substr() call.

Also have a look at

perldoc -f substr
perldoc perlre
perldoc perlop

[Muthukumar_5]

You can use awk / cut / perl on this simple requirement.

awk '// { substr($0,1,90); print; }'

-Muthu

[Rajesh SB]

Thanks for your prompt replies.
I need help on another scenario like.

Looking for shell command to trim the message text to length to n characters.

Each message text strings needs to be trimed to n no. of characters.

Sure you guys have some good ideas.

Thanks & Regards,
Rajesh

[RAC_1]

Again cut is the command that you need.

echo "your_string"|cut -c1-5
Will cut first 5 chars.

[Muthukumar_5]

Use script as,

#!/bin/ksh
# Input
pattern=""
count=""
file=""

grep "${pattern}" ${file} | cut -c1-${count}

# end
exit 0

-Muthu

[Muthukumar_5]

with perl:

perl -e '$count=5;$pattern="no";while(<>){ printf "%s\n", substr($_,1,$count) if /$pattern/; }' ..

Change $count value from 5 to your need. And $pattern from no to someother string in "".

-Muthu

[Rajesh SB]

Thanks for quick response. I got it.

Cheers,
Rajesh