UTF8 Perl - Revision history

Heth: /* Encoding æ ø å Æ Ø Å */

2012-06-18T03:18:39Z

‎Encoding æ ø å Æ Ø Å

Heth at 07:20, 12 September 2010

2010-09-12T07:20:20Z

Heth: Perl utf8 moved to UTF8 Perl

2010-09-12T07:19:42Z

Perl utf8 moved to UTF8 Perl

Heth at 06:48, 9 June 2009

2009-06-09T06:48:24Z

Heth: New page: = Encoding æ ø å Æ Ø Å = my $str = "\n"; my @danishUTF = ( "\303\246", # Danish UTF æ "\303\270", # Danish UTF ø "\303\245", # Danish UTF å "\303\206"...

2009-06-09T06:19:02Z

New page: = Encoding æ ø å Æ Ø Å = <source lang="perl"> my $str = "\n"; my @danishUTF = ( "\303\246", # Danish UTF æ "\303\270", # Danish UTF ø "\303\245", # Danish UTF å "\303\206"...

New page

= Encoding æ ø å Æ Ø Å =
<source lang="perl">
my $str = "\n";
my @danishUTF = (
"\303\246", # Danish UTF æ
"\303\270", # Danish UTF ø
"\303\245", # Danish UTF å
"\303\206", # Danish UTF Æ
"\303\230", # Danish UTF Ø
"\303\205", # Danish UTF Å
);
</source>

← Older revision		Revision as of 03:18, 18 June 2012
Line 1:		Line 1:
		+	= Using UTF8 in the source=
		+	<source lang="perl">
		+	#!/usr/bin/perl
		+	use utf8;
		+	binmode STDIN, ':encoding(UTF-8)';
		+	binmode STDOUT, ':encoding(UTF-8)';
		+	print "æøåÆØÅ\n";
		+	open F, ('> ./utf8.out');
		+	binmode F, ':encoding(UTF-8)';
		+	binmode F, ':encoding(UTF-8)';
		+	print F "æøåÆØÅ\n";
		+	my $øl = 'Gælder årstøl';
		+	if ( $øl =~ /Gælder (.*)/) { #Using UTF
		+	print $1;
		+	}
		+	close F;
		+	</source>
	= Encoding æ ø å Æ Ø Å =		= Encoding æ ø å Æ Ø Å =
	<source lang="perl">		<source lang="perl">

@@ Line 11: / Line 11: @@
 );
 </source>
-[[category:Programming]][[Category:Perl]]
+[[category:Programming]][[Category:Perl]][[Category:Character set]]

← Older revision		Revision as of 06:48, 9 June 2009
Line 11:		Line 11:
	);		);
	</source>		</source>
		+	[[category:Programming]][[Category:Perl]]

← Older revision	Revision as of 07:19, 12 September 2010
(No difference)