in reply to Re: delete a line from a file
in thread delete a line from a file

Thanks Utiltarian. This is the first time I have asked a question. to further clarify what I am asking, the original $working_file looks like this: 1001201001030000000000745706511000001785565602 0000000 00000008523978089697855656020003 1002201001030000000000415480038500001785565602 0000000 00000008523978089697855656020003 1003201001030000000000415480038600002785565602 0000000 00000008523978089697855656020003 1004201001030000000007897850196300002785565602 0000000 00000008523978089697855656020003 1005201001030000000000415480268500001785565602 0000000 00000008523978089697855656020003 1006201001030000000000415486051000001785565602 0000000 00000008523978089697855656020003 1007201001030000000000745700340000002785565602 0000000 00000008523978089697855656020003 1008201001030000000000745700331000001785565602 0000000 00000008523978089697855656020003 1009201001030000000000725541110000001785565602 0000000 00000008523978089697855656020003 1010201001030000000000745706510900001785565602 0000000 00000008523978089697855656020003 1011201001030000000000745700240000001785565602 0000000 00000008523978089697855656020003

and the first 4 chars is the store number. If store 1002, 1009 & 1010 are in @store list the $working_file should looks like this:

1001201001030000000000745706511000001785565602 0000000 00000008523978089697855656020003 1003201001030000000000415480038600002785565602 0000000 00000008523978089697855656020003 1004201001030000000007897850196300002785565602 0000000 00000008523978089697855656020003 1005201001030000000000415480268500001785565602 0000000 00000008523978089697855656020003 1006201001030000000000415486051000001785565602 0000000 00000008523978089697855656020003 1007201001030000000000745700340000002785565602 0000000 00000008523978089697855656020003 1008201001030000000000745700331000001785565602 0000000 00000008523978089697855656020003 1011201001030000000000745700240000001785565602 0000000 00000008523978089697855656020003

Replies are listed 'Best First'.
Re^3: delete a line from a file
by Utilitarian (Vicar) on Jan 28, 2010 at 17:04 UTC
    So you get the first four characters from your record substr and check if it is in the list, one way to do this would be 
    map {$valid = 1 if $store eq $_;}@store;)

    [download]
    I'm sure there is a better idiom, but I can't think of it @ the moment

    print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom