And just for the fun of it:
use strict ;
use warnings ;
my @clean_data ;
my %track_hash ;
while( <DATA> ) {
s/\s+$// ;
my $to_track ;
( $to_track = ( split( /\s+/ ) )[1] ) ? push( @clean_data, $_ ) :
+next ;
delete( $clean_data[ $track_hash{ $to_track } ] ) if( defined( $tr
+ack_hash{ $to_track } ) ) ;
$track_hash{ $to_track } = $#clean_data ;
}
@clean_data = map( { ( $_ ) ? $_ : () } @clean_data ) ;
foreach ( @clean_data ) {
print "$_\n";
}
__DATA__
1/2/2013 cgoo nreuiheru
1/4/2013 doow reiqrqueih
1/5/2013 hellio ruieqrhfuepqh
1/20/2013 cgoo 3rhquh4ureyh
1/30/2013 yetil jerqohgqrij
2/13/2013 hellio rueqipheruh
2/14/2013 cgoo wehrig4r74378
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|