Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^2: Data managing problem

by tmharish (Friar)
on Feb 22, 2013 at 11:50 UTC ( [id://1020145]=note: print w/replies, xml ) Need Help??


in reply to Re: Data managing problem
in thread Data managing problem

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

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2024-03-29 09:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found