Context Navigation

← Previous Changeset
Next Changeset →

Changeset 12242

Timestamp:

05/23/08 16:45:56 (5 years ago)

Author:

nobjas

Message:

codepress適用してみた。

Location:

websites/perl-users.jp

Files:

: 2 modified

html/modern_introduction_perl/data.html (modified) (7 diffs)
ttroot/modern_introduction_perl/data.html (modified) (5 diffs)

Legend:

: Unmodified
: Added
: Removed

websites/perl-users.jp/html/modern_introduction_perl/data.html

r12236	r12242
17	17	<meta name="DC.format" scheme="DCTERMS.IMT" content="text/html" />
18	18	<meta name="DC.language" scheme="DCTERMS.RFC1766" content="ja" />
19		<meta name="DC.date" scheme="DCTERMS.W3CDTF" content="2008-05-23T0~~4:20:29~~Z" />
	19	<meta name="DC.date" scheme="DCTERMS.W3CDTF" content="2008-05-23T07:42:50Z" />
20	20	<meta name="DCTERMS.issued" scheme="DCTERMS.W3CDTF" content="2008-05-20" />
21		<meta name="DCTERMS.modified" scheme="DCTERMS.W3CDTF" content="2008-05-23T0~~4:20:29~~Z" />
	21	<meta name="DCTERMS.modified" scheme="DCTERMS.W3CDTF" content="2008-05-23T07:42:50Z" />
22	22
23	23	<!-- Atom news feed -->
…	…
62	62
63	63	<pre><code># 以下は全て別の変数として認識されます
	64	</code></pre>
	65
	66	<p><textarea id="Sigil" class="codepress perl" cols="80" rows="4">
64	67	my $x;
65	68	my @x;
66	69	my %x;
67		</~~code></pre~~>
	70	</textarea></p>
68	71
69	72	<h3>スカラー（文字列・数値）</h3>
…	…
71	74	<p>Perlには文字列と数値を区別して保存する方法はありません。全てスカラーという種類の変数に値を格納します。</p>
72	75
73		<pre><code>my $x = "this is a text";
	76	<p><textarea id="Scalar" class="codepress perl" cols="80" rows="4">
	77	my $x = "this is a text";
74	78	my $y = 1234;
75		</~~code></pre~~>
	79	</textarea></p>
76	80
77	81	<h3>配列</h3>
…	…
79	83	<p>複数のスカラーを一つの変数に順番に格納する場合に配列を使います。</p>
80	84
81		<pre><code>my @x = (1, 2, 3, 4);
	85	<p><textarea id="Array" class="codepress perl" cols="80" rows="9">
	86	my @x = (1, 2, 3, 4);
82	87	my @y = ("this", "is", "a", "list");
83		my @z = (100, "mixed", 200, "list");
	88	my @z = (100, "mixed", 200, "list");</p>
84	89
85		my $x = 100;
	90	<p>my $x = 100;
86	91	my $y = 200;
87	92	my $z = 3000;
88	93	my @xyz = ($x, $y, $z);
89		</~~code></pre~~>
	94	</textarea></p>
90	95
91	96	<p>配列のn番目の要素にアクセスするにはnを添え字として使用します。
92	97	添え字は 1ではなく、0から開始します</p>
93	98
94		<pre><code>my @x = ("one", "two", "three");
	99	<p><textarea id="AddChar" class="codepress perl" cols="80" rows="5">
	100	my @x = ("one", "two", "three");
95	101	print $x[ 0 ], "\n"; # "one"
96	102	print $x[ 1 ], "\n"; # "two"
97	103	print $x[ 2 ], "\n"; # "three"
98		</~~code></pre~~>
	104	</textarea></p>
99	105
100	106	<p>配列のsigilが<code>@</code>から<code>$</code>に変化するのがわかりにくいかもしれませんが、これは
…	…
103	109	<p>配列として全体に対して操作する場合は"<code>@</code>"を使用します</p>
104	110
105		<pre><code>join(" \| ", @list);
106		</code></pre>
	111	<p><textarea id="ArrayOperation" class="codepress perl" cols="80" rows="2">
	112	join(" \| ", @list);
	113	</textarea></p>
107	114
108	115	<p>配列の要素一個一個はスカラーですので、要素一個一個にアクセスする場合は"<code>$</code>"を
109	116	使用します</p>
110	117
111		<pre><code>print $list[ 0 ];
112		</code></pre>
	118	<p><textarea id="ScalarAccess" class="codepress perl" cols="80" rows="2">
	119	print $list[ 0 ];
	120	</textarea></p>
113	121
114	122	<h3>ハッシュ</h3>
…	…
116	124	<p>ハッシュは任意の文字列から任意のスカラーをマッピングします。</p>
117	125
118		<pre><code>my %x = (
119		"key1" => "value1"
	126	<p><textarea id="Hash" class="codepress perl" cols="80" rows="5">
	127	my %x = (
	128	"key1" => "value1"
120	129	);
121		</~~code></pre~~>
	130	</textarea></p>
122	131
123	132	<p>XXX - 時間がなかった。後で</p>
…	…
130	139	<hr />
131	140	<p><a href="/modern_introduction_perl/">目次へ</a></p>
132		<p>Last modified: $Date: 2008-05-23 ~~07:47:34 +0900 (金, 23 5月~~ 2008) $</p>
	141	<p>Last modified: $Date: 2008-05-23 13:23:49 +0900 (金, 23 5 2008) $</p>
133	142	</body>
134	143	</html>

websites/perl-users.jp/ttroot/modern_introduction_perl/data.html

r12236	r12242
23	23
24	24	# 以下は全て別の変数として認識されます
25		my $x;
26		my @x;
27		my %x;
	25
	26	<textarea id="Sigil" class="codepress perl" cols="80" rows="4">
	27	my $x;
	28	my @x;
	29	my %x;
	30	</textarea>
28	31
29	32	### スカラー（文字列・数値）
…	…
31	34	Perlには文字列と数値を区別して保存する方法はありません。全てスカラーという種類の変数に値を格納します。
32	35
33		my $x = "this is a text";
34		my $y = 1234;
	36	<textarea id="Scalar" class="codepress perl" cols="80" rows="4">
	37	my $x = "this is a text";
	38	my $y = 1234;
	39	</textarea>
	40
35	41
36	42	### 配列
…	…
38	44	複数のスカラーを一つの変数に順番に格納する場合に配列を使います。
39	45
40		my @x = (1, 2, 3, 4);
41		my @y = ("this", "is", "a", "list");
42		my @z = (100, "mixed", 200, "list");
	46	<textarea id="Array" class="codepress perl" cols="80" rows="9">
	47	my @x = (1, 2, 3, 4);
	48	my @y = ("this", "is", "a", "list");
	49	my @z = (100, "mixed", 200, "list");
43	50
44		my $x = 100;
45		my $y = 200;
46		my $z = 3000;
47		my @xyz = ($x, $y, $z);
	51	my $x = 100;
	52	my $y = 200;
	53	my $z = 3000;
	54	my @xyz = ($x, $y, $z);
	55	</textarea>
	56
48	57
49	58	配列のn番目の要素にアクセスするにはnを添え字として使用します。
50	59	添え字は 1ではなく、0から開始します
51	60
52		my @x = ("one", "two", "three");
53		print $x[ 0 ], "\n"; # "one"
54		print $x[ 1 ], "\n"; # "two"
55		print $x[ 2 ], "\n"; # "three"
	61	<textarea id="AddChar" class="codepress perl" cols="80" rows="5">
	62	my @x = ("one", "two", "three");
	63	print $x[ 0 ], "\n"; # "one"
	64	print $x[ 1 ], "\n"; # "two"
	65	print $x[ 2 ], "\n"; # "three"
	66	</textarea>
	67
56	68
57	69	配列のsigilが`@`から`$`に変化するのがわかりにくいかもしれませんが、これは
…	…
60	72	配列として全体に対して操作する場合は"`@`"を使用します
61	73
62		join(" \| ", @list);
	74	<textarea id="ArrayOperation" class="codepress perl" cols="80" rows="2">
	75	join(" \| ", @list);
	76	</textarea>
	77
63	78
64	79	配列の要素一個一個はスカラーですので、要素一個一個にアクセスする場合は"`$`"を
65	80	使用します
66	81
67		print $list[ 0 ];
	82	<textarea id="ScalarAccess" class="codepress perl" cols="80" rows="2">
	83	print $list[ 0 ];
	84	</textarea>
	85
68	86
69	87	### ハッシュ
…	…
71	89	ハッシュは任意の文字列から任意のスカラーをマッピングします。
72	90
73		my %x = (
74		"key1" => "value1"
75		);
	91	<textarea id="Hash" class="codepress perl" cols="80" rows="5">
	92	my %x = (
	93	"key1" => "value1"
	94	);
	95	</textarea>
	96
76	97
77	98	XXX - 時間がなかった。後で

Context Navigation

Changeset 12242

Legend:

websites/perl-users.jp/html/modern_introduction_perl/data.html

websites/perl-users.jp/ttroot/modern_introduction_perl/data.html

Download in other formats: