This will also save it for you:
use strict ; use warnings ; my @clean_data ; my %track_hash ; while( <DATA> ) { my $line = $_ ; chomp( $line ) ; my ( $date, $word_to_uniq, $other_word ) = split( /\s+/, $line ) ; next unless( $date and $word_to_uniq and $other_word ) ; if( defined( $track_hash{ $word_to_uniq } ) ) { delete( $clean_data[ $track_hash{ $word_to_uniq } ] ) ; } push @clean_data, $line ; $track_hash{ $word_to_uniq } = $#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
In reply to Re: Data managing problem
by tmharish
in thread Data managing problem
by manorhce
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |