My code output ans sample output looks different..

Dev Shed Forums Sponsor:

October 2nd, 2012, 02:06 PM

lie_soul

Registered User

Join Date: Sep 2012

Posts: 7

Time spent in forums: 3 h 17 m 17 sec
Reputation Power: 0

My code output ans sample output looks different..

Hello,

this is the sample output:

Original outside: z y z 20 30
Passed inside sub: z y z 20 30
Changed and printed outside: z y another_thing 20 30

this is my code and output:

Quote:

#!/usr/bin/perl
use strict;
use warnings;
my @values = ("z", "y", "r", "20", "30");
print "Original outside: @values\n";

sub func { $ref_values = @_[0];
print "Passed inside sub: @$ref_values\n";
}
&func( \@values);

Output:
Original outside: z y r 20 30
Passed inside sub: z y r 20 30

i can't come up with the third output and figure out a way to change the index 2 to print something else !!!

October 2nd, 2012, 04:28 PM

Laurent_R

Contributing User

Join Date: Jun 2012

Posts: 502

Time spent in forums: 4 Days 18 h 51 m 13 sec
Reputation Power: 385

Hmm, if I understand what you want, you are expecting a third line of output, but there is no instruction to print a third line in your code, it won't magically print if you don't ask for it.

Or did I miss something from your problem?

October 2nd, 2012, 04:32 PM

lie_soul

Registered User

Join Date: Sep 2012

Posts: 7

Time spent in forums: 3 h 17 m 17 sec
Reputation Power: 0

Quote:

Originally Posted by Laurent_R

i need help for the third line.. tried but couldn't come up with a way to help me solve it.. i need to figure out a third way to print it outside the sub with changing the second index. so i can get the same sample output:

Changed and printed outside: z y [another_thing] 20 30

[another_thing] = index 2 which is z

so my final output would be:

Original outside: z y z 20 30
Passed inside sub: z y z 20 30
Changed and printed outside: z y another_thing 20 30

October 3rd, 2012, 03:21 AM

Laurent_R

Contributing User

Join Date: Jun 2012

Posts: 502

Time spent in forums: 4 Days 18 h 51 m 13 sec
Reputation Power: 385

Your func subroutine does not modify the array, so if you print the array after the call to the subroutine, you'll get the same output as before the call.

If you need to add an element to the array, this is possible, but please tell us where you want to do it.

October 3rd, 2012, 03:57 AM

ishnid

kill 9, $$;

Dev Shed God 4th Plane (6500 - 6999 posts)

Join Date: Sep 2001

Location: Shanghai, An tSín

Posts: 6,894

Time spent in forums: 4 Months 2 Weeks 1 Day 22 h 14 m 53 sec
Reputation Power: 3885

That code won't run at all! You've included "use strict;" but you haven't declared your $ref_values variable. You also have some quite old-fashioned and ill-advised practices in there. Here's how I'd write that exact program (I've also included hints on where you'll need to write code to solve your problem):

Code:

#!/usr/bin/perl 
use strict; 
use warnings;

# no need for double quotes for simple strings
# you don't require interpolation
my @values = ( 'z', 'y' 'r', '20', '30' );

# you need @values to be interpolated, so double quotes fit here
print "Original outside: @values\n"; 

# keep this here: putting the definition of a subroutine in 
# the middle of your code makes it very hard to read
# Also, don't use & for calling subroutines unless you have a good reason too do so.
func( \@values );

# HINT: you need to print the values in the array again here

sub func {
   # you'd forgotten to declare $ref_values
   # Also, use $, not @ for referring to a single element
   # in an array.
   # the following line could also be written:
   #   my $ref_values = shift;
   my $ref_values = $_[0];

   print "Passed inside sub: @$ref_values\n";

   # HINT: you need to change the contents of the array here
}

__________________
~ishnid;

Have you tried:
[ search.cpan.org | perldoc | Java API | mysql.com | google ]

Apostrophes are NOT used for possessive pronouns or for noun plurals, including acronyms.

Last edited by ishnid : October 3rd, 2012 at 04:04 AM.

October 3rd, 2012, 08:40 AM

lie_soul

Registered User

Join Date: Sep 2012

Posts: 7

Time spent in forums: 3 h 17 m 17 sec
Reputation Power: 0

Quote:

Originally Posted by Laurent_R

i want to print the array with chaining index 2 to anything i want outside the sub..

that what i'm having problem with..

October 3rd, 2012, 08:49 AM

lie_soul

Registered User

Join Date: Sep 2012

Posts: 7

Time spent in forums: 3 h 17 m 17 sec
Reputation Power: 0

Quote:

Originally Posted by ishnid

Code:

#!/usr/bin/perl 
use strict; 
use warnings;

# no need for double quotes for simple strings
# you don't require interpolation
my @values = ( 'z', 'y' 'r', '20', '30' );

# you need @values to be interpolated, so double quotes fit here
print "Original outside: @values\n"; 

# keep this here: putting the definition of a subroutine in 
# the middle of your code makes it very hard to read
# Also, don't use & for calling subroutines unless you have a good reason too do so.
func( \@values );

# HINT: you need to print the values in the array again here

sub func {
   # you'd forgotten to declare $ref_values
   # Also, use $, not @ for referring to a single element
   # in an array.
   # the following line could also be written:
   #   my $ref_values = shift;
   my $ref_values = $_[0];

   print "Passed inside sub: @$ref_values\n";

   # HINT: you need to change the contents of the array here
}

i modify it...

Code:

#!/usr/bin/perl 
use strict; use 
warnings; my 

@values = ('z', 'y' 'r', '20', '30');

print "Original outside: @values\n"; 

sub func 
{ 

$ref_values = $_[0];
print "Inside sub: $$ref_values\n";

} 
&func( \@values);

print "@values";

Now, where do i add the third request to print the values with changing the the third index? to look like this output;

Original outside: z y z 20 30
Passed inside sub: z y z 20 30
Changed and printed outside: z y another_thing 20 30

October 3rd, 2012, 10:12 AM

Laurent_R

Contributing User

Join Date: Jun 2012

Posts: 502

Time spent in forums: 4 Days 18 h 51 m 13 sec
Reputation Power: 385

Hi,

as Ishnid said, don't put your function definition in the middle of the code, put it either at the beginning, or probably better at the end. You also don't need "&" to call your function.

I still haven't fully understood what you want to do, so I'll give a try to see if it matches what you want to do. This is untested, as I am traveling and have currectly no access to a Perl environment.

Perl Code:

Original - Perl Code
#!/usr/bin/perl use strict; use warnings; my @values = ('z', 'y' 'r', '20', '30'); print "Original outside: @values\n"; func( \@values); my @new_values = (@values [0..2], 'something else', @values [3..4]); # Now, @new_values contains: ('z', 'y' 'r', 'something else', '20', '30'); print "New values are: @new_values"; sub func { my $ref_values = $_[0]; print "Inside sub: $$ref_values\n"; }

 
#!/usr/bin/perl 
use strict;
use warnings; 
 
my @values = ('z', 'y' 'r', '20', '30');
 
print "Original outside: @values\n"; 
 
func( \@values);
 
my @new_values = (@values [0..2], 'something else', @values [3..4]);
# Now, @new_values contains:  ('z', 'y' 'r', 'something else', '20', '30');
 
print "New values are: @new_values";
 
sub func 
{ 
     my $ref_values = $_[0];
     print "Inside sub: $$ref_values\n";
 
}

Note that I have chosen to simply create a new array and copy the elements, you could modify the existing array as well. Also note that there are other ways to add fields to an array (or remove from an array), such as the splice function. Look for the splice function in the Perl documentation.

My code output ans sample output looks different..

Developer Shed Advertisers and Affiliates