sub saveStudInfo_PerlScr ipt Accept Input my Name shift my Marks shift

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
sub saveStudInfo_PerlScript {
# Accept Input
my $Name = shift;
my $Marks = shift;
my $SerialNo = shift;
# Call subroutine which does database update
update_Student_Info($SerialNo,$Name,$Marks);
# Return Output
return (@Return, ($Name ne "") ? $Name : " ",($Marks ne "") ? $Marks : " ");
}