Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2014-12-20 21:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (99 votes), past polls