Shell Programming and Scripting

I am looking for equivalent of following awk command in perl

[root@swa-rndpoc tmp]# awk '{ print NF ":" $0 } ' junk1
8:VAH NIC_TYPE CONFIG SIZE_GB PILO KOM BHA_GRP DESCR
8:2 NIC6 cont 34 y n shal_orgrp /shal
8:4 NIC5 signa 52 n y shal_orgrp /new_shal
8:3 TIC signa 8 n y shal_orgrp /new_shal

---------- Post updated at 09:21 PM ---------- Previous update was at 07:21 PM ----------

This is the input file
[code]
#VAH NIC_TYPE CONFIG SIZE_GB PILO KOM BHA_GRP DESCR

2 NIC6 cont 34 y n shal_orgrp /shal
4 NIC5 signa 52 n y shal_orgrp /new_shal
3 TIC signa 8 n y shal_orgrp /new_shal


I want output to print number of words in each line except first line.

O/P:
8
8
8

Here is one way:

Code:

#!/usr/bin/perl

use strict;
use warnings;

die "No file argument" unless @ARGV > 0;

my $infile = shift @ARGV;

open (FILE, $infile) or die $!;

while (my $line = <FILE>) {
    next if $. == 1;
    my $fieldcount = $line =~ tr/ //;
    print $fieldcount+1, "\n" if $fieldcount > 0;
}

close FILE;

Thanks fpmurphy !!

This is counter question to earlier

If a line has more than 7 fields then value in field 7 onwards is BHA_GRP1, BHA_GRP2, BHA_GRP3, BHA_GRP4 etc.
Here is example of what I am trying to achieve.
INPUT File:
VAH NIC_TYPE CONFIG SIZE_GB PILO KOM BHA_GRP1 BHA_GRP2 BHA_GRP3......

2 NIC6 cont 34 y n shal_orgrp shal
4 NIC5 signa 52 n y shal_orgrp1 new_shal test
3 TIC signa 8 n y shal_orgrp2

OUTPUT:
For line 2 -- $BHA_GRP1 = shal_orgrp, $BHA_GRP2= shal
line3 -- $BHA_GRP1= shal_orgrp1, $BHA_GRP2= new_shal, $BHA_GRP3=test
line4-- $BHA_GRP1= shal_orgrp2

---------- Post updated at 01:10 PM ---------- Previous update was at 12:15 AM ----------

hi fpmurphy

Your script fails on following file.

TRK_GRP LD_TYPE CAT LME_TK STCLDF TSX RT_GRP1 Test_GRP2 Test_GRP3 Test_GRP4
2 LD6 STPD 34 y n test_delgrp test junk0 junk1
6 LD5 CCT 52 n y test_delgrp new_test junk4 junk5
4 LD6 CCT 8 n y test_delgrp new_test junk6 junk7

Hi,

I am a new student in the field of UNIX and Linux. I need some basic knowledge to start with.

Could anybody help me?

Rgds,
Student/2011