Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^2: How can one delete an element and it corresponding values from the array of arrays?

by supriyoch_2008 (Monk)
on Mar 18, 2013 at 10:35 UTC ( [id://1024007]=note: print w/replies, xml ) Need Help??


in reply to Re: How can one delete an element and its corresponding values from an array of arrays?
in thread How can one delete an element and it corresponding values from the array of arrays?

Hi Athanasius,

Thanks for your reply to this thread. With reference to your reply to my previous thread (not this one), is it possible to use print syntax to get the detailed information of a student so that I can get a text output? If yes, where and how should I use print to get the results.

Regards,

Replies are listed 'Best First'.
Re^3: How can one delete an element and its corresponding values from an array of arrays?
by Athanasius (Archbishop) on Mar 18, 2013 at 11:25 UTC

    One of the main benefits of grouping related data together is that it makes accessing that data easier. (The other main benefit is that it becomes harder to corrupt the data by accident.) So, in Re: How can one access all the details of a person using arrays & hash? I created a Student class to hold student data, and I added a method sub display to group together the print statements used to print out the data for a single student.

    Not sure what you’re asking here, but perhaps you want to be able to print to files instead of to STDOUT? If so, just change the calls to print into calls to sprintf and return the string to be printed:

    sub display { my ($self) = @_; my $output = ''; if ($self) { $output = sprintf "Name: %s\n", $self->{NAME}; $output .= sprintf "Age: %d\n", $self->{AGE}; $output .= sprintf "Regd no: %s\n", $self->{REGD_NO}; $output .= sprintf "Phone num: %s\n", $self->{PHONE_NUM}; $output .= sprintf "Mark: %d\n", $self->{MARK}; $output .= sprintf "Pass year: %d\n", $self->{PASS_YEAR}; } return $output; }

    Then print the result:

    my $outfile = 'temp.txt'; open(my $fh, '>', $outfile) or die "Cannot open file '$outfile' for wr +iting: $!"; print $fh find_student('x3')->display(); close($fh) or die "Cannot close file '$outfile': $!";

    Hope that helps,

    Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,

      Athanasius

      Thanks for the code. After learning a little more about data structure (using hashes, arrays etc.) I shall get back to you if I face any other problem. Sorry for late reply.

      Regards

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (2)
As of 2024-03-19 06:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found