Hi Anirban,
Assuming you have a file named text.txt containing your data, this code
should do the trick :
#!/usr/bin/perl
use strict;
use warnings;
open my $fh, '<', 'text';
my @words = split ' ', <$fh>;
my @matchs;
while (my ($index, $elem) = each @words) {
if ($elem eq 'bspwrt') {
push @matchs, $index++;
}
}
$, = ' ';
print @matchs;
Le 16/06/2015 18:05, Anirban Adhikary a écrit :
> Hi List
>
> I need to find the index positions of many elements. For a single
> occurrence there are many ways to find it. But in my case the element
> which I am searching for has multiple occurrence.
>
> The following is the array from where I have to find the indexes of a
> specific element say bspwrt.
>
>
> NW MSC BSC CELL ch_group_0 chgr_tg chgr_state band bccd bspwrt cbch ccch
> dchno_0 dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6 dchno_7 dchno_8
> dchno_9 dchno_10 dchno_11 dchno_12 dchno_13 dchno_14 dchno_15 dchno_16
> dchno_17 dchno_18 dchno_19 dchno_20 dchno_21 dchno_22 dchno_23 dchno_24
> dchno_25 dchno_26 dchno_27 dchno_28 dchno_29 dchno_30 dchno_31 eacpref
> etchtn_0 etchtn_1 etchtn_2 etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7
> exchgr hop hoptype hsn maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6
> maio_7 maio_8 maio_9 maio_10 maio_11 maio_12 maio_13 maio_14 maio_15
> mcluster numreqbpc numreqcs3cs4bpc numreqe2abpc numreqegprsbpc
> odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7
> tn7bcch tnbcch tsc userdata ch_group_1 chgr_tg chgr_state band bccd
> bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6
> dchno_7 dchno_8 dchno_9 dchno_10 dchno_11 dchno_12 dchno_13 dchno_14
> dchno_15 dchno_16 dchno_17 dchno_18 dchno_19 dchno_20 dchno_21 dchno_22
> dchno_23 dchno_24 dchno_25 dchno_26 dchno_27 dchno_28 dchno_29 dchno_30
> dchno_31 eacpref etchtn_0 etchtn_1 etchtn_2 etchtn_3 etchtn_4 etchtn_5
> etchtn_6 etchtn_7 exchgr hop hoptype hsn maio_0 maio_1 maio_2 maio_3
> maio_4 maio_5 maio_6 maio_7 maio_8 maio_9 maio_10 maio_11 maio_12
> maio_13 maio_14 maio_15 mcluster numreqbpc numreqcs3cs4bpc numreqe2abpc
> numreqegprsbpc odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4
> tn_5 tn_6 tn_7 tn7bcch tnbcch tsc userdata ch_group_2 chgr_tg chgr_state
> band bccd bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3 dchno_4
> dchno_5 dchno_6 dchno_7 dchno_8 dchno_9 dchno_10 dchno_11 dchno_12
> dchno_13 dchno_14 dchno_15 dchno_16 dchno_17 dchno_18 dchno_19 dchno_20
> dchno_21 dchno_22 dchno_23 dchno_24 dchno_25 dchno_26 dchno_27 dchno_28
> dchno_29 dchno_30 dchno_31 eacpref etchtn_0 etchtn_1 etchtn_2 etchtn_3
> etchtn_4 etchtn_5 etchtn_6 etchtn_7 exchgr hop hoptype hsn maio_0 maio_1
> maio_2 maio_3 maio_4 maio_5 maio_6 maio_7 maio_8 maio_9 maio_10 maio_11
> maio_12 maio_13 maio_14 maio_15 mcluster numreqbpc numreqcs3cs4bpc
> numreqe2abpc numreqegprsbpc odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2
> tn_3 tn_4 tn_5 tn_6 tn_7 tn7bcch tnbcch tsc userdata ch_group_3 chgr_tg
> chgr_state band bccd bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3
> dchno_4 dchno_5 dchno_6 dchno_7 dchno_8 dchno_9 dchno_10 dchno_11
> dchno_12 dchno_13 dchno_14 dchno_15 dchno_16 dchno_17 dchno_18 dchno_19
> dchno_20 dchno_21 dchno_22 dchno_23 dchno_24 dchno_25 dchno_26 dchno_27
> dchno_28 dchno_29 dchno_30 dchno_31 eacpref etchtn_0 etchtn_1 etchtn_2
> etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7 exchgr hop hoptype hsn
> maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6 maio_7 maio_8 maio_9
> maio_10 maio_11 maio_12 maio_13 maio_14 maio_15 mcluster numreqbpc
> numreqcs3cs4bpc numreqe2abpc numreqegprsbpc odpdchlimit sas sctype sdcch
> tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7 tn7bcch tnbcch tsc userdata
> ch_group_4 chgr_tg chgr_state band bccd bspwrt cbch ccch dchno_0 dchno_1
> dchno_2 dchno_3 dchno_4 dchno_5 dchno_6 dchno_7 dchno_8 dchno_9 dchno_10
> dchno_11 dchno_12 dchno_13 dchno_14 dchno_15 dchno_16 dchno_17 dchno_18
> dchno_19 dchno_20 dchno_21 dchno_22 dchno_23 dchno_24 dchno_25 dchno_26
> dchno_27 dchno_28 dchno_29 dchno_30 dchno_31 eacpref etchtn_0 etchtn_1
> etchtn_2 etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7 exchgr hop hoptype
> hsn maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6 maio_7 maio_8
> maio_9 maio_10 maio_11 maio_12 maio_13 maio_14 maio_15 mcluster
> numreqbpc numreqcs3cs4bpc numreqe2abpc numreqegprsbpc odpdchlimit sas
> sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7 tn7bcch tnbcch tsc
> userdata ch_group_5 chgr_tg chgr_state band bccd bspwrt cbch ccch
> dchno_0 dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6 dchno_7 dchno_8
> dchno_9 dchno_10 dchno_11 dchno_12 dchno_13 dchno_14 dchno_15 dchno_16
> dchno_17 dchno_18 dchno_19 dchno_20 dchno_21 dchno_22 dchno_23 dchno_24
> dchno_25 dchno_26 dchno_27 dchno_28 dchno_29 dchno_30 dchno_31 eacpref
> etchtn_0 etchtn_1 etchtn_2 etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7
> exchgr hop hoptype hsn maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6
> maio_7 maio_8 maio_9 maio_10 maio_11 maio_12 maio_13 maio_14 maio_15
> mcluster numreqbpc numreqcs3cs4bpc numreqe2abpc numreqegprsbpc
> odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7
> tn7bcch tnbcch tsc userdata ch_group_6 chgr_tg chgr_state band bccd
> bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6
> dchno_7 dchno_8 dchno_9 dchno_10 dchno_11 dchno_12 dchno_13 dchno_14
> dchno_15 dchno_16 dchno_17 dchno_18 dchno_19 dchno_20 dchno_21 dchno_22
> dchno_23 dchno_24 dchno_25 dchno_26 dchno_27 dchno_28 dchno_29 dchno_30
> dchno_31 eacpref etchtn_0 etchtn_1 etchtn_2 etchtn_3 etchtn_4 etchtn_5
> etchtn_6 etchtn_7 exchgr hop hoptype hsn maio_0 maio_1 maio_2 maio_3
> maio_4 maio_5 maio_6 maio_7 maio_8 maio_9 maio_10 maio_11 maio_12
> maio_13 maio_14 maio_15 mcluster numreqbpc numreqcs3cs4bpc numreqe2abpc
> numreqegprsbpc odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4
> tn_5 tn_6 tn_7 tn7bcch tnbcch tsc userdata ch_group_7 chgr_tg chgr_state
> band bccd bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3 dchno_4
> dchno_5 dchno_6 dchno_7 dchno_8 dchno_9 dchno_10 dchno_11 dchno_12
> dchno_13 dchno_14 dchno_15 dchno_16 dchno_17 dchno_18 dchno_19 dchno_20
> dchno_21 dchno_22 dchno_23 dchno_24 dchno_25 dchno_26 dchno_27 dchno_28
> dchno_29 dchno_30 dchno_31 eacpref etchtn_0 etchtn_1 etchtn_2 etchtn_3
> etchtn_4 etchtn_5 etchtn_6 etchtn_7 exchgr hop hoptype hsn maio_0 maio_1
> maio_2 maio_3 maio_4 maio_5 maio_6 maio_7 maio_8 maio_9 maio_10 maio_11
> maio_12 maio_13 maio_14 maio_15 mcluster numreqbpc numreqcs3cs4bpc
> numreqe2abpc numreqegprsbpc odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2
> tn_3 tn_4 tn_5 tn_6 tn_7 tn7bcch tnbcch tsc userdata ch_group_8 chgr_tg
> chgr_state band bccd bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3
> dchno_4 dchno_5 dchno_6 dchno_7 dchno_8 dchno_9 dchno_10 dchno_11
> dchno_12 dchno_13 dchno_14 dchno_15 dchno_16 dchno_17 dchno_18 dchno_19
> dchno_20 dchno_21 dchno_22 dchno_23 dchno_24 dchno_25 dchno_26 dchno_27
> dchno_28 dchno_29 dchno_30 dchno_31 eacpref etchtn_0 etchtn_1 etchtn_2
> etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7 exchgr hop hoptype hsn
> maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6 maio_7 maio_8 maio_9
> maio_10 maio_11 maio_12 maio_13 maio_14 maio_15 mcluster numreqbpc
> numreqcs3cs4bpc numreqe2abpc numreqegprsbpc odpdchlimit sas sctype sdcch
> tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7 tn7bcch tnbcch tsc userdata
> ch_group_9 chgr_tg chgr_state band bccd bspwrt cbch ccch dchno_0 dchno_1
> dchno_2 dchno_3 dchno_4 dchno_5 dchno_6 dchno_7 dchno_8 dchno_9 dchno_10
> dchno_11 dchno_12 dchno_13 dchno_14 dchno_15 dchno_16 dchno_17 dchno_18
> dchno_19 dchno_20 dchno_21 dchno_22 dchno_23 dchno_24 dchno_25 dchno_26
> dchno_27 dchno_28 dchno_29 dchno_30 dchno_31 eacpref etchtn_0 etchtn_1
> etchtn_2 etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7 exchgr hop hoptype
> hsn maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6 maio_7 maio_8
> maio_9 maio_10 maio_11 maio_12 maio_13 maio_14 maio_15 mcluster
> numreqbpc numreqcs3cs4bpc numreqe2abpc numreqegprsbpc odpdchlimit sas
> sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7 tn7bcch tnbcch tsc
> userdata ch_group_10 chgr_tg chgr_state band bccd bspwrt cbch ccch
> dchno_0 dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6 dchno_7 dchno_8
> dchno_9 dchno_10 dchno_11 dchno_12 dchno_13 dchno_14 dchno_15 dchno_16
> dchno_17 dchno_18 dchno_19 dchno_20 dchno_21 dchno_22 dchno_23 dchno_24
> dchno_25 dchno_26 dchno_27 dchno_28 dchno_29 dchno_30 dchno_31 eacpref
> etchtn_0 etchtn_1 etchtn_2 etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7
> exchgr hop hoptype hsn maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6
> maio_7 maio_8 maio_9 maio_10 maio_11 maio_12 maio_13 maio_14 maio_15
> mcluster numreqbpc numreqcs3cs4bpc numreqe2abpc numreqegprsbpc
> odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7
> tn7bcch tnbcch tsc userdata ch_group_11 chgr_tg chgr_state band bccd
> bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6
> dchno_7 dchno_8 dchno_9 dchno_10 dchno_11 dchno_12 dchno_13 dchno_14
> dchno_15 dchno_16 dchno_17 dchno_18 dchno_19 dchno_20 dchno_21 dchno_22
> dchno_23 dchno_24 dchno_25 dchno_26 dchno_27 dchno_28 dchno_29 dchno_30
> dchno_31 eacpref etchtn_0 etchtn_1 etchtn_2 etchtn_3 etchtn_4 etchtn_5
> etchtn_6 etchtn_7 exchgr hop hoptype hsn maio_0 maio_1 maio_2 maio_3
> maio_4 maio_5 maio_6 maio_7 maio_8 maio_9 maio_10 maio_11 maio_12
> maio_13 maio_14 maio_15 mcluster numreqbpc numreqcs3cs4bpc numreqe2abpc
> numreqegprsbpc odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4
> tn_5 tn_6 tn_7 tn7bcch tnbcch tsc userdata ch_group_12 chgr_tg
> chgr_state band bccd bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3
> dchno_4 dchno_5 dchno_6 dchno_7 dchno_8 dchno_9 dchno_10 dchno_11
> dchno_12 dchno_13 dchno_14 dchno_15 dchno_16 dchno_17 dchno_18 dchno_19
> dchno_20 dchno_21 dchno_22 dchno_23 dchno_24 dchno_25 dchno_26 dchno_27
> dchno_28 dchno_29 dchno_30 dchno_31 eacpref etchtn_0 etchtn_1 etchtn_2
> etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7 exchgr hop hoptype hsn
> maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6 maio_7 maio_8 maio_9
> maio_10 maio_11 maio_12 maio_13 maio_14 maio_15 mcluster numreqbpc
> numreqcs3cs4bpc numreqe2abpc numreqegprsbpc odpdchlimit sas sctype sdcch
> tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7 tn7bcch tnbcch tsc userdata
> ch_group_13 chgr_tg chgr_state band bccd bspwrt cbch ccch dchno_0
> dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6 dchno_7 dchno_8 dchno_9
> dchno_10 dchno_11 dchno_12 dchno_13 dchno_14 dchno_15 dchno_16 dchno_17
> dchno_18 dchno_19 dchno_20 dchno_21 dchno_22 dchno_23 dchno_24 dchno_25
> dchno_26 dchno_27 dchno_28 dchno_29 dchno_30 dchno_31 eacpref etchtn_0
> etchtn_1 etchtn_2 etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7 exchgr
> hop hoptype hsn maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6 maio_7
> maio_8 maio_9 maio_10 maio_11 maio_12 maio_13 maio_14 maio_15 mcluster
> numreqbpc numreqcs3cs4bpc numreqe2abpc numreqegprsbpc odpdchlimit sas
> sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7 tn7bcch tnbcch tsc
> userdata ch_group_14 chgr_tg chgr_state band bccd bspwrt cbch ccch
> dchno_0 dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6 dchno_7 dchno_8
> dchno_9 dchno_10 dchno_11 dchno_12 dchno_13 dchno_14 dchno_15 dchno_16
> dchno_17 dchno_18 dchno_19 dchno_20 dchno_21 dchno_22 dchno_23 dchno_24
> dchno_25 dchno_26 dchno_27 dchno_28 dchno_29 dchno_30 dchno_31 eacpref
> etchtn_0 etchtn_1 etchtn_2 etchtn_3 etchtn_4 etchtn_5 etchtn_6 etchtn_7
> exchgr hop hoptype hsn maio_0 maio_1 maio_2 maio_3 maio_4 maio_5 maio_6
> maio_7 maio_8 maio_9 maio_10 maio_11 maio_12 maio_13 maio_14 maio_15
> mcluster numreqbpc numreqcs3cs4bpc numreqe2abpc numreqegprsbpc
> odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4 tn_5 tn_6 tn_7
> tn7bcch tnbcch tsc userdata ch_group_15 chgr_tg chgr_state band bccd
> bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6
> dchno_7 dchno_8 dchno_9 dchno_10 dchno_11 dchno_12 dchno_13 dchno_14
> dchno_15 dchno_16 dchno_17 dchno_18 dchno_19 dchno_20 dchno_21 dchno_22
> dchno_23 dchno_24 dchno_25 dchno_26 dchno_27 dchno_28 dchno_29 dchno_30
> dchno_31 eacpref etchtn_0 etchtn_1 etchtn_2 etchtn_3 etchtn_4 etchtn_5
> etchtn_6 etchtn_7 exchgr hop hoptype hsn maio_0 maio_1 maio_2 maio_3
> maio_4 maio_5 maio_6 maio_7 maio_8 maio_9 maio_10 maio_11 maio_12
> maio_13 maio_14 maio_15 mcluster numreqbpc numreqcs3cs4bpc numreqe2abpc
> numreqegprsbpc odpdchlimit sas sctype sdcch tn_0 tn_1 tn_2 tn_3 tn_4
> tn_5 tn_6 tn_7 tn7bcch tnbcch tsc userdata
>
> Best Regards
> Anirban.
--
Vincent Lequertier
s...@riseup.net
wwww.vincentlequertier.tk
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
