topic Re: Perl scriptin help in Operating System - Linux

Perl scriptin help

Rajesh SB — Thu, 27 Oct 2005 02:06:19 GMT

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

Re: Perl scriptin help

RAC_1 — Thu, 27 Oct 2005 02:20:01 GMT

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

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

Re: Perl scriptin help

Ralph Grothe — Thu, 27 Oct 2005 02:20:15 GMT

TIMTOWTDI,

e.g. one possible way

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

Re: Perl scriptin help

Ralph Grothe — Thu, 27 Oct 2005 02:23:26 GMT

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

Re: Perl scriptin help

Muthukumar_5 — Thu, 27 Oct 2005 02:54:48 GMT

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

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

-Muthu

Re: Perl scriptin help

Rajesh SB — Thu, 27 Oct 2005 04:22:27 GMT

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

Re: Perl scriptin help

RAC_1 — Thu, 27 Oct 2005 04:28:22 GMT

Again cut is the command that you need.

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

Re: Perl scriptin help

Muthukumar_5 — Thu, 27 Oct 2005 04:32:45 GMT

Use script as,

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

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

# end
exit 0

-Muthu

Re: Perl scriptin help

Muthukumar_5 — Thu, 27 Oct 2005 04:42:51 GMT

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

Re: Perl scriptin help

Rajesh SB — Thu, 27 Oct 2005 05:00:20 GMT

Thanks for quick response. I got it.

Cheers,
Rajesh

Re: Perl scriptin help

Muthukumar_5 — Thu, 27 Oct 2005 05:18:43 GMT

Rajesh,

It is good that you got solution. Before closing thread, send out the answer you got or concluding. If you don't want to assing points then turn to 0 for that response.

Plz assign relavent points to good responses always.

PS: Assign 0 points (If you open again :) )

-Muthu