DOKK / manpages / debian 12 / libsisimai-perl / Sisimai::String.3pm.en
Sisimai::String(3pm) User Contributed Perl Documentation Sisimai::String(3pm)

Sisimai::String - String related class

    use Sisimai::String;
    my $s = 'envelope-sender@example.jp';
    my $r = 'envelope-recipient@example.org';
    my $t = time();
    print Sisimai::String->token($s, $r, $t);  # 2d635de42a44c54b291dda00a93ac27b
    print Sisimai::String->is_8bit(\'X');     # 1
    print Sisimai::String->sweep(' neko cat ');# 'neko cat'
    print Sisimai::String->to_utf8('^[$BG-^[(B', 'iso-2022-jp');  # X
    print Sisimai::String->to_plain('<html>neko</html>');   # neko

Sisimai::String provide utilities for dealing string

"token(sender, recipient)"

"token()" generates a token: Unique string generated by an envelope sender address and a envelope recipient address.

    my $s = 'envelope-sender@example.jp';
    my $r = 'envelope-recipient@example.org';
    print Sisimai::String->token($s, $r);    # 2d635de42a44c54b291dda00a93ac27b

"is_8bit(Reference to String)"

"is_8bit()" checks the argument include any 8bit character or not.

    print Sisimai::String->is_8bit(\'cat');  # 0;
    print Sisimai::String->is_8bit(\'XX'); # 1;

"sweep()" clean the argument string up: remove trailing spaces, squeeze spaces.

    print Sisimai::String->sweep(' cat neko ');  # 'cat neko';
    print Sisimai::String->sweep(' nyaa   !!');  # 'nyaa !!';

"to_utf8(Reference to String, [Encoding])"

"to_utf8" converts given string to UTF-8.

    my $v = '^[$BG-^[(B';   # ISO-2022-JP
    print Sisimai::String->to_utf8($v, 'iso-2022-jp');  # X

"to_plain(Reference to String, [Loose Check])"

"to_plain" converts given string as HTML to plain text.

    my $v = '<html>neko</html>';
    print Sisimai::String->to_plain($v);    # neko

azumakuniyuki

Copyright (C) 2014-2016,2018,2019,2021,2022 azumakuniyuki, All rights reserved.

This software is distributed under The BSD 2-Clause License.

2022-12-23 perl v5.36.0