split to array in perl

Shell Programming and Scripting
1

Collegues
I have flat file in the following format.
137 (NNP Kerala) (NNP India)
92 (NN Rent) (NN Range)
70 (NNP Thiruvananthapuram) (NNP Kerala)
43 (NNP Tourist) (NNP Home)
40 (NNP Reserve) (NNP Now)
25 (SYM @) (NN hotelskerala)
25 (NNP Thiruvananthapuram-695001) (NNP Kerala)
23 (NN Reservation) (IN For)
23 (NNP Now) (NNP mailto)
21 (NNP com) (NN <s/s>)
21 (VBZ subject=) (NN Reservation)
21 (NN <s/s>) (NN <s>)
21 (NN <s>) (VBZ subject=)
18 (NNP Aristo) (NN Junction)
16 (NNP Medical) (NNP College)
16 (NNP Road) (NNP Thiruvananthapuram)
14 (IN For) (NNP Hotel)
14 (NNP Thiruvananthapuram-695011) (NNP Kerala)
13 (NNP com) (NNP Reserve)
11 (NNP Thampanoor) (NNP Thiruvananthapuram)
I tried to split and store it in to an rray using the code
Code
________________________________________
open (PARSE,file2);
@mwe = split(/\n/,<PARSE>);
print "@mwe\n";
foreach $mwe(@mwe) {
if ($mwe =~ m/[0-9]+ (NNP [A-z]+) (NNP [A-z]+)/)
{
print "$mwe\n";
}
else {
print " hi hi..... \n";
}
}
close (PARSE);
--------------------------------------------------------------------
But it is not working.
Any solution
With thanks and regards
Jaganadh.G
Linguist

2

Code

#!/bin/perl

open (PARSE,file2);
@mwe = <PARSE>;
foreach $mwe (@mwe) {
        if ($mwe =~ /[\d]+\s+\(NNP [\w\s]+\) \(NNP [\w\s]+\)/) {
                print "$mwe\n";
        }
        else{
                print " hi hi..... \n";
        }
}
close (PARSE);

Output

137 (NNP Kerala) (NNP India)

 hi hi.....
70 (NNP Thiruvananthapuram) (NNP Kerala)

43 (NNP Tourist) (NNP Home)

40 (NNP Reserve) (NNP Now)

 hi hi.....
 hi hi.....
 hi hi.....
23 (NNP Now) (NNP mailto)

 hi hi.....
 hi hi.....
 hi hi.....
 hi hi.....
 hi hi.....
16 (NNP Medical) (NNP College)

16 (NNP Road) (NNP Thiruvananthapuram)

 hi hi.....
 hi hi.....
13 (NNP com) (NNP Reserve)

11 (NNP Thampanoor) (NNP Thiruvananthapuram)

Is this the one that you were looking for?

3

excately .
Thanks a lot.
I am conducting some study on the Behavior of English language. I prepared this program to get some data.
I got excta solution
Thanks lot
Jaganadh.G
Linguist

4

FYI

this is a cheating way to accept files on
command line or a named one if none

@ARGV = ("filename") unless @ARGV;
# then


@A = <>; # slurp the file(s)

or 

while (<>) # read line by line for all files