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

Re: Delete lines

by linuxer (Curate)
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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://789025]
[marto]: they have a commercial product called perlapp
[mark4]: Do you h=know how I can get pp.exe? Is there a module I can install that includes this?
[marto]: I always found Strawberry Perl on windows to be a much better environment, made life much easier
[marto]: pp. install it like you would any other module
[marto]: it probably exists in one of the PPM repositories
[marto]: failing that see the README
[mark4]: I installed "PAR" from the ppm install window. pp.exe. did not show up.
[marto]: it should just be a script, pp, or on windows pp.bat, post install you should just be able to call pp -x packed.exe as the PPM package should put everything required into the appropriate path
[marto]: ah, some time ago pp became it's own package, try searching your repo for PAR::Packer

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (14)
As of 2018-01-19 14:15 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (218 votes). Check out past polls.