Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re: Delete lines

by linuxer (Deacon)
on Aug 16, 2009 at 15:43 UTC ( #789025=note: print w/ replies, xml ) Need Help??

in reply to Delete lines

What about doing it this way.

Currently it skips any line containing the string "{T}". And if the following line consists of a single alphanumeric, that line is skipped as well.

#! /usr/bin/perl use strict; use warnings; my $flag_match; LINE: while ( my $line = <DATA> ) { if ( $line =~ m/{T}/ ) { $flag_match = 1; next LINE; } else { if ( $line =~ m/^\w$/ && $flag_match ) { $flag_match = 0; next LINE; } } print $line; } __DATA__ 020209990421VUTVS01 00082445B3^V^V^A2^C^D^V^V^A os00 0001 000101 R S 9 +912290449 00005941^B{T} R Saturday, January 1, 2000 G1 G ^C^D^V^V^A os00 0002 000101 R S 9912290451 00004113^B{T} R G8 Gardening< January garden calendar B C

Comment on Re: Delete lines
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://789025]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (7)
As of 2015-03-29 20:06 GMT
Find Nodes?
    Voting Booth?

    When putting a smiley right before a closing parenthesis, do you:

    Results (632 votes), past polls