Stringを遊んでみる

naoyaさんの
http://d.hatena.ne.jp/naoya/20050928/1127884800
のエントリで
String.pmなるモジュールを知ったので、見てみた。

サンプル（PODのまんま）

#! /usr/bin/perl

use strict;

use warnings;

use String;

my $str = new String("Perl");

print "The string is '$str'\n";

printf("Length of the string is %d characters\n", $str->length);

printf("The first character of the string is %s\n", $str->charAt(0));

my $pos = $str->indexOf('er');

if (  $pos != -1 ) {

  printf("String '%s' contains 'er' at position %d\n", $str, $pos);

}

my $newStr = $str->concat(" ", "Guru");

printf("Length of the new string('%s') is %d characters\n", $newStr, $newStr->length);

結果

The string is 'Perl'

Length of the string is 4 characters

The first character of the string is P

String 'Perl' contains 'er' at position 1

Length of the new string('Perl Guru') is 9 characters

へ〜。
ちょとおもしろいなぁ。

naoyaさんのhackでは

String->new($js)->length

こんな感じで使われてました。
にゃるほど。

普通文字列の長さを知りたいときは、

length("Perl")

こんな感じでやりますけど、

String->new("Perl")->length

の方がいまどきって感じがする。

ええ、ワタクシミーハーですからぁ。