Perl hash - Revision history

Heth: moved Hashes perl to Perl hash

2012-06-18T03:56:11Z

moved Hashes perl to Perl hash

Heth at 04:51, 31 May 2012

2012-05-31T04:51:22Z

Heth: added Category:Perl using HotCat

2012-05-31T04:50:39Z

added Category:Perl using HotCat

Heth: Created page with " my %hosts = ( "www" => "192.168.1.2", "intranet"=> "192.168.1.3", "mail" => "192.168.1.4"); print("IP adressen på www = $hosts{'..."

2012-05-31T04:50:33Z

Created page with "<source lang=perl> my %hosts = ( "www" => "192.168.1.2", "intranet"=> "192.168.1.3", "mail" => "192.168.1.4"); print("IP adressen på www = $hosts{'..."

New page

<source lang=perl>

my %hosts = ( "www" => "192.168.1.2",
"intranet"=> "192.168.1.3",
"mail" => "192.168.1.4");

print("IP adressen på www = $hosts{'www'}\n");

my %reverseHosts = reverse %hosts;
print("Host med IP 192.168.1.2 hedder $reverseHosts{\"192.168.1.2\"}\n");

#Udskriv hele hash tabellen
my ($k,$v);
while ( ($k, $v) = each %hosts ) {
print("Host $k har IP adressen $v\n");
}
$hosts{"intranet"} = "80.80.80.80";
my %reverseHosts = reverse %hosts;
print("#### hosts\n");
while ( ($k, $v) = each %hosts ) {
print("Host $k har IP adressen $v\n");
}
print("#### reverseHosts\n");
while ( ($k, $v) = each %reverseHosts ) {
print("Host $k har IP adressen $v\n");
}
print("-------------------------- ADD KEY/VALUE -------------------\n");
$hosts{"wiki"} = "80.80.80.81";
my %reverseHosts = reverse %hosts;
print("#### hosts\n");
while ( ($k, $v) = each %hosts ) {
print("Host $k har IP adressen $v\n");
}
print("#### reverseHosts\n");
while ( ($k, $v) = each %reverseHosts ) {
print("Host $k har IP adressen $v\n");
}
</source>

← Older revision		Revision as of 04:50, 31 May 2012
Line 37:		Line 37:
	}		}
	</source>		</source>
		+
		+	[[Category:Perl]]

← Older revision	Revision as of 03:56, 18 June 2012
(No difference)

@@ Line 15: / Line 15: @@
      print("Host $k har IP adressen $v\n");
+}
 $hosts{"intranet"} = "80.80.80.80";
 my %reverseHosts = reverse %hosts;