Attachment 9463 Details for Bug 21079 – Example perl script with indentations removed.

Example perl script with indentations removed.

untidyfile (text/plain), 667 bytes, created by Len Lawrence on 2017-07-06 02:40:03 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Len Lawrence

Created: 2017-07-06 02:40:03 CEST

Size: 667 bytes

patch

obsolete

#!/bin/perl
# SUB3:   Demonstrates how to return a scalar from a subroutine call.  The
#         module modifies a subrange of @arr1, and returns number of changes. 

sub sub3
{  my ($diff);
print "  In sub3: Parms = @_ \n";     # Print out parameter string
print "  In sub3:  ";
for ($_[0]..$_[1])			 # Step through subrange, one by one
{ 
print $_, ". ",$arr1[$_], "   "; # Default variable is current counter

$arr1[$_] = $arr1[$_]."XX";      # Concatenate operator is "." (dot)
}

print "\n";
print "  In sub3: @arr1 \n";

$diff = $_[1] - $_[0] + 1;		 # Determine number of items used

return $diff;                         # Assign return value to subroutine
}

Actions: View

Attachments on bug 21079: 9463