Last line in array - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Last line in array

davidrtgdavidrtg Posts: 95Member
I'm trying to grab the last line in an array of lines that I have pulled from a file. Is there a quick perl command to do this?
[code]
open(FILE,"requests.txt");
(@requests) = ; close FILE; chomp(@requests);
Get last line in @requests;
[/code]
I'm trying to do this because each line has a unique ID and I want to grab the ID from the last line when I go to submit a new entry.

Comments

  • JonathanJonathan Posts: 2,914Member
    : I'm trying to grab the last line in an array of lines that I have pulled from a file. Is there a quick perl command to do this?
    : [code]
    : open(FILE,"requests.txt");
    : (@requests) = ; close FILE; chomp(@requests);
    : Get last line in @requests;
    : [/code]
    : I'm trying to do this because each line has a unique ID and I want to grab the ID from the last line when I go to submit a new entry.
    :
    You can use $#requests to get the number of the last element in the array, so:-

    $requests[$#requests]

    Gives you the last element.

    Jonathan

    ###
    for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
    (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
    /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");

  • davidrtgdavidrtg Posts: 95Member
    : : I'm trying to grab the last line in an array of lines that I have pulled from a file. Is there a quick perl command to do this?
    : : [code]
    : : open(FILE,"requests.txt");
    : : (@requests) = ; close FILE; chomp(@requests);
    : : Get last line in @requests;
    : : [/code]
    : : I'm trying to do this because each line has a unique ID and I want to grab the ID from the last line when I go to submit a new entry.
    : :
    : You can use $#requests to get the number of the last element in the array, so:-
    :
    : $requests[$#requests]
    :
    : Gives you the last element.
    :
    : Jonathan
    :
    : ###
    : for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
    : (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
    : /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");
    :
    :

    Thanks Jonathan! Thats what I was looking for!

    David

Sign In or Register to comment.