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

(elbie): Last two rows or a csv file.

by elbie (Curate)
on Aug 18, 2001 at 00:18 UTC ( #105800=note: print w/replies, xml ) Need Help??

in reply to Last two rows or a csv file.

Getting the last couple of rows is easy enough. Here's an example fragment that just reads the file in from STDIN:

$my( $curr_time, $prev_time ); while( <> ) { $prev_time = $curr_time; $curr_time = ( split /,/ )[1]; }

You can modify that to be a bit more robust or to open a file properly or what have you.

I'm not sure how you're calculating the percentage. Are you just dividing one number by the other?

You can print the percentage in whatever format you need using sprintf, for example:

$percentage = "%" . sprintf( "%.3f", $prev_time / $curr_time * 100 );

Or whatever your calculation is.

I'm sorry I can't be of much more help than this. If your code isn't working properly, post the fragment where the problem lies (or a test program that duplicates the problem) here and we'll try and sort through it.

If you don't have any code yet, then try your hand at the problem yourself. Worst case scenario is you're no worse off than before. :)

Good luck!


Replies are listed 'Best First'.
Re: (elbie): Last two rows or a csv file.
by qball (Beadle) on Aug 18, 2001 at 01:48 UTC
    This is what I've got:
    #!/usr/bin/perl open (FILE, "edidocs.csv") or die "Can't open file $!\n"; @lines = <FILE>; while ($line = pop @lines) { print $line "\n"; }
    It prints the rows from last to first. Now I need to get the first two rows timestamp and do the calulations. Then we'll be good to go!

    qball~"I have node idea?!"
      If you don't need to store the contents of the file, try this:

      open (FILE, "edidocs.csv") or die "Can't open file $!\n"; my( $curr_time, $prev_time ); # Sorry about the $ in the original while( <FILE> ) { $prev_time = $curr_time; $curr_time = ( split /,/ )[1]; }

      If you do need to store the whole file, then the last two lines are stored in $lines( $#lines - 1 ) and $lines( $#lines ) of your example before you popped them off the stack.


        Great! This works beautifully. Now I'm onto another stumbling block. How would I get the same percentage calculation for the entire month using the epoch timestamp in the csv file?

        qball~"I have node idea?!"

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2021-10-15 20:22 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (68 votes). Check out past polls.