Arrays perl - Revision history

Heth: /* Multidimentionelle arrays */

2018-07-08T04:15:06Z

‎Multidimentionelle arrays

Heth at 13:13, 7 July 2018

2018-07-07T13:13:02Z

Heth: /* Anonyme arrays */

2012-06-18T08:45:58Z

‎Anonyme arrays

Heth: /* Anonyme arrays */

2012-06-18T08:45:05Z

‎Anonyme arrays

Heth at 09:02, 1 October 2009

2009-10-01T09:02:23Z

Heth: Perl arrays moved to Arrays perl

2009-09-30T08:56:41Z

Perl arrays moved to Arrays perl

Heth: /* Overføre array til subroutine */

2009-06-05T08:21:51Z

‎Overføre array til subroutine

Heth: New page: = Referencer til arrays = == Overføre array til subroutine == Overfør en reference til arrayet. (Subroutinen får adressen på arrayet og arbejder på det originale Overfør reference ...

2009-06-05T08:13:31Z

New page: = Referencer til arrays = == Overføre array til subroutine == Overfør en reference til arrayet. (Subroutinen får adressen på arrayet og arbejder på det originale Overfør reference ...

New page

= Referencer til arrays =
== Overføre array til subroutine ==

Overfør en reference til arrayet. (Subroutinen får adressen på arrayet og arbejder på det originale
Overfør reference til subroutine. Eksempel.
<source lang="perl">
#Opret et array
my @array = qw(A B C D E F G H I J);
#--------------------------------------------
print "Det originale array\n";
for ( my $i=0; $i <= $#array ;$i++ ) {
print $i,":",$array[$i]," ";
}
#--------------------------------------------

mercantec(\@array);

#--------------------------------------------
print "\nEfter kald til subroutine mercantec\n";
for ( my $i=0; $i <= $#array ;$i++ ) {
print $i,":",$array[$i]," ";
}
#--------------------------------------------

sub mercantec() {
my $a = shift;
$a->[2] = Z; # -> betyder reference til
}
</source>
= Indsætte og fjerne elementer i et array =
Eksmepler på ''pop'',''push'',''shift'',''unshift'' og ''splice'' herunder
<source lang="perl">
my @array = qw(A B C D E F G H I J);

#--------------------------------------------
print "Det originale array\n";
for ( my $i=0; $i <= $#array ;$i++ ) {
print $i,":",$array[$i]," ";
}

#--------------------------------------------
print "\n\nVi ønsker at tilføje et element til sidst i arrayet.\n";
push(@array,"K");
for ( my $i=0; $i <= $#array ;$i++ ) {
print $i,":",$array[$i]," ";
}

#--------------------------------------------
print "\n\nVi ønsker at tilføje et element i starten af arrayet.\n";
unshift(@array,"=");
for ( my $i=0; $i <= $#array ;$i++ ) {
print $i,":",$array[$i]," ";
}

#--------------------------------------------
print "\n\nVi ønsker at fjerne det første element.\n";
shift(@array);
for ( my $i=0; $i <= $#array ;$i++ ) {
print $i,":",$array[$i]," ";
}

#--------------------------------------------
print "\n\nVi ønsker at fjerne det sidste element.\n";
pop(@array);
for ( my $i=0; $i <= $#array ;$i++ ) {
print $i,":",$array[$i]," ";
}

#--------------------------------------------
print "\n\nVi ønsker at tilføje et element mellem 3 og 4.\n";
splice(@array,3,0,"*");
for ( my $i=0; $i <= $#array ;$i++ ) {
print $i,":",$array[$i]," ";
}

#--------------------------------------------
print "\n\nVi ønsker at fjerne element 3 og 4.\n";
splice(@array,3,2);
for ( my $i=0; $i <= $#array ;$i++ ) {
print $i,":",$array[$i]," ";
}
#-----------------------------------------
</source>
[[Category:Programming]][[Category:Perl]]

@@ Line 122: / Line 122: @@
 Size of a = 5
 Size of a = 2
 </source>
 [[Category:Programming]][[Category:Perl]]

@@ Line 100: / Line 100: @@
 $array[2] = ["Flue","insekt","bi"];
 foreach (@{$array[1]}) {
 	print "$_\n";

@@ Line 103: / Line 103: @@
 	print "$_\n";
+}
 =Multidimentionelle arrays=
 <source lang=perl>
@@ Line 120: / Line 121: @@
 Size of a = 5
 Size of a = 2
 </source>
 [[Category:Programming]][[Category:Perl]]

@@ Line 1: / Line 1: @@
 = Referencer til arrays =
 == Overføre array til subroutine ==
@@ Line 87: / Line 88: @@
+}
 #-----------------------------------------
 </source>
 [[Category:Programming]][[Category:Perl]]

← Older revision	Revision as of 08:56, 30 September 2009
(No difference)

@@ Line 26: / Line 26: @@
 sub mercantec() {
 my $a = shift;
-$a->[2] = Z;  # -> betyder reference til
+print "\nsub mercantec har modtaget\n";
+}
 </source>
 = Indsætte og fjerne elementer i et array =
 Eksmepler på ''pop'',''push'',''shift'',''unshift'' og ''splice'' herunder