Academic Integrity: tutoring, explanations, and feedback — we don’t complete graded work or submit on a student’s behalf.

THIS IS PERL SCRIPTING. Please make easy to read and understandable hing Effecti

ID: 3714582 • Letter: T

Question

THIS IS PERL SCRIPTING. Please make easy to read and understandable

hing Effectiveness urSurvey Receipt M (no subject Mail mroger 16/@ students Search results EXAM3.pdf mroger 6/AppData/l icrosoftMicrosotEdge te.Downloads?AM3.pdf 3) Complete the script to create a hash slice which is a hash keys whose corresponding values are assigned to another list of keys. Assume that you are working on a student records: (25 pts.) %student ( ID 123456789, NAME Robert Smith" SSN 510-10-5454 ", DOB 05/19/96" @update qw(Savannah 9123584700 engineering@savannahstate.edu); #hash slice for CITY, PHONE , EMAIL #print the hash-slice

Explanation / Answer

//Script to create a hash slice for student records

use strict;

use warnings;

use Data::Dumper qw(Dumper);

my %student = (

ID => '123456789',

NAME => 'Robert Smith',

SSN => '510-10-5454',

DOB => '05/19/96',

);

#my @student_details = @student{'123456789', 'Robert Smith', '510-10-5454','05/19/96'};

#my @student_details = @student{qw(ID,NAME,SSN,DOB)};

my @Details = qw(ID,NAME,SSN,DOB);

#my @student_details = @student{ @Details };

#print Dumper @student_details;

#@student{'ID', 'NAME','SSN','DOB'} = ('123456789', 'Robert Smith', '510-10-5454','05/19/96');

my @records = ('ID', 'NAME','SSN','DOB');

my @details = ('123456789', 'Robert Smith', '510-10-5454','05/19/96');

#@student{ @records } = @details;

#print Dumper %student;